$ od -c -N 50000 [eris]<LispCore>CML>MORGUE>CMLHACKS.DCOM!1
0000000 ( F I L E C R E A T E D " 1 4
0000020 - M a y - 8 6 1 8 : 3 9 : 1 6
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 H A C
0000120 K S . ; 6 ) \r " 1 4 - M a y -
0000140 8 6 1 6 : 0 7 : 0 0 " r e c
0000160 o m p i l e d c h a n g e s :
0000200 n o t h i n g i n " X e r
0000220 o x L i s p 1 4 - M a y - 8
0000240 6 . . . " d a t e d \r " 1
0000260 4 - M a y - 8 6 1 6 : 3 9 : 4
0000300 5 " ) \r ( F I L E C R E A T E D
0000320 " 1 4 - M a y - 8 6 1 8 : 3
0000340 8 : 5 8 " { E R I S } < L I S
0000360 P C O R E > L I B R A R Y > C M
0000400 L H A C K S . ; 6 9 2 1 6 c
0000420 h a n g e s t o : ( V A R S
0000440 \r C M L H A C K S C O M S )
0000460 p r e v i o u s d a t e : "
0000500 8 - M a y - 8 6 0 6 : 0 8 :
0000520 2 2 " { E R I S } < L I S P C
0000540 O R E > L I B R A R Y > C M L H
0000560 A C K S . ; 5 ) \r E X P O R T
0000600 D 1 \r N I L \0 003 \0 \0 \0 \0 h 020 \0
0000620 N I L \r N I L \r ( ) \r C L : L O
0000640 A D A 0 0 0 1 D 1 \r ( N A M E
0000660 E R R O R S E T F 0 C M
0000700 L F I L E R D T B L F 1 F
0000720 I L E R D T B L F 2 C M L
0000740 C O D E R D T B L F 3 F I
0000760 L E F 4 C O D E R D T B L
0001000 F 5 L D F L G F 6 P
0001020 C L D I R E C T O R I E S F
0001040 7 D I R E C T O R I E S F
0001060 1 0 Q P R I N T F L G ) \0 031
0001100 \0 \t 002 \0 P c 002 277 R c \b 277 V c 016 277
0001120 S U W 020 \v \0 \0 277 h h 032 020 \0 ( 2 2
0001140 Q L O A D ) \r N I L \r ( ) \r C
0001160 L : L O A D D 1 \r ( P 1 M
0001200 A C R O Y P 0 M A C R O X
0001220 I 2 P R I N T F L G I
0001240 1 L D F L G I 0 F I L E
0001260 F 2 R E S E T V A R S L S
0001300 T F 3 F I L E R D T B L
0001320 F 4 C O D E R D T B L F
0001340 5 D I R E C T O R I E S ) \0
0001360 \ 002 004 \0 003 g \0 \0 S 032 g \0 \0 T 032 g
0001400 \0 \0 U 032 R 032 032 032 c 004 021 021 001 R Y o
0001420 \0 \0 \0 g \0 \0 \n \0 \0 H 001 002 c 006 277 H
0001440 002 X 001 002 c \b 277 H 002 X 001 002 c \n 277 I
0001460 d R 360 225 277 H 002 c 004 215 R \n \0 \0 231 R
0001500 k I \v \0 \0 H 002 031 277 265 005 \b \0 \0 001 020
0001520 \0 ( 1 3 0 Q E R R O R ! 1 1
0001540 7 Q N L E F T 1 1 0 Q T A
0001560 I L P 4 3 Q C L : L O A D A
0001600 0 0 0 1 ) \r ( 4 0 Q I N T E R
0001620 N A L 1 4 Q D I R E C T O R
0001640 I E S 7 C O D E R D T B L
0001660 2 F I L E R D T B L ) \r ( 3
0001700 5 Q ( C L : L O A D A 0 0 0 1
0001720 ) ) \r C M L W H E R E D 1 \r (
0001740 P 2 H F I 0 N A M E )
0001760 \0 W \b \0 \0 001 \b \0 \0 021 ! 002 H 265 004
0002000 I 020 003 243 H 272 h 204 H 001 272 H 002 270 I @
0002020 \t \0 \0 h J 001 g \0 \0 \f \0 \0 021 A \a K
0002040 265 \n L 022 \n \0 \0 271 260 325 003 245 K _ 016 277
0002060 h 206 K 001 _ 016 277 K 002 273 O 016 001 276 M 265
0002100 \t N h 032 ] 274 260 331 N & 275 260 324 \0 ( 5
0002120 7 Q \ N C O N C 2 4 4 Q L
0002140 O O K U P H A S H F I L E 3 3
0002160 Q U - C A S E 2 C M L H A
0002200 S H F I L E ) \r ( 4 1 Q R E T
0002220 R I E V E ) \r ( ) \r D E S T R U
0002240 C T U R E . V A R S D 1 \r ( I
0002260 2 I N O P T I O N A L I
0002300 1 T A I L I 0 V A R S )
0002320 001 4 002 \0 \0 003 @ 265 004 A 020 003 243 @ A
0002340 032 020 @ 001 d g \0 \0 360 245 d g \0 \0 360 237
0002360 277 @ 002 002 @ 002 001 A 032 b 002 277 b \0 260 332
0002400 d g \0 \0 360 262 036 277 @ 002 002 264 \f o \0 \0
0002420 \0 @ \n \0 \0 277 h @ 002 001 A 032 b 002 277 b
0002440 \0 260 267 d g \0 \0 360 262 023 277 @ 002 A g \0
0002460 \0 b 004 277 b 002 277 b \0 260 237 d g \0 \0 360
0002500 262 023 277 @ 002 A g \0 \0 b 004 277 b 002 277 b
0002520 \0 260 207 g \0 \0 360 262 a @ 002 b \0 d 265 004
0002540 A 020 001 d g \0 \0 360 245 d g \0 \0 360 230 277
0002560 h b 004 277 277 261 377 b g \0 \0 360 227 h b 004
0002600 277 277 261 377 U @ 001 021 021 001 H d 003 233 002 001
0002620 H 002 002 001 271 H 001 270 277 H 003 265 030 I 265 016
0002640 H A 032 b 002 023 @ 002 b \0 260 264 A 032 b 002
0002660 277 260 357 002 001 270 260 347 @ 002 B d g \0 \0 360
0002700 262 032 277 @ d 001 003 262 6 001 001 @ 001 002 002 262
0002720 / @ 001 002 002 001 A 032 260 ' g \0 \0 360 262 036
0002740 h @ 021 001 \0 H 003 265 006 A 022 260 024 001 d 003
0002760 220 001 A 032 b 002 277 H 002 X 260 354 @ 001 A \n
0003000 \0 \0 b 002 277 b \0 261 376 321 \0 ( 4 5 2 Q
0003020 D E S T R U C T U R E . V A R
0003040 S 7 5 Q E R R O R ) \r ( 4 0
0003060 5 Q A U X 3 4 7 Q O P T I
0003100 O N A L 2 4 3 Q & A U X 2
0003120 2 5 Q & A L L O W - O T H E R
0003140 - K E Y S 2 1 7 Q & R E S T
0003160 1 7 6 Q & K E Y 1 6 1 Q
0003200 A U X 1 4 7 Q & A U X 1 3
0003220 1 Q O P T I O N A L 1 1 7 Q
0003240 & O P T I O N A L 5 4 Q &
0003260 W H O L E 2 6 Q & B O D Y
0003300 2 0 Q & R E S T ) \r ( 7 1 Q
0003320 " & W H O L E m u s t b e
0003340 f o l l o w e d b y a s
0003360 i n g l e V A R " ) \r M A K E
0003400 - S Y M B O L D 1 \r ( I 0
0003420 N A M E ) \0 006 \0 \0 \0 001 @ \t \0 \0
0003440 020 \0 ( 3 G E N S Y M ) \r N I L
0003460 \r ( ) \r C M L - L O A D A 0 0 0
0003500 1 D 1 \r ( N A M E E R R O R
0003520 S E T F 0 F F 1 R E
0003540 S E T V A R S L S T F 2 C
0003560 M L R D T B L F 3 R E S E
0003600 T Y ) \0 . \0 004 002 \0 g \0 \0 P h 032
0003620 032 h h 032 032 Q 032 c 002 277 P R \n \0 \0 277
0003640 P \t \0 \0 224 h c 006 i 020 P R \n \0 \0 \t
0003660 \0 \0 \t \0 \0 260 344 \0 ( 5 2 Q E V A
0003700 L 4 7 Q C M L T R A N S L A
0003720 T E 4 4 Q R E A D 3 1 Q
0003740 E O F P 2 4 Q S K I P S E P
0003760 R S ) \r ( 2 C L O S E F ) \r (
0004000 ) \r C M L - L O A D D 1 \r ( P
0004020 4 R E S E T Z P 3 R E
0004040 S E T Y P 2 L I S P X H I
0004060 S T P 1 * N O T - L O A D
0004100 I N G - F I L E * P 0 F
0004120 I 0 F I L E F 5 L I S
0004140 P X H I S T F 6 R E S E T
0004160 V A R S L S T ) \0 , 005 002 \0 001 @
0004200 g \0 \0 \n \0 \0 021 021 001 U 021 ! 004 V o \0
0004220 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0 \ \n
0004240 \0 \0 277 L 222 \b \0 \0 @ 020 \0 ( 5 0 Q
0004260 E R R O R ! 4 2 Q R E S E T
0004300 R E S T O R E 3 0 Q C M L -
0004320 L O A D A 0 0 0 1 6 O P E N
0004340 S T R E A M ) \r ( 3 6 Q E R R
0004360 O R 2 5 Q I N T E R N A L
0004400 3 I N P U T ) \r ( 2 2 Q (
0004420 C M L - L O A D A 0 0 0 1 ) ) \r
0004440 L O A D - A N D - C O M P I L E
0004460 D 1 \r ( P 1 1 Q X P 1
0004500 0 Q N E W - R E C O R D S P
0004520 7 N E W - V A R S P 6
0004540 N E W - M A C R O S P 5 N
0004560 E W - F N S P 4 N E W P
0004600 3 B E F O R E R E C O R D S
0004620 P 2 B E F O R E V A R S
0004640 P 1 B E F O R E M A C R O S
0004660 P 0 B E F O R E I 1
0004700 D O N T - C O M P I L E I 0
0004720 F I L E F 1 2 Q C H A N
0004740 G E D M A C R O S L S T F 1
0004760 3 Q C H A N G E D V A R S L S
0005000 T F 1 4 Q C H A N G E D F
0005020 N S L S T F 1 5 Q C H A N
0005040 G E D R E C O R D S L S T ) \0
0005060 274 \n 004 \0 002 W 030 \t \0 \0 W 024 \t \0 \0 W
0005100 026 \t \0 \0 W 032 \t \0 \0 021 004 003 @ \t \0 \0
0005120 W 030 H \n \0 \0 021 001 004 L d \n \0 \0 021 001
0005140 005 W 024 I \n \0 \0 W 024 I \n \0 \0 \n \0 \0
0005160 021 001 006 W 026 J \n \0 \0 W 026 J \n \0 \0 \n
0005200 \0 \0 021 001 \a W 032 K \n \0 \0 W 032 K \n \0
0005220 \0 \n \0 \0 021 001 \b A 263 027 M 217 d 001 021 001
0005240 \t O 022 d \t \0 \0 \n \0 \0 023 002 003 265 357 H
0005260 c 030 I c 024 J c 026 @ k o \0 \0 \0 @ \n
0005300 \0 \0 k 331 \v \0 \0 \t \0 \0 o \0 \0 \0 \n \0
0005320 \0 g \0 \0 M 032 g \0 \0 O 016 032 g \0 \0 N
0005340 032 g \0 \0 O 020 032 h 032 032 032 032 \n \0 \0 020
0005360 \0 ( 2 7 1 Q S E T 2 3 3 Q
0005400 P A C K * 2 2 4 Q U - C A S
0005420 E 2 2 1 Q S U B S T R I N G
0005440 2 1 4 Q S T R P O S 1 6 4
0005460 Q C O M P I L E - I N - C O R
0005500 E 1 6 1 Q G E T D 1 3 6 Q
0005520 I N T E R S E C T I O N 1 3
0005540 3 Q L D I F F E R E N C E 1
0005560 2 5 Q L D I F F E R E N C E
0005600 1 1 4 Q I N T E R S E C T I O
0005620 N 1 1 1 Q L D I F F E R E N
0005640 C E 1 0 3 Q L D I F F E R E
0005660 N C E 7 2 Q I N T E R S E C
0005700 T I O N 6 7 Q L D I F F E R
0005720 E N C E 6 1 Q L D I F F E R
0005740 E N C E 5 0 Q I N T E R S E
0005760 C T I O N 4 0 Q L D I F F E
0006000 R E N C E 3 2 Q C M L - L O
0006020 A D 2 3 Q C O P Y 1 6 Q
0006040 C O P Y 1 1 Q C O P Y 4
0006060 C O P Y ) \r ( 2 5 6 Q R E C O
0006100 R D S 2 5 1 Q M A C R O S
0006120 2 4 3 Q V A R S 2 3 6 Q F
0006140 N S ) \r ( 2 3 0 Q " - P C L
0006160 C O M S " 2 1 0 Q " . " ) \r
0006200 ( P R E T T Y C O M P R I N T
0006220 C M L H A C K S C O M S ) \r ( R
0006240 P A Q Q C M L H A C K S C O M
0006260 S ( ( F N S E X P O R T C
0006300 L : L O A D C M L W H E R E )
0006320 ( F U N C T I O N S F U N C
0006340 T I O N - P R E T T Y - A R G L
0006360 I S T ) ( M A C R O S \r M U
0006400 L T I P L E - V A L U E - B I N
0006420 D ) ( * D o e s a n y o n
0006440 e u s e D E S T R U C T U R
0006460 E . V A R S a n y m o r e ? )
0006500 ( F N S D E S T R U C T U R
0006520 E . V A R S M A K E - S Y M B
0006540 O L ) \r ( * t h i s i s
0006560 e s s e n t i a l l y s p i c
0006600 e l i s p ' s s e t f ) (
0006620 * F N S A N A L Y Z E - A R
0006640 G L I S T A N A L Y Z E - A U
0006660 X A N A L Y Z E - K E Y A N
0006700 A L Y Z E - R E S T ) \r ( F N
0006720 S C M L - L O A D L O A D -
0006740 A N D - C O M P I L E ) ( V A
0006760 R S ( * P A C K A G E * ( F
0007000 I N D - P A C K A G E ( Q U O
0007020 T E P C L ) ) ) ) ( P R O P
0007040 I N F O \r D E S T R U C T U
0007060 R I N G - B I N D ) ( A D V I
0007100 S E T T Y I N - I N - T T Y I
0007120 N E D I T ) ( P ( S E T Q
0007140 C M L F I L E R D T B L ( C O
0007160 P Y R E A D T A B L E F I L E
0007200 R D T B L ) ) ( S E T Q \r C
0007220 M L C O D E R D T B L ( C O P
0007240 Y R E A D T A B L E C O D E R
0007260 D T B L ) ) ( F O R C H A R
0007300 I N ( C H C O N " # ' " )
0007320 D O ( F O R R T I N (
0007340 L I S T C M L F I L E R D T B
0007360 L \r C M L C O D E R D T B L )
0007400 D O ( S E T S Y N T A X C
0007420 H A R ( G E T S Y N T A X C
0007440 H A R C M L R D T B L ) R T
0007460 ) ) ) ) ) ) \r ( D E F U N F U
0007500 N C T I O N - P R E T T Y - A R
0007520 G L I S T ( F U N C T I O N )
0007540 ( I G N O R E F U N C T I O
0007560 N ) N I L ) \r ( Q U O T E (
0007600 M U L T I P L E - V A L U E - B
0007620 I N D - - n o M A C R O
0007640 d e f i n i t i o n ) ) \r ( R P
0007660 A Q * P A C K A G E * ( F I
0007700 N D - P A C K A G E ( Q U O T
0007720 E P C L ) ) ) \r ( P U T P R O
0007740 P S D E S T R U C T U R I N G
0007760 - B I N D I N F O N O E V A
0010000 L ) \r ( P U T P R O P S T T Y
0010020 I N - I N - T T Y I N E D I T
0010040 R E A D V I C E ( ( T T Y I N
0010060 E D I T . T T Y I N ) ( B
0010100 E F O R E N I L ( A N D (
0010120 E Q L I S P X I D C M L P R
0010140 O M P T ) ( \r S E T Q R D T
0010160 B L C M L R D T B L ) ) ) ) )
0010200 \r ( R E A D V I S E T T Y I N
0010220 - I N - T T Y I N E D I T ) \r (
0010240 S E T Q C M L F I L E R D T B
0010260 L ( C O P Y R E A D T A B L E
0010300 F I L E R D T B L ) ) \r ( S E
0010320 T Q C M L C O D E R D T B L
0010340 ( C O P Y R E A D T A B L E C
0010360 O D E R D T B L ) ) \r ( F O R
0010400 C H A R I N ( C H C O N "
0010420 # ' " ) D O ( F O R R T
0010440 I N ( L I S T C M L F I L E
0010460 R D T B L C M L C O D E R D T
0010500 B L ) D O ( S E T S Y N T A
0010520 X C H A R ( G E T S Y N T A
0010540 X \r C H A R C M L R D T B L
0010560 ) R T ) ) ) \r ( P U T P R O P
0010600 S C M L H A C K S C O P Y R
0010620 I G H T ( " X e r o x C o r
0010640 p o r a t i o n " 1 9 8 5 1
0010660 9 8 6 ) ) \r N I L \r
0010672