Changeset 7753

Timestamp:

Nov 26, 2007, 3:33:19 AM (17 years ago)

Author:

Gary Byers

Message:

Add "extra" field to CLASS-CELL. (Free, due to alignment conventions.)

File:

• branches/working-0711/ccl/library/lispequ.lisp (modified) (1 diff)

branches/working-0711/ccl/library/lispequ.lisp

@@ -1310 +1310 @@
   class-cell-class
   class-cell-instantiate
-  )
-
-(defmacro make-class-cell (name) `(%istruct 'class-cell ,name nil '%make-instance))
+  class-cell-extra                      ; wrapper in some cases
+  )
+
+(defmacro make-class-cell (name) `(%istruct 'class-cell ,name nil '%make-instance nil))