              :refer [->RealBlockVector ->RealGeneralMatrix]]
             [uncomplicate.neanderthal.impl.cblas :refer
              [cblas-single cblas-double]])
-  (:import [uncomplicate.clojurecl.core CLBuffer]
+  (:import [clojure.lang IFn IFn$L]
+           [uncomplicate.clojurecl.core CLBuffer]
            [uncomplicate.neanderthal.protocols
             BLAS Vector RealVector Matrix RealMatrix RealChangeable
             Block DataAccessor]

    ord)
  (count [_]
    (* m n))
  RealChangeable
  (set [a val]
    (if (and (= ld (if (column-major? a) m n))

  (stride [_]
    strd)
  (count [_]
    n)
  IFn
  (invoke [x]
    n)
  IFn$L
  (invokePrim [x]
    n)
  RealChangeable
  (set [x val]
