            ofst# (.offset ~x)
            strd# (.stride ~x)]
        (with-check error
-         (~method mem# ofst mem# (+ ofst# strd#) mem#
+         (~method mem# ofst# mem# (+ ofst# strd#) mem#
           (+ ofst# (* 2 strd#)) mem# (+ ofst# (* 3 strd#))
           (extract ~queue) nil)
          ~x))

   `(if (and (< 0 (.dim ~x)) (< 0 (.dim ~y)))
      (with-check error
        (~method (.dim ~x)
         (extract (.buffer ~x)) (.offset ~x) (.stri)
         (extract (.buffer ~y)) (.offset ~y) (.stride ~y)
         ~c ~s
         (extract ~queue) nil)

           ofst# (.offset ~d1d2xy)
           strd# (.stride ~d1d2xy)]
       (with-check error
         (~method mem# ofst# mem# (+ ofst# strd#)
          mem# (+ ofst# (* 2 strd#)) mem# (+ ofst# (* 3 strd#))
          (extract (.buffer ~param)) (.offset ~param)
          (extract ~queue) nil)
