Changeset 11454

Timestamp:

12/19/08 20:57:52 (14 years ago)

Author:

ehuelsmann

Message:

Fix MACRO-FUNCTION.7.

File:

• trunk/j/src/org/armedbear/lisp/precompiler.lisp (modified) (1 diff)

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

@@ -692 +692 @@
        (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)