From: William H. N. <wn...@us...> - 2002-08-18 13:55:30
|
Update of /cvsroot/sbcl/sbcl/src/code In directory usw-pr-cvs1:/tmp/cvs-serv27274/src/code Modified Files: array.lisp Log Message: 0.7.6.26: comment tweaking fixed bug 192, "constant-folding DATA-VECTOR-REF", by adding an ordinary DEFUN definition of D-V-R Index: array.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/array.lisp,v retrieving revision 1.28 retrieving revision 1.29 diff -u -d -r1.28 -r1.29 --- array.lisp 2 Jul 2002 12:32:42 -0000 1.28 +++ array.lisp 18 Aug 2002 13:55:26 -0000 1.29 @@ -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)) |