Commit 080258d9 authored by Raymond Toy's avatar Raymond Toy
Browse files

Print out the initial random-state so we know what it is.

parent 8ed43d3a
Pipeline #2321 failed with stage
in 2 minutes and 1 second
......@@ -99,6 +99,8 @@
#+cmucl
(setf *random-state* (kernel::make-random-object :state (kernel:init-random-state)))
(format t "random-state = ~S~%" *random-state*)
;;; Some simple tests from the Yozo Hida's qd package.
(rt:deftest float.1
......
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