diff --git a/ansi-tests/printer-aux.lsp b/ansi-tests/printer-aux.lsp index 62a334ebf308aded2f4ffecefef3fbedc1a42398..ccf0efe496e25a4216daf626be7c7add4225ed15 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)