From fb5be0c78772c3f5fdfe61f8cc13d7e90675c0d1 Mon Sep 17 00:00:00 2001
From: =?utf8?q?David=20V=C3=A1zquez?= <davidv@eyecarepro.net>
Date: Wed, 16 Jan 2013 12:41:15 +0000
Subject: [PATCH] %compile-defmacro compiles the name as a symbol

---
 ecmalisp.lisp |    3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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)
-- 
1.7.10.4