(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
(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))