Changeset 11631

Timestamp:

02/05/09 21:44:27 (14 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:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

@@ -4231 +4231 @@
                                                           (block-vars block))
                                            (find-visible-variable name)))))
-             (derive-variable-representation limit-variable block)
-             (setf (variable-representation variable)
-                   (variable-representation limit-variable)))))))
+             (when limit-variable
+               (derive-variable-representation limit-variable block)
+               (setf (variable-representation variable)
+                     (variable-representation limit-variable))))))))
 
 (defun allocate-variable-register (variable)