From 3cd070ce44219d4af698f776a97aae69b5db7a60 Mon Sep 17 00:00:00 2001
From: Vitaly Mayatskikh <v.mayatskih@gmail.com>
Date: Sat, 7 Nov 2009 14:42:56 +0100
Subject: [PATCH] Simplify hack in ioctl.

---
 v4l2.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)))
 
-- 
2.11.4.GIT