X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Farray.lisp;h=f4791de328b9286691cd81e53bc5f820a9dc82c3;hb=a8161e77843ee18a99ec30dd57f796264dfac05a;hp=360514d03121d7a4e3cc46aafcf7e7e1e9696fe1;hpb=ad1aa2961d81ed8db9dac59068c6861199c29a3a;p=sbcl.git

diff --git a/src/code/array.lisp b/src/code/array.lisp
index 360514d..f4791de 100644
--- a/src/code/array.lisp
+++ b/src/code/array.lisp
@@ -333,6 +333,12 @@
 						index))))
 			 *specialized-array-element-types*))))
 
+;;; (Ordinary DATA-VECTOR-REF usage compiles into a vop, but
+;;; DATA-VECTOR-REF is also FOLDABLE, and this ordinary function
+;;; definition is needed for the compiler to use in constant folding.)
+(defun data-vector-ref (array index)
+  (hairy-data-vector-ref array index))
+
 (defun hairy-data-vector-set (array index new-value)
   (with-array-data ((vector array) (index index) (end))
     (declare (ignore end))