Commit 8411958f authored by pfdietz's avatar pfdietz

Change (random 1) to (random 10), and fix apply/funcall confusion in output-test

parent 23378d16
......@@ -264,7 +264,7 @@
((:readably *print-readably*) *print-readably*)
((:right-margin *print-right-margin*) *print-right-margin*)
((:stream *standard-output*) *standard-output*))
(let ((results (multiple-value-list (apply fun obj))))
(let ((results (multiple-value-list (funcall fun obj))))
(assert (= (length results) 1))
(assert (eql (car results) obj))
obj))
......@@ -299,7 +299,7 @@
(loop
for args = (make-random-write-args)
for package = (find-package (random-from-seq #("CL-TEST" "CL-USER" "KEYWORD")))
for obj = (random-thing (random 1))
for obj = (random-thing (random 10))
for s1 = (let ((*package* package))
(with-output-to-string (s) (apply #'write obj :stream s ,@write-args args)))
for s2 = (let ((*package* package))
......@@ -326,7 +326,7 @@
(loop
for args = (make-random-write-args)
for package = (find-package (random-from-seq #("CL-TEST" "CL-USER" "KEYWORD")))
for obj = (random-thing (random 1))
for obj = (random-thing (random 10))
for s1 = (let ((*package* package))
(with-output-to-string (s) (apply #'write obj :stream s ,@write-args args)))
for s2 = (let ((*package* package))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment