$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLRAND.DCOM!2
0000000 ( F I L E C R E A T E D " 2
0000020 - S e p - 8 6 1 7 : 3 4 : 1 6
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < R O A C H > C
0000100 M L > C M L R A N D . ; 2 ) "
0000120 2 1 - A u g - 8 6 1 7 : 0 8 :
0000140 0 9 " \r " C O M P I L E - F I
0000160 L E d " i n " X e r o x L
0000200 i s p 2 1 - A u g - 8 6 . .
0000220 . " d a t e d " 2 1 - A u g
0000240 - 8 6 1 7 : 5 6 : 0 1 " ) \r (
0000260 F I L E C R E A T E D " 2 -
0000300 S e p - 8 6 1 7 : 3 3 : 5 8 "
0000320 { E R I S } < R O A C H > C M
0000340 L > C M L R A N D . ; 2 1 0 3
0000360 2 6 c h a n g e s t o : (
0000400 F N S R A N D O M \r % % R A
0000420 N D O M - C O P Y - S T A T E
0000440 % % P R I N T - R A N D O M - S
0000460 T A T E M A K E - R A N D O M
0000500 - S T A T E % % R A N D O M -
0000520 S T A T E % % R A N D 3 % %
0000540 R A N D O M - I N I T \r % % R
0000560 A N D 1 ) ( V A R S C M L R
0000600 A N D C O M S ) ( S T R U C T
0000620 U R E S R A N D O M - S T A T
0000640 E ) p r e v i o u s d a t e
0000660 : " 2 - S e p - 8 6 1 5 :
0000700 4 5 : 2 7 " \r { E R I S } < R
0000720 O A C H > C M L > C M L R A N D
0000740 . ; 1 ) \r ( R P A Q Q C M L R
0000760 A N D C O M S ( ( * * C M
0001000 L R A N D - - C o v e r s
0001020 s e c t i o n 1 2 . 9 , r a
0001040 n d o m n u m b e r s . - -
0001060 B y K e l l y R o a c h .
0001100 * ) ( \r D E C L A R E : E
0001120 V A L @ C O M P I L E D O N T
0001140 C O P Y ( C O N S T A N T S
0001160 ( R A N D O M - C O N S T - A
0001200 8 3 7 3 ) ( R A N D O M - C O
0001220 N S T - C 1 0 1 0 1 0 1 0 1 )
0001240 ( \r R A N D O M - U P P E R -
0001260 B O U N D 1 3 4 2 1 7 7 2 6 )
0001300 ( R A N D O M - M A X 5 4 )
0001320 ( R A N D O M - F I X N U M -
0001340 L E N G T H 1 6 ) ( R A N D
0001360 O M - F L O A T - M A N T I S S
0001400 A - L E N G T H \r 2 3 ) ) )
0001420 ( I N I T V A R S ( % % * R A
0001440 N D O M - S E E D * 0 ) ( *
0001460 R A N D O M - S T A T E * N I
0001500 L ) ) ( S T R U C T U R E S
0001520 R A N D O M - S T A T E ) ( F
0001540 N S R A N D O M \r M A K E -
0001560 R A N D O M - S T A T E % % R
0001600 A N D O M - S T A T E ) ( F N
0001620 S % % R A N D 1 % % R A N D
0001640 3 % % R A N D O M - S E E D
0001660 % % R A N D O M - I N I T % %
0001700 R A N D O M - C O P Y - S T A T
0001720 E \r % % P R I N T - R A N D O
0001740 M - S T A T E ) ( D E C L A R
0001760 E : D O N T E V A L @ L O A D
0002000 D O C O P Y ( P ( % % R A
0002020 N D O M - I N I T ) ) ) ( P R
0002040 O P F I L E T Y P E C M L R
0002060 A N D ) ( \r D E C L A R E :
0002100 D O N T E V A L @ L O A D D O
0002120 E V A L @ C O M P I L E D O N
0002140 T C O P Y C O M P I L E R V A
0002160 R S ( A D D V A R S ( N L A
0002200 M A ) ( N L A M L ) ( L A M
0002220 A \r % % R A N D O M - C O P Y
0002240 - S T A T E % % R A N D 3 %
0002260 % R A N D 1 % % R A N D O M -
0002300 S T A T E M A K E - R A N D O
0002320 M - S T A T E R A N D O M ) )
0002340 ) ) ) \r ( R P A Q ? % % * R A
0002360 N D O M - S E E D * 0 ) \r ( R
0002400 P A Q ? * R A N D O M - S T A
0002420 T E * N I L ) \r R A N D O M -
0002440 S T A T E - J D 1 \r ( L ( 0
0002460 O B J E C T ) ) \0 \b \0 \0 \0 001
0002500 @ 006 \0 \0 311 002 020 \0 N I L \r ( 3 R
0002520 A N D O M - S T A T E ) \r ( ) \r
0002540 s e t f - R A N D O M - S T A T
0002560 E - J D 1 \r ( L ( 1 V A L
0002600 U E 0 O B J E C T ) ) \0 \n
0002620 \0 \0 \0 002 @ 006 \0 \0 A 024 002 A 020 \0 N I
0002640 L \r ( 3 R A N D O M - S T A T
0002660 E ) \r ( ) \r ( R E M P R O P (
0002700 Q U O T E R A N D O M - S T A
0002720 T E - J ) ( Q U O T E S E T
0002740 F - M E T H O D - E X P A N D E
0002760 R ) ) \r ( P U T P R O P S R A
0003000 N D O M - S T A T E - J S E T
0003020 F - I N V E R S E s e t f - R
0003040 A N D O M - S T A T E - J ) \r R
0003060 A N D O M - S T A T E - I D 1
0003100 \r ( L ( 0 O B J E C T ) )
0003120 \0 \b \0 \0 \0 001 @ 006 \0 \0 311 \0 020 \0 N I
0003140 L \r ( 3 R A N D O M - S T A T
0003160 E ) \r ( ) \r s e t f - R A N D O
0003200 M - S T A T E - I D 1 \r ( L
0003220 ( 1 V A L U E 0 O B J E C
0003240 T ) ) \0 \n \0 \0 \0 002 @ 006 \0 \0 A 024
0003260 \0 A 020 \0 N I L \r ( 3 R A N D O
0003300 M - S T A T E ) \r ( ) \r ( R E M
0003320 P R O P ( Q U O T E R A N D
0003340 O M - S T A T E - I ) ( Q U O
0003360 T E S E T F - M E T H O D - E
0003400 X P A N D E R ) ) \r ( P U T P R
0003420 O P S R A N D O M - S T A T E
0003440 - I S E T F - I N V E R S E
0003460 s e t f - R A N D O M - S T A T
0003500 E - I ) \r R A N D O M - S T A T
0003520 E - P D 1 \r ( L ( 0 O B J
0003540 E C T ) ) \0 \b \0 \0 \0 001 @ 004 ` \0
0003560 \0 360 020 \0 N I L \r ( 4 004 003 R A N
0003600 D O M - S T A T E T Y P E # ) \r
0003620 ( ) \r C O P Y - R A N D O M - S
0003640 T A T E D 1 \r ( L ( 0 O B
0003660 J E C T ) ) \0 \t \0 \0 \0 001 ` \0 \0
0003700 @ \n \0 \0 020 \0 ( 6 N C R E A T E
0003720 2 ) \r ( 2 004 003 R A N D O M - S
0003740 T A T E T Y P E # ) \r ( ) \r ( D
0003760 E F P R I N T ( Q U O T E R
0004000 A N D O M - S T A T E ) ( F U
0004020 N C T I O N ( L A M B D A (
0004040 X S T R E A M ) ( A P P L Y
0004060 * ( F U N C T I O N % % P R
0004100 I N T - R A N D O M - S T A T E
0004120 ) X \r S T R E A M 0 ) T
0004140 ) ) ) \r % % M A K E - R A N D O
0004160 M - S T A T E D 1 \r ( L ( 0
0004200 - a r g s - ) ) \0 X 005 \0 002 \0
0004220 e 021 001 \0 H k 021 002 002 J d I 363 262 $ 277
0004240 h 022 021 1 004 H k 273 272 K d J 363 262 ' 277
0004260 h 274 ` \0 \0 037 d I 024 \0 277 d L 024 002 277
0004300 020 a g \0 \0 360 225 J k 330 a 260 326 J l 002
0004320 324 Z 260 310 a g \0 \0 360 225 K k 330 a 260 323
0004340 K l 002 324 [ 260 305 \0 N I L \r ( 1 0 7
0004360 Q : J 6 4 Q : I 4 4 Q
0004400 004 003 R A N D O M - S T A T E T Y
0004420 P E # ) \r ( ) \r ( P U T P R O P
0004440 ( Q U O T E R A N D O M - S
0004460 T A T E ) ( Q U O T E S T R
0004500 U C T U R E - C O N S T R U C T
0004520 O R ) ( Q U O T E % % M A K
0004540 E - R A N D O M - S T A T E ) )
0004560 \r ( P U T P R O P ( Q U O T E
0004600 R A N D O M - S T A T E ) (
0004620 Q U O T E % % S L O T - D E S
0004640 C R I P T I O N S ) ( Q U O T
0004660 E ( I J ) ) ) \r ( / D E C L
0004700 A R E D A T A T Y P E ( Q U O
0004720 T E R A N D O M - S T A T E )
0004740 ( Q U O T E ( P O I N T E R
0004760 P O I N T E R ) ) ( Q U O T
0005000 E ( ( R A N D O M - S T A T E
0005020 0 P O I N T E R ) ( \r R A
0005040 N D O M - S T A T E 2 P O I
0005060 N T E R ) ) ) ( Q U O T E 4
0005100 ) ) \r R A N D O M D 1 \r ( L
0005120 ( 0 - a r g s - ) F 6 *
0005140 R A N D O M - S T A T E * ) \0
0005160 202 006 001 002 \0 e 021 001 \0 k a 021 A 005 l 002
0005200 H 361 221 V 202 l 002 a 272 I d \t \0 \0 252 277
0005220 o \0 \0 \0 I \n \0 \0 277 I [ d 004 k 360 227
0005240 277 J \t \0 \0 I 334 020 004 l 003 360 233 I J \t
0005260 \0 \0 o \0 \0 \0 353 352 020 K 3 262 1 J \t
0005300 \0 \0 I m 360 \n \0 \0 275 274 M j 360 263 032 M
0005320 005 003 265 020 L l 020 \n \0 \0 J \t \0 \0 324 M
0005340 260 343 \t \0 \0 262 357 L I \n \0 \0 020 o \0 \0
0005360 \0 I \n \0 \0 020 \0 ( 1 7 7 Q C L :
0005400 E R R O R 1 6 6 Q C L : M O
0005420 D 1 5 7 Q \ F Z E R O P 1
0005440 5 0 Q % % R A N D 3 1 4 4 Q
0005460 A S H 1 2 2 Q A S H 1 1
0005500 4 Q % % R A N D 3 7 4 Q %
0005520 % R A N D 3 5 7 Q % % R A N
0005540 D 3 4 2 Q C L : E R R O R
0005560 3 0 Q P L U S P ) \r N I L \r (
0005600 1 7 3 Q " R A N D O M : i
0005620 l l e g a l a r g ~ A . "
0005640 1 0 0 Q 6 5 5 3 6 . 0 3 6 Q
0005660 " R A N D O M : ~ A n o t
0005700 a p o s i t i v e n u m b
0005720 e r . " ) \r M A K E - R A N D O
0005740 M - S T A T E D 1 \r ( L ( 0
0005760 S T A T E ) F 0 * R A N
0006000 D O M - S T A T E * F 1 %
0006020 % * R A N D O M - S E E D * )
0006040 \0 ( \0 002 \0 001 @ 265 \a P \t \0 \0 020 \t \0
0006060 \0 224 @ \t \0 \0 020 @ i 360 230 \b \0 \0 c 002
0006100 \b \0 \0 020 o \0 \0 \0 @ \n \0 \0 020 \0 ( 4
0006120 5 Q C L : E R R O R 3 4 Q
0006140 % % M A K E - R A N D O M - S T
0006160 A T E 2 7 Q C L O C K 1 7
0006200 Q % % R A N D O M - C O P Y -
0006220 S T A T E 1 2 Q R A N D O M
0006240 - S T A T E - P 6 % % R A N
0006260 D O M - C O P Y - S T A T E ) \r
0006300 N I L \r ( 4 1 Q " M A K E -
0006320 R A N D O M - S T A T E : i l
0006340 l e g a l a r g ~ A . " ) \r
0006360 % % R A N D O M - S T A T E D
0006400 1 \r ( L ( 0 - a r g s - ) )
0006420 \0 F 006 \0 002 \0 e 021 001 \0 H k 021 2 005
0006440 J d I 363 262 # 277 K 022 021 ! 003 I \t \0 \0
0006460 Z d \t \0 \0 [ d J \n \0 \0 g \0 \0 J g
0006500 \0 \0 K \f \0 \0 020 a 275 L 265 \r M h 032 \
0006520 273 J k 324 Z 260 314 M & 274 260 367 \0 ( 5 6
0006540 Q % % M A K E - R A N D O M -
0006560 S T A T E 4 3 Q \ N C O N C
0006600 2 3 5 Q L A S T 3 0 Q C
0006620 O P Y ) \r ( 5 2 Q : J 4 6 Q
0006640 : I ) \r ( ) \r % % R A N D 1
0006660 D 1 \r ( F 0 % % * R A N D O
0006700 M - S E E D * ) \0 032 \0 001 \0 \0 P
0006720 n 265 326 o \0 \0 \0 324 o \0 \0 \0 \n \0 \0
0006740 c \0 d n 377 377 345 020 \0 ( 2 0 Q C L
0006760 : M O D ) \r N I L \r ( 1 5 Q
0007000 7 7 7 7 7 7 7 7 7 Q 1 0 Q 6
0007020 0 1 2 4 5 2 6 5 Q ) \r % % R A N
0007040 D 3 D 1 \r ( L ( 0 S T A T
0007060 E ) ) \0 & 002 \0 \0 001 @ \t \0 \0 @ \t
0007100 \0 \0 021 002 001 @ H 002 \n \0 \0 @ I 002 \n \0
0007120 \0 H d 001 I 001 331 n 377 377 345 030 H 001 020 \0
0007140 ( 2 6 Q s e t f - R A N D O M
0007160 - S T A T E - J 2 0 Q s e t
0007200 f - R A N D O M - S T A T E - I
0007220 7 R A N D O M - S T A T E -
0007240 J 3 R A N D O M - S T A T E
0007260 - I ) \r N I L \r ( ) \r % % R A N
0007300 D O M - S E E D D 1 \r ( P 1
0007320 I ) \0 . 005 \0 \0 \0 l 7 g \0 \0 l
0007340 6 j 021 2 004 I H 363 263 031 \b \0 \0 274 K 265
0007360 \r L h 032 [ 272 I k 324 Y 260 354 L & 273 260
0007400 367 J 022 \v \0 \0 020 \0 ( 5 3 Q M A K
0007420 E - A R R A Y 2 2 Q % % R A
0007440 N D 1 ) \r ( 4 : I N I T I A L
0007460 - C O N T E N T S ) \r ( ) \r % %
0007500 R A N D O M - I N I T D 1 \r (
0007520 P 1 J P 0 I F 2
0007540 * R A N D O M - S T A T E * )
0007560 \0 % 002 001 \0 \0 021 001 o \0 \0 \0 \t \0 \0
0007600 X d \t \0 \0 Y d H \n \0 \0 g \0 \0 H g
0007620 \0 \0 I \f \0 \0 c 004 h 020 \0 ( 3 7 Q
0007640 % % M A K E - R A N D O M - S T
0007660 A T E 2 4 Q \ N C O N C 2
0007700 1 6 Q L A S T 1 1 Q C O P
0007720 Y ) \r ( 3 3 Q : J 2 7 Q :
0007740 I ) \r ( 6 ( 7 3 3 2 5 Q 5
0007760 2 7 6 Q 1 2 0 3 2 7 Q 1 3 5
0010000 6 0 2 Q 1 3 0 6 4 3 Q 7 5 0
0010020 1 6 Q 1 6 2 0 1 Q 1 0 3 5 3
0010040 1 Q 2 0 4 6 0 Q 5 4 1 0 4 Q
0010060 1 1 0 4 4 6 Q 3 3 5 6 4 Q
0010100 1 7 6 1 4 7 Q 1 0 2 4 5 7 Q
0010120 1 2 7 0 3 Q 1 5 3 0 0 Q 5 4
0010140 4 3 3 Q 1 7 6 5 2 6 Q 6 1 2
0010160 1 5 Q 6 2 0 2 7 Q 7 5 6 6 Q
0010200 6 2 3 6 2 Q 1 5 0 2 4 3 Q
0010220 1 7 0 4 4 4 Q 1 4 6 3 6 4 Q
0010240 1 7 1 7 3 2 Q 4 3 4 0 4 Q 2
0010260 1 4 1 2 Q 1 5 6 5 3 1 Q 3 3
0010300 5 5 4 Q 2 5 2 3 1 Q 1 6 4 7
0010320 4 7 Q 1 1 0 0 1 1 Q 1 1 5 2
0010340 4 2 Q 1 4 4 0 3 6 Q 3 6 7 3
0010360 4 Q 4 5 7 4 1 Q 1 0 0 1 6 5
0010400 Q 1 2 1 2 2 2 Q 5 1 3 7 6 Q
0010420 1 1 7 2 2 4 Q 3 1 1 5 Q 2
0010440 5 1 6 6 Q 2 4 0 2 7 Q 1 7 7
0010460 2 4 2 Q 4 7 5 7 0 Q 1 4 1 7
0010500 4 5 Q 1 7 1 1 Q 1 5 0 5 7 3
0010520 Q 1 2 2 5 3 2 Q 1 1 7 1 1 3
0010540 Q 6 4 3 2 4 Q 1 0 1 3 7 3 Q
0010560 1 2 0 0 5 5 Q 1 1 1 1 5 7 Q
0010600 ) ) \r % % R A N D O M - C O P Y
0010620 - S T A T E D 1 \r ( L ( 0
0010640 S T A T E ) ) \0 Q \t \0 \0 001 021
0010660 001 l 6 @ \t \0 \0 j 021 C \b K 003 265 033 M
0010700 022 X d \t \0 \0 Y d H \n \0 \0 g \0 \0 H
0010720 g \0 \0 I \f \0 \0 020 001 _ 020 277 L J 363 263
0010740 340 O 020 _ 016 277 N 265 021 O 016 h 032 ^ 275 K
0010760 002 273 L k 324 274 260 305 O 016 & 276 260 363 \0 (
0011000 5 0 Q % % M A K E - R A N D O
0011020 M - S T A T E 3 5 Q \ N C O
0011040 N C 2 2 7 Q L A S T 1 0 Q
0011060 R A N D O M - S T A T E - I )
0011100 \r ( 4 4 Q : J 4 0 Q : I )
0011120 \r ( ) \r % % P R I N T - R A N D
0011140 O M - S T A T E D 1 \r ( P 3
0011160 E L E M E N T P 2 N I
0011200 1 S T R E A M I 0 S T
0011220 A T E F 4 * R E A D T A B
0011240 L E * ) \0 U 004 001 \0 002 A T 006 \0 \0
0011260 312 004 \a \n \0 \0 o \0 \0 \0 A \n \0 \0 g \0
0011300 \0 A T \v \0 \0 l 6 @ \t \0 \0 j 021 023 003
0011320 I 003 265 \r 023 o \0 \0 \0 A \n \0 \0 i 020 001
0011340 273 J H 363 263 360 o \0 \0 \0 A \n \0 \0 277 K
0011360 A T \v \0 \0 277 I 002 271 J k 324 272 260 323 \0
0011400 ( 1 1 1 Q P R I N 2 1 0 2 Q
0011420 P R I N 1 6 1 Q P R I N 1
0011440 4 0 Q R A N D O M - S T A T
0011460 E - I 3 2 Q P R I N 2 2 2
0011500 Q P R I N 3 1 2 Q \ O U T
0011520 C H A R ) \r ( 2 5 Q % % R A N
0011540 D O M - S T A T E 4 R E A D
0011560 T A B L E P ) \r ( 7 6 Q "
0011600 " 5 5 Q " ) " 1 6 Q " .
0011620 ' ( " ) \r ( % % R A N D O M - I
0011640 N I T ) \r ( P U T P R O P S C
0011660 M L R A N D F I L E T Y P E
0011700 C O M P I L E - F I L E ) \r ( P
0011720 U T P R O P S C M L R A N D
0011740 C O P Y R I G H T ( " X e r o
0011760 x C o r p o r a t i o n " 1
0012000 9 8 6 ) ) \r S T O P \r
0012013