aboutsummaryrefslogtreecommitdiff
path: root/src/boot/strap/tokens.clisp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2012-05-19 21:52:28 +0000
committerdos-reis <gdr@axiomatics.org>2012-05-19 21:52:28 +0000
commit2595149525297f87d09aba5deb2b93448b3f7411 (patch)
tree583507762bcc9ae9635465ab686644482f9e3354 /src/boot/strap/tokens.clisp
parent5d8266cb4f98511dda707ebd08123c476bc361f3 (diff)
downloadopen-axiom-2595149525297f87d09aba5deb2b93448b3f7411.tar.gz
* boot/tokens.boot: symbolBinding is now builtin.
* boot/ast.boot (%Ast): Add %Dynamic variant. (bfColonColon): Use symbolBinding instead of FIND-SYMBOLS. (compFluid): Return a %Dynamic form. Adjust callers. (shoeCompTran): Tidy. * boot/translator.boot (BOOTLOOP): Tidy. (BOOTPO): Likewise.
Diffstat (limited to 'src/boot/strap/tokens.clisp')
-rw-r--r--src/boot/strap/tokens.clisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp
index 8dd98d44..6f2c0f71 100644
--- a/src/boot/strap/tokens.clisp
+++ b/src/boot/strap/tokens.clisp
@@ -226,7 +226,7 @@
(LIST '|stringDowncase| 'STRING-DOWNCASE)
(LIST '|string?| 'STRINGP) (LIST '|stringEq?| 'STRING=)
(LIST '|stringUpcase| 'STRING-UPCASE)
- (LIST '|subSequence| 'SUBSEQ)
+ (LIST '|subSequence| 'SUBSEQ) (LIST '|symbolBinding| 'FIND-SYMBOL)
(LIST '|symbolScope| 'SYMBOL-PACKAGE) (LIST '|symbolEq?| 'EQ)
(LIST '|symbolFunction| 'SYMBOL-FUNCTION)
(LIST '|symbolName| 'SYMBOL-NAME)