diff --git a/ansi-tests/print-random-state.lsp b/ansi-tests/print-random-state.lsp index 79fc8cbac2c3e3544582612b41c3fab4e31d27c2..30a745999e13c9d589250d6bc993467f642dea2e 100644 --- a/ansi-tests/print-random-state.lsp +++ b/ansi-tests/print-random-state.lsp @@ -8,11 +8,13 @@ (compile-and-load "printer-aux.lsp") (deftest print.random-state.1 - (let* ((rs1 *random-state*) - (rs2 (with-standard-io-syntax - (read-from-string - (write-to-string rs1 :readably t))))) - (values - (notnot (random-state-p rs2)) - (is-similar rs1 rs2))) - t t) + (loop repeat 100 + nconc + (let* ((rs1 (make-random-state *random-state*)) + (rs2 (with-standard-io-syntax + (read-from-string + (write-to-string rs1 :readably t)))) + (result (list (notnot (random-state-p rs2)) + (is-similar rs1 rs2)))) + (unless (equal result '(t t)) (list result rs1 rs2)))) + nil)