[armedbear-cvs] r11631 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Thu Feb  5 21:44:27 2009
New Revision: 11631

Log:
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.

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

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Thu Feb  5 21:44:27 2009
@@ -4230,9 +4230,10 @@
                                        (or (find-variable name
                                                           (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)
   (setf (variable-register variable)