15a44ba697c4

Seed the damn RNG
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Sun, 08 Jan 2017 15:20:57 +0000
parents d61f3224d0dc
children 3c9c1aee6d3c
branches/tags (none)
files src/main.lisp

Changes

--- a/src/main.lisp	Sun Jan 08 14:14:28 2017 +0000
+++ b/src/main.lisp	Sun Jan 08 15:20:57 2017 +0000
@@ -584,6 +584,7 @@
 
 ;;;; Main ---------------------------------------------------------------------
 (defun main ()
+  (setf *random-state* (make-random-state t))
   (charms:with-curses ()
     (charms:disable-echoing)
     (charms:enable-raw-input :interpret-control-characters t)