Commit 6f789fe3 authored by pfdietz's avatar pfdietz
Browse files

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)))
(deftest ash.4
(loop for i from -1 to -1000
always (eql (ash i i) -1))
(deftest ash.5
(loop for i from 1 to 100
for j = (- (ash 1 i))
always (eql (ash j j) -1))
(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