diff options
Diffstat (limited to 'src/boot/strap/tokens.clisp')
| -rw-r--r-- | src/boot/strap/tokens.clisp | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index d1d701d2..97b0f8ff 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -145,7 +145,7 @@ (RETURN NIL)) (#0# (COND - ((NULL (|shoeStartsId| (ELT |k| 0))) + ((NOT (|shoeStartsId| (ELT |k| 0))) (BVEC-SETELT |a| (QENUM |k| 0) 1))))) (SETQ |bfVar#5| (CDR |bfVar#5|)))) |a|)))) @@ -209,25 +209,26 @@ (LIST '|lastNode| 'LAST) (LIST 'LAST '|last|) (LIST '|list| 'LIST) (LIST '|mkpf| 'MKPF) (LIST '|nconc| 'NCONC) (LIST '|nil| NIL) - (LIST '|not| 'NULL) (LIST 'NOT 'NULL) + (LIST '|not| 'NOT) (LIST '|nreverse| 'NREVERSE) (LIST '|null| 'NULL) (LIST '|or| 'OR) (LIST '|otherwise| 'T) (LIST 'PAIRP 'CONSP) (LIST '|removeDuplicates| 'REMDUP) (LIST '|rest| 'CDR) (LIST '|reverse| 'REVERSE) + (LIST '|second| 'CADR) (LIST '|setDifference| 'SETDIFFERENCE) (LIST '|setIntersection| 'INTERSECTION) (LIST '|setPart| 'SETELT) (LIST '|setUnion| 'UNION) (LIST '|size| 'SIZE) (LIST '|strconc| 'CONCAT) (LIST '|substitute| 'SUBST) - (LIST '|take| 'TAKE) (LIST '|true| 'T) - (LIST 'PLUS '+) (LIST 'MINUS '-) - (LIST 'TIMES '*) (LIST 'POWER 'EXPT) - (LIST 'SLASH '/) (LIST 'LT '<) (LIST 'GT '>) - (LIST 'LE '<=) (LIST 'GE '>=) - (LIST 'SHOEEQ 'EQUAL) (LIST 'SHOENE '/=) - (LIST 'T 'T$))) + (LIST '|take| 'TAKE) (LIST '|third| 'CADDR) + (LIST '|true| 'T) (LIST 'PLUS '+) + (LIST 'MINUS '-) (LIST 'TIMES '*) + (LIST 'POWER 'EXPT) (LIST 'SLASH '/) + (LIST 'LT '<) (LIST 'GT '>) (LIST 'LE '<=) + (LIST 'GE '>=) (LIST 'SHOEEQ 'EQUAL) + (LIST 'SHOENE '/=) (LIST 'T 'T$))) (|i| NIL)) (LOOP (COND @@ -250,7 +251,7 @@ (LIST '|lastNode| 'LASTNODE) (LIST '|list| 'LIST) (LIST '|mkpf| 'MKPF) (LIST '|nconc| 'NCONC) (LIST '|nil| 'NIL) - (LIST '|not| 'NULL) (LIST 'NOT 'NULL) + (LIST '|not| 'NOT) (LIST '|nreverse| 'NREVERSE) (LIST '|null| 'NULL) (LIST '|or| 'OR) (LIST '|otherwise| 'T) @@ -267,7 +268,7 @@ (LIST 'SUBST 'MSUBST) (LIST '|take| 'TAKE) (LIST '|true| 'T) (LIST '|where| 'WHERE) (LIST 'TIMES 'TIMES) (LIST 'POWER 'EXPT) - (LIST 'NOT 'NULL) (LIST 'SHOENE 'NEQUAL) + (LIST 'SHOENE 'NEQUAL) (LIST 'MINUS 'SPADDIFFERENCE) (LIST 'SLASH 'QUOTIENT) (LIST '= 'EQUAL) (LIST 'SHOEEQ 'EQUAL) (LIST 'ASSOC '|assoc|) |