Rearrange nest slightly, using backquote.
authorFrancois-Rene Rideau <tunes@google.com>
Fri, 5 Oct 2012 02:53:15 +0000 (22:53 -0400)
committerFrancois-Rene Rideau <tunes@google.com>
Fri, 5 Oct 2012 02:53:15 +0000 (22:53 -0400)
base/macros.lisp

index 35ef1c8..def74a8 100644 (file)
@@ -534,8 +534,9 @@ shall be declared with a serial dependency in system definitions.
   (if from-end `(nest ,@things) `(tsen ,@things)))
 
 (defmacro nest (&rest things)
-  (reduce #'(lambda (outer inner) (append outer (list inner)))
+  (reduce #'(lambda (outer inner) `(,@outer ,inner))
           things :from-end t))
+
 #| Note: in Scheme, you could do
 (define-syntax nest
   (syntax-rules ()