Changeset 11438
- Timestamp:
- 12/13/08 21:24:21 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/precompiler.lisp
r11437 r11438 714 714 715 715 (defun precompile-macrolet (form) 716 (let ((* local-functions-and-macros* *local-functions-and-macros*)717 (macros (cadr form)))718 (dolist ( macro macros)719 ( let ((name (car macro))720 (lambda-list (cadr macro))721 (forms (cddr macro)))722 (push (define-local-macro name lambda-list forms) *local-functions-and-macros*)723 (push name *local-functions-and-macros*)))716 (let ((*compile-file-environment* 717 (make-environment *compile-file-environment*))) 718 (dolist (definition (cadr form)) 719 (environment-add-macro-definition 720 *compile-file-environment* 721 (car definition) 722 (make-macro (car definition) 723 (make-expander-for-macrolet definition)))) 724 724 (multiple-value-bind (body decls) 725 725 (parse-body (cddr form) nil)
Note: See TracChangeset
for help on using the changeset viewer.