Changeset 13311


Ignore:
Timestamp:
Dec 21, 2009, 11:48:30 PM (10 years ago)
Author:
rme
Message:

Call new function INITIAL-RANDOM-STATE to set a thread's initial
random state.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/new-random/level-1/l1-aprims.lisp

    r13067 r13311  
    5656(def-standard-initial-binding *package*)
    5757(def-standard-initial-binding *gensym-counter* 0)
    58 (def-standard-initial-binding *random-state* (initialize-random-state #xFBF1 9))
     58(def-standard-initial-binding *random-state* (initial-random-state))
    5959(def-standard-initial-binding *whostate* "Reset")
    6060(setq *whostate* "Reset")
Note: See TracChangeset for help on using the changeset viewer.