diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-16 14:51:48 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-16 14:51:48 +0000 |
| commit | 5986d1ca9a814c4c7da81cebd3fb152e4592036e (patch) | |
| tree | 3cdf154387c532582f98afd3bd8f60b0d84ebe2f /src/boot/strap | |
| parent | acc3ed6373ce1eef51323efcb7ba3ccf0dc3e882 (diff) | |
| download | open-axiom-5986d1ca9a814c4c7da81cebd3fb152e4592036e.tar.gz | |
* boot/tokens.boot (shoeIdChar): Accept "!" too.
Diffstat (limited to 'src/boot/strap')
| -rw-r--r-- | src/boot/strap/tokens.clisp | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index 3ba257e5..6d251628 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -13,7 +13,8 @@ (DEFUN |shoeIdChar| (|x|) (OR (ALPHANUMERICP |x|) - (MEMBER |x| (LIST (|char| '|'|) (|char| '?) (|char| '%))))) + (MEMBER |x| + (LIST (|char| '|'|) (|char| '?) (|char| '%) (|char| '!))))) (DEFUN |subString| (|s| |f| &OPTIONAL (|n| NIL)) (COND @@ -211,11 +212,12 @@ (LIST '|copy| 'COPY) (LIST '|croak| 'CROAK) (LIST '|digit?| 'DIGIT-CHAR-P) (LIST '|drop| 'DROP) (LIST '|exit| 'EXIT) (LIST '|false| 'NIL) - (LIST '|first| 'CAR) (LIST '|fourth| 'CADDDR) - (LIST '|function| 'FUNCTION) (LIST '|gensym| 'GENSYM) - (LIST '|genvar| 'GENVAR) (LIST '|integer?| 'INTEGERP) - (LIST '|lastNode| 'LAST) (LIST 'LAST '|last|) - (LIST '|list| 'LIST) + (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 '|lastNode| 'LAST) + (LIST 'LAST '|last|) (LIST '|list| 'LIST) (LIST '|lowerCase?| 'LOWER-CASE-P) (LIST '|makeSymbol| 'INTERN) (LIST '|mkpf| 'MKPF) (LIST '|nconc| 'NCONC) @@ -231,7 +233,8 @@ (LIST '|readOnly?| 'CONSTANTP) (LIST '|removeDuplicates| 'REMDUP) (LIST '|rest| 'CDR) (LIST '|reverse| 'REVERSE) - (LIST '|sameObject?| 'EQ) (LIST '|second| 'CADR) + (LIST '|sameObject?| 'EQ) (LIST '|scalarEqual?| 'EQL) + (LIST '|second| 'CADR) (LIST '|setDifference| 'SETDIFFERENCE) (LIST '|setIntersection| 'INTERSECTION) (LIST '|setPart| 'SETELT) (LIST '|setUnion| 'UNION) |