Index: /branches/working-0711/ccl/library/lispequ.lisp
===================================================================
--- /branches/working-0711/ccl/library/lispequ.lisp	(revision 7737)
+++ /branches/working-0711/ccl/library/lispequ.lisp	(revision 7738)
@@ -1303,5 +1303,14 @@
   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))