diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-06-01 07:35:18 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-06-01 07:35:18 +0000 |
| commit | 64aeafac79d72f440b6546bae91583e6efd6b674 (patch) | |
| tree | de419861e4625d20bc0e1c68f5db1590a50708b9 /src/boot/strap/parser.clisp | |
| parent | de3a19c35df30298d323c5882e39931f329ea29e (diff) | |
| download | open-axiom-64aeafac79d72f440b6546bae91583e6efd6b674.tar.gz | |
Support --output in compiler, for bootstrapping stage.
Diffstat (limited to 'src/boot/strap/parser.clisp')
| -rw-r--r-- | src/boot/strap/parser.clisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/boot/strap/parser.clisp b/src/boot/strap/parser.clisp index b6c95484..985611d3 100644 --- a/src/boot/strap/parser.clisp +++ b/src/boot/strap/parser.clisp @@ -388,7 +388,7 @@ (COND (|done| (RETURN NIL)) (T (SETQ |found| - (LET ((#1=#:G725 + (LET ((#1=#:G720 (CATCH :OPEN-AXIOM-CATCH-POINT (APPLY |f| |ps| NIL)))) (COND @@ -1371,7 +1371,7 @@ (SETQ |op| (|enclosingFunction| (|parserLoadUnit| |ps|))) (SETQ |varno| (|parserGensymSequenceNumber| |ps|)) (UNWIND-PROTECT - (LET ((#1=#:G726 + (LET ((#1=#:G721 (CATCH :OPEN-AXIOM-CATCH-POINT (PROGN (SETF (|enclosingFunction| (|parserLoadUnit| |ps|)) NIL) |