anchor.diff:  (eval-when (:compile-toplevel :load-toplevel :execute)
     (sys.c::define-transform sse-vector-short-float-2-ref ((vector (simple-array short-float (*))) index)
         ((:optimize (= safety 0) (= speed 3)))
  -    `(the sse-vector (sys.c::call %%object-ref-sse-vector/32-unscaled ,vector (sys.c::call sys.c::%fast-fixnum-* ,index '2))))
  +    `(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/32-unscaled ,vector (sys.c::call sys.c::%fast-fixnum-* ,index '2)))))
     (sys.c::define-transform (setf sse-vector-short-float-2-ref) ((sse-vector sse-vector) (vector (simple-array short-float (*))) index)
         ((:optimize (= safety 0) (= speed 3)))
  -    `(the sse-vector (sys.c::call (setf %%object-ref-sse-vector/32-unscaled) ,sse-vector ,vector (sys.c::call sys.c::%fast-fixnum-* ,index '2)))))
  +    `(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/32-unscaled) ,sse-vector ,vector (sys.c::call sys.c::%fast-fixnum-* ,index '2))))))
   
   (defun sse-vector-short-float-4-ref (vector index)
     "Read 4 short-floats from the simple 1D short-float array VECTOR into an sse-vector."
  
positive.code: (eval-when (:compile-toplevel :load-toplevel :execute)
    (sys.c::define-transform sse-vector-short-float-4-ref ((vector (simple-array short-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 '2))))
    (sys.c::define-transform (setf sse-vector-short-float-4-ref) ((sse-vector sse-vector) (vector (simple-array short-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 '2)))))
  
  (defun sse-vector-short-float-8-ref (vector index)
    "Read 4 short-floats from the simple 1D short-float array VECTOR into an sse-vector."
  
negative.code: (eval-when (:compile-toplevel :load-toplevel :execute)
    (sys.c::define-transform sse-vector-short-float-8-ref ((vector (simple-array short-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 '7))
                         (sys.c::call %%object-ref-sse-vector/128-unscaled ,vector (sys.c::call sys.c::%fast-fixnum-* ,index '2)))))
    (sys.c::define-transform (setf sse-vector-short-float-8-ref) ((sse-vector sse-vector) (vector (simple-array short-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 '7))
                         (sys.c::call (setf %%object-ref-sse-vector/128-unscaled) ,sse-vector ,vector (sys.c::call sys.c::%fast-fixnum-* ,index '2))))))
  
  (declaim (inline make-sse-vector-double-float))
  (defun make-sse-vector-double-float (&optional (a 0.0d0) (b 0.0d0))
  