diff options
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 |