diff options
| -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) |