Changeset 11875
- Timestamp:
- 05/15/09 20:20:41 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
r11874 r11875 4925 4925 (p2-flet-process-compiland local-function)) 4926 4926 (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*)) 4931 4928 (dolist (special (process-special-declarations body)) 4932 4929 (push (make-variable :name special :special-p t) *visible-variables*))
Note: See TracChangeset
for help on using the changeset viewer.