X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Fmain%2Frandom.lisp;h=508cb6b798681abaced12cfa0a3e2b813928c394;hp=44a1a2af0531f6d48e40109cbfa04f9283369bc1;hb=d0e9e5a;hpb=122faaf5cee27ca1ed5f047bf6244f30aa2f669d

diff --git a/src/main/random.lisp b/src/main/random.lisp
index 44a1a2a..508cb6b 100644
--- a/src/main/random.lisp
+++ b/src/main/random.lisp
@@ -27,6 +27,6 @@
      'list
      (lambda (x) (if (logbitp (1- 32) x) (dpb x (byte 32 0) -1) x))
      (mt19937::random-state-state mt19937:*random-state*))))
-  (format nil "0 ~A ~A ~A 0.0 false 1 ~{~A~^ ~}"
+  (format nil "0 ~A ~A ~A 0.0 false ~{~A~^ ~}"
    (first state) (second state) (third state)
-   (nthcdr 4 state))))
+   (nthcdr 3 state))))