(FILECREATED " 2-Sep-86 17:34:16" ("compiled on " {ERIS}CML>CMLRAND.;2) "21-Aug-86 17:08:09" "COMPILE-FILEd" in "Xerox Lisp 21-Aug-86 ..." dated "21-Aug-86 17:56:01") (FILECREATED " 2-Sep-86 17:33:58" {ERIS}CML>CMLRAND.;2 10326 changes to: (FNS RANDOM %%RANDOM-COPY-STATE %%PRINT-RANDOM-STATE MAKE-RANDOM-STATE %%RANDOM-STATE %%RAND3 %%RANDOM-INIT %%RAND1) (VARS CMLRANDCOMS) (STRUCTURES RANDOM-STATE) previous date: " 2-Sep-86 15:45:27" {ERIS}CML>CMLRAND.;1) (RPAQQ CMLRANDCOMS ((* * CMLRAND -- Covers section 12.9, random numbers. -- By Kelly Roach. *) ( DECLARE: EVAL@COMPILE DONTCOPY (CONSTANTS (RANDOM-CONST-A 8373) (RANDOM-CONST-C 101010101) ( RANDOM-UPPER-BOUND 134217726) (RANDOM-MAX 54) (RANDOM-FIXNUM-LENGTH 16) (RANDOM-FLOAT-MANTISSA-LENGTH 23))) (INITVARS (%%*RANDOM-SEED* 0) (*RANDOM-STATE* NIL)) (STRUCTURES RANDOM-STATE) (FNS RANDOM MAKE-RANDOM-STATE %%RANDOM-STATE) (FNS %%RAND1 %%RAND3 %%RANDOM-SEED %%RANDOM-INIT %%RANDOM-COPY-STATE %%PRINT-RANDOM-STATE) (DECLARE: DONTEVAL@LOAD DOCOPY (P (%%RANDOM-INIT))) (PROP FILETYPE CMLRAND) ( DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA %%RANDOM-COPY-STATE %%RAND3 %%RAND1 %%RANDOM-STATE MAKE-RANDOM-STATE RANDOM))))) (RPAQ? %%*RANDOM-SEED* 0) (RPAQ? *RANDOM-STATE* NIL) RANDOM-STATE-J D1 (L (0 OBJECT)) @ÉNIL (3 RANDOM-STATE) () setf-RANDOM-STATE-J D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 RANDOM-STATE) () (REMPROP (QUOTE RANDOM-STATE-J) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS RANDOM-STATE-J SETF-INVERSE setf-RANDOM-STATE-J) RANDOM-STATE-I D1 (L (0 OBJECT)) @ÉNIL (3 RANDOM-STATE) () setf-RANDOM-STATE-I D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 RANDOM-STATE) () (REMPROP (QUOTE RANDOM-STATE-I) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS RANDOM-STATE-I SETF-INVERSE setf-RANDOM-STATE-I) RANDOM-STATE-P D1 (L (0 OBJECT)) @`ðNIL (4 RANDOM-STATETYPE#) () COPY-RANDOM-STATE D1 (L (0 OBJECT)) `@ (6 NCREATE2) (2 RANDOM-STATETYPE#) () (DEFPRINT (QUOTE RANDOM-STATE) (FUNCTION (LAMBDA (X STREAM) (APPLY* (FUNCTION %%PRINT-RANDOM-STATE) X STREAM 0) T))) %%MAKE-RANDOM-STATE D1 (L (0 -args-)) XeHkJdIó²$¿h1Hk»ºKdJó²'¿h¼`dI¿dL¿agð•JkØa°ÖJlÔZ°Èagð•KkØa°ÓKlÔ[°ÅNIL (107Q :J 64Q :I 44Q RANDOM-STATETYPE#) () (PUTPROP (QUOTE RANDOM-STATE) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-RANDOM-STATE)) (PUTPROP (QUOTE RANDOM-STATE) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE (I J))) (/DECLAREDATATYPE (QUOTE RANDOM-STATE) (QUOTE (POINTER POINTER)) (QUOTE ((RANDOM-STATE 0 POINTER) ( RANDOM-STATE 2 POINTER))) (QUOTE 4)) RANDOM D1 (L (0 -args-) F 6 *RANDOM-STATE*) ‚ekaAlHñ‘V‚laºId ª¿oI ¿I[dkð—¿J IÜlð›IJ oëêK3 ²1J Imð ½¼Mjð³MµLl J ÔM°ã ²ïLI oI (177Q CL:ERROR 166Q CL:MOD 157Q \FZEROP 150Q %%RAND3 144Q ASH 122Q ASH 114Q %%RAND3 74Q %%RAND3 57Q %%RAND3 42Q CL:ERROR 30Q PLUSP) NIL ( 173Q "RANDOM: illegal arg ~A." 100Q 65536.0 36Q "RANDOM: ~A not a positive number.") MAKE-RANDOM-STATE D1 (L (0 STATE) F 0 *RANDOM-STATE* F 1 %%*RANDOM-SEED*) (@µP  ”@ @ið˜co@ (45Q CL:ERROR 34Q %%MAKE-RANDOM-STATE 27Q CLOCK 17Q %%RANDOM-COPY-STATE 12Q RANDOM-STATE-P 6 %%RANDOM-COPY-STATE) NIL ( 41Q "MAKE-RANDOM-STATE: illegal arg ~A.") %%RANDOM-STATE D1 (L (0 -args-)) FeHk2JdIó²#¿K!I Zd [dJ gJgK a½Lµ Mh\»JkÔZ°ÌM&¼°÷(56Q %%MAKE-RANDOM-STATE 43Q \NCONC2 35Q LAST 30Q COPY) (52Q :J 46Q :I) () %%RAND1 D1 (F 0 %%*RANDOM-SEED*) Pn µÖoÔo cdnÿÿå(20Q CL:MOD) NIL ( 15Q 777777777Q 10Q 601245265Q) %%RAND3 D1 (L (0 STATE)) &@ @ @H @I HdIÙnÿÿåH(26Q setf-RANDOM-STATE-J 20Q setf-RANDOM-STATE-I 7 RANDOM-STATE-J 3 RANDOM-STATE-I) NIL () %%RANDOM-SEED D1 (P 1 I) .l7gl6j2IHó³¼Kµ Lh[ºIkÔY°ìL&»°÷J (53Q MAKE-ARRAY 22Q %%RAND1) (4 :INITIAL-CONTENTS) () %%RANDOM-INIT D1 (P 1 J P 0 I F 2 *RANDOM-STATE*) % o Xd YdH gHgI ch(37Q %%MAKE-RANDOM-STATE 24Q \NCONC2 16Q LAST 11Q COPY) (33Q :J 27Q :I) ( 6 (73325Q 5276Q 120327Q 135602Q 130643Q 75016Q 16201Q 103531Q 20460Q 54104Q 110446Q 33564Q 176147Q 102457Q 12703Q 15300Q 54433Q 176526Q 61215Q 62027Q 7566Q 62362Q 150243Q 170444Q 146364Q 171732Q 43404Q 21412Q 156531Q 33554Q 25231Q 164747Q 110011Q 115242Q 144036Q 36734Q 45741Q 100165Q 121222Q 51376Q 117224Q 3115Q 25166Q 24027Q 177242Q 47570Q 141745Q 1711Q 150573Q 122532Q 117113Q 64324Q 101373Q 120055Q 111157Q)) %%RANDOM-COPY-STATE D1 (L (0 STATE)) Q  l6@ jCKµMXd YdH gHgI _¿LJó³àO_¿NµOh^½K»LkÔ¼°ÅO&¾°ó(50Q %%MAKE-RANDOM-STATE 35Q \NCONC2 27Q LAST 10Q RANDOM-STATE-I) (44Q :J 40Q :I) () %%PRINT-RANDOM-STATE D1 (P 3 ELEMENT P 2 N I 1 STREAM I 0 STATE F 4 *READTABLE*) UATÊ oA gAT l6@ jIµ oA i»JHó³ðoA ¿KAT ¿I¹JkÔº°Ó(111Q PRIN2 102Q PRIN1 61Q PRIN1 40Q RANDOM-STATE-I 32Q PRIN2 22Q PRIN3 12Q \OUTCHAR) (25Q %%RANDOM-STATE 4 READTABLEP) ( 76Q " " 55Q ")" 16Q ".'(") (%%RANDOM-INIT) (PUTPROPS CMLRAND FILETYPE COMPILE-FILE) (PUTPROPS CMLRAND COPYRIGHT ("Xerox Corporation" 1986)) STOP