Changeset 420

Timestamp:

Jan 30, 2004, 11:32:35 AM (21 years ago)

Author:

Gary Byers

Message:

CLASS-SLOT-INITARGS, CREATE-READER/WRITER-METHOD-FUNCTION: less specialized.

File:

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

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

@@ -2128 +2128 @@
               (return))))))))
 
-(defmethod create-reader-method-function ((class std-class)
+(defmethod create-reader-method-function ((class slots-class)
                                           (reader-method-class standard-reader-method)
-                                          (dslotd standard-direct-slot-definition))
+                                          (dslotd direct-slot-definition))
   (gvector :function
            (uvref *reader-method-function-proto* 0)
@@ -2138 +2138 @@
            (dpb 1 $lfbits-numreq (ash 1 $lfbits-method-bit))))
 
-(defmethod create-writer-method-function ((class std-class)
+(defmethod create-writer-method-function ((class slots-class)
                                           (writer-method-class standard-writer-method)
-                                          (dslotd standard-direct-slot-definition))
+                                          (dslotd direct-slot-definition))
   (gvector :function
            (uvref *writer-method-function-proto* 0)
@@ -2763 +2763 @@
 ; This is part of the MOP
 ;;; Maybe it was, at one point in the distant past ...
-(defmethod class-slot-initargs ((class std-class))
+(defmethod class-slot-initargs ((class slots-class))
   (apply #'append (mapcar #'(lambda (s)
-                              (standard-slot-definition.initargs s))
-                          (%class.slots class))))
+                              (%slot-definition-initargs s))
+                          (%class-slots class))))