(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP") (IL:FILECREATED "25-Jan-98 10:31:47" ("compiled on " IL:|{DSK}sources>CMLRAND.;1|) "30-Mar-95 20:33:04" "COMPILE-FILEd" IL:|in| "Medley 14-Aug-95 ..." IL:|dated| "14-Aug-95 15:27:48") (IL:FILECREATED "16-May-90 14:21:56" IL:|{DSK}local>lde>lispcore>sources>CMLRAND.;2| 5977 IL:|changes| IL:|to:| (IL:VARS IL:CMLRANDCOMS) IL:|previous| IL:|date:| "21-Jan-88 11:43:47" IL:|{DSK}local>lde>lispcore>sources>CMLRAND.;1|) (IL:RPAQQ IL:CMLRANDCOMS ((IL:STRUCTURES RANDOM-STATE) (IL:VARIABLES %RANDOM-SIZE) (IL:FUNCTIONS %MAKE-RANDOM-ARRAY %PRINT-RANDOM-STATE %RANDOM MAKE-RANDOM-STATE RANDOM) (IL:VARIABLES *RANDOM-STATE*) (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) IL:CMLRAND) (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:LOCALVARS . T)))) (SET-PARSED-STRUCTURE (QUOTE RANDOM-STATE) T (QUOTE (PS RANDOM-STATE %MAKE-RANDOM-STATE (I J ARRAY) DATATYPE NIL NIL "RANDOM-STATE-" (%MAKE-RANDOM-STATE) RANDOM-STATE-P %PRINT-RANDOM-STATE NIL NIL 0 NIL ((I 0 T NIL (RANDOM-STATE 0 IL:POINTER) RANDOM-STATE-I) (J 30 T NIL (RANDOM-STATE 2 IL:POINTER) RANDOM-STATE-J) (ARRAY (%MAKE-RANDOM-ARRAY) T NIL (RANDOM-STATE 4 IL:POINTER) RANDOM-STATE-ARRAY)) NIL NIL (IL:POINTER IL:POINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE RANDOM-STATE) (QUOTE (IL:POINTER IL:POINTER IL:POINTER)) ( QUOTE ((RANDOM-STATE 0 IL:POINTER) (RANDOM-STATE 2 IL:POINTER) (RANDOM-STATE 4 IL:POINTER))) 6 (QUOTE STRUCTURE-OBJECT)) (IL:PUTPROP (QUOTE RANDOM-STATE) (QUOTE :TYPE-EXPANDER) (QUOTE TYPE-EXPAND-STRUCTURE)) RANDOM-STATE-P :D8 (IL:L (0 OBJECT)) @ÃNIL (5 RANDOM-STATE) () (ESTABLISH-PREDICATE (QUOTE RANDOM-STATE)) RANDOM-STATE-I :D8 (IL:L (0 RANDOM-STATE)) @ÉNIL (5 RANDOM-STATE) () RANDOM-STATE-J :D8 (IL:L (0 RANDOM-STATE)) @ÉNIL (5 RANDOM-STATE) () RANDOM-STATE-ARRAY :D8 (IL:L (0 RANDOM-STATE)) @ÉNIL (5 RANDOM-STATE) () (ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE RANDOM-STATE)) %MAKE-RANDOM-STATE :D8 (IL:L (0 IL:|-args-|)) eHkJIó²AjqHk»ºKdJó²G¿l¼Hk¾½NdMó²N¿_¿`_IOLOOOJdagð¥lÔZ°¯kØa°¯agð•KkØa°²KlÔ[°£agð•NkØa°®NlÔ^°œ(48 %MAKE-RANDOM-ARRAY) (124 :ARRAY 103 :J 84 :I 56 |RANDOM-STATETYPE#|) () (XCL::SET-CONSTANTP (QUOTE %RANDOM-SIZE) NIL) (IL:SETQ %RANDOM-SIZE 55) (PROCLAIM (QUOTE (SI::CONSTANT %RANDOM-SIZE))) %MAKE-RANDOM-ARRAY :D8 (IL:L (1 SEED2 0 SEED1)) Xl7go@µAµSH^µ M_¿Inÿÿå¹OInMÖIÔnÿÿåJ¹Zæ»M”LK&¼„Kh\½N°Ë(41 MAKE-ARRAY 27 IL:IDATE 19 IL:CLOCK) (6 :INITIAL-CONTENTS) ( 11 (53375 47430 1274 55702 61592 27723 11236 16824 35838 62289 11525 37822 34676 105 58750 27759 9988 4217 56951 30292 24550 1397 54588 54264 43300 3862 39006 11386 52259 1055 955 16320 19910 58470 3263 64657 1704 17373 56820 17255 51637 47962 26272 4464 2884 51773 39422 64835 57733 34919 5315 12110 15116 10133 10816)) %PRINT-RANDOM-STATE :D8 (IL:L (2 PRINT-LEVEL 1 STREAM 0 STATE) IL:P 1 *PRINT-ARRAY* IL:P 0 XCL:*PRINT-STRUCTURE*) id@AB(12 DEFAULT-STRUCTURE-PRINTER) NIL () %RANDOM :D8 (IL:L (0 STATE)) [@É@É@É3JH¶JI¶Õnÿÿå[J½H¼KML·¿HkÔXdl7ð‘j¸IkÔYdl7ð‘j¹@H@IKNIL (84 RANDOM-STATE 75 RANDOM-STATE 21 RANDOM-STATE 13 RANDOM-STATE 5 RANDOM-STATE) () MAKE-RANDOM-STATE :D8 (IL:L (0 IL:|-args-|) IL:F 2 *RANDOM-STATE*) bekHñ‘RkaIdið–¿Ã²5gIÉgIÉgIÉ oI (95 ERROR 83 %MAKE-RANDOM-STATE 77 XCL:COPY-ARRAY 25 %MAKE-RANDOM-STATE) (70 RANDOM-STATE 64 :ARRAY 57 RANDOM-STATE 51 :J 44 RANDOM-STATE 38 :I 31 RANDOM-STATE) ( 89 "Not a random-state: ~S") RANDOM :D8 (IL:L (0 IL:|-args-|) IL:F 7 *RANDOM-STATE*) ©ekaQlHñ’W‚laºIjó«oI ¿J »I\dšnÿÿð‘KKIÜÃ²IííKnÿÿkÔëÖííL3 ²#KImðç¾½Njð—MI MlçJ ÔN°ãggogIgIgo (166 ERROR 119 %RANDOM 108 REM 42 %RANDOM 35 ERROR) (155 :MESSAGE 149 :VALUE 143 :NAME 133 :EXPECTED-TYPE 128 XCL:TYPE-MISMATCH 65 IL:FLOATP) ( 160 "an integer or a float" 138 (OR INTEGER FLOAT) 29 "Not a positive number: ~s") (PROCLAIM (QUOTE (SPECIAL *RANDOM-STATE*))) (IL:SETQ *RANDOM-STATE* (%MAKE-RANDOM-STATE)) (IL:PUTPROPS IL:CMLRAND IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:CMLRAND IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "LISP")) (IL:PUTPROPS IL:CMLRAND IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990)) NIL