(in-package "SB!KERNEL")
-;;; our implementation of the RANDOM-STATE type specified by ANSI CL
+;;; the size of the chunks returned by RANDOM-CHUNK
+(def!constant n-random-chunk-bits 32)
+
(sb!xc:defstruct (random-state (:constructor %make-random-state)
- ;; Shallow copy would be wrong: we must
- ;; effectively COPY-SEQ the STATE slot.
- (:copier nil))
+ (:copier nil)) ; since shallow copy is wrong
(state (init-random-state) :type (simple-array (unsigned-byte 32) (627))))