Changeset 6031


Ignore:
Timestamp:
Mar 12, 2007, 11:55:56 AM (13 years ago)
Author:
gb
Message:

Fix fenceposts in CLOSURE-CLOSED-OVER-VALUES.

File:
1 edited

Legend:

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

    r4496 r6031  
    319319           (nclosed (nth-value 8 (function-args inner)))
    320320           (names (car (function-symbol-map inner))))
    321       (collect ((cells))
    322         (do* ((i (1- (length names)) (1- i))
    323               (idx 2 (1+ idx)))
    324              ((= i nclosed) (cells))
    325           (let* ((name (svref names i))
    326                  (imm (nth-immediate closure idx)))
    327             (cells (list name (if (closed-over-value-p imm)
    328                                 (closed-over-value imm)
    329                                 imm)))))))))
     321      (when nclosed
     322        (collect ((cells))
     323          (do* ((i (1- (length names)) (1- i))
     324                (k 0 (1+ k))
     325                (idx 2 (1+ idx)))
     326               ((= k nclosed) (reverse (cells)))
     327            (let* ((name (svref names i))
     328                   (imm (nth-immediate closure idx)))
     329              (cells (list name (if (closed-over-value-p imm)
     330                                  (closed-over-value imm)
     331                                  imm))))))))))
    330332
    331333     
Note: See TracChangeset for help on using the changeset viewer.