projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.2.43:
[sbcl.git]
/
contrib
/
sb-rotate-byte
/
rotate-byte-tests.lisp
diff --git
a/contrib/sb-rotate-byte/rotate-byte-tests.lisp
b/contrib/sb-rotate-byte/rotate-byte-tests.lisp
index
bf463ad
..
518f8cb
100644
(file)
--- a/
contrib/sb-rotate-byte/rotate-byte-tests.lisp
+++ b/
contrib/sb-rotate-byte/rotate-byte-tests.lisp
@@
-25,7
+25,7
@@
(defun pfixnum (count integer)
(declare (type (unsigned-byte 29) integer)
(defun pfixnum (count integer)
(declare (type (unsigned-byte 29) integer)
- (type (integer -31 31) count))
+ (type (integer -31 31) count))
(rotate-byte count (byte 32 0) integer))
(assert (= (pfixnum 5 5) 160))
(rotate-byte count (byte 32 0) integer))
(assert (= (pfixnum 5 5) 160))
@@
-44,7
+44,7
@@
(defun ub32 (count integer)
(declare (type (unsigned-byte 32) integer)
(defun ub32 (count integer)
(declare (type (unsigned-byte 32) integer)
- (type (integer -31 31) count))
+ (type (integer -31 31) count))
(rotate-byte count (byte 32 0) integer))
(assert (= (ub32 5 5) 160))
(rotate-byte count (byte 32 0) integer))
(assert (= (ub32 5 5) 160))