Changeset 105

Timestamp:

Dec 10, 2003, 12:24:33 AM (21 years ago)

Author:

Gary Byers

Message:

More wrapper slots for faster slot lookup.

File:

• trunk/ccl/library/lispequ.lisp (modified) (2 diffs)

trunk/ccl/library/lispequ.lisp

@@ -957 +957 @@
   %wrapper-instance-slots               ; vector of instance slot names
   %wrapper-class-slots                  ; alist of (name . value-cell) pairs
+  %wrapper-slot-id->slotd               ; map slot-id to slotd, or NIL
+  %wrapper-slot-id-map                  ; (vector (mod nslots) next-slot-id-index)
+  %wrapper-slot-definition-table        ; vector of nil || slot-definitions
+  %wrapper-class-svuc-effective-method-function  ; call effective method for SLOT-VALUE-USING-CLASS
+  %wrapper-class-ssvuc-effective-method-function ; call effective method for (SETF SLOT-VALUE-USING-CLASS
+  %wrapper-slot-id-value                ; "fast" SLOT-VALUE function
+  %wrapper-set-slot-id-value            ; "fast" (SETF SLOT-VALUE) function
 )
 
@@ -983 +990 @@
 (defmacro %cons-wrapper (class &optional 
                                (hash-index '(new-class-wrapper-hash-index)))
-  `(%istruct 'class-wrapper ,hash-index ,class nil nil #| nil nil nil nil |#))
+  `(%istruct 'class-wrapper ,hash-index ,class nil nil #'slot-id-lookup-no-slots nil nil nil nil #'%slot-id-ref-missing #'%slot-id-set-missing))