X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Farith.pure.lisp;h=2b1266d70e4a64731c381f25321c0bbd0d3f853a;hb=9d36021d86b7db7561b2edc40324c8e5229f88b3;hp=88bb51516c0389206c632881ee8c7450d24640a9;hpb=753dce93f5d66a14851a8f4b27d90c7934d77778;p=sbcl.git

diff --git a/tests/arith.pure.lisp b/tests/arith.pure.lisp
index 88bb515..2b1266d 100644
--- a/tests/arith.pure.lisp
+++ b/tests/arith.pure.lisp
@@ -151,11 +151,11 @@
 	     ((1+ most-positive-fixnum) (1+ most-positive-fixnum) nil)
 	     ((1+ most-positive-fixnum) (1- most-negative-fixnum) t)
 	     (1 (ash most-negative-fixnum 1) nil)
-	     (29 most-negative-fixnum t)
-	     (30 (ash most-negative-fixnum 1) t)
-	     (31 (ash most-negative-fixnum 1) t)
-	     (64 (ash most-negative-fixnum 36) nil)
-	     (65 (ash most-negative-fixnum 36) t)))
+	     (#.(- sb-vm:n-word-bits sb-vm:n-lowtag-bits) most-negative-fixnum t)
+	     (#.(1+ (- sb-vm:n-word-bits sb-vm:n-lowtag-bits)) (ash most-negative-fixnum 1) t)
+	     (#.(+ 2 (- sb-vm:n-word-bits sb-vm:n-lowtag-bits)) (ash most-negative-fixnum 1) t)
+	     (#.(+ sb-vm:n-word-bits 32) (ash most-negative-fixnum #.(+ 32 sb-vm:n-lowtag-bits 1)) nil)
+	     (#.(+ sb-vm:n-word-bits 33) (ash most-negative-fixnum #.(+ 32 sb-vm:n-lowtag-bits 1)) t)))
   (destructuring-bind (index int result) x
     (assert (eq (eval `(logbitp ,index ,int)) result))))