$ od -c -N 50000 [eris]<LispCore>LIBRARY>CMLDEFFER.DCOM!42
0000000 ( F I L E C R E A T E D " 1 9
0000020 - J u n - 8 6 1 3 : 1 3 : 3 3
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 D E F
0000120 F E R . ; 3 8 ) \r " 1 9 - J u
0000140 n - 8 6 1 2 : 4 6 : 1 9 " "
0000160 C O M P I L E - F I L E d " i
0000200 n " X e r o x L i s p 1 9
0000220 - J u n - 8 6 . . . " d a t
0000240 e d " 1 9 - J u n - 8 6 1 2
0000260 : 5 8 : 1 1 " ) \r ( F I L E C R
0000300 E A T E D " 1 1 - J u n - 8 6
0000320 2 1 : 0 8 : 4 7 " { E R I S
0000340 } < L I S P C O R E > L I B R A
0000360 R Y > C M L D E F F E R . ; 3 8
0000400 1 3 7 9 2 c h a n g e s t
0000420 o : ( F U N C T I O N S \r D
0000440 E F U N D E F M A C R O ) p
0000460 r e v i o u s d a t e : " 1
0000500 1 - J u n - 8 6 1 2 : 0 5 : 3
0000520 2 " { E R I S } < L I S P C O
0000540 R E > L I B R A R Y > C M L D E
0000560 F F E R . ; 3 7 ) \r ( R P A Q Q
0000600 C M L D E F F E R C O M S (
0000620 ( C O M S ( I N I T V A R S
0000640 ( F I L E P K G F L G ) ) ( C
0000660 O M S ( F N S P P R I N T -
0000700 D E F I N E R \ D E F I N E -
0000720 T Y P E - G E T D E F ) ) ) (
0000740 \r P R O P M A C R O - F N D
0000760 E F D E F I N E R W I T H O U
0001000 T - F I L E P K G ) ( F N S
0001020 e x p a n d - D E F D E F I N E
0001040 R e x p a n d - W I T H O U T
0001060 - F I L E P K G ) ( A D D V A
0001100 R S ( \r F I L E P K G T Y P E
0001120 S D E F I N E - T Y P E S F
0001140 U N C T I O N S ) ) ( F U N C
0001160 T I O N S D E F D E F I N E R
0001200 D E F - D E F I N E - T Y P E
0001220 W I T H O U T - F I L E P K G
0001240 ) ( \r D E F I N E - T Y P E S
0001260 D E F I N E - T Y P E S F U
0001300 N C T I O N S V A R I A B L E
0001320 S ) ( F U N C T I O N S D E
0001340 F U N D E F M A C R O C L :
0001360 D E F M A C R O D E F V A R
0001400 \r D E F P A R A M E T E R D E
0001420 F C O N S T A N T ) ( P R O P
0001440 F I L E P K G C O N T E N T S
0001460 F U N C T I O N S ) ( * d
0001500 o n ' t n o t e f i l e p
0001520 a c k a g e c h a n g e s t
0001540 o \r M A C R O - F N ) ( P R
0001560 O P P R O P T Y P E M A C R
0001600 O - F N ) ( P R O P F I L E
0001620 T Y P E C M L D E F F E R )
0001640 ( D E C L A R E : D O N T E V
0001660 A L @ L O A D D O E V A L @ C
0001700 O M P I L E \r D O N T C O P Y
0001720 C O M P I L E R V A R S ( A
0001740 D D V A R S ( N L A M A ) (
0001760 N L A M L ) ( L A M A ) ) ) )
0002000 ) \r ( R P A Q ? F I L E P K G
0002020 F L G ) \r P P R I N T - D E F I
0002040 N E R D 1 \r ( L ( 0 D E F
0002060 I N E - E X P R E S S I O N )
0002100 P 3 # R P A R S F 4 C
0002120 O M M E N T F L G ) \0 322 004 001 \0
0002140 001 @ 001 @ 002 b \0 001 @ 002 b \0 277 \b \0 \0
0002160 021 023 003 o \0 \0 \0 \t \0 \0 277 H \t \0 \0 277
0002200 k \t \0 \0 I 003 262 5 o \0 \0 \0 \t \0 \0 277
0002220 ` \0 \0 \t \0 \0 277 I 001 \t \0 \0 277 ` \0 \0
0002240 \t \0 \0 277 k \t \0 \0 277 I 002 i d d \f \0
0002260 \0 277 o \0 \0 \0 \t \0 \0 260 024 ` \0 \0 \t \0
0002300 \0 277 I \t \0 \0 277 ` \0 \0 \t \0 \0 277 @ d
0002320 001 003 262 025 277 k \t \0 \0 277 @ 001 @ 002 b \0
0002340 277 i \n \0 \0 277 @ 001 005 \a 251 @ d 001 003 001
0002360 T 360 262 026 277 k \t \0 \0 277 @ 001 @ 002 b \0
0002400 277 i d \v \0 \0 277 @ i d \v \0 \0 253 \b \0
0002420 \0 277 J \t \0 \0 277 l 003 200 k \t \0 \0 277 @
0002440 i d d \f \0 \0 o \0 \0 \0 \t \0 \0 h \t \0
0002460 \0 020 \0 ( 3 1 7 Q T E R P R I
0002500 3 1 3 Q P R I N 1 3 0 4 Q
0002520 P R I N T D E F 2 7 4 Q S P
0002540 A C E S 2 6 4 Q D S P X P O
0002560 S I T I O N 2 5 7 Q T E R P
0002600 R I 2 5 3 Q F I T P 2 4 4
0002620 Q P R I N T D E F 2 2 7 Q
0002640 S P A C E S 2 0 3 Q P R I N
0002660 T D E F 1 6 7 Q S P A C E S
0002700 1 5 3 Q C H A N G E F O N T
0002720 1 4 4 Q P R I N 2 1 3 7 Q
0002740 C H A N G E F O N T 1 2 7 Q
0002760 P R I N 1 1 1 7 Q P R I N
0003000 T D E F 1 0 6 Q S P A C E S
0003020 1 0 1 Q C H A N G E F O N T
0003040 7 2 Q P R I N 2 6 4 Q C
0003060 H A N G E F O N T 5 5 Q P R
0003100 I N 1 4 2 Q S P A C E S 3
0003120 5 Q P R I N 2 3 0 Q P R I
0003140 N 1 1 6 Q D S P X P O S I T
0003160 I O N ) \r ( 1 5 0 Q D E F A U
0003200 L T F O N T 1 3 4 Q P R E T
0003220 T Y C O M F O N T 7 6 Q D E
0003240 F A U L T F O N T 6 1 Q P R
0003260 E T T Y C O M F O N T ) \r ( 3
0003300 1 0 Q " ) " 1 2 4 Q " ) "
0003320 5 2 Q " ( " 2 5 Q " ( "
0003340 ) \r \ D E F I N E - T Y P E - G
0003360 E T D E F D 1 \r ( L ( 2 O
0003400 P T I O N S 1 T Y P E 0
0003420 I T E M ) ) \0 + \0 \0 \0 003 @ 004 l
0003440 004 360 264 $ B g \0 \0 360 251 B 003 262 023 g \0
0003460 \0 B 034 232 @ 301 002 311 \0 A ' \t \0 \0 020 @
0003500 301 002 311 \0 A ' 020 \0 ( 4 0 Q C O P
0003520 Y ) \r ( 2 3 Q E D I T 1 2 Q
0003540 E D I T ) \r ( ) \r ( P U T P R
0003560 O P S D E F D E F I N E R M
0003600 A C R O - F N e x p a n d - D
0003620 E F D E F I N E R ) \r ( P U T P
0003640 R O P S W I T H O U T - F I L
0003660 E P K G M A C R O - F N e x
0003700 p a n d - W I T H O U T - F I L
0003720 E P K G ) \r e x p a n d - D E F
0003740 D E F I N E R D 1 \r ( L ( 1
0003760 $ $ M A C R O - E N V I R O N
0004000 M E N T 0 $ $ M A C R O - F
0004020 O R M ) F 1 0 Q F I L E P
0004040 K G F L G ) \0 346 \b 001 \0 002 @ 002 021
0004060 q \a @ 271 H 001 272 H 002 [ 001 274 K 002 ] 001
0004100 276 M 002 _ 016 277 g \0 \0 g \0 \0 g \0 \0 g
0004120 \0 \0 J g \0 \0 g \0 \0 N 032 032 g \0 \0 g
0004140 \0 \0 g \0 \0 g \0 \0 g \0 \0 O 016 032 h 032
0004160 032 h 032 032 g \0 \0 g \0 \0 g \0 \0 g \0 \0
0004200 g \0 \0 o \0 \0 \0 g \0 \0 o \0 \0 \0 g \0
0004220 \0 g \0 \0 L h 032 032 h 032 032 o \0 \0 \0 032
0004240 032 032 h 032 032 032 h 032 h 032 032 h 032 032 032 h
0004260 032 032 o \0 \0 \0 032 032 032 h 032 032 h 032 032 032
0004300 032 g \0 \0 g \0 \0 g \0 \0 J g \0 \0 032 h
0004320 032 032 032 h 032 032 g \0 \0 J h 032 032 h 032 032
0004340 032 032 h 032 032 W 020 264 034 g \0 \0 o \0 \0 \0
0004360 g \0 \0 J g \0 \0 I h 032 032 032 032 h 032 032
0004400 032 h 032 g \0 \0 J h 032 032 h 032 \n \0 \0 032
0004420 032 020 \0 ( 3 4 1 Q \ A P P E N D
0004440 2 ) \r ( 3 3 0 Q Q U O T E 3
0004460 1 1 Q F U N C T I O N S 3 0
0004500 5 Q P U T P R O P S 2 7 6 Q
0004520 E V A L - W H E N 2 5 3 Q
0004540 Q U O T E 2 4 0 Q P P R I N
0004560 T - D E F I N E R 2 3 4 Q P
0004600 R E T T Y P R I N T M A C R O S
0004620 2 3 1 Q A D D T O V A R 2
0004640 2 6 Q W I T H O U T - F I L E
0004660 P K G 1 4 6 Q Q U O T E 1
0004700 4 3 Q \ , 1 3 4 Q P U T P
0004720 R O P S 1 2 5 Q E V A L - W
0004740 H E N 1 2 2 Q B Q U O T E
0004760 1 1 7 Q F I L E P K G F L G
0005000 1 1 4 Q A N D 1 1 1 Q \ ,
0005020 @ 7 5 Q P R O G N 7 2 Q
0005040 \ , 6 7 Q W I T H O U T - F
0005060 I L E P K G 6 4 Q P R O G N
0005100 6 1 Q B Q U O T E 5 3 Q
0005120 % % O R I G I N A L - D E F I N
0005140 I T I O N 5 0 Q & W H O L E
0005160 4 4 Q D E F M A C R O 4 1
0005200 Q P R O G N 3 6 Q W I T H
0005220 O U T - F I L E P K G 3 3 Q
0005240 P R O G N ) \r ( 3 0 2 Q ( C
0005260 L : E V A L ) 2 1 0 Q ( ( Q
0005300 U O T E ( \ , N A M E ) ) )
0005320 1 6 1 Q ( ( \ , % % O R I
0005340 G I N A L - D E F I N I T I O N
0005360 ) ) 1 4 0 Q ( \ , N A M E
0005400 ) 1 3 1 Q ( C L : E V A L )
0005420 ) \r e x p a n d - W I T H O U T
0005440 - F I L E P K G D 1 \r ( L (
0005460 1 $ $ M A C R O - E N V I R O
0005500 N M E N T 0 $ $ M A C R O -
0005520 F O R M ) ) \0 = 001 \0 \0 002 @ 002 021
0005540 001 \0 g \0 \0 g \0 \0 o \0 \0 \0 H 032 032 g
0005560 \0 \0 o \0 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0
0005600 o \0 \0 \0 o \0 \0 \0 H 032 032 032 h 032 032 032
0005620 h 032 032 032 h 032 032 032 020 \0 N I L \r ( 4
0005640 2 Q L E T 3 3 Q A N D 2
0005660 4 Q E V A L - W H E N 1 2 Q
0005700 E V A L - W H E N 7 P R O
0005720 G N ) \r ( 5 2 Q ( D E C L A
0005740 R E ( S P E C I A L F I L E
0005760 P K G F L G D F N F L G ) )
0006000 4 6 Q ( F I L E P K G F L G
0006020 ( D F N F L G T ) ) 3 7 Q
0006040 ( N E Q D F N F L G ( Q U O
0006060 T E P R O P ) ) 3 0 Q \r (
0006100 C L : E V A L ) 1 6 Q ( L O
0006120 A D ) ) \r ( A D D T O V A R F
0006140 I L E P K G T Y P E S D E F I
0006160 N E - T Y P E S F U N C T I O
0006200 N S ) \r e x p a n d - D E F D E
0006220 F I N E R D 1 \r ( L ( 1 $
0006240 $ M A C R O - E N V I R O N M E
0006260 N T 0 $ $ M A C R O - F O R
0006300 M ) ) \0 332 \b \0 \0 002 @ 002 021 q \a @
0006320 271 H 001 272 H 002 [ 001 274 K 002 ] 001 276 M 002
0006340 _ 016 277 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J
0006360 g \0 \0 g \0 \0 N 032 032 g \0 \0 g \0 \0 g
0006400 \0 \0 g \0 \0 g \0 \0 O 016 032 h 032 032 h 032
0006420 032 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0
0006440 \0 o \0 \0 \0 g \0 \0 g \0 \0 L h 032 032 h
0006460 032 032 o \0 \0 \0 032 032 032 h 032 032 032 h 032 032
0006500 032 o \0 \0 \0 032 032 032 h 032 032 h 032 032 032 032
0006520 g \0 \0 g \0 \0 g \0 \0 J g \0 \0 032 h 032
0006540 032 032 h 032 032 g \0 \0 J h 032 032 h 032 032 032
0006560 032 h 032 032 g \0 \0 o \0 \0 \0 g \0 \0 g \0
0006600 \0 g \0 \0 J g \0 \0 I h 032 032 032 032 h 032
0006620 032 032 h 032 032 032 g \0 \0 J h 032 032 h 032 032
0006640 032 032 020 \0 N I L \r ( 3 1 6 Q Q U
0006660 O T E 2 7 5 Q F U N C T I O
0006700 N S 2 7 1 Q P U T P R O P S
0006720 2 6 6 Q F I L E P K G F L G
0006740 2 6 3 Q A N D 2 5 4 Q E
0006760 V A L - W H E N 2 3 5 Q Q U
0007000 O T E 2 2 2 Q P P R I N T -
0007020 D E F I N E R 2 1 6 Q P R E
0007040 T T Y P R I N T M A C R O S 2
0007060 1 3 Q A D D T O V A R 2 1 0
0007100 Q W I T H O U T - F I L E P K
0007120 G 1 4 0 Q Q U O T E 1 3 5
0007140 Q \ , 1 2 6 Q P U T P R O
0007160 P S 1 2 3 Q F I L E P K G F
0007200 L G 1 2 0 Q A N D 1 1 1 Q
0007220 E V A L - W H E N 7 5 Q P
0007240 R O G N 7 2 Q \ , 6 7 Q
0007260 W I T H O U T - F I L E P K G
0007300 6 4 Q P R O G N 6 1 Q B Q
0007320 U O T E 5 3 Q % % O R I G I
0007340 N A L - D E F I N I T I O N 5
0007360 0 Q & W H O L E 4 4 Q D E
0007400 F M A C R O 4 1 Q P R O G N
0007420 3 6 Q W I T H O U T - F I L
0007440 E P K G 3 3 Q P R O G N ) \r
0007460 ( 2 6 0 Q ( C L : E V A L )
0007500 1 7 2 Q ( ( Q U O T E ( \
0007520 , N A M E ) ) ) 1 5 3 Q (
0007540 ( \ , % % O R I G I N A L - D
0007560 E F I N I T I O N ) ) 1 3 2 Q
0007600 ( \ , N A M E ) 1 1 5 Q
0007620 ( C L : E V A L ) ) \r ( S E T F
0007640 - M A C R O - F U N C T I O N
0007660 ( Q U O T E D E F D E F I N E
0007700 R ) ( Q U O T E e x p a n d
0007720 - D E F D E F I N E R ) ) \r ( A
0007740 D D T O V A R P R E T T Y P R
0007760 I N T M A C R O S ( D E F D E
0010000 F I N E R . P P R I N T - D
0010020 E F I N E R ) ) \r e x p a n d -
0010040 D E F - D E F I N E - T Y P E
0010060 D 1 \r ( L ( 1 $ $ M A C R O
0010100 - E N V I R O N M E N T 0 $
0010120 $ M A C R O - F O R M ) ) 001 #
0010140 005 \0 \0 002 @ 002 021 A 004 @ 271 H 001 272 H 002
0010160 001 273 g \0 \0 g \0 \0 g \0 \0 o \0 \0 \0 g
0010200 \0 \0 g \0 \0 J g \0 \0 g \0 \0 g \0 \0 g
0010220 \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 o \0 \0 \0
0010240 g \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J
0010260 h 032 032 h 032 032 032 h 032 032 h 032 o \0 \0 \0
0010300 g \0 \0 o \0 \0 \0 o \0 \0 \0 g \0 \0 J h
0010320 032 032 o \0 \0 \0 032 032 032 032 h 032 032 032 032 h
0010340 032 032 032 h 032 032 h 032 032 032 h 032 032 032 h 032
0010360 032 032 h 032 032 032 g \0 \0 g \0 \0 o \0 \0 \0
0010400 J o \0 \0 \0 \v \0 \0 \ d \t \0 \0 246 277 L
0010420 \t \0 \0 277 L J K h 032 032 032 h 032 032 032 g
0010440 \0 \0 g \0 \0 J h 032 032 032 g \0 \0 J o \0
0010460 \0 \0 032 032 g \0 \0 J o \0 \0 \0 032 032 g \0
0010500 \0 J g \0 \0 J h 032 032 032 032 h 032 032 032 032
0010520 032 032 032 032 h 032 032 g \0 \0 o \0 \0 \0 g \0
0010540 \0 g \0 \0 g \0 \0 J g \0 \0 I h 032 032 032
0010560 032 h 032 032 032 h 032 032 032 g \0 \0 J h 032 032
0010600 h 032 032 032 032 020 \0 ( 2 5 6 Q S E T
0010620 2 5 0 Q B O U N D P 2 4 3
0010640 Q P A C K * ) \r ( 4 2 7 Q Q
0010660 U O T E 4 0 6 Q D E F I N E
0010700 - T Y P E S 4 0 2 Q P U T P
0010720 R O P S 3 7 7 Q F I L E P K
0010740 G F L G 3 7 4 Q A N D 3 6
0010760 5 Q E V A L - W H E N 3 4 0
0011000 Q P R O P T Y P E 3 3 4 Q
0011020 P U T P R O P S 3 2 2 Q P U
0011040 T P R O P S 3 1 0 Q P U T P
0011060 R O P S 3 0 0 Q F I L E P K
0011100 G T Y P E S 2 7 5 Q A D D T
0011120 O V A R 2 2 7 Q P R E T T Y
0011140 T Y P E L S T 2 2 4 Q A D D
0011160 T O V A R 1 5 1 Q Q U O T E
0011200 1 3 6 Q C E R R O R 1 1 2
0011220 Q Q U O T E 1 0 7 Q I T E
0011240 M 1 0 4 Q G E T 1 0 1 Q
0011260 D E F 7 6 Q C L : D O 6 7
0011300 Q L A M B D A 6 4 Q F U N
0011320 C T I O N 5 5 Q M A P C A R
0011340 5 2 Q * 4 7 Q P 4 4 Q
0011360 X 4 0 Q P R E T T Y D E F
0011400 M A C R O S 3 5 Q A D D T O
0011420 V A R 2 6 Q P R O G N 2 3
0011440 Q W I T H O U T - F I L E P K
0011460 G 2 0 Q P R O G N ) \r ( 3
0011500 7 1 Q ( C L : E V A L ) 3 2
0011520 7 Q ( F I L E P K G C O N T E
0011540 N T S N I L L ) 3 1 5 Q (
0011560 G E T D E F \ D E F I N E - T
0011600 Y P E - G E T D E F ) 2 4 0 Q
0011620 " L S T " 2 3 3 Q " C H A
0011640 N G E D " \r 1 6 1 Q ( I T E
0011660 M ) 1 4 6 Q " N o ~ S d
0011700 e f i n i t i o n f o r ~ S
0011720 " 1 4 2 Q " R e - f e t c h
0011740 t h e d e f i n i t i o n "
0011760 1 3 3 Q ( D E F D E F )
0012000 7 3 Q ( I T E M ) 6 1 Q \r
0012020 ( Q U O T E X ) 3 2 Q ( *
0012040 T h i s d e f i n i t i o n
0012060 i s a h o k e y w a y
0012100 o f d e f i n i n g a f i
0012120 l e p a c k a g e t y p e
0012140 t h a t w o r k s e v e n
0012160 b e f o r e t h e f i l e
0012200 p a c k a g e i s l o a d e
0012220 d ) ) \r ( S E T F - M A C R O -
0012240 F U N C T I O N ( Q U O T E
0012260 D E F - D E F I N E - T Y P E )
0012300 ( Q U O T E e x p a n d - D
0012320 E F - D E F I N E - T Y P E ) )
0012340 \r ( A D D T O V A R P R E T T
0012360 Y P R I N T M A C R O S ( D E
0012400 F - D E F I N E - T Y P E .
0012420 P P R I N T - D E F I N E R ) )
0012440 \r e x p a n d - W I T H O U T -
0012460 F I L E P K G D 1 \r ( L ( 1
0012500 $ $ M A C R O - E N V I R O N
0012520 M E N T 0 $ $ M A C R O - F
0012540 O R M ) ) \0 = 001 \0 \0 002 @ 002 021 001
0012560 \0 g \0 \0 g \0 \0 o \0 \0 \0 H 032 032 g \0
0012600 \0 o \0 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 o
0012620 \0 \0 \0 o \0 \0 \0 H 032 032 032 h 032 032 032 h
0012640 032 032 032 h 032 032 032 020 \0 N I L \r ( 4 2
0012660 Q L E T 3 3 Q A N D 2 4
0012700 Q E V A L - W H E N 1 2 Q
0012720 E V A L - W H E N 7 P R O G
0012740 N ) \r ( 5 2 Q ( D E C L A R
0012760 E ( S P E C I A L F I L E P
0013000 K G F L G D F N F L G ) ) 4
0013020 6 Q ( F I L E P K G F L G (
0013040 D F N F L G T ) ) 3 7 Q (
0013060 N E Q D F N F L G ( Q U O T
0013100 E P R O P ) ) 3 0 Q \r ( C
0013120 L : E V A L ) 1 6 Q ( C L :
0013140 L O A D ) ) \r ( S E T F - M A C
0013160 R O - F U N C T I O N ( Q U O
0013200 T E W I T H O U T - F I L E P
0013220 K G ) ( Q U O T E e x p a n
0013240 d - W I T H O U T - F I L E P K
0013260 G ) ) \r ( A D D T O V A R P R
0013300 E T T Y D E F M A C R O S ( D
0013320 E F I N E - T Y P E S X ( P
0013340 * ( M A P C A R ( Q U O T
0013360 E X ) ( F U N C T I O N (
0013400 L A M B D A ( I T E M ) ( C
0013420 L : D O ( ( D E F \r ( G E T
0013440 I T E M ( Q U O T E D E F
0013460 I N E - T Y P E S ) ) ) ) ( D
0013500 E F D E F ) ( C E R R O R
0013520 " R e - f e t c h t h e d e
0013540 f i n i t i o n " \r " N o ~
0013560 S d e f i n i t i o n f o r
0013600 ~ S " ( Q U O T E D E F I
0013620 N E - T Y P E S ) I T E M ) )
0013640 ) ) ) ) ) ) \r ( A D D T O V A R
0013660 P R E T T Y T Y P E L S T (
0013700 C H A N G E D D E F I N E - T Y
0013720 P E S L S T D E F I N E - T Y
0013740 P E S " C o m m o n L i s p
0013760 d e f i n i t i o n t y p e
0014000 " ) ) \r ( A D D T O V A R F I
0014020 L E P K G T Y P E S D E F I N
0014040 E - T Y P E S ) \r ( P U T P R O
0014060 P S D E F I N E - T Y P E S
0014100 G E T D E F \ D E F I N E - T
0014120 Y P E - G E T D E F ) \r ( P U T
0014140 P R O P S D E F I N E - T Y P
0014160 E S F I L E P K G C O N T E N
0014200 T S N I L L ) \r ( P U T P R O
0014220 P S D E F I N E - T Y P E S
0014240 P R O P T Y P E D E F I N E -
0014260 T Y P E S ) \r ( A D D T O V A R
0014300 P R E T T Y D E F M A C R O S
0014320 ( F U N C T I O N S X ( P
0014340 * ( M A P C A R ( Q U O T
0014360 E X ) ( F U N C T I O N (
0014400 L A M B D A ( I T E M ) ( C
0014420 L : D O ( ( D E F ( \r G E T
0014440 I T E M ( Q U O T E F U N
0014460 C T I O N S ) ) ) ) ( D E F
0014500 D E F ) ( C E R R O R " R e
0014520 - f e t c h t h e d e f i n
0014540 i t i o n " " N o ~ S d e
0014560 f i n i t i o n f o r ~ S "
0014600 ( \r Q U O T E F U N C T I O
0014620 N S ) I T E M ) ) ) ) ) ) ) )
0014640 \r ( A D D T O V A R P R E T T
0014660 Y T Y P E L S T ( C H A N G E
0014700 D F U N C T I O N S L S T F U
0014720 N C T I O N S " C o m m o n
0014740 L i s p f u n c t i o n s " )
0014760 ) \r ( A D D T O V A R F I L E
0015000 P K G T Y P E S F U N C T I O
0015020 N S ) \r ( P U T P R O P S F U
0015040 N C T I O N S G E T D E F \
0015060 D E F I N E - T Y P E - G E T D
0015100 E F ) \r ( P U T P R O P S F U
0015120 N C T I O N S F I L E P K G C
0015140 O N T E N T S N I L L ) \r ( P
0015160 U T P R O P S F U N C T I O N
0015200 S P R O P T Y P E F U N C T
0015220 I O N S ) \r ( A D D T O V A R
0015240 P R E T T Y D E F M A C R O S
0015260 ( V A R I A B L E S X ( P
0015300 * ( M A P C A R ( Q U O T E
0015320 X ) ( F U N C T I O N ( L
0015340 A M B D A ( I T E M ) ( C L
0015360 : D O ( ( D E F ( \r G E T
0015400 I T E M ( Q U O T E V A R I
0015420 A B L E S ) ) ) ) ( D E F D
0015440 E F ) ( C E R R O R " R e -
0015460 f e t c h t h e d e f i n i
0015500 t i o n " " N o ~ S d e f
0015520 i n i t i o n f o r ~ S "
0015540 ( \r Q U O T E V A R I A B L E
0015560 S ) I T E M ) ) ) ) ) ) ) ) \r
0015600 ( A D D T O V A R P R E T T Y
0015620 T Y P E L S T ( C H A N G E D
0015640 V A R I A B L E S L S T V A R
0015660 I A B L E S " C o m m o n L
0015700 i s p v a r i a b l e s " ) )
0015720 \r ( A D D T O V A R F I L E P
0015740 K G T Y P E S V A R I A B L E
0015760 S ) \r ( P U T P R O P S V A R
0016000 I A B L E S G E T D E F \ D
0016020 E F I N E - T Y P E - G E T D E
0016040 F ) \r ( P U T P R O P S V A R
0016060 I A B L E S F I L E P K G C O
0016100 N T E N T S N I L L ) \r ( P U
0016120 T P R O P S V A R I A B L E S
0016140 P R O P T Y P E V A R I A B
0016160 L E S ) \r e x p a n d - D E F U
0016200 N D 1 \r ( L ( 1 $ $ M A C
0016220 R O - E N V I R O N M E N T 0
0016240 $ $ M A C R O - F O R M ) )
0016260 \0 211 \b \0 \0 002 @ 002 021 q \a @ 271 H 001 272
0016300 H 002 [ 001 274 K 002 A i \v \0 \0 \t \0 \0 ]
0016320 001 276 M 002 001 _ 016 277 g \0 \0 g \0 \0 g \0
0016340 \0 g \0 \0 g \0 \0 J h 032 032 h 032 032 g \0
0016360 \0 g \0 \0 L O 016 g \0 \0 J N 032 032 h 032
0016400 \n \0 \0 032 032 h 032 032 h 032 032 032 h 032 032 g
0016420 \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 J
0016440 g \0 \0 I h 032 032 032 032 h 032 032 032 h 032 032
0016460 032 g \0 \0 J h 032 032 h 032 032 032 032 020 \0 (
0016500 1 1 4 Q \ A P P E N D 2 3 0
0016520 Q \ M V L I S T 2 5 Q P A
0016540 R S E - B O D Y ) \r ( 1 7 5 Q
0016560 Q U O T E 1 5 4 Q F U N C T
0016600 I O N S 1 5 0 Q P U T P R O
0016620 P S 1 4 5 Q F I L E P K G F
0016640 L G 1 4 2 Q A N D 1 3 3 Q
0016660 E V A L - W H E N 1 0 3 Q
0016700 C L : B L O C K 7 5 Q C L :
0016720 L A M B D A 7 2 Q C L : F U
0016740 N C T I O N 6 0 Q Q U O T E
0016760 5 5 Q S Y M B O L - F U N C
0017000 T I O N 5 2 Q S E T F 4 7
0017020 Q W I T H O U T - F I L E P K
0017040 G 4 4 Q P R O G N ) \r ( 1
0017060 3 7 Q ( C L : E V A L ) ) \r (
0017100 S E T F - M A C R O - F U N C T
0017120 I O N ( Q U O T E D E F U N
0017140 ) ( Q U O T E e x p a n d -
0017160 D E F U N ) ) \r ( A D D T O V A
0017200 R P R E T T Y P R I N T M A C
0017220 R O S ( D E F U N . P P R
0017240 I N T - D E F I N E R ) ) \r e x
0017260 p a n d - D E F M A C R O D 1
0017300 \r ( L ( 1 $ $ M A C R O - E
0017320 N V I R O N M E N T 0 $ $ M
0017340 A C R O - F O R M ) ) \0 321 \n \0
0017360 \0 002 @ 002 021 221 \t @ 271 H 001 272 H 002 [ 001
0017400 274 K 002 275 g \0 \0 g \0 \0 o \0 \0 \0 J \n
0017420 \0 \0 _ 022 277 L g \0 \0 M J h g \0 \0 g
0017440 \0 \0 \r \a \0 \0 \t \0 \0 _ 020 001 _ 016 277 O
0017460 020 002 001 276 g \0 \0 o \0 \0 \0 g \0 \0 g \0
0017500 \0 g \0 \0 O 022 h 032 032 h 032 032 g \0 \0 g
0017520 \0 \0 o \0 \0 \0 N g \0 \0 J O 016 h 032 032
0017540 032 h 032 \n \0 \0 032 032 h 032 032 h 032 032 032 g
0017560 \0 \0 g \0 \0 g \0 \0 J h 032 032 h 032 032 g
0017600 \0 \0 O 022 h 032 032 h 032 032 032 h 032 032 032 032
0017620 h 032 032 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0
0017640 g \0 \0 J g \0 \0 I h 032 032 032 032 h 032 032
0017660 032 h 032 032 032 g \0 \0 J h 032 032 h 032 032 032
0017700 032 020 \0 ( 1 6 3 Q \ A P P E N D
0017720 2 6 6 Q \ M V L I S T 6 3
0017740 Q P A R S E - D E F M A C R O
0017760 3 7 Q P A C K * ) \r ( 3 0 5
0020000 Q Q U O T E 2 6 4 Q F U N
0020020 C T I O N S 2 6 0 Q P U T P
0020040 R O P S 2 5 5 Q F I L E P K
0020060 G F L G 2 5 2 Q A N D 2 4
0020100 3 Q E V A L - W H E N 2 1 7
0020120 Q Q U O T E 2 0 5 Q Q U O
0020140 T E 2 0 2 Q M A C R O - F U
0020160 N C T I O N 1 7 7 Q S E T F
0020200 1 4 7 Q C L : B L O C K 1
0020220 3 7 Q C L : L A M B D A 1 3
0020240 4 Q C L : F U N C T I O N 1
0020260 2 1 Q Q U O T E 1 1 6 Q S
0020300 Y M B O L - F U N C T I O N 1
0020320 1 3 Q S E T F 1 0 4 Q E V
0020340 A L - W H E N 5 7 Q $ $ M A
0020360 C R O - E N V I R O N M E N T
0020400 5 4 Q : E N V I R O N M E N T
0020420 4 6 Q $ $ M A C R O - F O R
0020440 M 2 7 Q W I T H O U T - F I
0020460 L E P K G 2 4 Q P R O G N )
0020500 \r ( 2 4 7 Q ( C L : E V A L
0020520 ) 1 4 3 Q ( $ $ M A C R O -
0020540 F O R M $ $ M A C R O - E N V
0020560 I R O N M E N T ) 1 1 0 Q (
0020600 C L : E V A L C L : C O M P I
0020620 L E C L : L O A D ) 3 3 Q
0020640 " e x p a n d - " ) \r ( S E T F
0020660 - M A C R O - F U N C T I O N
0020700 ( Q U O T E D E F M A C R O )
0020720 ( Q U O T E e x p a n d - D
0020740 E F M A C R O ) ) \r ( A D D T O
0020760 V A R P R E T T Y P R I N T M
0021000 A C R O S ( D E F M A C R O
0021020 . P P R I N T - D E F I N E R
0021040 ) ) \r e x p a n d - C L : D E F
0021060 M A C R O D 1 \r ( L ( 1 $
0021100 $ M A C R O - E N V I R O N M E
0021120 N T 0 $ $ M A C R O - F O R
0021140 M ) ) \0 \f 001 \0 \0 002 @ 002 021 001 \0 g
0021160 \0 \0 H 032 020 \0 N I L \r ( 7 D E F
0021200 M A C R O ) \r ( ) \r ( S E T F -
0021220 M A C R O - F U N C T I O N (
0021240 Q U O T E C L : D E F M A C R
0021260 O ) ( Q U O T E e x p a n d
0021300 - C L : D E F M A C R O ) ) \r e
0021320 x p a n d - D E F V A R D 1 \r
0021340 ( L ( 1 $ $ M A C R O - E N
0021360 V I R O N M E N T 0 $ $ M A
0021400 C R O - F O R M ) ) \0 216 006 \0 \0
0021420 002 @ 002 021 Q 005 @ 271 H 001 272 H 002 [ d 220
0021440 001 274 K h 360 h 360 275 g \0 \0 g \0 \0 g \0
0021460 \0 M 264 ! g \0 \0 g \0 \0 g \0 \0 J h 032
0021500 032 h 032 032 g \0 \0 J L h 032 032 032 h 032 032
0021520 032 h 032 g \0 \0 g \0 \0 g \0 \0 J h 032 032
0021540 h 032 032 h 032 032 h 032 \n \0 \0 032 h 032 032 g
0021560 \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 J
0021600 g \0 \0 I h 032 032 032 032 h 032 032 032 h 032 032
0021620 032 g \0 \0 J h 032 032 h 032 032 032 032 020 \0 (
0021640 1 3 1 Q \ A P P E N D 2 ) \r (
0021660 2 0 2 Q Q U O T E 1 6 1 Q
0021700 V A R I A B L E S 1 5 5 Q P
0021720 U T P R O P S 1 5 2 Q F I L
0021740 E P K G F L G 1 4 7 Q A N D
0021760 1 4 0 Q E V A L - W H E N
0022000 1 1 2 Q S P E C I A L 1 0 7
0022020 Q Q U O T E 1 0 4 Q P R O
0022040 C L A I M 6 5 Q S E T Q 5
0022060 3 Q Q U O T E 5 0 Q B O U
0022100 N D P 4 5 Q O R 3 7 Q P
0022120 R O G N 3 4 Q W I T H O U T
0022140 - F I L E P K G 3 1 Q P R O
0022160 G N ) \r ( 1 4 4 Q ( C L : E
0022200 V A L ) ) \r ( S E T F - M A C R
0022220 O - F U N C T I O N ( Q U O T
0022240 E D E F V A R ) ( Q U O T E
0022260 e x p a n d - D E F V A R ) )
0022300 \r ( A D D T O V A R P R E T T
0022320 Y P R I N T M A C R O S ( D E
0022340 F V A R . P P R I N T - D E
0022360 F I N E R ) ) \r e x p a n d - D
0022400 E F P A R A M E T E R D 1 \r (
0022420 L ( 1 $ $ M A C R O - E N V
0022440 I R O N M E N T 0 $ $ M A C
0022460 R O - F O R M ) ) \0 g 004 \0 \0 002
0022500 @ 002 021 1 003 @ 271 H 001 272 H 002 001 273 g \0
0022520 \0 g \0 \0 g \0 \0 g \0 \0 J K h 032 032 032
0022540 g \0 \0 g \0 \0 J h 032 032 o \0 \0 \0 032 032
0022560 h 032 032 032 h 032 032 g \0 \0 o \0 \0 \0 g \0
0022600 \0 g \0 \0 g \0 \0 J g \0 \0 I h 032 032 032
0022620 032 h 032 032 032 h 032 032 032 g \0 \0 J h 032 032
0022640 h 032 032 032 032 020 \0 N I L \r ( 1 3 3 Q
0022660 Q U O T E 1 1 2 Q V A R I
0022700 A B L E S 1 0 6 Q P U T P R
0022720 O P S 1 0 3 Q F I L E P K G
0022740 F L G 1 0 0 Q A N D 7 1 Q
0022760 E V A L - W H E N 4 5 Q Q
0023000 U O T E 4 2 Q P U T 3 1 Q
0023020 S E T Q 2 6 Q P R O G N
0023040 2 3 Q W I T H O U T - F I L E
0023060 P K G 2 0 Q P R O G N ) \r (
0023100 7 5 Q ( C L : E V A L ) 5
0023120 5 Q ( ( Q U O T E G L O B A
0023140 L V A R ) T ) ) \r ( S E T F -
0023160 M A C R O - F U N C T I O N (
0023200 Q U O T E D E F P A R A M E T
0023220 E R ) ( Q U O T E e x p a n
0023240 d - D E F P A R A M E T E R ) )
0023260 \r ( A D D T O V A R P R E T T
0023300 Y P R I N T M A C R O S ( D E
0023320 F P A R A M E T E R . P P R
0023340 I N T - D E F I N E R ) ) \r e x
0023360 p a n d - D E F C O N S T A N T
0023400 D 1 \r ( L ( 1 $ $ M A C R
0023420 O - E N V I R O N M E N T 0
0023440 $ $ M A C R O - F O R M ) ) \0
0023460 u 004 \0 \0 002 @ 002 021 1 003 @ 271 H 001 272 H
0023500 002 001 273 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J
0023520 K h 032 032 032 g \0 \0 g \0 \0 J h 032 032 g
0023540 \0 \0 g \0 \0 J h 032 032 h 032 032 o \0 \0 \0
0023560 032 032 032 h 032 032 032 h 032 032 g \0 \0 o \0 \0
0023600 \0 g \0 \0 g \0 \0 g \0 \0 J g \0 \0 I h
0023620 032 032 032 032 h 032 032 032 h 032 032 032 g \0 \0 J
0023640 h 032 032 h 032 032 032 032 020 \0 N I L \r ( 1
0023660 5 1 Q Q U O T E 1 3 0 Q V
0023700 A R I A B L E S 1 2 4 Q P U
0023720 T P R O P S 1 2 1 Q F I L E
0023740 P K G F L G 1 1 6 Q A N D
0023760 1 0 7 Q E V A L - W H E N 5
0024000 7 Q C O N S T A N T 5 4 Q
0024020 Q U O T E 4 5 Q Q U O T E
0024040 4 2 Q P U T H A S H 3 1 Q
0024060 S E T Q 2 6 Q P R O G N 2
0024100 3 Q W I T H O U T - F I L E P
0024120 K G 2 0 Q P R O G N ) \r (
0024140 1 1 3 Q ( C L : E V A L ) 7
0024160 2 Q ( C O M P V A R M A C R O
0024200 H A S H ) ) \r ( S E T F - M A C
0024220 R O - F U N C T I O N ( Q U O
0024240 T E D E F C O N S T A N T )
0024260 ( Q U O T E e x p a n d - D E
0024300 F C O N S T A N T ) ) \r ( A D D
0024320 T O V A R P R E T T Y P R I N
0024340 T M A C R O S ( D E F C O N S
0024360 T A N T . P P R I N T - D E
0024400 F I N E R ) ) \r ( P U T P R O P
0024420 S F U N C T I O N S F I L E
0024440 P K G C O N T E N T S N I L L
0024460 ) \r ( P U T P R O P S M A C R
0024500 O - F N P R O P T Y P E F U
0024520 N C T I O N S ) \r ( P U T P R O
0024540 P S C M L D E F F E R F I L
0024560 E T Y P E C O M P I L E - F I
0024600 L E ) \r ( P U T P R O P S C M
0024620 L D E F F E R C O P Y R I G H
0024640 T ( " X e r o x C o r p o r
0024660 a t i o n " 1 9 8 6 ) ) \r S T
0024700 O P \r
0024703