diff options
author | dos-reis <gdr@axiomatics.org> | 2011-09-30 04:20:34 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-09-30 04:20:34 +0000 |
commit | 441c2259ea4bdda1c2a0a4091a55955536998270 (patch) | |
tree | a70ec6244fe67bf0a2f8161892ae67ea54fd7cf2 /src/boot/strap/tokens.clisp | |
parent | 589f3335fb070375ba16d84859ee00267577f8ab (diff) | |
download | open-axiom-441c2259ea4bdda1c2a0a4091a55955536998270.tar.gz |
* boot/ast.boot (bfFor): Tidy. Handle hashtable iterator forms.
(bfIterateTable): New.
(separateIterators): Likewise.
(bfExpandTableIters): Likewise.
(bfLp1): Use them.
Diffstat (limited to 'src/boot/strap/tokens.clisp')
-rw-r--r-- | src/boot/strap/tokens.clisp | 435 |
1 files changed, 196 insertions, 239 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index c8c4afc3..de9d71e3 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -19,290 +19,247 @@ (DEFUN |shoeIdChar| (|x|) (OR (ALPHANUMERICP |x|) (|charMember?| |x| - (LIST (|char| '|'|) (|char| '?) (|char| '%) (|char| '!) - (|char| '&))))) + (LIST (|char| '|'|) (|char| '?) (|char| '%) (|char| '!) + (|char| '&))))) (DEFUN |subString| (|s| |f| &OPTIONAL (|n| NIL)) - (COND - ((NULL |n|) (SUBSEQ |s| |f|)) - (T (SUBSEQ |s| |f| (+ |f| |n|))))) + (COND ((NULL |n|) (SUBSEQ |s| |f|)) (T (SUBSEQ |s| |f| (+ |f| |n|))))) (DEFCONSTANT |shoeKeyWords| - (LIST (LIST "and" 'AND) (LIST "by" 'BY) (LIST "case" 'CASE) - (LIST "catch" 'CATCH) (LIST "cross" 'CROSS) (LIST "do" 'DO) - (LIST "else" 'ELSE) (LIST "finally" 'FINALLY) - (LIST "for" 'FOR) (LIST "forall" 'FORALL) (LIST "has" 'HAS) - (LIST "if" 'IF) (LIST "import" 'IMPORT) (LIST "in" 'IN) - (LIST "is" 'IS) (LIST "isnt" 'ISNT) (LIST "leave" 'LEAVE) - (LIST "macro" 'MACRO) (LIST "module" 'MODULE) - (LIST "namespace" 'NAMESPACE) (LIST "of" 'OF) (LIST "or" 'OR) - (LIST "rem" 'REM) (LIST "repeat" 'REPEAT) - (LIST "return" 'RETURN) (LIST "quo" 'QUO) - (LIST "structure" 'STRUCTURE) (LIST "then" 'THEN) - (LIST "throw" 'THROW) (LIST "try" 'TRY) (LIST "until" 'UNTIL) - (LIST "where" 'WHERE) (LIST "while" 'WHILE) (LIST "." 'DOT) - (LIST ":" 'COLON) (LIST "::" 'COLON-COLON) (LIST "," 'COMMA) - (LIST ";" 'SEMICOLON) (LIST "*" 'TIMES) (LIST "**" 'POWER) - (LIST "/" 'SLASH) (LIST "+" 'PLUS) (LIST "-" 'MINUS) - (LIST "<" 'LT) (LIST ">" 'GT) (LIST "<=" 'LE) (LIST ">=" 'GE) - (LIST "=" 'SHOEEQ) (LIST "~=" 'SHOENE) (LIST ".." 'SEG) - (LIST "#" 'LENGTH) (LIST "=>" 'EXIT) (LIST "->" 'ARROW) - (LIST ":=" 'BEC) (LIST "+->" 'GIVES) (LIST "==" 'DEF) - (LIST "<=>" 'TDEF) (LIST "(" 'OPAREN) (LIST ")" 'CPAREN) - (LIST "[" 'OBRACK) (LIST "]" 'CBRACK) (LIST "'" 'QUOTE) - (LIST "|" 'BAR))) + (LIST (LIST "and" 'AND) (LIST "by" 'BY) (LIST "case" 'CASE) + (LIST "catch" 'CATCH) (LIST "cross" 'CROSS) (LIST "do" 'DO) + (LIST "else" 'ELSE) (LIST "finally" 'FINALLY) (LIST "for" 'FOR) + (LIST "forall" 'FORALL) (LIST "has" 'HAS) (LIST "if" 'IF) + (LIST "import" 'IMPORT) (LIST "in" 'IN) (LIST "is" 'IS) + (LIST "isnt" 'ISNT) (LIST "leave" 'LEAVE) (LIST "macro" 'MACRO) + (LIST "module" 'MODULE) (LIST "namespace" 'NAMESPACE) (LIST "of" 'OF) + (LIST "or" 'OR) (LIST "rem" 'REM) (LIST "repeat" 'REPEAT) + (LIST "return" 'RETURN) (LIST "quo" 'QUO) (LIST "structure" 'STRUCTURE) + (LIST "then" 'THEN) (LIST "throw" 'THROW) (LIST "try" 'TRY) + (LIST "until" 'UNTIL) (LIST "where" 'WHERE) (LIST "while" 'WHILE) + (LIST "." 'DOT) (LIST ":" 'COLON) (LIST "::" 'COLON-COLON) + (LIST "," 'COMMA) (LIST ";" 'SEMICOLON) (LIST "*" 'TIMES) + (LIST "**" 'POWER) (LIST "/" 'SLASH) (LIST "+" 'PLUS) (LIST "-" 'MINUS) + (LIST "<" 'LT) (LIST ">" 'GT) (LIST "<=" 'LE) (LIST ">=" 'GE) + (LIST "=" 'SHOEEQ) (LIST "~=" 'SHOENE) (LIST ".." 'SEG) + (LIST "#" 'LENGTH) (LIST "=>" 'EXIT) (LIST "->" 'ARROW) + (LIST ":=" 'BEC) (LIST "+->" 'GIVES) (LIST "==" 'DEF) + (LIST "<=>" 'TDEF) (LIST "(" 'OPAREN) (LIST ")" 'CPAREN) + (LIST "[" 'OBRACK) (LIST "]" 'CBRACK) (LIST "'" 'QUOTE) + (LIST "|" 'BAR))) (DEFUN |shoeKeyTableCons| () (PROG (|KeyTable|) (RETURN - (PROGN - (SETQ |KeyTable| (|makeTable| #'EQUAL)) - (LET ((|bfVar#1| |shoeKeyWords|) (|st| NIL)) - (LOOP - (COND - ((OR (NOT (CONSP |bfVar#1|)) - (PROGN (SETQ |st| (CAR |bfVar#1|)) NIL)) - (RETURN NIL)) - (T (SETF (|tableValue| |KeyTable| (CAR |st|)) - (CADR |st|)))) - (SETQ |bfVar#1| (CDR |bfVar#1|)))) - |KeyTable|)))) + (PROGN + (SETQ |KeyTable| (|makeTable| #'EQUAL)) + (LET ((|bfVar#1| |shoeKeyWords|) (|st| NIL)) + (LOOP + (COND + ((OR (NOT (CONSP |bfVar#1|)) (PROGN (SETQ |st| (CAR |bfVar#1|)) NIL)) + (RETURN NIL)) + (T (SETF (|tableValue| |KeyTable| (CAR |st|)) (CADR |st|)))) + (SETQ |bfVar#1| (CDR |bfVar#1|)))) + |KeyTable|)))) (DEFPARAMETER |shoeKeyTable| (|shoeKeyTableCons|)) (DEFUN |shoeInsert| (|s| |d|) (PROG (|v| |k| |n| |u| |h| |l|) (RETURN - (PROGN - (SETQ |l| (LENGTH |s|)) - (SETQ |h| (CHAR-CODE (SCHAR |s| 0))) - (SETQ |u| (ELT |d| |h|)) - (SETQ |n| (LENGTH |u|)) - (SETQ |k| 0) + (PROGN + (SETQ |l| (LENGTH |s|)) + (SETQ |h| (CHAR-CODE (SCHAR |s| 0))) + (SETQ |u| (ELT |d| |h|)) + (SETQ |n| (LENGTH |u|)) + (SETQ |k| 0) + (LOOP + (COND ((< (LENGTH (ELT |u| |k|)) |l|) (RETURN NIL)) + (T (SETQ |k| (+ |k| 1))))) + (SETQ |v| (MAKE-ARRAY (+ |n| 1))) + (LET ((|bfVar#1| (- |k| 1)) (|i| 0)) + (LOOP + (COND ((> |i| |bfVar#1|) (RETURN NIL)) + (T (SETF (ELT |v| |i|) (ELT |u| |i|)))) + (SETQ |i| (+ |i| 1)))) + (SETF (ELT |v| |k|) |s|) + (LET ((|bfVar#2| (- |n| 1)) (|i| |k|)) (LOOP - (COND - ((< (LENGTH (ELT |u| |k|)) |l|) (RETURN NIL)) - (T (SETQ |k| (+ |k| 1))))) - (SETQ |v| (MAKE-ARRAY (+ |n| 1))) - (LET ((|bfVar#1| (- |k| 1)) (|i| 0)) - (LOOP - (COND - ((> |i| |bfVar#1|) (RETURN NIL)) - (T (SETF (ELT |v| |i|) (ELT |u| |i|)))) - (SETQ |i| (+ |i| 1)))) - (SETF (ELT |v| |k|) |s|) - (LET ((|bfVar#2| (- |n| 1)) (|i| |k|)) - (LOOP - (COND - ((> |i| |bfVar#2|) (RETURN NIL)) - (T (SETF (ELT |v| (+ |i| 1)) (ELT |u| |i|)))) - (SETQ |i| (+ |i| 1)))) - (SETF (ELT |d| |h|) |v|) - |s|)))) + (COND ((> |i| |bfVar#2|) (RETURN NIL)) + (T (SETF (ELT |v| (+ |i| 1)) (ELT |u| |i|)))) + (SETQ |i| (+ |i| 1)))) + (SETF (ELT |d| |h|) |v|) + |s|)))) (DEFUN |shoeDictCons| () (PROG (|d| |b| |a| |l|) (RETURN - (PROGN - (SETQ |l| (HKEYS |shoeKeyTable|)) - (SETQ |d| + (PROGN + (SETQ |l| (HKEYS |shoeKeyTable|)) + (SETQ |d| (PROGN - (SETQ |a| (MAKE-ARRAY 256)) - (SETQ |b| (MAKE-ARRAY 1)) - (SETF (ELT |b| 0) (MAKE-STRING 0)) - (LET ((|i| 0)) - (LOOP - (COND - ((> |i| 255) (RETURN NIL)) - (T (SETF (ELT |a| |i|) |b|))) - (SETQ |i| (+ |i| 1)))) - |a|)) - (LET ((|bfVar#1| |l|) (|s| NIL)) - (LOOP - (COND - ((OR (NOT (CONSP |bfVar#1|)) - (PROGN (SETQ |s| (CAR |bfVar#1|)) NIL)) - (RETURN NIL)) - (T (|shoeInsert| |s| |d|))) - (SETQ |bfVar#1| (CDR |bfVar#1|)))) - |d|)))) + (SETQ |a| (MAKE-ARRAY 256)) + (SETQ |b| (MAKE-ARRAY 1)) + (SETF (ELT |b| 0) (MAKE-STRING 0)) + (LET ((|i| 0)) + (LOOP + (COND ((> |i| 255) (RETURN NIL)) + (T (SETF (ELT |a| |i|) |b|))) + (SETQ |i| (+ |i| 1)))) + |a|)) + (LET ((|bfVar#1| |l|) (|s| NIL)) + (LOOP + (COND + ((OR (NOT (CONSP |bfVar#1|)) (PROGN (SETQ |s| (CAR |bfVar#1|)) NIL)) + (RETURN NIL)) + (T (|shoeInsert| |s| |d|))) + (SETQ |bfVar#1| (CDR |bfVar#1|)))) + |d|)))) (DEFPARAMETER |shoeDict| (|shoeDictCons|)) (DEFUN |shoePunCons| () (PROG (|a| |listing|) (RETURN - (PROGN - (SETQ |listing| (HKEYS |shoeKeyTable|)) - (SETQ |a| (|makeBitVector| 256)) - (LET ((|i| 0)) - (LOOP - (COND - ((> |i| 255) (RETURN NIL)) - (T (SETF (SBIT |a| |i|) 0))) - (SETQ |i| (+ |i| 1)))) - (LET ((|bfVar#1| |listing|) (|k| NIL)) - (LOOP - (COND - ((OR (NOT (CONSP |bfVar#1|)) - (PROGN (SETQ |k| (CAR |bfVar#1|)) NIL)) - (RETURN NIL)) - ((|shoeStartsId| (ELT |k| 0)) NIL) - (T (SETF (SBIT |a| (CHAR-CODE (SCHAR |k| 0))) 1))) - (SETQ |bfVar#1| (CDR |bfVar#1|)))) - |a|)))) + (PROGN + (SETQ |listing| (HKEYS |shoeKeyTable|)) + (SETQ |a| (|makeBitVector| 256)) + (LET ((|i| 0)) + (LOOP (COND ((> |i| 255) (RETURN NIL)) (T (SETF (SBIT |a| |i|) 0))) + (SETQ |i| (+ |i| 1)))) + (LET ((|bfVar#1| |listing|) (|k| NIL)) + (LOOP + (COND + ((OR (NOT (CONSP |bfVar#1|)) (PROGN (SETQ |k| (CAR |bfVar#1|)) NIL)) + (RETURN NIL)) + ((|shoeStartsId| (ELT |k| 0)) NIL) + (T (SETF (SBIT |a| (CHAR-CODE (SCHAR |k| 0))) 1))) + (SETQ |bfVar#1| (CDR |bfVar#1|)))) + |a|)))) (DEFPARAMETER |shoePun| (|shoePunCons|)) (LET ((|bfVar#1| (LIST 'NOT 'LENGTH)) (|i| NIL)) (LOOP - (COND - ((OR (NOT (CONSP |bfVar#1|)) - (PROGN (SETQ |i| (CAR |bfVar#1|)) NIL)) - (RETURN NIL)) - (T (SETF (GET |i| 'SHOEPRE) T))) - (SETQ |bfVar#1| (CDR |bfVar#1|)))) + (COND + ((OR (NOT (CONSP |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 (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 '~=))) + (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 (NOT (CONSP |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|)))) + (COND + ((OR (NOT (CONSP |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 '+ 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))) + (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 (NOT (CONSP |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|)))) + (COND + ((OR (NOT (CONSP |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 '|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 '|copyString| 'COPY-SEQ) - (LIST '|copyTree| 'COPY-TREE) - (LIST '|copyVector| 'COPY-SEQ) (LIST '|croak| 'CROAK) - (LIST '|digit?| 'DIGIT-CHAR-P) (LIST '|drop| 'DROP) - (LIST '|exit| 'EXIT) (LIST '|false| 'NIL) - (LIST '|first| 'CAR) (LIST '|float?| 'FLOATP) - (LIST '|flushOutput| 'FORCE-OUTPUT) - (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 '|writeChar| 'WRITE-CHAR) - (LIST '|writeInteger| 'PRINC) - (LIST '|writeLine| 'WRITE-LINE) - (LIST '|writeNewline| 'TERPRI) - (LIST '|writeString| 'WRITE-STRING) (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$))) + (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 '|copyString| 'COPY-SEQ) (LIST '|copyTree| 'COPY-TREE) + (LIST '|copyVector| 'COPY-SEQ) (LIST '|croak| 'CROAK) + (LIST '|digit?| 'DIGIT-CHAR-P) (LIST '|drop| 'DROP) + (LIST '|exit| 'EXIT) (LIST '|false| 'NIL) (LIST '|first| 'CAR) + (LIST '|float?| 'FLOATP) (LIST '|flushOutput| 'FORCE-OUTPUT) + (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 '|writeChar| 'WRITE-CHAR) + (LIST '|writeInteger| 'PRINC) (LIST '|writeLine| 'WRITE-LINE) + (LIST '|writeNewline| 'TERPRI) (LIST '|writeString| 'WRITE-STRING) + (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 (NOT (CONSP |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|)))) + (COND + ((OR (NOT (CONSP |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 '|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))) + (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 (NOT (CONSP |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|)))) + (COND + ((OR (NOT (CONSP |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|)))) |