0.7.4.8:

[sbcl.git] / src / compiler / array-tran.lisp

diff --git a/src/compiler/array-tran.lisp b/src/compiler/array-tran.lisp
index 772b90f..5a81b1a 100644 (file)
--- a/src/compiler/array-tran.lisp
+++ b/src/compiler/array-tran.lisp
@@ -561,7 +561,7 @@
                                ;; haven't tried to understand the
                                ;; performance issues involved. --
                                ;; WHN, and also CSR 2002-05-26
-                               (simple-array index (or index null))
+                               ((or vector simple-array) index (or index null))
                                *
                                :important t
                                :node node