aboutsummaryrefslogtreecommitdiff
path: root/src/boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-04-15 21:56:20 +0000
committerdos-reis <gdr@axiomatics.org>2011-04-15 21:56:20 +0000
commit53356dde96d8bc9e264dbd291df8b9b3a75aa5d1 (patch)
tree2ff719aaa40e8978033107dbad034189c2c296ba /src/boot
parent63a250a0a3b189e6e315008936aa9e53984b5ba5 (diff)
downloadopen-axiom-53356dde96d8bc9e264dbd291df8b9b3a75aa5d1.tar.gz
misc cleanup
Diffstat (limited to 'src/boot')
-rw-r--r--src/boot/strap/tokens.clisp8
-rw-r--r--src/boot/tokens.boot1
2 files changed, 6 insertions, 3 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp
index 5eb38696..3ba257e5 100644
--- a/src/boot/strap/tokens.clisp
+++ b/src/boot/strap/tokens.clisp
@@ -200,8 +200,9 @@
(LIST '|alphabetic?| 'ALPHA-CHAR-P)
(LIST '|alphanumeric?| 'ALPHANUMERICP)
(LIST '|and| 'AND) (LIST '|append| 'APPEND)
- (LIST '|apply| 'APPLY) (LIST '|arrayRef| 'AREF)
- (LIST '|atom| 'ATOM) (LIST '|bitmask| 'SBIT)
+ (LIST '|apply| 'APPLY) (LIST '|array?| 'ARRAYP)
+ (LIST '|arrayRef| 'AREF) (LIST '|atom| 'ATOM)
+ (LIST '|bitmask| 'SBIT)
(LIST '|canonicalFilename| 'PROBE-FILE)
(LIST '|charByName| 'NAME-CHAR)
(LIST '|charString| 'STRING)
@@ -230,7 +231,7 @@
(LIST '|readOnly?| 'CONSTANTP)
(LIST '|removeDuplicates| 'REMDUP)
(LIST '|rest| 'CDR) (LIST '|reverse| 'REVERSE)
- (LIST '|second| 'CADR)
+ (LIST '|sameObject?| 'EQ) (LIST '|second| 'CADR)
(LIST '|setDifference| 'SETDIFFERENCE)
(LIST '|setIntersection| 'INTERSECTION)
(LIST '|setPart| 'SETELT) (LIST '|setUnion| 'UNION)
@@ -239,6 +240,7 @@
(LIST '|subSequence| 'SUBSEQ)
(LIST '|substitute| 'SUBST)
(LIST '|substitute!| 'NSUBST)
+ (LIST '|symbolEqual?| 'EQ)
(LIST '|symbolFunction| 'SYMBOL-FUNCTION)
(LIST '|symbolName| 'SYMBOL-NAME)
(LIST '|symbolValue| 'SYMBOL-VALUE)
diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot
index 3ba54900..4b2cd544 100644
--- a/src/boot/tokens.boot
+++ b/src/boot/tokens.boot
@@ -291,6 +291,7 @@ for i in [ _
["removeDuplicates", "REMDUP"] , _
["rest", "CDR"] , _
["reverse", "REVERSE"] , _
+ ["sameObject?", "EQ" ] , _
["second", "CADR"] , _
["setDifference", "SETDIFFERENCE"] , _
["setIntersection", "INTERSECTION"] , _