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/scanner.clisp | |
| parent | 2f77a440431656cdaa8a1a850afa2fd8a2a381cc (diff) | |
| download | open-axiom-ffc2fe52c4d8f3b213e6f954ee262e9fc09b7248.tar.gz | |
Diffstat (limited to 'src/boot/strap/scanner.clisp')
| -rw-r--r-- | src/boot/strap/scanner.clisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/strap/scanner.clisp b/src/boot/strap/scanner.clisp index 6aa88c61..f7d77f67 100644 --- a/src/boot/strap/scanner.clisp +++ b/src/boot/strap/scanner.clisp @@ -138,7 +138,7 @@ ((EQL |fst| |shoeCLOSEPAREN|) (SETQ |command| (|shoeLisp?| |$ln|)) (COND - ((AND |command| (< 0 (LENGTH |command|))) + ((AND |command| (PLUSP (LENGTH |command|))) (COND ((EQL (QENUM |command| 0) (QENUM ";" 0)) (|shoeAccumulateLines| |$r| |string|)) |