Update of /project/cl-store/cvsroot/cl-store/sbcl In directory common-lisp.net:/tmp/cvs-serv8165/sbcl

Modified Files: custom.lisp Log Message: Changelog 2005-10-04 Date: Tue Oct 4 10:10:29 2005 Author: sross

Index: cl-store/sbcl/custom.lisp diff -u cl-store/sbcl/custom.lisp:1.8 cl-store/sbcl/custom.lisp:1.9 --- cl-store/sbcl/custom.lisp:1.8 Thu May 5 14:58:57 2005 +++ cl-store/sbcl/custom.lisp Tue Oct 4 10:10:29 2005 @@ -52,9 +52,10 @@ (slot-value dd 'sb-kernel::name))

(defvar *sbcl-struct-inherits* - (list (get-layout (find-class t)) - (get-layout (find-class 'sb-kernel:instance)) - (get-layout (find-class 'cl:structure-object)))) + `(,(get-layout (find-class t)) + ,@(when-let (class (find-class 'sb-kernel:instance nil)) + (list (get-layout (find-class 'sb-kernel:instance)))) + ,(get-layout (find-class 'cl:structure-object))))

(defstruct (struct-def (:conc-name sdef-)) (supers (required-arg :supers) :type list)