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 | |
| parent | 2a4104845c1ad1bda28d9d03e6e29925479b1cff (diff) | |
| download | open-axiom-331ff8fe93b6cee63593dcad6b7a9c235bac946d.tar.gz | |
Symbol cleanups
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/strap/tokens.clisp | 6 | ||||
| -rw-r--r-- | src/boot/tokens.boot | 4 | ||||
| -rw-r--r-- | src/boot/translator.boot | 6 |
3 files changed, 10 insertions, 6 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) diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot index d3c03de4..4e1a8ac3 100644 --- a/src/boot/tokens.boot +++ b/src/boot/tokens.boot @@ -295,8 +295,10 @@ for i in [ _ ["subSequence", "SUBSEQ"] , _ ["substitute", "SUBST"] , _ ["substitute!", "NSUBST"] , _ - ["symbol?", "SYMBOLP"] , _ + ["symbolFunction", "SYMBOL-FUNCTION"], _ ["symbolName", "SYMBOL-NAME"], _ + ["symbolValue", "SYMBOL-VALUE"], _ + ["symbol?", "SYMBOLP"] , _ ["take", "TAKE"] , ["third", "CADDR"] , _ ["toString", "WRITE-TO-STRING"], _ diff --git a/src/boot/translator.boot b/src/boot/translator.boot index 0b4a196c..3aa31def 100644 --- a/src/boot/translator.boot +++ b/src/boot/translator.boot @@ -67,11 +67,11 @@ genOptimizeOptions stream == AxiomCore::%sysInit() == SETQ(_*LOAD_-VERBOSE_*,false) if %hasFeature KEYWORD::GCL then - SETF(SYMBOL_-VALUE + SETF(symbolValue bfColonColon("COMPILER","*COMPILE-VERBOSE*"),false) - SETF(SYMBOL_-VALUE + SETF(symbolValue bfColonColon("COMPILER","SUPPRESS-COMPILER-WARNINGS*"),false) - SETF(SYMBOL_-VALUE + SETF(symbolValue bfColonColon("COMPILER","SUPPRESS-COMPILER-NOTES*"),true) ++ Make x, the current package |