Changeset 7738 for branches

Timestamp:

Nov 24, 2007, 6:33:20 PM (17 years ago)

Author:

Gary Byers

Message:

New CLASS-CELL stuff. (use %SVREF, eventually.)

File:

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

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

@@ -1303 +1303 @@
   open-binary
   file-stream)
-  
+
+
+(def-accessors (class-cell) uvref
+  nil                                   ; 'class-cell
+  class-cell-name
+  class-cell-class
+  class-cell-instantiate
+  )
+
+(defmacro make-class-cell (name) `(%istruct 'class-cell ,name nil '%make-instance))