Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv25772/src/code
188.8.131.52: inform genesis about FOR-STD-CLASS-P slot in LAYOUT
* It was left uninitialized by genesis, resulting in bogus results
* Poke at it in tests.
RCS file: /cvsroot/sbcl/sbcl/src/code/class.lisp,v
retrieving revision 1.79
retrieving revision 1.80
diff -u -d -r1.79 -r1.80
--- class.lisp 29 Aug 2007 16:02:36 -0000 1.79
+++ class.lisp 29 Aug 2007 17:14:45 -0000 1.80
@@ -114,6 +114,13 @@
;;; type checking and garbage collection. Whenever a class is
;;; incompatibly redefined, a new layout is allocated. If two object's
;;; layouts are EQ, then they are exactly the same type.
+;;; *** IMPORTANT ***
+;;; If you change the slots of LAYOUT, you need to alter genesis as
+;;; well, since the initialization of layout slots is hardcoded there.
+;;; FIXME: ...it would be better to automate this, of course...
;; KLUDGE: A special hack keeps this from being
;; called when building code for the