anchor.diff:  (eval-when (:compile-toplevel :load-toplevel :execute)
     (sys.c::define-transform sse-vector-double-float-1-ref ((vector (simple-array double-float (*))) index)
         ((:optimize (= safety 0) (= speed 3)))
  -    `(the sse-vector (sys.c::call %%object-ref-sse-vector/64-unscaled ,vector (sys.c::call sys.c::%fast-fixnum-* ,index '8))))
  +    `(the sse-vector (progn
  +                       (sys.c::call sys.int::%bounds-check ,vector ,index)
  +                       (sys.c::call %%object-ref-sse-vector/64-unscaled ,vector (sys.c::call sys.c::%fast-fixnum-* ,index '8)))))
     (sys.c::define-transform (setf sse-vector-double-float-1-ref) ((sse-vector sse-vector) (vector (simple-array double-float (*))) index)
         ((:optimize (= safety 0) (= speed 3)))
  -    `(the sse-vector (sys.c::call (setf %%object-ref-sse-vector/64-unscaled) ,sse-vector ,vector (sys.c::call sys.c::%fast-fixnum-* ,index '8)))))
  +    `(the sse-vector (progn
  +                       (sys.c::call sys.int::%bounds-check ,vector ,index)
  +                       (sys.c::call (setf %%object-ref-sse-vector/64-unscaled) ,sse-vector ,vector (sys.c::call sys.c::%fast-fixnum-* ,index '8))))))
   
   (defun sse-vector-double-float-2-ref (vector index)
     "Read 2 double-floats from the simple 1D double-float array VECTOR into lanes 0 and 1 of an sse-vector, with the remaining lanes set to zero."
  
positive.code: (eval-when (:compile-toplevel :load-toplevel :execute)
    (sys.c::define-transform sse-vector-single-float-2-ref ((vector (simple-array single-float (*))) index)
        ((:optimize (= safety 0) (= speed 3)))
      `(the sse-vector (sys.c::call %%object-ref-sse-vector/64-unscaled ,vector (sys.c::call sys.c::%fast-fixnum-* ,index '4))))
    (sys.c::define-transform (setf sse-vector-single-float-2-ref) ((sse-vector sse-vector) (vector (simple-array single-float (*))) index)
        ((:optimize (= safety 0) (= speed 3)))
      `(the sse-vector (sys.c::call (setf %%object-ref-sse-vector/64-unscaled) ,sse-vector ,vector (sys.c::call sys.c::%fast-fixnum-* ,index '4)))))
  
  (defun sse-vector-single-float-4-ref (vector index)
    "Read 4 single-floats from the simple 1D single-float array VECTOR into an sse-vector."
  
negative.code: (eval-when (:compile-toplevel :load-toplevel :execute)
    (sys.c::define-transform sse-vector-double-float-2-ref ((vector (simple-array double-float (*))) index)
        ((:optimize (= safety 0) (= speed 3)))
      `(the sse-vector (progn
                         (sys.c::call sys.int::%bounds-check ,vector (sys.c::call sys.c::%fast-fixnum-+ ,index '1))
                         (sys.c::call %%object-ref-sse-vector/128-unscaled ,vector (sys.c::call sys.c::%fast-fixnum-* ,index '8)))))
    (sys.c::define-transform (setf sse-vector-double-float-2-ref) ((sse-vector sse-vector) (vector (simple-array double-float (*))) index)
        ((:optimize (= safety 0) (= speed 3)))
      `(the sse-vector (progn
                         (sys.c::call sys.int::%bounds-check ,vector (sys.c::call sys.c::%fast-fixnum-+ ,index '1))
                         (sys.c::call (setf %%object-ref-sse-vector/128-unscaled) ,sse-vector ,vector (sys.c::call sys.c::%fast-fixnum-* ,index '8))))))
  
  (declaim (inline %object-ref-sse-vector/32 %object-ref-sse-vector/64 %object-ref-sse-vector/128
                   (setf %object-ref-sse-vector/32) (setf %object-ref-sse-vector/64) (setf %object-ref-sse-vector/128)))
  