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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Aug 17 07:19:10 2012
New Revision: 14110

Log:
Bind *local-functions* to nil, since COMPILE-1 is the outer-most scope.

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	Fri Aug 17 07:17:40 2012	(r14109)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Fri Aug 17 07:19:10 2012	(r14110)
@@ -7300,7 +7300,7 @@
   (let ((*all-variables* nil)
         (*closure-variables* nil)
         (*undefined-variables* nil)
-        (*local-functions* *local-functions*))
+        (*local-functions* nil))
 
     (p1-compiland compiland)
     ;; *all-variables* doesn't contain variables which