diff options
| -rw-r--r-- | sb-eval2.lisp | 4 |
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) |