From: David Vázquez <davidv@eyecarepro.net>
Date: Wed, 16 Jan 2013 12:41:15 +0000 (+0000)
Subject: %compile-defmacro compiles the name as a symbol
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=fb5be0c78772c3f5fdfe61f8cc13d7e90675c0d1;p=jscl.git

%compile-defmacro compiles the name as a symbol
---

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index 071879e..31f67fa 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -24,8 +24,6 @@
 
 #+ecmalisp
 (progn
-
-  'defmacro
   (eval-when-compile
     (%compile-defmacro 'defmacro
                        '(lambda (name args &rest body)
@@ -811,6 +809,7 @@
   (reverse (remove-if #'null-or-empty-p *toplevel-compilations*)))
 
 (defun %compile-defmacro (name lambda)
+  (toplevel-compilation (ls-compile `',name))
   (push-to-lexenv (make-binding name 'macro lambda t) *environment* 'function))
 
 (defvar *compilations* nil)