Changeset 10573

Show
Ignore:
Timestamp:
08/27/08 05:38:23 (3 months ago)
Author:
gb
Message:

Init %wrapper-cpl-bits of *T-CLASS* (missed in merge.)

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/source/level-1/l1-clos-boot.lisp

    r10456 r10573  
    14581458                           (wrapper (%cons-wrapper class (new-class-wrapper-hash-index)))) 
    14591459                      (setf (%class.cpl class) cpl) 
    1460                       (setf (%wrapper-cpl wrapper) cpl) 
    1461                       (setf (%class.own-wrapper class) wrapper) 
     1460                      (setf (%wrapper-cpl wrapper) cpl 
     1461                            (%class.own-wrapper class) wrapper 
     1462                            (%wrapper-cpl-bits wrapper) #*1) 
    14621463                      (setf (%class.ctype class) (make-class-ctype class)) 
    14631464                      (setf (find-class 't) class)