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 | |
| parent | acc3ed6373ce1eef51323efcb7ba3ccf0dc3e882 (diff) | |
| download | open-axiom-5986d1ca9a814c4c7da81cebd3fb152e4592036e.tar.gz | |
* boot/tokens.boot (shoeIdChar): Accept "!" too.
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/strap/tokens.clisp | 17 | ||||
| -rw-r--r-- | src/boot/tokens.boot | 2 |
2 files changed, 11 insertions, 8 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) diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot index c4cf1664..307da560 100644 --- a/src/boot/tokens.boot +++ b/src/boot/tokens.boot @@ -44,7 +44,7 @@ shoeStartsId x == alphabetic? x or x in [char "$", char "?", char "%"] shoeIdChar x == - alphanumeric? x or x in [char "'", char "?", char "%"] + alphanumeric? x or x in [char "'", char "?", char "%", char "!"] ++ return the sub-string of `s' starting from `f'. ++ When non-nil, `n' designates the length of the sub-string. |