Simplify hack in ioctl.
authorVitaly Mayatskikh <v.mayatskih@gmail.com>
Sat, 7 Nov 2009 13:42:56 +0000 (7 14:42 +0100)
committerVitaly Mayatskikh <v.mayatskih@gmail.com>
Sat, 7 Nov 2009 13:42:56 +0000 (7 14:42 +0100)
v4l2.lisp

index 2b69afa..e1522ad 100644 (file)
--- a/v4l2.lisp
+++ b/v4l2.lisp
@@ -22,7 +22,7 @@
 ;; hack uint32->int32
 (defun ioctl (fd req arg)
   (let ((req! (if (> req (ash 1 31))
-                 (- (- (ash 1 32) req))
+                 (- req (ash 1 32))
                  req)))
     (%sys-ioctl fd req! arg)))