X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-rotate-byte%2Frotate-byte-tests.lisp;fp=contrib%2Fsb-rotate-byte%2Frotate-byte-tests.lisp;h=518f8cbba2cb24ad9a4c10531fc4c55030f458ae;hb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;hp=bf463ad399177d8b1d4915681f6f1ce06cf50214;hpb=79cc569a97e444389350ea3f5b1017374fe16bec;p=sbcl.git

diff --git a/contrib/sb-rotate-byte/rotate-byte-tests.lisp b/contrib/sb-rotate-byte/rotate-byte-tests.lisp
index bf463ad..518f8cb 100644
--- 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)
-	   (type (integer -31 31) count))
+           (type (integer -31 31) count))
   (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)
-	   (type (integer -31 31) count))
+           (type (integer -31 31) count))
   (rotate-byte count (byte 32 0) integer))
 
 (assert (= (ub32 5 5) 160))