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