From b825ed51bc11564e35f84a88bbb43fbe2ac51d99 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 22 Apr 2011 18:32:46 +0000
Subject: 	* boot/tokens.boot: Don't translate setDifference. 	*
 boot/initial-env.lisp (SETDIFFERNECE): Remove. 	* boot/translator.boot
 (evalBootFile): Rename form EVAL-BOOT-FILE. 	* boot/utility.boot
 (setDifference): Define. 	* interp/unlisp.lisp (ListMemberQ?): Remove. 
 (ListRemoveQ): Likewise. 	(AlistAssocQ): Likewise.

---
 src/interp/macex.boot | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/interp/macex.boot')

diff --git a/src/interp/macex.boot b/src/interp/macex.boot
index d25074f6..fdc0c5ff 100644
--- a/src/interp/macex.boot
+++ b/src/interp/macex.boot
@@ -86,8 +86,7 @@ macLambdaParameterHandling( replist , pform )  ==
     for p in pfParts pform repeat macLambdaParameterHandling( replist , p )
 
 macSubstituteId( replist , pform ) ==
-    ex := AlistAssocQ( pfIdSymbol pform , replist )
-    ex => 
+    ex := symbolAssoc( pfIdSymbol pform , replist ) =>
         RPLPAIR(pform,rest ex)
         pform
     pform 
-- 
cgit v1.2.3