From 7704713134cb251be6129f38833930228e09eee2 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 25 Sep 2009 03:15:11 +0000
Subject: 	* boot/ast.boot (bfMember): New. 	(bfInfApplication):
 Use it. 	* boot/tokens.boot: Don't rename IN. 	* interp/ax.boot
 (makeAxFile): Fix thinko. 	(makeAxExportForm): Likewise.

---
 src/boot/strap/scanner.clisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/boot/strap/scanner.clisp')

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|)
-- 
cgit v1.2.3