Commit 6f789fe3 authored by pfdietz's avatar pfdietz

More ash tests, of shifting large negative numbers many places to the right.

parent c6c5d019
......@@ -54,6 +54,17 @@
always (eql (floor (* i (expt 2 s))) ishifted)))
t)
(deftest ash.4
(loop for i from -1 to -1000
always (eql (ash i i) -1))
t)
(deftest ash.5
(loop for i from 1 to 100
for j = (- (ash 1 i))
always (eql (ash j j) -1))
t)
(deftest ash.order.1
(let ((i 0) x y)
(values (ash (progn (setf x (incf i)) 1)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment