summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--sb-eval2.lisp4
1 files changed, 3 insertions, 1 deletions
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)