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

[Erik Huelsmann]

Author: ehuelsmann
Date: Fri May 15 16:20:41 2009
New Revision: 11875

Log:
FLET doesn't do variables anymore,
remove remnants in P2-FLET.

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	Fri May 15 16:20:41 2009
@@ -4924,10 +4924,7 @@
     (dolist (local-function local-functions)
       (p2-flet-process-compiland local-function))
     (dolist (local-function local-functions)
-      (push local-function *local-functions*)
-      (let ((variable (local-function-variable local-function)))
-        (when variable
-          (push variable *visible-variables*))))
+      (push local-function *local-functions*))
     (dolist (special (process-special-declarations body))
       (push (make-variable :name special :special-p t) *visible-variables*))
     (compile-progn-body body target representation)))