diff options
Diffstat (limited to 'src/interp/unlisp.lisp')
| -rw-r--r-- | src/interp/unlisp.lisp | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/interp/unlisp.lisp b/src/interp/unlisp.lisp index fcef6fd0..146a27ce 100644 --- a/src/interp/unlisp.lisp +++ b/src/interp/unlisp.lisp @@ -66,8 +66,7 @@ #-:Lucid (defmacro |CatchAsCan| (tagvar expr) - `(progn - (setq ,tagvar nil) + `(let ((,tagvar nil)) ,expr )) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |