Changeset 10456


Ignore:
Timestamp:
Aug 13, 2008, 4:33:26 AM (11 years ago)
Author:
gb
Message:

Use %CLASS-ORDINAL (not INSTANCE.HASH) in MAKE-CPL-BITS, to work with
foreign classes.

File:
1 edited

Legend:

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

    r10426 r10456  
    15081508      (declare (fixnum max))
    15091509      (dolist (class cpl)
    1510         (let* ((ordinal (instance.hash class)))
     1510        (let* ((ordinal (%class-ordinal class)))
    15111511          (declare (fixnum ordinal))
    15121512          (when (> ordinal max)
     
    15141514      (let* ((bits (make-array (the fixnum (1+ max)) :element-type 'bit)))
    15151515        (dolist (class cpl bits)
    1516           (let* ((ordinal (instance.hash class)))
     1516          (let* ((ordinal (%class-ordinal class)))
    15171517            (setf (sbit bits ordinal) 1)))))))
    15181518
Note: See TracChangeset for help on using the changeset viewer.