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