diff options
Diffstat (limited to 'random.tl')
-rw-r--r-- | random.tl | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3,6 +3,6 @@ (reduce-left (op + (* @1 256) @2) (take noctets (gun (get-byte s)))))) (defun randomize () - (set *random-state* (make-random-state (get-urand-num 8)))) + (set *random-state* (make-random-state (get-urand-num 8) 128))) (defun save-random-state ()) |