diff options
author | dos-reis <gdr@axiomatics.org> | 2008-02-16 04:52:45 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-02-16 04:52:45 +0000 |
commit | 406b6c0a38ee0e9ea1ba6657b76391f1c15f0b95 (patch) | |
tree | c05aaf09c7745fdf0d562d8664bc8fddab64befd /src/interp/unlisp.lisp | |
parent | 5505ab2d0069eb2809753217a93e9a4551c997f9 (diff) | |
download | open-axiom-406b6c0a38ee0e9ea1ba6657b76391f1c15f0b95.tar.gz |
* interp/unlisp.lisp (|CatchAsCan|): Tidy.
* interp/sys-utility.boot (delete): Fix thinko.
* interp/sys-globals.boot ($sourceFiles): Define here.
(INPUTSTREAM): Likewise.
* interp/i-syscmd.boot (UNDERBAR): Move to sys-globals.boot.
* interp/fname.lisp: Import "macros".
* interp/debug.lisp: Import "parsing".
Replace $PRETTYPRINT with $PrettyPrint.
(/FN): Define.
(depthAlist): Likewise.
* interp/br-search.boot (docSearch1): Fix thinko.
* interp/Makefile.pamphlet (debug.$(FASLEXT)): Depend on
parsing.$(FASLEXT).
* interp/i-output.boot (starstarcond): Remove used function.
(transcomparg): Likewise.
(MATBORCH): Define here.
(*TALLPAR): Likewise.
* interp/vmlisp.lisp (|char|): Remove duplicate definition.
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 )) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |