[Sbcl-devel] Alien bug

[Thomas F. B. <tfb@OCF.Berkeley.EDU>]

Putting the following forms in a file, compiling it, and loading the
resulting fasl into the image that compiled the file causes
sb-alien::record-fields-match to go into an infinite recursion.
Loading it repeadedly from source, or from fasl only once, doesn't
cause any problems.

(defpackage :alien-bug
  (:use :cl :sb-alien))

(in-package :alien-bug)

(define-alien-type objc-class
    (struct objc-class
	    (protocols (* (struct protocol-list
				  (list (array (* (struct objc-class)) 1)))))))