integrated Raymond Wiker's patches to port RUN-PROGRAM from CMU CL and

[sbcl.git] / src / code / target-random.lisp

diff --git a/src/code/target-random.lisp b/src/code/target-random.lisp
index 31dbe9d..42e1a58 100644 (file)
--- a/src/code/target-random.lisp
+++ b/src/code/target-random.lisp
@@ -54,7 +54,9 @@
 
 (defvar *random-state*)
 (defun !random-cold-init ()
-  (setf *random-state* (%make-random-state)))
+  (/show0 "entering !RANDOM-COLD-INIT")
+  (setf *random-state* (%make-random-state))
+  (/show0 "returning from !RANDOM-COLD-INIT"))
 
 (defun make-random-state (&optional state)
   #!+sb-doc