aboutsummaryrefslogtreecommitdiff
path: root/src/boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/boot')
-rw-r--r--src/boot/strap/tokens.clisp6
-rw-r--r--src/boot/tokens.boot4
-rw-r--r--src/boot/translator.boot6
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