Ignore:
Timestamp:
Apr 15, 2008, 5:04:39 AM (12 years ago)
Author:
rme
Message:

When initializing *CLASS-TABLE* on x8632, instead of putting *cons-class* into
all the list cells, put in a function that returns *cons-class* or *null-class*
depending on whether the cons in question is NIL or not.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-1/l1-clos-boot.lisp

    r7770 r9159  
    20992099                (%svref v (+ slice ppc64::fulltag-imm-3)) *immediate-class*))
    21002100        #+x8632-target
    2101         (do* ((slice 0 (+ 8 slice)))
     2101        (do* ((slice 0 (+ 8 slice))
     2102              (cons-fn #'(lambda (x) (if (null x) *null-class* *cons-class*))))
    21022103             ((= slice 256))
    21032104          (declare (type (unsigned-byte 8) slice))
    21042105          (setf (%svref v (+ slice x8632::fulltag-even-fixnum)) *fixnum-class*
    21052106                (%svref v (+ slice x8632::fulltag-odd-fixnum))  *fixnum-class*
    2106                 (%svref v (+ slice x8632::fulltag-cons)) *cons-class*
     2107                (%svref v (+ slice x8632::fulltag-cons)) cons-fn
    21072108                (%svref v (+ slice x8632::fulltag-tra)) *tagged-return-address-class*
    21082109                (%svref v (+ slice x8632::fulltag-imm)) *immediate-class*))
Note: See TracChangeset for help on using the changeset viewer.