From: David Vázquez <davazp@gmail.com>
Date: Sun, 5 May 2013 14:51:16 +0000 (+0100)
Subject: Support &aux variables
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=fda11e06398fca9ad42ea737ec169a97aaf8fd8e;p=jscl.git

Support &aux variables
---

diff --git a/src/lambda-list.lisp b/src/lambda-list.lisp
index 8e4ed61..1fdb24e 100644
--- a/src/lambda-list.lisp
+++ b/src/lambda-list.lisp
@@ -283,7 +283,11 @@
                              (compute-pbindings supplied `(keyword-supplied-p ,keyword ,rest)))
                            (compute-pbindings variable `(if ,supplied
                                                             (keyword-lookup ,keyword ,rest)
-                                                            ,(keyvar-initform keyvar))))))))))
+                                                            ,(keyvar-initform keyvar)))))))
+
+                   ;; Aux variables
+                   (dolist (auxvar (d-lambda-list-auxvars d-ll))
+                     (compute-pbindings (auxvar-variable auxvar) (auxvar-initform auxvar))))))
 
         ;; Macroexpansion. Compute bindings and generate code for them
         ;; and some necessary checking.
@@ -297,10 +301,3 @@
 #+jscl
 (defmacro destructuring-bind (lambda-list expression &body body)
   `(!destructuring-bind ,lambda-list ,expression ,@body))
-
-
-
-
-
-
-