<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space; ">Thanks Rick.<DIV><BR class="khtml-block-placeholder"></DIV><DIV>I was starting to get to that understanding myself as I've been working on it this morning. A few minutes ago I realized that there were different openmcl versions used in the os x binary dists. I think CM 2.4 was using 0.14.1, and now it looks like 0.14.3 is being used... sorry for the trouble... Thanks for you help!</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Josh</DIV><DIV><BR class="khtml-block-placeholder"></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><DIV>On May 21, 2005, at 12:27 PM, Rick Taube wrote:</DIV><BR class="Apple-interchange-newline"><BLOCKQUOTE type="cite"><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">On May 21, 2005, at 11:23 AM, Joshua Parmenter wrote:</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><BR></DIV> <BR><BLOCKQUOTE type="cite"><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">Thanks Rick, that works. </DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">But how can I change the seeded value? Or save one (other then the one generated by nil) for later use (possibly in another session) if the printed one can't be manipulated? I know this will be different for different lisps, but I am more concerned with personal use, and I was able to do this not long ago (in CM 2.4). Now that code is broken, and I want to try and find a way to fix it.</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">Josh</DIV> <BR></BLOCKQUOTE><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><BR></DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">CL deliberately<SPAN class="Apple-converted-space"> </SPAN>does not provide a way to seed random states.<SPAN class="Apple-converted-space"> </SPAN>but most implemenations probably have some mechanism -- in openmcl its ccl::initialize-random-state. this is what ccl does in l1-numbers.lisp :</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><BR></DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">(defparameter *random-state* (initialize-random-state #xFBF1 9))</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><BR></DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">as far as saving random-states go, you should be able to print them to a file and read them back in. Most Lisps print random states using the #S read macro for just this reason -- i dont know why ccl uses #. since random-state cannot be a function.</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><BR></DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">I guess you could redefine the print-object method<SPAN class="Apple-converted-space"> </SPAN>for random states to print like this:</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><BR></DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><SPAN class="Apple-converted-space"><SPAN class="Apple-converted-tab"> </SPAN></SPAN>#.(ccl::initialize-random-state nnn nnn)</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><BR></DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">anyway cm has nothing to do with this stuff, its up to the underlying lisp to provide something (or not). if it worked in cm 2.4 then it was probably only because ccl was letting you do something that it no longer allows.</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><BR></DIV> <BR class="Apple-interchange-newline"></BLOCKQUOTE></DIV><BR></DIV></BODY></HTML>