From a31c0a21788a17c1bce15120225bc5a15fa1da33 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 27 Jan 2011 21:12:57 +0000
Subject: Generate SVREF for simple vector slot refs.

---
 src/boot/strap/tokens.clisp | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/boot/strap')

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)
-- 
cgit v1.2.3