Changeset 5267

Timestamp:

Sep 27, 2006, 4:05:29 AM (18 years ago)

Author:

Gary Byers

Message:

CLASS-PROTOTYPE method for CLASS class (mostly for BUILT-IN-CLASSes).

File:

• trunk/ccl/level-1/l1-clos-boot.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-clos-boot.lisp

@@ -3161 +3161 @@
 
 ;;; Need to define this for all of the BUILT-IN-CLASSes.
+(defmethod class-prototype ((class class))
+  (%class.prototype class))
+
 (defmethod class-prototype ((class std-class))
   (or (%class.prototype class)
       (setf (%class.prototype class) (allocate-instance class))))
-