Changeset 11875

Timestamp:

05/15/09 20:20:41 (15 years ago)

Author:

ehuelsmann

Message:

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

File:

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

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

@@ -4925 +4925 @@
       (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*))