<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space; ">Hi everyone,<DIV><BR class="khtml-block-placeholder"></DIV><DIV>I seem to be having a problem seeding randomness in CM 2.6.0 with openmcl 0.14.3 on OS X. This used to work in CM 2.4, but there seems to be a problem now setting the seed:</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>? (defvar *cm-state*)</DIV><DIV>*CM-STATE*</DIV><DIV>? (defun makeseed () (setf c (make-random-state t)) (pprint c))</DIV><DIV>;Compiler warnings :</DIV><DIV>; Undeclared free variable C (2 references), in MAKESEED.</DIV><DIV>MAKESEED</DIV><DIV>? (makeseed) </DIV><DIV>#.(RANDOM-STATE 64655 21585)</DIV><DIV>? (setf myseed #.(RANDOM-STATE 64655 21585))</DIV><DIV>> Error in process listener(4): Undefined function RANDOM-STATE called with arguments (41962 21226) .</DIV><DIV>> While executing: "Unknown"</DIV><DIV>> Type :GO to continue, :POP to abort.</DIV><DIV>> If continued: Retry applying RANDOM-STATE to (41962 21226).</DIV><DIV>Type :? for other options.</DIV><DIV>1 > (setf *cm-state* (make-random-state myseed))</DIV><DIV>> Error in process listener(4): Unbound variable: MYSEED</DIV><DIV>> While executing: CCL::CHEAP-EVAL-IN-ENVIRONMENT</DIV><DIV>> Type :GO to continue, :POP to abort.</DIV><DIV>> If continued: Retry getting the value of MYSEED.</DIV><DIV>Type :? for other options.</DIV><DIV>2 > </DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Thanks for any thoughts.</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Josh</DIV><DIV><BR><DIV> <P style="margin: 0.0px 0.0px 0.0px 0.0px"><FONT face="Helvetica" size="3" style="font: 12.0px Helvetica">******************************************</FONT></P> <P style="margin: 0.0px 0.0px 0.0px 0.0px"><FONT face="Helvetica" size="3" style="font: 12.0px Helvetica">Joshua D. Parmenter</FONT></P> <P style="margin: 0.0px 0.0px 0.0px 0.0px"><FONT face="Helvetica" size="3" style="font: 12.0px Helvetica"><A href="http://homepage.mac.com/joshpar/">http://homepage.mac.com/joshpar/</A></FONT></P> <P style="margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; min-height: 14.0px"><BR></P> <P style="margin: 0.0px 0.0px 0.0px 0.0px"><FONT face="Helvetica" size="3" style="font: 12.0px Helvetica">"...Some people think a composer's supposed to please them, but in a way a composer is a chronicler... He's supposed to report on what he's seen and lived."</FONT></P> <P style="margin: 0.0px 0.0px 0.0px 0.0px"><FONT face="Helvetica" size="3" style="font: 12.0px Helvetica"><SPAN class="Apple-converted-space"> <SPAN class="Apple-converted-tab"> </SPAN></SPAN>-Charles Mingus</FONT></P> </DIV><BR></DIV></BODY></HTML>