Changeset 11631


Ignore:
Timestamp:
02/05/09 21:44:27 (12 years ago)
Author:
ehuelsmann
Message:

Fix DERIVE-VARIABLE-REPRESENTATION in case the LIMIT-VARIABLE resolves to NIL

(as happens to be the case in DOTIMES.25).

Follow up to r11619.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r11630 r11631  
    42314231                                                          (block-vars block))
    42324232                                           (find-visible-variable name)))))
    4233              (derive-variable-representation limit-variable block)
    4234              (setf (variable-representation variable)
    4235                    (variable-representation limit-variable)))))))
     4233             (when limit-variable
     4234               (derive-variable-representation limit-variable block)
     4235               (setf (variable-representation variable)
     4236                     (variable-representation limit-variable))))))))
    42364237
    42374238(defun allocate-variable-register (variable)
Note: See TracChangeset for help on using the changeset viewer.