$ od -c -N 50000 [eris]<LispCore>LIBRARY>CMLPACKAGE.DCOM!14
0000000 ( F I L E C R E A T E D " 1
0000020 - A u g - 8 6 0 1 : 1 1 : 2 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 P A C
0000120 K A G E . ; 1 4 ) \r " 3 0 - J
0000140 u l - 8 6 0 9 : 0 2 : 4 9 "
0000160 " C O M P I L E - F I L E d "
0000200 i n " X e r o x L i s p 3
0000220 0 - J u l - 8 6 . . . " d a
0000240 t e d " 3 0 - J u l - 8 6 0
0000260 9 : 1 6 : 1 7 " ) \r ( F I L E C
0000300 R E A T E D " 1 - A u g - 8
0000320 6 0 1 : 1 0 : 5 4 " { E R I
0000340 S } < L I S P C O R E > L I B R
0000360 A R Y > C M L P A C K A G E . ;
0000400 1 4 8 0 8 6 c h a n g e s
0000420 t o : ( V A R S \r C M L T R
0000440 A N S L A T E D ) ( F N S M
0000460 A K E - S Y M B O L ) p r e v
0000500 i o u s d a t e : " 1 - A
0000520 u g - 8 6 0 0 : 4 0 : 0 9 "
0000540 \r { E R I S } < L I S P C O R E
0000560 > L I B R A R Y > C M L P A C K
0000600 A G E . ; 1 3 ) \r ( R P A Q Q
0000620 C M L P A C K A G E C O M S (
0000640 ( * \r " U t t e r l y f a k
0000660 e p a c k a g e s . \r \r U s e
0000700 s I n t e r l i s p G E N S
0000720 Y M , t h o u g h t h e s
0000740 e m a n t i c s a r e n ' t
0000760 q u i t e r i g h t . " ) (
0001000 C O M S ( * K e y w o r d s
0001020 ) ( F N S K E Y W O R D P
0001040 \r M A K E - K E Y W O R D ) )
0001060 ( C O M S ( * " F a k e s
0001100 e l f - e v a l u a t i n g k
0001120 e y w o r d s " ) ( F N S D
0001140 W I M K E Y W O R D ) ( D E C
0001160 L A R E : D O N T E V A L @ L
0001200 O A D \r D O C O P Y ( A D D
0001220 V A R S ( D W I M U S E R F O
0001240 R M S ( D W I M K E Y W O R D
0001260 ) ) ) ) ( A D V I S E C O M
0001300 P . U S E R F N ) ) ( C O M S
0001320 ( V A R S C M L T R A N S L
0001340 A T E D ) ( F N S \r C M L T
0001360 R A N S L A T E ) ) ( C O M S
0001400 ( * S y m b o l c r e a t
0001420 i o n ) ( F N S I N T E R N
0001440 E X P O R T S Y M B O L - N
0001460 A M E M A K E - S Y M B O L
0001500 G E N T E M P \r C O P Y - S Y
0001520 M B O L ) ) ( C O M S ( *
0001540 P a c k a g e s ) ( F N S I
0001560 N - P A C K A G E U S E - P A
0001600 C K A G E F I N D - P A C K A
0001620 G E L I S T - A L L - P A C K
0001640 A G E S ) ) ( \r D E C L A R E
0001660 : D O N T E V A L @ L O A D
0001700 D O C O P Y ( P ( M O V D
0001720 ( Q U O T E N I L L ) ( Q U
0001740 O T E S Y M B O L - P A C K A
0001760 G E ) ) ) ) ( I N I T V A R S
0002000 ( G E N S Y M - P R E F I X \r
0002020 " G " ) ( G E N S Y M - C O
0002040 U N T E R 0 ) ( * I N T E R
0002060 L I S P - P A C K A G E * ) (
0002100 * L I S P - P A C K A G E * )
0002120 ( * K E Y W O R D - P A C K A G
0002140 E * ) ) ( D E C L A R E : \r
0002160 D O N T E V A L @ L O A D D O
0002200 E V A L @ C O M P I L E D O N
0002220 T C O P Y C O M P I L E R V A
0002240 R S ( A D D V A R S ( N L A
0002260 M A ) ( N L A M L ) ( L A M
0002300 A U S E - P A C K A G E \r C
0002320 O P Y - S Y M B O L I N T E R
0002340 N ) ) ) ) ) \r K E Y W O R D P
0002360 D 1 \r ( I 0 X ) \0 \n \0 \0 \0
0002400 001 @ k \n \0 \0 l : 360 020 \0 ( 4 N T
0002420 H C H A R C O D E ) \r N I L \r (
0002440 ) \r M A K E - K E Y W O R D D
0002460 1 \r ( I 0 X ) \0 G \0 \0 \0 001
0002500 @ \t \0 \0 l : 360 263 9 o \0 \0 \0 @ l 003
0002520 \n \0 \0 l : 360 262 # o \0 \0 \0 @ k h i
0002540 \r 005 \0 \0 254 o \0 \0 \0 @ k h i \r 005 \0
0002560 \0 226 @ l 004 \n \0 \0 200 @ \n \0 \0 b \0 200
0002600 @ d \n \0 \0 020 \0 ( 1 0 4 Q S E T
0002620 7 4 Q P A C K * 6 7 Q S
0002640 U B S T R I N G 6 0 Q S T R
0002660 P O S 4 3 Q S T R P O S 2
0002700 2 Q N T H C H A R C O D E 3
0002720 C H C O N 1 ) \r N I L \r ( 5
0002740 0 Q " I L " 3 3 Q " C L "
0002760 1 4 Q " : " ) \r D W I M K E
0003000 Y W O R D D 1 \r ( F 0 F A
0003020 U L T X F 1 F A U L T A P
0003040 P L Y F L G ) \0 034 \0 002 \0 \0 Q h
0003060 360 264 027 P 004 l 004 360 264 020 P k \n \0 \0 l
0003100 : 360 264 006 P \t \0 \0 020 \0 ( 3 1 Q M
0003120 A K E - K E Y W O R D 2 0 Q
0003140 N T H C H A R C O D E ) \r N I L
0003160 \r ( ) \r ( A D D T O V A R D W
0003200 I M U S E R F O R M S ( D W I
0003220 M K E Y W O R D ) ) \r ( P U T P
0003240 R O P S C O M P . U S E R F N
0003260 R E A D V I C E ( N I L (
0003300 B E F O R E N I L ( C O N D
0003320 ( ( K E Y W O R D P X ) (
0003340 R E T U R N ( L I S T ( Q U
0003360 O T E Q U O T E ) X ) ) )
0003400 ( \r ( A N D ( E Q ( C A R
0003420 ( L I S T P ( C A R ( L I S
0003440 T P X ) ) ) ) ( Q U O T E
0003460 C L : L A M B D A ) ) ( C O N
0003500 D ( ( I N T E R S E C T I O N
0003520 ( C A D R ( C A R X ) )
0003540 \r L A M B D A - L I S T - K E Y
0003560 W O R D S ) ( E R R O R " C
0003600 a n ' t c o p e w i t h l
0003620 a m b d a k e y w o r d s i
0003640 n i n t e r n a l L A M B D
0003660 A l i s t s " ) ) ( T ( R
0003700 E T U R N ( \r B Q U O T E (
0003720 ( L A M B D A ( \ , @ ( C D
0003740 A R X ) ) ) ( \ , @ ( C D
0003760 R X ) ) ) ) ) ) ) ) ) ) ) ) )
0004000 \r ( R E A D V I S E C O M P .
0004020 U S E R F N ) \r ( R P A Q Q C
0004040 M L T R A N S L A T E D ( A P
0004060 P E N D A P P L Y A R R A Y
0004100 P A S S E R T A S S O C A
0004120 T A N A T O M B L O C K B
0004140 R E A K C H A R A C T E R C
0004160 O E R C E C O L L E C T \r C
0004200 O M P I L E C O S C O U N T
0004220 D E L E T E D O D O * E
0004240 L T E Q U A L E R R O R E
0004260 V A L E V A L H O O K E V E
0004300 R Y E X P T F I N A L L Y
0004320 F I N D F I R S T F L O O R
0004340 \r F U N C T I O N G C D G
0004360 E T H A S H I F I N I T I A
0004400 L L Y I N T E R S E C T I O N
0004420 J O I N L A M B D A L D I
0004440 F F L E N G T H L I S T P
0004460 L O A D L O G M A P M A P
0004500 C M A P C \r M A P C A R M
0004520 A P C O N M A P H A S H M A
0004540 P L I S T M E M B E R M E R
0004560 G E M O D N O T A N Y N O
0004600 T E V E R Y N R E V E R S E
0004620 N T H P O P P O S I T I O N
0004640 P R I N 1 P R I N T \r P U
0004660 S H P U S H N E W P U T H A
0004700 S H R E A D R E M O V E R
0004720 E P L A C E R E V E R S E S
0004740 E T Q S I N S O M E S O R
0004760 T S Q R T S T R E A M P S
0005000 T R I N G P S U B L I S S U
0005020 B S T \r S U M T A N T E R
0005040 P R I U N I O N U N L E S S
0005060 U N T I L W H E N Z E R O
0005100 P * ) ) \r C M L T R A N S L A
0005120 T E D 1 \r ( I 0 X F 0
0005140 C M L T R A N S L A T E D )
0005160 \0 = \0 001 \0 001 @ d 004 l 004 360 262 $ P 034
0005200 230 o \0 \0 \0 @ \n \0 \0 020 o \0 \0 \0 @ k
0005220 h i \r 005 \0 \0 226 @ l 004 \n \0 \0 020 @ 020
0005240 003 262 375 @ d 001 \t \0 \0 @ 002 \t \0 \0 \v \0
0005260 \0 020 \0 ( 7 2 Q W A L K - R E C
0005300 O N S 6 7 Q C M L T R A N S
0005320 L A T E 6 2 Q C M L T R A N
0005340 S L A T E 4 6 Q S U B A T O
0005360 M 3 7 Q S T R P O S 2 2 Q
0005400 P A C K * ) \r N I L \r ( 2 7
0005420 Q " I L : " 1 6 Q " C L :
0005440 " ) \r I N T E R N D 1 \r ( L
0005460 ( 0 - a r g s - ) ) \0 [ 003 \0
0005500 002 \0 e 021 001 \0 k a 021 021 002 l 002 H 361 223
0005520 g \0 \0 202 l 002 a Z d g \0 \0 360 262 & 277
0005540 I \t \0 \0 233 I \t \0 \0 I \t \0 \0 \n \0 \0
0005560 020 g \0 \0 I \n \0 \0 g \0 \0 I \n \0 \0 \n
0005600 \0 \0 020 226 J g \0 \0 360 264 \a I \t \0 \0 020
0005620 g \0 \0 J o \0 \0 \0 \f \0 \0 020 \0 ( 1 3
0005640 0 Q E C A S E - F A I L 1 1
0005660 4 Q P A C K * 7 7 Q S E T
0005700 7 4 Q P A C K * 6 5 Q P
0005720 A C K * 5 5 Q S E T 5 2 Q
0005740 P A C K * 4 6 Q P A C K *
0005760 4 1 Q K E Y W O R D P ) \r (
0006000 1 2 0 Q P A C K A G E 1 0 5
0006020 Q P C L 7 0 Q : 6 1 Q
0006040 : 3 1 Q K E Y W O R D 2 0
0006060 Q P C L ) \r ( 1 2 5 Q ( K
0006100 E Y W O R D ( N I L P C L )
0006120 ) ) \r E X P O R T D 1 \r N I L
0006140 \0 003 \0 \0 \0 \0 h 020 \0 N I L \r N I
0006160 L \r ( ) \r S Y M B O L - N A M E
0006200 D 1 \r ( I 0 S Y M B O L )
0006220 \0 \t \0 \0 \0 001 @ 006 \0 \0 \t \0 \0 020 \0
0006240 ( 6 M K S T R I N G ) \r ( 3
0006260 L I T A T O M ) \r ( ) \r M A K E
0006300 - S Y M B O L D 1 \r ( L ( 0
0006320 N A M E ) ) \0 025 \0 \0 \0 001 @ 005
0006340 \a 224 @ \t \0 \0 020 g \0 \0 @ \n \0 \0 \t \0
0006360 \0 020 \0 ( 2 2 Q G E N S Y M 1
0006400 7 Q C O N C A T E N A T E 7
0006420 G E N S Y M ) \r ( 1 3 Q S T
0006440 R I N G ) \r ( ) \r G E N T E M P
0006460 D 1 \r ( I 1 P A C K A G E
0006500 I 0 P R E F I X ) \0 \t \0
0006520 \0 \0 002 @ h d i \f \0 \0 020 \0 ( 6 G
0006540 E N S Y M ) \r N I L \r ( ) \r C O
0006560 P Y - S Y M B O L D 1 \r ( L
0006600 ( 1 C O P Y - P R O P S 0
0006620 S Y M B O L ) ) \0 031 001 \0 \0 002 @
0006640 \t \0 \0 021 001 \0 A 234 H 301 002 @ 301 002 311 \0
0006660 \t \0 \0 024 \0 H 020 \0 ( 2 3 Q C O P
0006700 Y - L I S T 3 G E N S Y M )
0006720 \r N I L \r ( ) \r I N - P A C K A
0006740 G E D 1 \r ( L ( 0 P A C K
0006760 A G E N A M E ) ) \0 003 \0 \0 \0 001
0007000 h 020 \0 N I L \r N I L \r ( ) \r U S
0007020 E - P A C K A G E D 1 \r ( L
0007040 ( 0 - a r g s - ) ) \0 $ 005 \0
0007060 002 \0 e 021 001 \0 H k 021 " 004 J d I 363 221
0007100 h 020 a 274 K 265 \f L h 032 273 J k 324 Z 260
0007120 355 L & 260 367 \0 N I L \r N I L \r ( )
0007140 \r F I N D - P A C K A G E D 1
0007160 \r N I L \0 003 \0 \0 \0 \0 h 020 \0 N I
0007200 L \r N I L \r ( ) \r L I S T - A L
0007220 L - P A C K A G E S D 1 \r N I
0007240 L \0 003 \0 \0 \0 \0 h 020 \0 N I L \r N
0007260 I L \r ( ) \r ( M O V D ( Q U O
0007300 T E N I L L ) ( Q U O T E
0007320 S Y M B O L - P A C K A G E ) )
0007340 \r ( R P A Q ? G E N S Y M - P
0007360 R E F I X " G " ) \r ( R P A Q
0007400 ? G E N S Y M - C O U N T E R
0007420 0 ) \r ( R P A Q ? * I N T E
0007440 R L I S P - P A C K A G E * ) \r
0007460 ( R P A Q ? * L I S P - P A C
0007500 K A G E * ) \r ( R P A Q ? * K
0007520 E Y W O R D - P A C K A G E * )
0007540 \r ( P U T P R O P S C M L P A
0007560 C K A G E C O P Y R I G H T
0007600 ( " X e r o x C o r p o r a t
0007620 i o n " 1 9 8 6 ) ) \r S T O P
0007640 \r
0007641