From ef1b85c98c41402e7b461f1b7e412eb0d6fc064d Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Wed, 24 Apr 2013 19:42:34 +0100 Subject: [PATCH] Shorter line in %compile-defmacro --- ecmalisp.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 1.7.10.4