diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-20 16:42:20 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-20 16:42:20 +0200 |
| commit | 687f989581d2a51e0be60e3d298e0a243de794dd (patch) | |
| tree | 7e166eecde9b0b3f0f8be7a8ed39231a7f7a4e39 | |
| parent | d71db9648ec057406abb25698ddaddf0fcfb9421 (diff) | |
LAMBDA: Fix a refactoring error that caused keyword default arguments to stay unevaluated.
| -rw-r--r-- | sb-eval2.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/sb-eval2.lisp b/sb-eval2.lisp index 89596f5..a9a28a1 100644 --- a/sb-eval2.lisp +++ b/sb-eval2.lisp @@ -603,7 +603,8 @@ (x (getf rest key unbound))) (if (eq unbound x) (progn - (push-args (the eval-closure val*) nil)) + (push-args (funcall (the eval-closure val*) new-env) + nil)) (progn (push-args x t)))) (go keys) |