Changeset 7342


Ignore:
Timestamp:
Oct 3, 2007, 7:16:10 PM (13 years ago)
Author:
rme
Message:

Use NTH-IMMEDIATE to access closed-over values, enabling the x86-64
port to display the values correctly.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/lib/describe.lisp

    r6926 r7342  
    11851185             (values nclosed "Closed over values" :comment #'prin1-comment))
    11861186            ((< (decf n) nclosed)
    1187              (let* ((value (ccl::%svref o (1+ (- nclosed n))))
     1187             (let* ((value (ccl::nth-immediate o (1+ (- nclosed n))))
    11881188                    (map (car (ccl::function-symbol-map (ccl::closure-function o))))
    11891189                    (label (or (and map (svref map (+ n (- (length map) nclosed))))
     
    12181218             (setf-line-n-out-of-range f en))
    12191219            ((< (decf n) nclosed)       ; closed-over variable
    1220              (let* ((value (ccl::%svref o (1+ (- nclosed n))))
     1220             (let* ((value (ccl::nth-immediate o (1+ (- nclosed n))))
    12211221                    (cellp (ccl::closed-over-value-p value)))
    12221222               (unless cellp (setf-line-n-out-of-range f en))
Note: See TracChangeset for help on using the changeset viewer.