From 76ae20a0dfa5d8d1415e8abb49ca56c5f3ae5dcb Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 4 Oct 2003 14:15:39 +0000
Subject: [PATCH] Fixed minor bug in two tests that would cause an error if the
 test was going to fail anyway.

---
 ansi-tests/decf.lsp | 7 ++++---
 ansi-tests/incf.lsp | 7 ++++---
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/ansi-tests/decf.lsp b/ansi-tests/decf.lsp
index 4c188899..03093b35 100644
--- a/ansi-tests/decf.lsp
+++ b/ansi-tests/decf.lsp
@@ -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
diff --git a/ansi-tests/incf.lsp b/ansi-tests/incf.lsp
index 4f826bff..c5efd343 100644
--- a/ansi-tests/incf.lsp
+++ b/ansi-tests/incf.lsp
@@ -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
-- 
GitLab