From 3133c1f7a154d38dd2ab15e06818c2f416cf848c Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Mon, 17 Jan 2005 01:55:58 +0000
Subject: [PATCH] Reduce rep count to 1000 in three random tests

---
 ansi-tests/read-suppress.lsp | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/ansi-tests/read-suppress.lsp b/ansi-tests/read-suppress.lsp
index 9644149d..edb4e703 100644
--- a/ansi-tests/read-suppress.lsp
+++ b/ansi-tests/read-suppress.lsp
@@ -33,7 +33,7 @@
 
 (defmacro def-random-suppress-test (name &key
 					 (chars '*non-macro-chars*)
-					 (reps 10000)
+					 (reps 1000)
 					 (maxlen 8)
 					 (count 10)
 					 (prefix "")
@@ -56,13 +56,12 @@
 	     for vals = (multiple-value-list
 			 (handler-case (read-from-string s)
 				       (reader-error (rc) rc)))
-	     repeat 10000
+	     repeat reps
 	     unless (equal vals (list nil (length s)))
 	     collect (progn (when (> (incf count) maxcount)
 			      (loop-finish))
 			    (list n s vals))))
-     nil))
-					 
+     nil))					 
 
 (def-random-suppress-test read-suppress.13)
 (def-random-suppress-test read-suppress.14 :prefix "(" :suffix ")")
-- 
GitLab