Changeset 5940

Timestamp:

Feb 19, 2007, 1:09:23 AM (18 years ago)

Author:

Gary Byers

Message:

FUNCALLABLE-STANDARD-OBJECT is a FUNCALLABLE-STANDARD-CLASS.

File:

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

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

@@ -1535 +1535 @@
 
 
-(defglobal *funcallable-standard-object-class*
-  (make-standard-class 'funcallable-standard-object
-                       *standard-object-class* *function-class*))
+
 
 (defglobal *funcallable-standard-class-class*
   (make-standard-class 'funcallable-standard-class *std-class-class*))
+
+(defglobal *funcallable-standard-object-class*
+  (make-class 'funcallable-standard-object
+              (%class.own-wrapper *funcallable-standard-class-class*)
+              (list *standard-object-class* *function-class*)))
 
 (defglobal *generic-function-class*