diff options
Diffstat (limited to 'src/boot/strap/scanner.clisp')
| -rw-r--r-- | src/boot/strap/scanner.clisp | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/src/boot/strap/scanner.clisp b/src/boot/strap/scanner.clisp index f7d77f67..4c4bda04 100644 --- a/src/boot/strap/scanner.clisp +++ b/src/boot/strap/scanner.clisp @@ -238,13 +238,10 @@ (T (SETQ |$n| |n|) (|shoeLeafLispExp| |exp|))))))))))) (DEFUN |shoeEscape| () - (PROG (|a|) - (DECLARE (SPECIAL |$n|)) - (RETURN - (PROGN - (SETQ |$n| (+ |$n| 1)) - (SETQ |a| (|shoeEsc|)) - (COND (|a| (|shoeWord| T)) (T NIL)))))) + (DECLARE (SPECIAL |$n|)) + (PROGN + (SETQ |$n| (+ |$n| 1)) + (COND ((|shoeEsc|) (|shoeWord| T)) (T NIL)))) (DEFUN |shoeEsc| () (PROG (|n1|) |