diff options
Diffstat (limited to 'src/boot/strap/scanner.clisp')
-rw-r--r-- | src/boot/strap/scanner.clisp | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/boot/strap/scanner.clisp b/src/boot/strap/scanner.clisp index 4c4bda04..b0d7dbf3 100644 --- a/src/boot/strap/scanner.clisp +++ b/src/boot/strap/scanner.clisp @@ -153,8 +153,7 @@ (T (|shoeAccumulateLines| |$r| |string|)))) (T (CONS |s| |string|)))))))) -(DEFUN |shoeCloser| (|t|) - (MEMBER (|shoeKeyWord| |t|) '(CPAREN CBRACK))) +(DEFUN |shoeCloser| (|t|) (MEMQ (|shoeKeyWord| |t|) '(CPAREN CBRACK))) (DEFUN |shoeToken| () (PROG (|b| |ch| |n| |linepos| |c| |ln|) |