diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-01-01 23:39:28 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-01-01 23:39:28 +0000 |
| commit | 331ff8fe93b6cee63593dcad6b7a9c235bac946d (patch) | |
| tree | 0c7ef9cb2096a70ff415cb50a0cad629e4fbe792 /src/boot/strap | |
| parent | 2a4104845c1ad1bda28d9d03e6e29925479b1cff (diff) | |
| download | open-axiom-331ff8fe93b6cee63593dcad6b7a9c235bac946d.tar.gz | |
Symbol cleanups
Diffstat (limited to 'src/boot/strap')
| -rw-r--r-- | src/boot/strap/tokens.clisp | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index f1421813..4b510132 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -235,9 +235,11 @@ (LIST '|subSequence| 'SUBSEQ) (LIST '|substitute| 'SUBST) (LIST '|substitute!| 'NSUBST) - (LIST '|symbol?| 'SYMBOLP) + (LIST '|symbolFunction| '|SYMBOL-Function|) (LIST '|symbolName| 'SYMBOL-NAME) - (LIST '|take| 'TAKE) (LIST '|third| 'CADDR) + (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 '|vector?| 'SIMPLE-VECTOR-P) |