aboutsummaryrefslogtreecommitdiff
path: root/src/boot/strap
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-01-27 21:12:57 +0000
committerdos-reis <gdr@axiomatics.org>2011-01-27 21:12:57 +0000
commita31c0a21788a17c1bce15120225bc5a15fa1da33 (patch)
tree5f5cea97cd52114dee92a8b66ca802e7fd0fab08 /src/boot/strap
parent8e0d0dbfa31e6a035ec5e954c192742ade763dda (diff)
downloadopen-axiom-a31c0a21788a17c1bce15120225bc5a15fa1da33.tar.gz
Generate SVREF for simple vector slot refs.
Diffstat (limited to 'src/boot/strap')
-rw-r--r--src/boot/strap/tokens.clisp1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp
index 6888f321..3b5694f7 100644
--- a/src/boot/strap/tokens.clisp
+++ b/src/boot/strap/tokens.clisp
@@ -244,6 +244,7 @@
(LIST '|toString| 'WRITE-TO-STRING) (LIST '|true| 'T)
(LIST '|upperCase?| 'UPPER-CASE-P)
(LIST '|vector?| 'SIMPLE-VECTOR-P)
+ (LIST '|vectorRef| 'SVREF)
(LIST '|writeByte| 'WRITE-BYTE)
(LIST '|writeLine| 'WRITE-LINE) (LIST 'PLUS '+)
(LIST 'MINUS '-) (LIST 'TIMES '*) (LIST 'POWER 'EXPT)