diff options
| -rw-r--r-- | sb-eval2.lisp | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/sb-eval2.lisp b/sb-eval2.lisp index 3290de8..7da5447 100644 --- a/sb-eval2.lisp +++ b/sb-eval2.lisp @@ -199,10 +199,11 @@ finally (return result)))))) ((catch) (destructuring-bind (tag &body body) (rest form) - (let ((k (prepare-progn body context))) + (let ((tag* (prepare-form tag context)) + (body* (prepare-progn body context))) (lambda (env) - (catch tag - (funcall k env)))))) + (catch (funcall tag* env) + (funcall body* env)))))) ((block) (destructuring-bind (name &body body) (rest form) (let* ((tag (gensym (concatenate 'string "BLOCK-" (symbol-name name)))) |