diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-19 13:18:04 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-19 13:18:04 +0000 |
| commit | b893a938b4051bc30a9c44bdcf6000bff11969c4 (patch) | |
| tree | e015989876cff9b1b185cc00a55bfc92be277961 /src/boot/strap/tokens.clisp | |
| parent | c6179efd4a1f1770d4d31415582eabebbe2ab6a0 (diff) | |
| download | open-axiom-b893a938b4051bc30a9c44bdcf6000bff11969c4.tar.gz | |
* interp/newfort.boot: Likewise.
* interp/define.boot (orderBySubsumption): Fix thinko.
* interp/boot-pkg.lisp: Use BOOTTRAN package. Don't import names
individually.
* boot/utility.boot: New.
* boot/translator.boot (exportNames): Fix thinko.
* boot/tokens.boot: Add charEq? and scalarEq? builtiin functions.
* boot/ast.boot (bfMember): Generate call to symbolMember? for
membership tests for symbols.
Diffstat (limited to 'src/boot/strap/tokens.clisp')
| -rw-r--r-- | src/boot/strap/tokens.clisp | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index ef543a5b..15fdfa25 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -207,7 +207,7 @@ (LIST '|canonicalFilename| 'PROBE-FILE) (LIST '|charByName| 'NAME-CHAR) (LIST '|charString| 'STRING) - (LIST '|char?| 'CHARACTERP) + (LIST '|char?| 'CHARACTERP) (LIST '|charEq?| 'CHAR=) (LIST '|codePoint| 'CHAR-CODE) (LIST '|cons?| 'CONSP) (LIST '|copy| 'COPY) (LIST '|croak| 'CROAK) (LIST '|digit?| 'DIGIT-CHAR-P) (LIST '|drop| 'DROP) @@ -234,13 +234,14 @@ (LIST '|readOnly?| 'CONSTANTP) (LIST '|removeDuplicates| 'REMDUP) (LIST '|rest| 'CDR) (LIST '|reverse| 'REVERSE) - (LIST '|sameObject?| 'EQ) (LIST '|scalarEqual?| 'EQL) - (LIST '|second| 'CADR) + (LIST '|sameObject?| 'EQ) (LIST '|scalarEq?| 'EQL) + (LIST '|scalarEqual?| 'EQL) (LIST '|second| 'CADR) (LIST '|setDifference| 'SETDIFFERENCE) (LIST '|setIntersection| 'INTERSECTION) (LIST '|setPart| 'SETELT) (LIST '|setUnion| 'UNION) (LIST '|strconc| 'CONCAT) (LIST '|stringChar| 'SCHAR) (LIST '|string?| 'STRINGP) + (LIST '|stringEq?| 'STRING=) (LIST '|subSequence| 'SUBSEQ) (LIST '|substitute| 'SUBST) (LIST '|substitute!| 'NSUBST) |