diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-09-03 13:26:56 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-09-03 13:26:56 +0000 |
| commit | ffc2fe52c4d8f3b213e6f954ee262e9fc09b7248 (patch) | |
| tree | 4b525e0d8c1895a37876e674f3dddcd4850d5d05 /src/boot/strap/parser.clisp | |
| parent | 2f77a440431656cdaa8a1a850afa2fd8a2a381cc (diff) | |
| download | open-axiom-ffc2fe52c4d8f3b213e6f954ee262e9fc09b7248.tar.gz | |
Diffstat (limited to 'src/boot/strap/parser.clisp')
| -rw-r--r-- | src/boot/strap/parser.clisp | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/boot/strap/parser.clisp b/src/boot/strap/parser.clisp index ceb88b33..39316f4e 100644 --- a/src/boot/strap/parser.clisp +++ b/src/boot/strap/parser.clisp @@ -33,7 +33,7 @@ (T (CAR |$inputStream|)))) (SETQ |$ttok| (|shoeTokPart| |$stok|)) (COND - ((AND (< 0 |$bpParenCount|) (CONSP |$stok|) + ((AND (PLUSP |$bpParenCount|) (CONSP |$stok|) (EQ (CAR |$stok|) 'KEY)) (COND ((EQ |$ttok| 'SETTAB) (SETQ |$bpCount| (+ |$bpCount| 1)) @@ -519,7 +519,7 @@ (DECLARE (SPECIAL |$stok|)) (COND ((EQL |n| 0) NIL) - ((< 0 |n|) + ((PLUSP |n|) (CONS (|shoeTokConstruct| 'KEY 'SETTAB (|shoeTokPosn| |$stok|)) (|bpAddTokens| (- |n| 1)))) (T (CONS (|shoeTokConstruct| 'KEY 'BACKTAB (|shoeTokPosn| |$stok|)) @@ -1151,9 +1151,7 @@ (SETQ |ISTMP#2| (CDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (CDR |ISTMP#2|) NIL) - (PROGN - (SETQ |r| (CAR |ISTMP#2|)) - 'T))))) + (PROGN (SETQ |r| (CAR |ISTMP#2|)) T))))) (IDENTP |l|)) (COND (|$InteractiveMode| (LIST (LIST 'SETQ |l| |r|))) |