From fda11e06398fca9ad42ea737ec169a97aaf8fd8e Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sun, 5 May 2013 15:51:16 +0100 Subject: [PATCH] Support &aux variables --- src/lambda-list.lisp | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) 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)) - - - - - - - -- 1.7.10.4