From: Vitaly Mayatskikh <v.mayatskih@gmail.com>
Date: Sat, 7 Nov 2009 13:42:56 +0000 (+0100)
Subject: Simplify hack in ioctl.
X-Git-Url: https://repo.or.cz/w/cl-v4l2.git/commitdiff_plain/3cd070ce44219d4af698f776a97aae69b5db7a60

Simplify hack in ioctl.
---

diff --git a/v4l2.lisp b/v4l2.lisp
index 2b69afa..e1522ad 100644
--- 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)))