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