Changeset 10573


Ignore:
Timestamp:
Aug 27, 2008, 9:38:23 AM (11 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

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

    r10456 r10573  
    14611461                           (wrapper (%cons-wrapper class (new-class-wrapper-hash-index))))
    14621462                      (setf (%class.cpl class) cpl)
    1463                       (setf (%wrapper-cpl wrapper) cpl)
    1464                       (setf (%class.own-wrapper class) wrapper)
     1463                      (setf (%wrapper-cpl wrapper) cpl
     1464                            (%class.own-wrapper class) wrapper
     1465                            (%wrapper-cpl-bits wrapper) #*1)
    14651466                      (setf (%class.ctype class) (make-class-ctype class))
    14661467                      (setf (find-class 't) class)
Note: See TracChangeset for help on using the changeset viewer.