Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Some typos and range specifications fixed.

  • Loading branch information...
commit a79faabfa84a852913ad6b91b6db6b201977af3c 1 parent ade1961
@soemraws authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 libusb-ffi.lisp
View
4 libusb-ffi.lisp
@@ -385,7 +385,7 @@
bytes-to-read timeout)))
(if (< bytes-read 0)
(error 'libusb-error :text "Bulk read failed.")
- (slice buffer `(:range 0 ,(- bytes-read 1))))))
+ (grid:slice buffer `((:range 0 ,(- bytes-read 1)))))))
;;; Interrupt transfers
(defun usb-interrupt-write (handle endpoint buffer timeout)
@@ -419,7 +419,7 @@
bytes-to-read timeout)))
(if (< bytes-read 0)
(error 'libusb-error :text "Interrupt read failed.")
- (slice buffer `(:range 0 ,(- bytes-read 1))))))
+ (grid:slice buffer `((:range 0 ,(- bytes-read 1)))))))
(defun endpoint-in-p (endpoint)
"Check if an endpoint is an in endpoint (and thus can be read from)."
Please sign in to comment.
Something went wrong with that request. Please try again.