From: David Vázquez <davazp@gmail.com>
Date: Wed, 24 Apr 2013 18:42:34 +0000 (+0100)
Subject: Shorter line in %compile-defmacro
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=ef1b85c98c41402e7b461f1b7e412eb0d6fc064d;p=jscl.git

Shorter line in %compile-defmacro
---

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index a7f9f5c..8dd5ef3 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -1429,7 +1429,8 @@
 
 (defun %compile-defmacro (name lambda)
   (toplevel-compilation (ls-compile `',name))
-  (push-to-lexenv (make-binding :name name :type 'macro :value lambda) *environment* 'function)
+  (let ((binding (make-binding :name name :type 'macro :value lambda)))
+    (push-to-lexenv binding  *environment* 'function))
   name)
 
 (defun global-binding (name type namespace)