Changeset 11443
- Timestamp:
- 12/14/08 14:17:40 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/precompiler.lisp
r11442 r11443 829 829 (body (cddr def))) 830 830 ;; Macro names are shadowed by local functions. 831 (push nil *local-functions-and-macros*) 832 (push name *local-functions-and-macros*) 831 (environment-add-function-definition *compile-file-environment* name body) 833 832 (list* name arglist (mapcar #'precompile1 body)))) 834 833 … … 850 849 851 850 (defun precompile-flet/labels (form) 852 (let ((*local-functions-and-macros* *local-functions-and-macros*) 851 (let ((*compile-file-environment* 852 (make-environment *compile-file-environment*)) 853 853 (operator (car form)) 854 854 (locals (cadr form))
Note: See TracChangeset
for help on using the changeset viewer.