Commit 76ae20a0 authored by pfdietz's avatar pfdietz
Browse files

Fixed minor bug in two tests that would cause an error if the test was going to fail anyway.

parent 7c2b1588
......@@ -96,9 +96,10 @@
nconc
(loop for r = (random-from-interval 1000000)
repeat 100
unless (let* ((y x) (z (decf y r)))
(and (eql (- x r) y) (eql y z)))
collect (list x y r)))
when (let* ((y x) (z (decf y r)))
(and (not (and (eql (- x r) y) (eql y z)))
(list x y r)))
collect it))
nil)
(deftest decf.14
......
......@@ -96,9 +96,10 @@
nconc
(loop for r = (random-from-interval 1000000)
repeat 100
unless (let* ((y x) (z (incf y r)))
(and (eql (+ x r) y) (eql y z)))
collect (list x y r)))
when (let* ((y x) (z (incf y r)))
(and (not (and (eql (+ x r) y) (eql y z)))
(list x y r)))
collect it))
nil)
(deftest incf.14
......
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