Changeset 11875


Ignore:
Timestamp:
05/15/09 20:20:41 (13 years ago)
Author:
ehuelsmann
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r11874 r11875  
    49254925      (p2-flet-process-compiland local-function))
    49264926    (dolist (local-function local-functions)
    4927       (push local-function *local-functions*)
    4928       (let ((variable (local-function-variable local-function)))
    4929         (when variable
    4930           (push variable *visible-variables*))))
     4927      (push local-function *local-functions*))
    49314928    (dolist (special (process-special-declarations body))
    49324929      (push (make-variable :name special :special-p t) *visible-variables*))
Note: See TracChangeset for help on using the changeset viewer.