[Openmcl-cvs-notifications] r10573 - /trunk/source/level-1/l1-clos-boot.lisp

[gb at clozure.com]

Author: gb
Date: Wed Aug 27 05:38:23 2008
New Revision: 10573

Log:
Init %wrapper-cpl-bits of *T-CLASS* (missed in merge.)

Modified:
    trunk/source/level-1/l1-clos-boot.lisp

Modified: trunk/source/level-1/l1-clos-boot.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-clos-boot.lisp (original)
+++ trunk/source/level-1/l1-clos-boot.lisp Wed Aug 27 05:38:23 2008
@@ -1457,8 +1457,9 @@
                     (let* ((cpl (list class))
                            (wrapper (%cons-wrapper class (new-class-wrappe=
r-hash-index))))
                       (setf (%class.cpl class) cpl)
-                      (setf (%wrapper-cpl wrapper) cpl)
-                      (setf (%class.own-wrapper class) wrapper)
+                      (setf (%wrapper-cpl wrapper) cpl
+                            (%class.own-wrapper class) wrapper
+                            (%wrapper-cpl-bits wrapper) #*1)
                       (setf (%class.ctype class) (make-class-ctype class))
                       (setf (find-class 't) class)
                       class)))