[CM] CM random seed
Joshua Parmenter
joshp@u.washington.edu
Fri, 20 May 2005 17:06:58 -0700
--Apple-Mail-7-887865085
Content-Transfer-Encoding: 7bit
Content-Type: text/plain;
charset=US-ASCII;
delsp=yes;
format=flowed
Hi everyone,
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:
? (defvar *cm-state*)
*CM-STATE*
? (defun makeseed () (setf c (make-random-state t)) (pprint c))
;Compiler warnings :
; Undeclared free variable C (2 references), in MAKESEED.
MAKESEED
? (makeseed)
#.(RANDOM-STATE 64655 21585)
? (setf myseed #.(RANDOM-STATE 64655 21585))
> Error in process listener(4): Undefined function RANDOM-STATE
called with arguments (41962 21226) .
> While executing: "Unknown"
> Type :GO to continue, :POP to abort.
> If continued: Retry applying RANDOM-STATE to (41962 21226).
Type :? for other options.
1 > (setf *cm-state* (make-random-state myseed))
> Error in process listener(4): Unbound variable: MYSEED
> While executing: CCL::CHEAP-EVAL-IN-ENVIRONMENT
> Type :GO to continue, :POP to abort.
> If continued: Retry getting the value of MYSEED.
Type :? for other options.
2 >
Thanks for any thoughts.
Josh
******************************************
Joshua D. Parmenter
http://homepage.mac.com/joshpar/
"...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."
-Charles Mingus
--Apple-Mail-7-887865085
Content-Transfer-Encoding: quoted-printable
Content-Type: text/html;
charset=ISO-8859-1
<HTML><BODY style=3D"word-wrap: break-word; -khtml-nbsp-mode: space; =
-khtml-line-break: after-white-space; ">Hi everyone,<DIV><BR =
class=3D"khtml-block-placeholder"></DIV><DIV>I=A0seem 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=3D"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>;=A0=A0 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 =
>=A0</DIV><DIV><BR class=3D"khtml-block-placeholder"></DIV><DIV>Thanks =
for any thoughts.</DIV><DIV><BR =
class=3D"khtml-block-placeholder"></DIV><DIV>Josh</DIV><DIV><BR><DIV> <P =
style=3D"margin: 0.0px 0.0px 0.0px 0.0px"><FONT face=3D"Helvetica" =
size=3D"3" style=3D"font: 12.0px =
Helvetica">******************************************</FONT></P> <P =
style=3D"margin: 0.0px 0.0px 0.0px 0.0px"><FONT face=3D"Helvetica" =
size=3D"3" style=3D"font: 12.0px Helvetica">Joshua D. =
Parmenter</FONT></P> <P style=3D"margin: 0.0px 0.0px 0.0px 0.0px"><FONT =
face=3D"Helvetica" size=3D"3" style=3D"font: 12.0px Helvetica"><A =
href=3D"http://homepage.mac.com/joshpar/">http://homepage.mac.com/joshpar/=
</A></FONT></P> <P style=3D"margin: 0.0px 0.0px 0.0px 0.0px; font: =
12.0px Helvetica; min-height: 14.0px"><BR></P> <P style=3D"margin: 0.0px =
0.0px 0.0px 0.0px"><FONT face=3D"Helvetica" size=3D"3" style=3D"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=3D"margin: 0.0px 0.0px =
0.0px 0.0px"><FONT face=3D"Helvetica" size=3D"3" style=3D"font: 12.0px =
Helvetica"><SPAN class=3D"Apple-converted-space">=A0 =A0 =A0 =A0 =A0 =A0 =
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =
=A0 =A0 =A0 =A0 <SPAN class=3D"Apple-converted-tab">=A0 =A0 =A0 =A0 =A0 =
=A0 =A0 =A0 =A0 =A0 </SPAN></SPAN>-Charles Mingus</FONT></P> =
</DIV><BR></DIV></BODY></HTML>=
--Apple-Mail-7-887865085--