* boot/ast.boot (shoeEVALANDFILEACTQ): Remove.

	(bfMain): Don't use it.
	(translateToplevelExpression): Likewise.
	* interp/Makefile.in (stamp): $(AUTO) is no more. 
	(all-interpsys): Likewise.

1 files changed, 136 insertions, 151 deletions

diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp
index 5465289e..41ae0b5d 100644
--- a/src/boot/strap/tokens.clisp
+++ b/src/boot/strap/tokens.clisp
@@ -156,159 +156,144 @@
 
 (DEFPARAMETER |shoePun| (|shoePunCons|))
 
-(EVAL-WHEN (:EXECUTE :LOAD-TOPLEVEL)
-  (LET ((|bfVar#1| (LIST 'NOT 'LENGTH)) (|i| NIL))
-    (LOOP
-      (COND
-        ((OR (ATOM |bfVar#1|) (PROGN (SETQ |i| (CAR |bfVar#1|)) NIL))
-         (RETURN NIL))
-        (T (SETF (GET |i| 'SHOEPRE) T)))
-      (SETQ |bfVar#1| (CDR |bfVar#1|)))))
+(LET ((|bfVar#1| (LIST 'NOT 'LENGTH)) (|i| NIL))
+  (LOOP
+    (COND
+      ((OR (ATOM |bfVar#1|) (PROGN (SETQ |i| (CAR |bfVar#1|)) NIL))
+       (RETURN NIL))
+      (T (SETF (GET |i| 'SHOEPRE) T)))
+    (SETQ |bfVar#1| (CDR |bfVar#1|))))
 
-(EVAL-WHEN (:EXECUTE :LOAD-TOPLEVEL)
-  (LET ((|bfVar#1| (LIST (LIST 'SHOEEQ '=) (LIST 'TIMES '*)
-                         (LIST 'REM '|rem|) (LIST 'QUO '|quo|)
-                         (LIST 'PLUS '+) (LIST 'IS '|is|)
-                         (LIST 'ISNT '|isnt|) (LIST 'AND '|and|)
-                         (LIST 'OR '|or|) (LIST 'SLASH '/)
-                         (LIST 'POWER '**) (LIST 'MINUS '-)
-                         (LIST 'LT '<) (LIST 'GT '>) (LIST 'LE '<=)
-                         (LIST 'GE '>=) (LIST 'SHOENE '~=)))
-        (|i| NIL))
-    (LOOP
-      (COND
-        ((OR (ATOM |bfVar#1|) (PROGN (SETQ |i| (CAR |bfVar#1|)) NIL))
-         (RETURN NIL))
-        (T (SETF (GET (CAR |i|) 'SHOEINF) (CADR |i|))))
-      (SETQ |bfVar#1| (CDR |bfVar#1|)))))
+(LET ((|bfVar#1|
+          (LIST (LIST 'SHOEEQ '=) (LIST 'TIMES '*) (LIST 'REM '|rem|)
+                (LIST 'QUO '|quo|) (LIST 'PLUS '+) (LIST 'IS '|is|)
+                (LIST 'ISNT '|isnt|) (LIST 'AND '|and|)
+                (LIST 'OR '|or|) (LIST 'SLASH '/) (LIST 'POWER '**)
+                (LIST 'MINUS '-) (LIST 'LT '<) (LIST 'GT '>)
+                (LIST 'LE '<=) (LIST 'GE '>=) (LIST 'SHOENE '~=)))
+      (|i| NIL))
+  (LOOP
+    (COND
+      ((OR (ATOM |bfVar#1|) (PROGN (SETQ |i| (CAR |bfVar#1|)) NIL))
+       (RETURN NIL))
+      (T (SETF (GET (CAR |i|) 'SHOEINF) (CADR |i|))))
+    (SETQ |bfVar#1| (CDR |bfVar#1|))))
 
-(EVAL-WHEN (:EXECUTE :LOAD-TOPLEVEL)
-  (LET ((|bfVar#1|
-            (LIST (LIST '+ 0) (LIST '|gcd| 0) (LIST '|lcm| 1)
-                  (LIST 'STRCONC "") (LIST '|strconc| "")
-                  (LIST 'CONCAT "") (LIST 'MAX (- 999999))
-                  (LIST 'MIN 999999) (LIST '* 1) (LIST '|times| 1)
-                  (LIST 'CONS NIL) (LIST '|append| NIL)
-                  (LIST '|append!| NIL) (LIST 'UNION NIL)
-                  (LIST 'UNIONQ NIL) (LIST '|union| NIL)
-                  (LIST '|and| T) (LIST '|or| NIL) (LIST 'AND T)
-                  (LIST 'OR NIL)))
-        (|i| NIL))
-    (LOOP
-      (COND
-        ((OR (ATOM |bfVar#1|) (PROGN (SETQ |i| (CAR |bfVar#1|)) NIL))
-         (RETURN NIL))
-        (T (SETF (GET (CAR |i|) 'SHOETHETA) (CDR |i|))))
-      (SETQ |bfVar#1| (CDR |bfVar#1|)))))
+(LET ((|bfVar#1|
+          (LIST (LIST '+ 0) (LIST '|gcd| 0) (LIST '|lcm| 1)
+                (LIST 'STRCONC "") (LIST '|strconc| "")
+                (LIST 'CONCAT "") (LIST 'MAX (- 999999))
+                (LIST 'MIN 999999) (LIST '* 1) (LIST '|times| 1)
+                (LIST 'CONS NIL) (LIST '|append| NIL)
+                (LIST '|append!| NIL) (LIST 'UNION NIL)
+                (LIST 'UNIONQ NIL) (LIST '|union| NIL) (LIST '|and| T)
+                (LIST '|or| NIL) (LIST 'AND T) (LIST 'OR NIL)))
+      (|i| NIL))
+  (LOOP
+    (COND
+      ((OR (ATOM |bfVar#1|) (PROGN (SETQ |i| (CAR |bfVar#1|)) NIL))
+       (RETURN NIL))
+      (T (SETF (GET (CAR |i|) 'SHOETHETA) (CDR |i|))))
+    (SETQ |bfVar#1| (CDR |bfVar#1|))))
 
-(EVAL-WHEN (:EXECUTE :LOAD-TOPLEVEL)
-  (LET ((|bfVar#1|
-            (LIST (LIST '|abs| 'ABS) (LIST '|abstractChar| 'CODE-CHAR)
-                  (LIST '|alphabetic?| 'ALPHA-CHAR-P)
-                  (LIST '|alphanumeric?| 'ALPHANUMERICP)
-                  (LIST '|and| 'AND) (LIST '|apply| 'APPLY)
-                  (LIST '|array?| 'ARRAYP) (LIST '|arrayRef| 'AREF)
-                  (LIST '|atom| 'ATOM) (LIST '|bitmask| 'SBIT)
-                  (LIST '|canonicalFilename| 'PROBE-FILE)
-                  (LIST '|charByName| 'NAME-CHAR)
-                  (LIST '|charDowncase| 'CHAR-DOWNCASE)
-                  (LIST '|charEq?| 'CHAR=)
-                  (LIST '|charUpcase| 'CHAR-UPCASE)
-                  (LIST '|charString| 'STRING)
-                  (LIST '|char?| 'CHARACTERP)
-                  (LIST '|codePoint| 'CHAR-CODE) (LIST '|cons?| 'CONSP)
-                  (LIST '|copy| 'COPY) (LIST '|copyTree| 'COPY-TREE)
-                  (LIST '|croak| 'CROAK) (LIST '|digit?| 'DIGIT-CHAR-P)
-                  (LIST '|drop| 'DROP) (LIST '|exit| 'EXIT)
-                  (LIST '|false| 'NIL) (LIST '|first| 'CAR)
-                  (LIST '|float?| 'FLOATP) (LIST '|fourth| 'CADDDR)
-                  (LIST '|function| 'FUNCTION)
-                  (LIST '|function?| 'FUNCTIONP)
-                  (LIST '|gensym| 'GENSYM) (LIST '|genvar| 'GENVAR)
-                  (LIST '|integer?| 'INTEGERP) (LIST 'LAST '|last|)
-                  (LIST '|list| 'LIST) (LIST '|listEq?| 'EQUAL)
-                  (LIST '|lowerCase?| 'LOWER-CASE-P)
-                  (LIST '|makeSymbol| 'INTERN)
-                  (LIST '|maxIndex| 'MAXINDEX) (LIST '|mkpf| 'MKPF)
-                  (LIST '|newString| 'MAKE-STRING)
-                  (LIST '|newVector| 'MAKE-ARRAY) (LIST '|nil| NIL)
-                  (LIST '|not| 'NOT) (LIST '|null| 'NULL)
-                  (LIST '|odd?| 'ODDP) (LIST '|or| 'OR)
-                  (LIST '|otherwise| 'T) (LIST '|property| 'GET)
-                  (LIST '|readInteger| 'PARSE-INTEGER)
-                  (LIST '|readLispFromString| 'READ-FROM-STRING)
-                  (LIST '|readOnly?| 'CONSTANTP)
-                  (LIST '|removeDuplicates| 'REMDUP)
-                  (LIST '|rest| 'CDR) (LIST '|sameObject?| 'EQ)
-                  (LIST '|scalarEq?| 'EQL) (LIST '|scalarEqual?| 'EQL)
-                  (LIST '|second| 'CADR)
-                  (LIST '|setIntersection| 'INTERSECTION)
-                  (LIST '|setPart| 'SETELT) (LIST '|setUnion| 'UNION)
-                  (LIST '|strconc| 'CONCAT) (LIST '|stringChar| 'SCHAR)
-                  (LIST '|stringDowncase| 'STRING-DOWNCASE)
-                  (LIST '|string?| 'STRINGP)
-                  (LIST '|stringEq?| 'STRING=)
-                  (LIST '|stringUpcase| 'STRING-UPCASE)
-                  (LIST '|subSequence| 'SUBSEQ)
-                  (LIST '|symbolScope| 'SYMBOL-PACKAGE)
-                  (LIST '|symbolEq?| 'EQ)
-                  (LIST '|symbolFunction| 'SYMBOL-FUNCTION)
-                  (LIST '|symbolName| 'SYMBOL-NAME)
-                  (LIST '|symbolValue| 'SYMBOL-VALUE)
-                  (LIST '|symbol?| 'SYMBOLP) (LIST '|take| 'TAKE)
-                  (LIST '|third| 'CADDR)
-                  (LIST '|toString| 'WRITE-TO-STRING) (LIST '|true| 'T)
-                  (LIST '|upperCase?| 'UPPER-CASE-P)
-                  (LIST '|valueEq?| 'EQUAL)
-                  (LIST '|vector?| 'SIMPLE-VECTOR-P)
-                  (LIST '|vectorRef| 'SVREF)
-                  (LIST '|writeByte| 'WRITE-BYTE)
-                  (LIST '|writeLine| 'WRITE-LINE) (LIST 'PLUS '+)
-                  (LIST 'MINUS '-) (LIST 'TIMES '*) (LIST 'POWER 'EXPT)
-                  (LIST 'REM 'REM) (LIST 'QUO 'TRUNCATE)
-                  (LIST 'SLASH '/) (LIST 'LT '<) (LIST 'GT '>)
-                  (LIST 'LE '<=) (LIST 'GE '>=) (LIST 'SHOEEQ 'EQUAL)
-                  (LIST 'SHOENE '/=) (LIST 'T 'T$)))
-        (|i| NIL))
-    (LOOP
-      (COND
-        ((OR (ATOM |bfVar#1|) (PROGN (SETQ |i| (CAR |bfVar#1|)) NIL))
-         (RETURN NIL))
-        (T (SETF (GET (CAR |i|) 'SHOERENAME) (CDR |i|))))
-      (SETQ |bfVar#1| (CDR |bfVar#1|)))))
+(LET ((|bfVar#1|
+          (LIST (LIST '|abs| 'ABS) (LIST '|abstractChar| 'CODE-CHAR)
+                (LIST '|alphabetic?| 'ALPHA-CHAR-P)
+                (LIST '|alphanumeric?| 'ALPHANUMERICP)
+                (LIST '|and| 'AND) (LIST '|apply| 'APPLY)
+                (LIST '|array?| 'ARRAYP) (LIST '|arrayRef| 'AREF)
+                (LIST '|atom| 'ATOM) (LIST '|bitmask| 'SBIT)
+                (LIST '|canonicalFilename| 'PROBE-FILE)
+                (LIST '|charByName| 'NAME-CHAR)
+                (LIST '|charDowncase| 'CHAR-DOWNCASE)
+                (LIST '|charEq?| 'CHAR=)
+                (LIST '|charUpcase| 'CHAR-UPCASE)
+                (LIST '|charString| 'STRING)
+                (LIST '|char?| 'CHARACTERP)
+                (LIST '|codePoint| 'CHAR-CODE) (LIST '|cons?| 'CONSP)
+                (LIST '|copy| 'COPY) (LIST '|copyTree| 'COPY-TREE)
+                (LIST '|croak| 'CROAK) (LIST '|digit?| 'DIGIT-CHAR-P)
+                (LIST '|drop| 'DROP) (LIST '|exit| 'EXIT)
+                (LIST '|false| 'NIL) (LIST '|first| 'CAR)
+                (LIST '|float?| 'FLOATP) (LIST '|fourth| 'CADDDR)
+                (LIST '|function| 'FUNCTION)
+                (LIST '|function?| 'FUNCTIONP) (LIST '|gensym| 'GENSYM)
+                (LIST '|genvar| 'GENVAR) (LIST '|integer?| 'INTEGERP)
+                (LIST 'LAST '|last|) (LIST '|list| 'LIST)
+                (LIST '|listEq?| 'EQUAL)
+                (LIST '|lowerCase?| 'LOWER-CASE-P)
+                (LIST '|makeSymbol| 'INTERN)
+                (LIST '|maxIndex| 'MAXINDEX) (LIST '|mkpf| 'MKPF)
+                (LIST '|newString| 'MAKE-STRING)
+                (LIST '|newVector| 'MAKE-ARRAY) (LIST '|nil| NIL)
+                (LIST '|not| 'NOT) (LIST '|null| 'NULL)
+                (LIST '|odd?| 'ODDP) (LIST '|or| 'OR)
+                (LIST '|otherwise| 'T) (LIST '|property| 'GET)
+                (LIST '|readInteger| 'PARSE-INTEGER)
+                (LIST '|readLispFromString| 'READ-FROM-STRING)
+                (LIST '|readOnly?| 'CONSTANTP)
+                (LIST '|removeDuplicates| 'REMDUP) (LIST '|rest| 'CDR)
+                (LIST '|sameObject?| 'EQ) (LIST '|scalarEq?| 'EQL)
+                (LIST '|scalarEqual?| 'EQL) (LIST '|second| 'CADR)
+                (LIST '|setIntersection| 'INTERSECTION)
+                (LIST '|setPart| 'SETELT) (LIST '|setUnion| 'UNION)
+                (LIST '|strconc| 'CONCAT) (LIST '|stringChar| 'SCHAR)
+                (LIST '|stringDowncase| 'STRING-DOWNCASE)
+                (LIST '|string?| 'STRINGP) (LIST '|stringEq?| 'STRING=)
+                (LIST '|stringUpcase| 'STRING-UPCASE)
+                (LIST '|subSequence| 'SUBSEQ)
+                (LIST '|symbolScope| 'SYMBOL-PACKAGE)
+                (LIST '|symbolEq?| 'EQ)
+                (LIST '|symbolFunction| 'SYMBOL-FUNCTION)
+                (LIST '|symbolName| 'SYMBOL-NAME)
+                (LIST '|symbolValue| 'SYMBOL-VALUE)
+                (LIST '|symbol?| 'SYMBOLP) (LIST '|take| 'TAKE)
+                (LIST '|third| 'CADDR)
+                (LIST '|toString| 'WRITE-TO-STRING) (LIST '|true| 'T)
+                (LIST '|upperCase?| 'UPPER-CASE-P)
+                (LIST '|valueEq?| 'EQUAL)
+                (LIST '|vector?| 'SIMPLE-VECTOR-P)
+                (LIST '|vectorRef| 'SVREF)
+                (LIST '|writeByte| 'WRITE-BYTE)
+                (LIST '|writeLine| 'WRITE-LINE) (LIST 'PLUS '+)
+                (LIST 'MINUS '-) (LIST 'TIMES '*) (LIST 'POWER 'EXPT)
+                (LIST 'REM 'REM) (LIST 'QUO 'TRUNCATE) (LIST 'SLASH '/)
+                (LIST 'LT '<) (LIST 'GT '>) (LIST 'LE '<=)
+                (LIST 'GE '>=) (LIST 'SHOEEQ 'EQUAL) (LIST 'SHOENE '/=)
+                (LIST 'T 'T$)))
+      (|i| NIL))
+  (LOOP
+    (COND
+      ((OR (ATOM |bfVar#1|) (PROGN (SETQ |i| (CAR |bfVar#1|)) NIL))
+       (RETURN NIL))
+      (T (SETF (GET (CAR |i|) 'SHOERENAME) (CDR |i|))))
+    (SETQ |bfVar#1| (CDR |bfVar#1|))))
 
-(EVAL-WHEN (:EXECUTE :LOAD-TOPLEVEL)
-  (LET ((|bfVar#1| (LIST (LIST '|setName| 0) (LIST '|setLabel| 1)
-                         (LIST '|setLevel| 2) (LIST '|setType| 3)
-                         (LIST '|setVar| 4) (LIST '|setLeaf| 5)
-                         (LIST '|setDef| 6) (LIST '|aGeneral| 4)
-                         (LIST '|aMode| 1) (LIST '|aModeSet| 3)
-                         (LIST '|aTree| 0) (LIST '|aValue| 2)
-                         (LIST '|args| 'CDR)
-                         (LIST '|attributes| 'CADDR)
-                         (LIST '|cacheCount| 'CADDDDR)
-                         (LIST '|cacheName| 'CADR)
-                         (LIST '|cacheReset| 'CADDDR)
-                         (LIST '|cacheType| 'CADDR)
-                         (LIST '|env| 'CADDR) (LIST '|expr| 'CAR)
-                         (LIST 'CAR 'CAR) (LIST '|mmCondition| 'CAADR)
-                         (LIST '|mmDC| 'CAAR)
-                         (LIST '|mmImplementation| 'CADADR)
-                         (LIST '|mmSignature| 'CDAR)
-                         (LIST '|mmTarget| 'CADAR)
-                         (LIST '|mmSource| 'CDDAR) (LIST '|mode| 'CADR)
-                         (LIST '|op| 'CAR) (LIST '|opcode| 'CADR)
-                         (LIST '|opSig| 'CADR) (LIST 'CDR 'CDR)
-                         (LIST '|sig| 'CDDR) (LIST '|source| 'CDR)
-                         (LIST '|streamCode| 'CADDDR)
-                         (LIST '|streamDef| 'CADDR)
-                         (LIST '|streamName| 'CADR)
-                         (LIST '|target| 'CAR)))
-        (|i| NIL))
-    (LOOP
-      (COND
-        ((OR (ATOM |bfVar#1|) (PROGN (SETQ |i| (CAR |bfVar#1|)) NIL))
-         (RETURN NIL))
-        (T (SETF (GET (CAR |i|) 'SHOESELFUNCTION) (CADR |i|))))
-      (SETQ |bfVar#1| (CDR |bfVar#1|)))))
+(LET ((|bfVar#1|
+          (LIST (LIST '|setName| 0) (LIST '|setLabel| 1)
+                (LIST '|setLevel| 2) (LIST '|setType| 3)
+                (LIST '|setVar| 4) (LIST '|setLeaf| 5)
+                (LIST '|setDef| 6) (LIST '|aGeneral| 4)
+                (LIST '|aMode| 1) (LIST '|aModeSet| 3)
+                (LIST '|aTree| 0) (LIST '|aValue| 2)
+                (LIST '|args| 'CDR) (LIST '|attributes| 'CADDR)
+                (LIST '|cacheCount| 'CADDDDR) (LIST '|cacheName| 'CADR)
+                (LIST '|cacheReset| 'CADDDR) (LIST '|cacheType| 'CADDR)
+                (LIST '|env| 'CADDR) (LIST '|expr| 'CAR)
+                (LIST 'CAR 'CAR) (LIST '|mmCondition| 'CAADR)
+                (LIST '|mmDC| 'CAAR) (LIST '|mmImplementation| 'CADADR)
+                (LIST '|mmSignature| 'CDAR) (LIST '|mmTarget| 'CADAR)
+                (LIST '|mmSource| 'CDDAR) (LIST '|mode| 'CADR)
+                (LIST '|op| 'CAR) (LIST '|opcode| 'CADR)
+                (LIST '|opSig| 'CADR) (LIST 'CDR 'CDR)
+                (LIST '|sig| 'CDDR) (LIST '|source| 'CDR)
+                (LIST '|streamCode| 'CADDDR) (LIST '|streamDef| 'CADDR)
+                (LIST '|streamName| 'CADR) (LIST '|target| 'CAR)))
+      (|i| NIL))
+  (LOOP
+    (COND
+      ((OR (ATOM |bfVar#1|) (PROGN (SETQ |i| (CAR |bfVar#1|)) NIL))
+       (RETURN NIL))
+      (T (SETF (GET (CAR |i|) 'SHOESELFUNCTION) (CADR |i|))))
+    (SETQ |bfVar#1| (CDR |bfVar#1|))))