From 527c8d336da2df9cba760c27b94e2801a6737a0b Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 23 Aug 2005 14:00:57 +0000
Subject: [PATCH] Add :size parameter to functions produced by
 def-random-write-test-fun

---
 ansi-tests/printer-aux.lsp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ansi-tests/printer-aux.lsp b/ansi-tests/printer-aux.lsp
index 62a334eb..ccf0efe4 100644
--- a/ansi-tests/printer-aux.lsp
+++ b/ansi-tests/printer-aux.lsp
@@ -313,13 +313,13 @@
 					  &key
 					  (prefix "")
 					  (suffix ""))
-  `(defun ,name (n)
+  `(defun ,name (n &key (size 10))
      (loop
       for args = (make-random-write-args)
       for package = (find-package (random-from-seq #("CL-TEST" "CL-USER" "KEYWORD")))
       for obj = (let ((*random-readable* t))
 		  (declare (special *random-readable*))
-		  (random-thing (random 10)))
+		  (random-thing (random size)))
       for s1 = (let ((*package* package))
 		 (with-output-to-string (s) (apply #'write obj :stream s ,@write-args args)))
       for s2 = (let ((*package* package))
@@ -331,7 +331,7 @@
       ;; if they contain object addresses.
       unless (string= (filter-unreadable-forms (concatenate 'string ,prefix s1 ,suffix))
 		      (filter-unreadable-forms s2))
-      collect (list obj s1 s2))))
+      collect (list obj s1 s2 args))))
 
 (def-random-write-test-fun random-write-test nil #'write)
 (def-random-write-test-fun random-prin1-test (:escape t) #'prin1)
-- 
GitLab