projects
/
clnl
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Now using the rng for export
[clnl]
/
src
/
main
/
random.lisp
diff --git
a/src/main/random.lisp
b/src/main/random.lisp
index 44a1a2af0531f6d48e40109cbfa04f9283369bc1..508cb6b798681abaced12cfa0a3e2b813928c394 100644
(file)
--- 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*))))
'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)
(first state) (second state) (third state)
- (nthcdr
4
state))))
+ (nthcdr
3
state))))