Commit 64d12ee1 authored by pfdietz's avatar pfdietz
Browse files

Added a test for a bug that had been found in SBCL by randomized testing.

parent fef8e967
......@@ -73,7 +73,14 @@
for args = (nconc (make-list (1- i) :initial-element -1)
(list 183))
always (eql (apply #'logand args) 183))
(deftest logand.9
(loop for i from -1 to 0 always
(loop for j from -1 to 0 always
(locally (declare (type (integer -1 0) i j))
(eql (logand i j) (if (or (zerop i) (zerop j)) 0 -1)))))
(deftest logand.order.1
(let ((i 0) a b)
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