(FILECREATED "21-Jul-86 03:44:03" ("compiled on " {ERIS}LIBRARY>CMLRAND.;22) "20-Jul-86 23:15:19" "COMPILE-FILEd" in "Xerox Lisp 20-Jul-86 ..." dated "20-Jul-86 23:29:30") (FILECREATED "16-Jul-86 11:46:24" {ERIS}CML>CMLRAND.;2 12312 changes to: (FNS RANDOM MAKE-RANDOM-STATE %%RAND1 %%RANDOM-SEED %%RANDOM-INIT %%RANDOM-COPY-STATE %%PRINT-RANDOM-STATE) previous date: "10-Jul-86 17:12:13" {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) (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 MAKE-RANDOM-STATE RANDOM))))) (RPAQ? %%*RANDOM-SEED* 0) (RPAQ? *RANDOM-STATE* NIL) RANDOM-STATE-SEED D1 (L (0 OBJECT)) @NIL (3 RANDOM-STATE) () setf-RANDOM-STATE-SEED D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 RANDOM-STATE) () (REMPROP (QUOTE RANDOM-STATE-SEED) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS RANDOM-STATE-SEED SETF-INVERSE setf-RANDOM-STATE-SEED) RANDOM-STATE-K D1 (L (0 OBJECT)) @NIL (3 RANDOM-STATE) () setf-RANDOM-STATE-K D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 RANDOM-STATE) () (REMPROP (QUOTE RANDOM-STATE-K) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS RANDOM-STATE-K SETF-INVERSE setf-RANDOM-STATE-K) 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-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-)) eHkJdIjHkNdMD_`dIdLdOagJkaJlZagKkaKl[agNkaNl^(60Q %%RANDOM-SEED) (162Q :SEED 137Q :K 114Q :J 66Q RANDOM-STATETYPE#) () (PUTPROP (QUOTE RANDOM-STATE) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-RANDOM-STATE)) (PUTPROP (QUOTE RANDOM-STATE) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((J 24 :TYPE INTEGER) (K 0 :TYPE INTEGER) (SEED (%%RANDOM-SEED) :TYPE (ARRAY INTEGER))))) (/DECLAREDATATYPE (QUOTE RANDOM-STATE) (QUOTE (POINTER POINTER POINTER)) (QUOTE ((RANDOM-STATE 0 POINTER) (RANDOM-STATE 2 POINTER) (RANDOM-STATE 4 POINTER))) (QUOTE 6)) RANDOM D1 (L (0 -args-) F 6 *RANDOM-STATE*) ekaAlHVlaId oI I[dkJ I lIll J ll K3 1J Im MjMLl J M LI oI (216Q CL:ERROR 205Q CL:MOD 176Q \FZEROP 167Q %%RAND3 163Q ASH 141Q ASH 133Q %%RAND3 120Q %%/ 115Q ASH 106Q RANDOM 102Q ASH 63Q REM 57Q %%RAND3 42Q CL:ERROR 30Q PLUSP) NIL ( 212Q "RANDOM: illegal arg ~A." 36Q "RANDOM: ~A not a positive number.") MAKE-RANDOM-STATE D1 (L (0 STATE) F 0 *RANDOM-STATE* F 1 %%*RANDOM-SEED*) (@P  @ @ico@ (45Q CL:ERROR 34Q %%MAKE-RANDOM-STATE 27Q GET-UNIVERSAL-TIME 17Q %%RANDOM-COPY-STATE 12Q RANDOM-STATE-P 6 %%RANDOM-COPY-STATE) NIL ( 41Q "MAKE-RANDOM-STATE: illegal arg ~A.") %%RAND1 D1 (F 0 %%*RANDOM-SEED*) Pn oo c(20Q CL:MOD) NIL ( 15Q 777777777Q 10Q 601245265Q) %%RAND3 D1 (L (0 STATE)) Q@ @ @ 3HJoH@Idj l6k H@Jdj l6k սjMjoMKL(74Q setf-RANDOM-STATE-K 62Q %%= 50Q setf-RANDOM-STATE-J 36Q %%= 13Q RANDOM-STATE-K 7 RANDOM-STATE-J 3 RANDOM-STATE-SEED) NIL ( 111Q 777777776Q 26Q 777777776Q) %%RANDOM-SEED D1 (P 1 I) .l7gl6j2IHK Lh[IkYL&J (53Q MAKE-ARRAY 22Q %%RAND1) (4 :INITIAL-CONTENTS) () %%RANDOM-INIT D1 (F 0 *RANDOM-STATE*) gl7go ch(21Q %%MAKE-RANDOM-STATE 16Q MAKE-ARRAY) (7 :INITIAL-CONTENTS 2 :SEED) ( 13Q (254070570Q 775101227Q 511231724Q 573203227Q 406514365Q 514652404Q 312044524Q 500576457Q 165545736Q 716027755Q 414573624Q 107561000Q 254167312Q 74452244Q 150410324Q 701006431Q 276323254Q 463426124Q 715365366Q 566451014Q 247316364Q 314724024Q 601071311Q 473010042Q 101727331Q 704104055Q 241227737Q 745235174Q 27771607Q 327643132Q 11340254Q 266665731Q 2107556Q 123704502Q 432356412Q 620602126Q 660345703Q 271756224Q 452176251Q 642111021Q 216300740Q 370257164Q 261150731Q 445300102Q 24372603Q 512110664Q 201317122Q 347631551Q 237626751Q 446317126Q 223724727Q 453405277Q 424612620Q 377210441Q 577636074Q)) %%RANDOM-COPY-STATE D1 (L (0 STATE)) BPgl7 g@ g@ Xl6jLKH L@ LJILk\H(62Q RANDOM-STATE-SEED 53Q RANDOM-STATE-SEED 34Q %%MAKE-RANDOM-STATE 30Q RANDOM-STATE-K 21Q RANDOM-STATE-J 12Q MAKE-ARRAY) (24Q :K 15Q :J 5 :SEED) () %%PRINT-RANDOM-STATE D1 (P 16Q I P 14Q SEED P 13Q DESCRIPTOR P 12Q FIELD P 7 *PRINT-LEVEL* P 0 TYPE I 1 STREAM I 0 STATE F 17Q *READTABLE* F 20Q *PRINT-LEVEL*)  @ aAWZ JKlIoA HA W dkH H " O_OoA i_oA OdA oA OdghO@  AW] MNlLoA OjA l5kOOoA OOA Ok_oA O@ A O_O_;(367Q PRIN2 363Q FETCHFIELD 353Q PRIN1 331Q PRIN2 317Q PRIN1 271Q PRIN2 260Q PRIN3 215Q FETCHFIELD 172Q PRIN1 161Q PRIN2 146Q PRIN1 130Q PRIN1 74Q SLOT-LIST 70Q GETDESCRIPTORS 53Q PRIN2 46Q PRIN3 3 TYPENAME) (236Q STREAM 226Q READTABLEP 204Q SEED 24Q STREAM 14Q READTABLEP) ( 347Q ")" 313Q " " 254Q "#(" 166Q " " 142Q " " 124Q ")" 42Q "S(") (%%RANDOM-INIT) (PUTPROPS CMLRAND FILETYPE COMPILE-FILE) (PUTPROPS CMLRAND COPYRIGHT ("Xerox Corporation" 1986)) STOP