X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Frandom.lisp;h=373a3b2e5b3c203f15b06f27629aa79c5756c6a6;hb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;hp=4126036e83399b60f7284a11d306b457540a3652;hpb=79cc569a97e444389350ea3f5b1017374fe16bec;p=sbcl.git diff --git a/src/code/random.lisp b/src/code/random.lisp index 4126036..373a3b2 100644 --- a/src/code/random.lisp +++ b/src/code/random.lisp @@ -25,5 +25,5 @@ (1- (ash 1 (- random-chunk-length random-integer-extra-bits)))) (sb!xc:defstruct (random-state (:constructor %make-random-state) - (:copier nil)) ; since shallow copy is wrong + (:copier nil)) ; since shallow copy is wrong (state (init-random-state) :type (simple-array (unsigned-byte 32) (627))))