Permalink
Browse files

Removed tab indentation in bops.lisp.

  • Loading branch information...
1 parent bf721f9 commit 4ad959b7ee84ae80c4bb1bf2f5d512c1e38113a7 @flambard committed Nov 10, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/bops.lisp
View
@@ -34,8 +34,8 @@
(setf (ldb (byte 8 8) int) (aref bytes (+ 2 pos)))
(setf (ldb (byte 8 0) int) (aref bytes (+ 3 pos)))
(if (= 1 (ldb (byte 1 7) (aref bytes (+ 0 pos)))) ;; The sign bit
- (- (1+ (logxor int #x7FFFFFFF))) ;; Two's complement
- int)))
+ (- (1+ (logxor int #x7FFFFFFF))) ;; Two's complement
+ int)))
(defun read-signed-int32 (stream)
(bytes-to-signed-int32 (read-bytes 4 stream)))

0 comments on commit 4ad959b

Please sign in to comment.