[armedbear-cvs] r11454 - trunk/j/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Fri Dec 19 20:57:52 2008
New Revision: 11454

Log:
Fix MACRO-FUNCTION.7.

Modified:
   trunk/j/src/org/armedbear/lisp/precompiler.lisp

Modified: trunk/j/src/org/armedbear/lisp/precompiler.lisp
==============================================================================
--- trunk/j/src/org/armedbear/lisp/precompiler.lisp	(original)
+++ trunk/j/src/org/armedbear/lisp/precompiler.lisp	Fri Dec 19 20:57:52 2008
@@ -691,7 +691,9 @@
        *compile-file-environment*
        (car definition)
        (make-macro (car definition)
-                   (make-expander-for-macrolet definition))))
+                   (make-closure
+                    (make-expander-for-macrolet definition)
+                    NIL))))
     (multiple-value-bind (body decls)
         (parse-body (cddr form) nil)
       `(locally , at decls ,@(mapcar #'precompile1 body)))))