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

[gb at clozure.com]

Author: gb
Date: Mon Aug  4 04:21:38 2008
New Revision: 10299

Log:
Use SET-ISTRUCT-CELL-INFO (not (SETF ISTRUCT-CELL-INFO)) in
MAKE-ISTRUCT-CLASS, for bootstrapping.


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 Mon Aug  4 04:21:38 2008
@@ -1402,7 +1402,7 @@
 (defun make-istruct-class (name &rest supers)
   (let* ((class (apply #'make-built-in-class name supers))
          (cell (register-istruct-cell name)))
-    (setf (istruct-cell-info cell) (%class.own-wrapper class))
+    (set-istruct-cell-info cell (%class.own-wrapper class))
     class))
 =

 ;;; This will be filled in below.  Need it defined now as it goes in