From: Vitaly Mayatskikh 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)))