[cl-store-cvs] CVS update: cl-store/sbcl/custom.lisp

[Sean Ross]

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-))