Update of /project/cl-store/cvsroot/cl-store/sbcl In directory common-lisp.net:/tmp/cvs-serv8226/sbcl
Modified Files: custom.lisp Log Message: Changelog 2005-10-04 Date: Tue Oct 4 10:14:02 2005 Author: sross
Index: cl-store/sbcl/custom.lisp diff -u cl-store/sbcl/custom.lisp:1.9 cl-store/sbcl/custom.lisp:1.10 --- cl-store/sbcl/custom.lisp:1.9 Tue Oct 4 10:10:29 2005 +++ cl-store/sbcl/custom.lisp Tue Oct 4 10:14:02 2005 @@ -54,7 +54,7 @@ (defvar *sbcl-struct-inherits* `(,(get-layout (find-class t)) ,@(when-let (class (find-class 'sb-kernel:instance nil)) - (list (get-layout (find-class 'sb-kernel:instance)))) + (list (get-layout class))) ,(get-layout (find-class 'cl:structure-object))))
(defstruct (struct-def (:conc-name sdef-))