       (set-args! my-kernel cl-buffer-0)
       (set-args! my-kernel cl-buffer-0 cl-buffer-1 (int-array 8) 42)
       (set-args! my-kernel 2 cl-buffer-2 cl-buffer-3 (int-array 8) 42)
-"
+  "
   ([kernel x & values]
    (if (integer? x)
      (loop [i x values values]
-       (if-let [mem (first values)]
-         (do (set-arg! kernel i mem)
+       (if-let [val (first values)]
+         (do (set-arg! kernel i val)
              (recur (inc i) (next values)))
          kernel))
      (apply set-args! kernel 0 (cons x values)))))

  ([queue cl host blocking offset ^objects wait-events event]
   (with-check
     (CL/clEnqueueReadBuffer queue (cl-mem cl) blocking offset
                             (size cl) (ptr host)
                             (if wait-events (alength wait-events) 0)
                             wait-events event)
     queue))

  ([^long size]
   (svm-buffer* *context* size 0 0)))

(extend-type Long
  Argument
  (set-arg [this kernel n]
    (with-check (CL/clSetKernelArg kernel n this nil)
      kernel)))

(extend-type Integer
  Argument
  (set-arg [this kernel n]
    (with-check (CL/clSetKernelArg kernel n this nil)
      kernel)))

(extend-type (Class/forName "[F")
