Changeset 7848


Ignore:
Timestamp:
Dec 8, 2007, 1:08:20 AM (13 years ago)
Author:
gb
Message:

%ALLOCATE-GF-INSTANCE (there are two versions, for bootstrapping):
leave gf.hash slot set to 0 so that we can use the slot for GF call
counting.

Location:
branches/working-0711/ccl/level-1
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-clos.lisp

    r7840 r7848  
    15711571                                (logior (ash 1 $lfbits-gfn-bit)
    15721572                                        (ash 1 $lfbits-aok-bit)))))
    1573     (setf (gf.hash fn) (strip-tag-to-fixnum fn)
     1573    (setf
    15741574          (slot-vector.instance slots) fn)
    15751575    (when dt
     
    16201620  (declare (ignore env))
    16211621  `(ensure-slot-id ,(slot-id.name s)))
     1622
     1623(defmethod make-load-form ((c class-cell) &optional env)
     1624  (declare (ignore env))
     1625  `(find-class-cell ,(class-cell-name c)))
     1626
    16221627
    16231628
  • branches/working-0711/ccl/level-1/l1-dcode.lisp

    r7839 r7848  
    453453                                        (%ilogior (%ilsl $lfbits-gfn-bit 1)
    454454                                                  (%ilogand $lfbits-args-mask 0)))))
    455             (setf (gf.hash fn) (strip-tag-to-fixnum fn)
     455            (setf ;(gf.hash fn) (strip-tag-to-fixnum fn)
    456456                  (slot-vector.instance slots) fn
    457457                  (%gf-dispatch-table-gf dt) fn)
Note: See TracChangeset for help on using the changeset viewer.