Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
527c8d33
Commit
527c8d33
authored
Aug 23, 2005
by
pfdietz
Browse files
Add :size parameter to functions produced by def-random-write-test-fun
parent
12b114ae
Changes
1
Show whitespace changes
Inline
Side-by-side
ansi-tests/printer-aux.lsp
View file @
527c8d33
...
...
@@ -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)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment