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