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