Changeset 7958


Ignore:
Timestamp:
Dec 26, 2007, 8:05:37 AM (13 years ago)
Author:
gb
Message:

CLASS-WRAPER caches CPL.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/library/lispequ.lisp

    r7753 r7958  
    519519  ;; The element type as it is specialized in this implementation.
    520520  array-ctype-specialized-element-type
     521  ;; The typecode of the specialize element type, or NIL.
     522  array-ctype-typecode
    521523)
    522524
     
    930932  %wrapper-slot-id-value                ; "fast" SLOT-VALUE function
    931933  %wrapper-set-slot-id-value            ; "fast" (SETF SLOT-VALUE) function
     934  %wrapper-cpl                          ; cached cpl of %wrapper-class or NIL
    932935)
    933936
     
    956959(defmacro %cons-wrapper (class &optional
    957960                               (hash-index '(new-class-wrapper-hash-index)))
    958   `(%istruct 'class-wrapper ,hash-index ,class nil nil #'slot-id-lookup-no-slots nil nil #'%slot-id-ref-missing #'%slot-id-set-missing))
     961  `(%istruct 'class-wrapper ,hash-index ,class nil nil #'slot-id-lookup-no-slots nil nil #'%slot-id-ref-missing #'%slot-id-set-missing nil))
    959962
    960963
Note: See TracChangeset for help on using the changeset viewer.