X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-random.lisp;h=e82f7a0137ba18afcce0103fa205f2f92ecb453f;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=31dbe9da3dd2715b89b93c81f2f7566ed20559b2;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/code/target-random.lisp b/src/code/target-random.lisp
index 31dbe9d..e82f7a0 100644
--- a/src/code/target-random.lisp
+++ b/src/code/target-random.lisp
@@ -15,9 +15,6 @@
 ;;;; files for more information.
 
 (in-package "SB!KERNEL")
-
-(file-comment
-  "$Header$")
 
 ;;;; RANDOM-STATEs
 
@@ -54,13 +51,15 @@
 
 (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
-  "Make a random state object. If State is not supplied, return a copy
-  of the default random state. If State is a random state, then return a
-  copy of it. If state is T then return a random state generated from
+  "Make a random state object. If STATE is not supplied, return a copy
+  of the default random state. If STATE is a random state, then return a
+  copy of it. If STATE is T then return a random state generated from
   the universal time."
   (flet ((copy-random-state (state)
 	   (let ((state (random-state-state state))