From d5fdb49f7f94145da980287c92d20988e48c9780 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Thu, 18 Jul 2013 01:45:31 +0200 Subject: PREPARE-LAMBDA: Handle &REST arguments. --- sb-eval2.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'sb-eval2.lisp') diff --git a/sb-eval2.lisp b/sb-eval2.lisp index ccba6a9..e4529df 100644 --- a/sb-eval2.lisp +++ b/sb-eval2.lisp @@ -380,7 +380,9 @@ for vars = (lambda-binding-vars binding) collect (prepare-form default-value new-context) do (dolist (var vars) - (context-add-env-lexical! new-context var)))) + (context-add-env-lexical! new-context var)) + finally (when restp + (context-add-env-lexical! new-context rest)))) (body* (prepare-progn body new-context)) (unbound (gensym))) (macrolet ((handle-arguments (args env) -- cgit v1.2.3