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