X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Farray.lisp;h=286d197b9a097999a0e57b00c98d24e7ed4dbe3e;hb=f2847d6ed16e60390d000410d36ec7fb2570cdaf;hp=d61aa462585489b35ce7c53b61ab591b3167ca3a;hpb=865b14b240c20c335c750d2d3a62a7cfc0767bc0;p=sbcl.git

diff --git a/src/code/array.lisp b/src/code/array.lisp
index d61aa46..286d197 100644
--- a/src/code/array.lisp
+++ b/src/code/array.lisp
@@ -56,6 +56,7 @@
         (values vector index))
       (values array index)))
 
+(declaim (inline simple-vector-compare-and-swap))
 (defun simple-vector-compare-and-swap (vector index old new)
   #!+(or x86 x86-64)
   (%simple-vector-compare-and-swap vector
@@ -481,6 +482,9 @@ of specialized arrays is supported."
 (defun data-vector-ref (array index)
   (hairy-data-vector-ref array index))
 
+(defun data-vector-ref-with-offset (array index offset)
+  (hairy-data-vector-ref array (+ index offset)))
+
 ;;; SUBSCRIPTS has a dynamic-extent list structure and is destroyed
 (defun %array-row-major-index (array subscripts
                                      &optional (invalid-index-error-p t))