diff options
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|)) |