X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-random.lisp;h=e7a65a7a5657be69209c02f5f26e438868cb74d5;hb=b3f188843330c56bd4d17a3c930e73f573b1c71f;hp=46b33d71dfea07fcbfd90302b18d5bc487531422;hpb=0b5610d8a220a4b20cbeac958953ca4d67c00038;p=sbcl.git

diff --git a/src/code/target-random.lisp b/src/code/target-random.lisp
index 46b33d7..e7a65a7 100644
--- a/src/code/target-random.lisp
+++ b/src/code/target-random.lisp
@@ -61,21 +61,30 @@
   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."
+  (/show0 "entering !RANDOM-COLD-INIT")
   (flet ((copy-random-state (state)
+	   (/show0 "entering COPY-RANDOM-STATE")
 	   (let ((state (random-state-state state))
 		 (new-state
 		  (make-array 627 :element-type '(unsigned-byte 32))))
+	     (/show0 "made NEW-STATE, about to DOTIMES")
 	     (dotimes (i 627)
 	       (setf (aref new-state i) (aref state i)))
+	     (/show0 "falling through to %MAKE-RANDOM-STATE")
 	     (%make-random-state :state new-state))))
-    (cond ((not state) (copy-random-state *random-state*))
-	  ((random-state-p state) (copy-random-state state))
-	  ((eq state t)
-	   (%make-random-state :state (init-random-state
-				       (logand (get-universal-time)
-					       #xffffffff))))
-	  ;; FIXME: should be TYPE-ERROR?
-	  (t (error "Argument is not a RANDOM-STATE, T or NIL: ~S" state)))))
+    (/show0 "at head of ETYPECASE in MAKE-RANDOM-STATE")
+    (etypecase state
+      (null
+       (/show0 "NULL case")
+       (copy-random-state *random-state*))
+      (random-state
+       (/show0 "RANDOM-STATE-P clause")
+       (copy-random-state state))
+      ((member t)
+       (/show0 "T clause")
+       (%make-random-state :state (init-random-state
+				   (logand (get-universal-time)
+					   #xffffffff)))))))
 
 ;;;; random entries
 
@@ -182,7 +191,7 @@
      (- (sb!impl::make-double-float
 	 (dpb (ash (random-chunk state)
 		   (- sb!vm:double-float-digits random-chunk-length
-		      sb!vm:word-bits))
+		      sb!vm:n-word-bits))
 	      sb!vm:double-float-significand-byte
 	      (sb!impl::double-float-high-bits 1d0))
 	 (random-chunk state))
@@ -198,7 +207,7 @@
        (- (sb!impl::make-double-float
 	   (dpb (ash (sb!vm::random-mt19937 state-vector)
 		     (- sb!vm:double-float-digits random-chunk-length
-			sb!vm:word-bits))
+			sb!vm:n-word-bits))
 		sb!vm:double-float-significand-byte
 		(sb!impl::double-float-high-bits 1d0))
 	   (sb!vm::random-mt19937 state-vector))
@@ -250,16 +259,16 @@
 
 (defun random (arg &optional (state *random-state*))
   (declare (inline %random-single-float %random-double-float
-		   #!+long-float %long-float))
+		   #!+long-float %random-long-float))
   (cond
     ((and (fixnump arg) (<= arg random-fixnum-max) (> arg 0))
      (rem (random-chunk state) arg))
-    ((and (typep arg 'single-float) (> arg 0.0S0))
+    ((and (typep arg 'single-float) (> arg 0.0f0))
      (%random-single-float arg state))
-    ((and (typep arg 'double-float) (> arg 0.0D0))
+    ((and (typep arg 'double-float) (> arg 0.0d0))
      (%random-double-float arg state))
     #!+long-float
-    ((and (typep arg 'long-float) (> arg 0.0L0))
+    ((and (typep arg 'long-float) (> arg 0.0l0))
      (%random-long-float arg state))
     ((and (integerp arg) (> arg 0))
      (%random-integer arg state))