From 687f989581d2a51e0be60e3d298e0a243de794dd Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sat, 20 Jul 2013 16:42:20 +0200 Subject: LAMBDA: Fix a refactoring error that caused keyword default arguments to stay unevaluated. --- sb-eval2.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- cgit v1.2.3