$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLDEFFER.DCOM!21
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " X C
0000040 L " 247 P A C K A G E " I N T
0000060 E R L I S P " ) \r ( f i l e c r
0000100 e a t e d " 2 1 - O c t - 8 6
0000120 1 4 : 3 5 : 4 6 " ( " c o m
0000140 p i l e d o n " { e r i s
0000160 } < l i s p c o r e > s o u r c
0000200 e s > c m l d e f f e r . \ ; 2
0000220 1 ) \r " 2 1 - O c t - 8 6 0
0000240 4 : 1 3 : 0 1 " " C O M P I L
0000260 E - F I L E d " | i n | " X
0000300 e r o x L i s p 2 1 - O c t
0000320 - 8 6 . . . " | d a t e d |
0000340 " 2 1 - O c t - 8 6 0 4 : 4
0000360 8 : 4 3 " ) \r ( f i l e c r e a
0000400 t e d " 2 1 - O c t - 8 6 1
0000420 4 : 3 5 : 2 2 " { e r i s } <
0000440 l i s p c o r e > s o u r c e s
0000460 > c m l d e f f e r . \ ; 2 1
0000500 1 7 2 2 9 | c h a n g e s |
0000520 | t o : | ( \r f u n c t i o n
0000540 s d e f - d e f i n e - t y p
0000560 e ) | p r e v i o u s | | d
0000600 a t e : | " 1 2 - O c t - 8 6
0000620 1 5 : 5 0 : 1 7 " \r { e r i
0000640 s } < l i s p c o r e > s o u r
0000660 c e s > c m l d e f f e r . \ ;
0000700 1 9 ) \r ( r p a q q c m l d e
0000720 f f e r c o m s ( ( * | ; ;
0000740 ; | \r " D E F - D E F I N E -
0000760 T Y P E a n d D E F D E F I
0001000 N E R - - Y o u r O n e -
0001020 S t o p P r o v i d e r s o
0001040 f C u s t o m i z e d F i l
0001060 e M a n a g e r F a c i l i
0001100 t i e s . " ) ( * \r | ; ; |
0001120 \r " B E V E R Y C A R E F
0001140 U L C H A N G I N G A N Y T
0001160 H I N G I N T H I S F I L
0001200 E ! ! ! I t i s h e a v
0001220 i l y s e l f - r e f e r e n
0001240 t i a l a n d t h i c k w
0001260 i t h b o o t s t r a p p i n
0001300 g p r o b l e m s . A l l
0001320 b u t t h e m o s t t r
0001340 i v i a l c h a n g e s ( a
0001360 n d s o m e o f t h o s e
0001400 ) a r e v e r y t r i c k
0001420 y t o m a k e w i t h o u
0001440 t b l o w i n g y o u r s e
0001460 l f o u t o f t h e w a
0001500 t e r . . . Y o u h a v e
0001520 b e e n w a r n e d . " \r )
0001540 ( c o m s ( i n i t v a r s
0001560 ( f i l e p k g f l g ) ) (
0001600 c o m s ( f n s p p r i n t
0001620 - d e f i n e r \ \ d e f i n
0001640 e - t y p e - g e t d e f r e
0001660 m o v e - c o m m e n t s ) (
0001700 \r f u n c t i o n s \ \ d e f
0001720 i n e - t y p e - s a v e - d e
0001740 f n ) ) ) ( v a r i a b l e s
0001760 * d e f i n i t i o n - h a s
0002000 h - t a b l e * ) ( d e f i n
0002020 e - t y p e s d e f i n e - t
0002040 y p e s \r f u n c t i o n s
0002060 v a r i a b l e s ) ( f u n c
0002100 t i o n s d e f d e f i n e r
0002120 d e f - d e f i n e - t y p e
0002140 w i t h o u t - f i l e p k g
0002160 ) ( f u n c t i o n s c l :
0002200 d e f u n \r d e f i n l i n e
0002220 d e f m a c r o ) ( f u n c
0002240 t i o n s c l : d e f v a r
0002260 c l : d e f p a r a m e t e r
0002300 c l : d e f c o n s t a n t d
0002320 e f g l o b a l v a r \r d e f
0002340 g l o b a l p a r a m e t e r )
0002360 ( * | ; ; | " D o n ' t
0002400 n o t e f i l e p a c k a g
0002420 e c h a n g e s t o m a c
0002440 r o - f n . " ) ( p r o p p
0002460 r o p t y p e m a c r o - f n
0002500 ) ( \r * | ; ; | " A r r a
0002520 n g e f o r t h e c o r r
0002540 e c t c o m p i l e r t o
0002560 b e u s e d . " ) ( p r o p
0002600 f i l e t y p e c m l d e f
0002620 f e r ) ) ) \r ( r p a q ? f i
0002640 l e p k g f l g ) \r p p r i n t
0002660 - d e f i n e r d 1 \r ( p 3
0002700 \ # r p a r s p 2 c u r
0002720 r e n t p 1 d e f i n e d
0002740 p 0 d e f i n e r i 0
0002760 d e f i n e - e x p r e s s i
0003000 o n f 4 p r e t t y c o m
0003020 f o n t f 5 d e f a u l t
0003040 f o n t f 6 c o m m e n t
0003060 f l g ) \0 311 004 003 \0 001 @ 001 @ 002 b
0003100 \0 001 @ 002 b \0 277 \b \0 \0 021 023 003 o \0 \0
0003120 \0 \t \0 \0 277 H \t \0 \0 277 k \t \0 \0 I 003
0003140 262 0 o \0 \0 \0 \t \0 \0 277 T \t \0 \0 277 I
0003160 001 \t \0 \0 277 U \t \0 \0 277 k \t \0 \0 277 I
0003200 002 i d d \f \0 \0 277 o \0 \0 \0 \t \0 \0 215
0003220 T \t \0 \0 277 I \t \0 \0 277 U \t \0 \0 277 @
0003240 d 001 003 262 025 277 k \t \0 \0 277 @ 001 @ 002 b
0003260 \0 277 i \n \0 \0 277 @ 001 005 \a 251 @ d 001 003
0003300 001 V 360 262 026 277 k \t \0 \0 277 @ 001 @ 002 b
0003320 \0 277 i d \v \0 \0 277 @ i d \v \0 \0 253 \b
0003340 \0 \0 277 J \t \0 \0 277 l 003 200 k \t \0 \0 277
0003360 @ i d d \f \0 \0 o \0 \0 \0 \t \0 \0 h \t
0003400 \0 \0 020 \0 ( 1 9 8 t e r p r i
0003420 1 9 4 p r i n 1 1 8 7 p r
0003440 i n t d e f 1 7 9 s p a c e
0003460 s 1 7 1 d s p x p o s i t i
0003500 o n 1 6 6 t e r p r i 1 6
0003520 2 f i t p 1 5 5 p r i n t
0003540 d e f 1 4 2 s p a c e s 1
0003560 2 2 p r i n t d e f 1 1 0
0003600 s p a c e s 9 8 c h a n g e
0003620 f o n t 9 3 p r i n 2 8 8
0003640 c h a n g e f o n t 8 3 p
0003660 r i n 1 7 5 p r i n t d e f
0003700 6 6 s p a c e s 6 1 c h
0003720 a n g e f o n t 5 6 p r i n
0003740 2 5 0 c h a n g e f o n t
0003760 4 5 p r i n 1 3 4 s p a c
0004000 e s 2 9 p r i n 2 2 4 p
0004020 r i n 1 1 4 d s p x p o s i
0004040 t i o n ) \r n i l \r ( 1 9 1
0004060 " ) " 8 0 " ) " 4 2 " (
0004100 " 2 1 " ( " ) \r \ \ d e f i
0004120 n e - t y p e - g e t d e f d
0004140 1 \r ( p 1 d e f n p 0
0004160 c l : h a s h - t a b l e i
0004200 2 o p t i o n s i 1 t y
0004220 p e i 0 n a m e ) \0 ; 002
0004240 \0 \0 003 A ` \0 \0 \n \0 \0 021 001 \0 H 226 @
0004260 H \n \0 \0 265 020 @ 004 l 004 360 264 \t @ 301 002
0004300 311 \0 A ' 021 001 001 B g \0 \0 360 250 B 003 232
0004320 g \0 \0 B 034 224 I \t \0 \0 020 I 020 \0 ( 5
0004340 4 c l : c o p y - t r e e 1
0004360 6 c l : g e t h a s h 6 c
0004400 l : g e t h a s h ) \r ( 4 7 e
0004420 d i t 3 9 e d i t 3 * d
0004440 e f i n i t i o n - h a s h - t
0004460 a b l e * ) \r ( ) \r r e m o v e
0004500 - c o m m e n t s d 1 \r ( i
0004520 0 x f 2 c o m m e n t f
0004540 l g ) \0 2 002 001 \0 001 @ 003 265 004 @ 020
0004560 001 003 001 R 360 225 @ 002 b \0 260 361 @ 001 \t \0
0004600 \0 @ 002 \t \0 \0 021 002 001 H d @ 001 360 230 277
0004620 I @ 002 360 221 @ 020 H I 032 020 \0 ( 2 7
0004640 r e m o v e - c o m m e n t s
0004660 2 2 r e m o v e - c o m m e n
0004700 t s ) \r n i l \r ( ) \r \ \ d e f
0004720 i n e - t y p e - s a v e - d e
0004740 f n d 1 \r ( l ( 2 d e f i
0004760 n i t i o n 1 t y p e 0
0005000 n a m e ) ) \0 [ \a \0 \0 003 @ 004 l
0005020 004 360 225 @ A \n \0 \0 277 A ` \0 \0 \n \0 \0
0005040 021 a 006 H 263 - o \0 \0 \0 A \n \0 \0 277 A
0005060 273 ` \0 \0 272 g \0 \0 g \0 \0 g \0 \0 l 2
0005100 g \0 \0 l 2 \r 006 \0 \0 271 K J I \v \0 \0
0005120 270 @ 276 H 275 B 274 N M L \v \0 \0 023 @ A
0005140 g \0 \0 \v \0 \0 020 \0 ( 8 8 m a r k
0005160 a s c h a n g e d 7 9 c l :
0005200 : p u t h a s h 6 6 c l : :
0005220 p u t h a s h 5 9 c l : m a
0005240 k e - h a s h - t a b l e 3 2
0005260 c l : w a r n 1 8 c l : g
0005300 e t h a s h 1 0 r e m p r o
0005320 p ) \r ( 8 5 c h a n g e d 5
0005340 3 : r e h a s h - s i z e 4
0005360 8 : s i z e 4 5 c l : e q
0005400 u a l 4 2 : t e s t 3 8
0005420 * d e f i n i t i o n - h a s h
0005440 - t a b l e * 1 5 * d e f i
0005460 n i t i o n - h a s h - t a b l
0005500 e * ) \r ( 2 8 " C o u l d n
0005520 ' t f i n d a h a s h - t
0005540 a b l e f o r ~ S d e f i
0005560 n i t i o n s . ~ % O n e w i
0005600 l l b e c r e a t e d . " )
0005620 \r ( c l : p r o c l a i m ( q
0005640 u o t e ( g l o b a l * d e
0005660 f i n i t i o n - h a s h - t a
0005700 b l e * ) ) ) \r ( o r ( b o u
0005720 n d p ( q u o t e * d e f i
0005740 n i t i o n - h a s h - t a b l
0005760 e * ) ) ( s e t q * d e f i
0006000 n i t i o n - h a s h - t a b l
0006020 e * ( h a s h a r r a y 2 0
0006040 ) ) ) \r ( a d d t o v a r p r
0006060 e t t y d e f m a c r o s ( d
0006100 e f i n e - t y p e s x ( p
0006120 * ( m a p c a r ( q u o t
0006140 e x ) ( f u n c t i o n (
0006160 l a m b d a ( i t e m ) ( c
0006200 l : d o ( ( d e f \r ( g e t
0006220 d e f i t e m ( q u o t e
0006240 d e f i n e - t y p e s ) ) ) )
0006260 ( d e f d e f ) ( c l : c
0006300 e r r o r " R e - f e t c h
0006320 t h e d e f i n i t i o n "
0006340 \r " N o ~ S d e f i n i t i
0006360 o n f o r ~ S " ( q u o t
0006400 e d e f i n e - t y p e s )
0006420 i t e m ) ) ) ) ) ) ) ) \r ( a d
0006440 d t o v a r p r e t t y t y p
0006460 e l s t ( c h a n g e d d e f
0006500 i n e - t y p e s l s t d e f
0006520 i n e - t y p e s " C o m m o
0006540 n L i s p d e f i n i t i o
0006560 n t y p e " ) ) \r ( c o n d
0006600 ( ( n o t ( c l : g e t h a s
0006620 h ( q u o t e d e f i n e -
0006640 t y p e s ) * d e f i n i t i
0006660 o n - h a s h - t a b l e * ) )
0006700 ( l e t * ( ( a 0 3 2 8 (
0006720 q u o t e \r d e f i n e - t y
0006740 p e s ) ) ( a 0 3 2 9 * d e
0006760 f i n i t i o n - h a s h - t a
0007000 b l e * ) ( a 0 3 3 1 ( c l
0007020 : m a k e - h a s h - t a b l e
0007040 ( q u o t e : t e s t ) (
0007060 q u o t e c l : e q u a l \r )
0007100 ( q u o t e : s i z e ) 5
0007120 0 ( q u o t e : r e h a s h
0007140 - s i z e ) 5 0 ) ) ) ( c l
0007160 : : p u t h a s h a 0 3 2 8
0007200 a 0 3 2 9 a 0 3 3 1 ) ) ) ) \r
0007220 ( a d d t o v a r f i l e p k
0007240 g t y p e s d e f i n e - t y
0007260 p e s ) \r ( p u t p r o p s d
0007300 e f i n e - t y p e s g e t d
0007320 e f \ \ d e f i n e - t y p e
0007340 - g e t d e f ) \r ( p u t p r o
0007360 p s d e f i n e - t y p e s
0007400 f i l e p k g c o n t e n t s
0007420 n i l l ) \r ( p u t p r o p s
0007440 d e f i n e - t y p e s p r o
0007460 p t y p e d e f i n e - t y p
0007500 e s ) \r ( a d d t o v a r p r
0007520 e t t y d e f m a c r o s ( f
0007540 u n c t i o n s x ( p *
0007560 ( m a p c a r ( q u o t e x
0007600 ) ( f u n c t i o n ( l a m
0007620 b d a ( i t e m ) ( c l : d
0007640 o ( ( d e f ( \r g e t d e f
0007660 i t e m ( q u o t e f u n
0007700 c t i o n s ) ) ) ) ( d e f
0007720 d e f ) ( c l : c e r r o r
0007740 " R e - f e t c h t h e d e
0007760 f i n i t i o n " \r " N o ~
0010000 S d e f i n i t i o n f o r
0010020 ~ S " ( q u o t e f u n c
0010040 t i o n s ) i t e m ) ) ) ) )
0010060 ) ) ) \r ( a d d t o v a r p r
0010100 e t t y t y p e l s t ( c h a
0010120 n g e d f u n c t i o n s l s t
0010140 f u n c t i o n s " C o m m
0010160 o n L i s p f u n c t i o n
0010200 s " ) ) \r ( c o n d ( ( n o t
0010220 ( c l : g e t h a s h ( q u
0010240 o t e f u n c t i o n s ) *
0010260 d e f i n i t i o n - h a s h -
0010300 t a b l e * ) ) ( l e t * (
0010320 ( a 0 3 3 2 ( q u o t e f u
0010340 n c t i o n s ) ) ( \r a 0 3 3
0010360 3 * d e f i n i t i o n - h a
0010400 s h - t a b l e * ) ( a 0 3 3
0010420 5 ( c l : m a k e - h a s h -
0010440 t a b l e ( q u o t e : t e
0010460 s t ) ( q u o t e c l : e q
0010500 u a l ) ( q u o t e : s i z
0010520 e ) \r 5 0 ( q u o t e : r
0010540 e h a s h - s i z e ) 5 0 ) )
0010560 ) ( c l : : p u t h a s h a
0010600 0 3 3 2 a 0 3 3 3 a 0 3 3 5
0010620 ) ) ) ) \r ( a d d t o v a r f
0010640 i l e p k g t y p e s f u n c
0010660 t i o n s ) \r ( p u t p r o p s
0010700 f u n c t i o n s g e t d e
0010720 f \ \ d e f i n e - t y p e -
0010740 g e t d e f ) \r ( p u t p r o p
0010760 s f u n c t i o n s f i l e
0011000 p k g c o n t e n t s n i l l
0011020 ) \r ( p u t p r o p s f u n c
0011040 t i o n s p r o p t y p e f
0011060 u n c t i o n s ) \r ( a d d t o
0011100 v a r p r e t t y d e f m a c
0011120 r o s ( v a r i a b l e s x
0011140 ( p * ( m a p c a r ( q
0011160 u o t e x ) ( f u n c t i o
0011200 n ( l a m b d a ( i t e m )
0011220 ( c l : d o ( ( d e f ( \r
0011240 g e t d e f i t e m ( q u o
0011260 t e v a r i a b l e s ) ) ) )
0011300 ( d e f d e f ) ( c l : c
0011320 e r r o r " R e - f e t c h
0011340 t h e d e f i n i t i o n "
0011360 \r " N o ~ S d e f i n i t i
0011400 o n f o r ~ S " ( q u o t
0011420 e v a r i a b l e s ) i t e
0011440 m ) ) ) ) ) ) ) ) \r ( a d d t o
0011460 v a r p r e t t y t y p e l s
0011500 t ( c h a n g e d v a r i a b
0011520 l e s l s t v a r i a b l e s
0011540 " C o m m o n L i s p v a
0011560 r i a b l e s " ) ) \r ( c o n d
0011600 ( ( n o t ( c l : g e t h a
0011620 s h ( q u o t e v a r i a b
0011640 l e s ) * d e f i n i t i o n
0011660 - h a s h - t a b l e * ) ) (
0011700 l e t * ( ( a 0 3 3 6 ( q u
0011720 o t e v a r i a b l e s ) )
0011740 ( \r a 0 3 3 7 * d e f i n i t
0011760 i o n - h a s h - t a b l e * )
0012000 ( a 0 3 3 9 ( c l : m a k e
0012020 - h a s h - t a b l e ( q u o
0012040 t e : t e s t ) ( q u o t e
0012060 c l : e q u a l ) ( q u o t
0012100 e : s i z e ) \r 5 0 ( q u
0012120 o t e : r e h a s h - s i z e
0012140 ) 5 0 ) ) ) ( c l : : p u t
0012160 h a s h a 0 3 3 6 a 0 3 3 7
0012200 a 0 3 3 9 ) ) ) ) \r ( a d d t
0012220 o v a r f i l e p k g t y p e
0012240 s v a r i a b l e s ) \r ( p u
0012260 t p r o p s v a r i a b l e s
0012300 g e t d e f \ \ d e f i n e
0012320 - t y p e - g e t d e f ) \r ( p
0012340 u t p r o p s v a r i a b l e
0012360 s f i l e p k g c o n t e n t
0012400 s n i l l ) \r ( p u t p r o p
0012420 s v a r i a b l e s p r o p
0012440 t y p e v a r i a b l e s ) \r
0012460 | e x p a n d - D E F D E F I N
0012500 E R | d 1 \r ( l ( 1 $ $ m
0012520 a c r o - e n v i r o n m e n t
0012540 0 $ $ m a c r o - f o r m )
0012560 ) 001 1 \v \0 \0 002 @ 002 \t \0 \0 021 241 \n
0012600 @ 271 H 001 272 H 002 [ 001 274 K 002 ] 001 276 M
0012620 002 A i \v \0 \0 \t \0 \0 _ 016 001 _ 020 277 O
0012640 016 002 001 _ 022 277 O 016 002 002 001 _ 024 277 g \0
0012660 \0 g \0 \0 g \0 \0 g \0 \0 J g \0 \0 g \0
0012700 \0 N 032 032 O 022 g \0 \0 g \0 \0 g \0 \0 g
0012720 \0 \0 g \0 \0 O 020 032 h 032 032 h 032 032 g \0
0012740 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 o \0
0012760 \0 \0 g \0 \0 g \0 \0 g \0 \0 L h 032 032 h
0013000 032 032 h 032 032 o \0 \0 \0 032 032 032 h 032 032 032
0013020 h 032 032 032 o \0 \0 \0 032 032 032 h 032 032 h 032
0013040 \n \0 \0 032 032 032 g \0 \0 g \0 \0 g \0 \0 J
0013060 g \0 \0 032 h 032 032 032 h 032 032 O 024 264 035 g
0013100 \0 \0 g \0 \0 g \0 \0 J h 032 032 o \0 \0 \0
0013120 032 032 O 024 h 032 032 032 h 032 g \0 \0 J h 032
0013140 032 h 032 \n \0 \0 032 032 032 h 032 032 g \0 \0 o
0013160 \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J
0013200 h 032 032 o \0 \0 \0 g \0 \0 I h 032 032 h 032
0013220 032 032 032 h 032 032 032 h 032 032 032 g \0 \0 J h
0013240 032 032 h 032 032 032 032 020 \0 ( 2 3 7 \ \
0013260 a p p e n d 2 1 7 0 \ \ a p
0013300 p e n d 2 3 2 \ \ m v l i s
0013320 t 2 9 p a r s e - b o d y
0013340 4 r e m o v e - c o m m e n t
0013360 s ) \r ( 2 9 3 q u o t e 2 7
0013400 3 q u o t e 2 6 2 q u o t
0013420 e 2 5 9 \ \ d e f i n e - t
0013440 y p e - s a v e - d e f n 2 5
0013460 6 f i l e p k g f l g 2 5 3
0013500 a n d 2 4 6 c l : e v a l
0013520 - w h e n 2 2 8 q u o t e
0013540 2 0 7 q u o t e 2 0 4 c l
0013560 : d o c u m e n t a t i o n 2
0013600 0 1 c l : s e t f 1 8 6 p
0013620 p r i n t - d e f i n e r 1 8
0013640 2 p r e t t y p r i n t m a c
0013660 r o s 1 7 9 a d d t o v a r
0013700 1 7 6 w i t h o u t - f i l
0013720 e p k g 1 3 0 q u o t e 1
0013740 2 7 \ \ \ , 1 2 4 q u o t
0013760 e 1 1 7 \ \ d e f i n e - t
0014000 y p e - s a v e - d e f n 1 1
0014020 4 f i l e p k g f l g 1 1 1
0014040 a n d 1 0 4 c l : e v a l
0014060 - w h e n 9 2 p r o g n 8
0014100 9 \ \ \ , 8 6 w i t h o u
0014120 t - f i l e p k g 8 3 p r o
0014140 g n 8 0 b q u o t e 7 2
0014160 % o r i g i n a l - d e f i n i
0014200 t i o n 6 9 & w h o l e 6
0014220 5 d e f m a c r o 6 2 p r
0014240 o g n 5 9 w i t h o u t - f
0014260 i l e p k g 5 6 p r o g n )
0014300 \r ( 2 7 0 ( q u o t e f u
0014320 n c t i o n s ) 2 5 0 ( c l
0014340 : e v a l ) 2 1 5 ( ( q u o
0014360 t e c l : f u n c t i o n ) )
0014400 1 5 9 ( ( q u o t e ( \ \
0014420 \ , n a m e ) ) ) 1 4 4 (
0014440 ( q u o t e ( \ \ \ , % o r
0014460 i g i n a l - d e f i n i t i o
0014500 n ) ) ) \r 1 2 1 ( q u o t e
0014520 ( \ \ \ , n a m e ) ) 1 0
0014540 8 ( c l : e v a l ) ) \r ( s e
0014560 t f - m a c r o - f u n c t i o
0014600 n ( q u o t e d e f d e f i
0014620 n e r ) ( q u o t e | e x p
0014640 a n d - D E F D E F I N E R | )
0014660 ) \r ( a d d t o v a r p r e t
0014700 t y p r i n t m a c r o s ( d
0014720 e f d e f i n e r . p p r i
0014740 n t - d e f i n e r ) ) \r | e x
0014760 p a n d - D E F - D E F I N E -
0015000 T Y P E | d 1 \r ( l ( 1 $
0015020 $ m a c r o - e n v i r o n m e
0015040 n t 0 $ $ m a c r o - f o r
0015060 m ) ) 001 l 005 \0 \0 002 @ 002 \t \0 \0 021
0015100 A 004 @ 271 H 001 272 H 002 001 273 g \0 \0 g \0
0015120 \0 g \0 \0 g \0 \0 g \0 \0 J g \0 \0 g \0
0015140 \0 g \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 g \0
0015160 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0
0015200 \0 g \0 \0 J h 032 032 h 032 032 032 h 032 032 h
0015220 032 o \0 \0 \0 g \0 \0 o \0 \0 \0 o \0 \0 \0
0015240 g \0 \0 J h 032 032 o \0 \0 \0 032 032 032 032 h
0015260 032 032 032 032 h 032 032 032 h 032 032 h 032 032 032 h
0015300 032 032 032 h 032 032 032 h 032 032 032 g \0 \0 g \0
0015320 \0 g \0 \0 o \0 \0 \0 J \t \0 \0 o \0 \0 \0
0015340 \f \0 \0 J \t \0 \0 \n \0 \0 \ d \t \0 \0 246
0015360 277 L \t \0 \0 277 L J K h 032 032 032 h 032 032
0015400 032 g \0 \0 g \0 \0 g \0 \0 J h 032 032 o \0
0015420 \0 \0 032 032 g \0 \0 g \0 \0 g \0 \0 J h 032
0015440 032 o \0 \0 \0 032 032 o \0 \0 \0 032 032 h 032 032
0015460 032 g \0 \0 g \0 \0 J h 032 032 032 g \0 \0 J
0015500 o \0 \0 \0 032 032 g \0 \0 J o \0 \0 \0 032 032
0015520 g \0 \0 J g \0 \0 J h 032 032 032 032 h 032 032
0015540 032 032 032 032 032 032 h 032 032 g \0 \0 o \0 \0 \0
0015560 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J h 032 032
0015600 o \0 \0 \0 g \0 \0 I h 032 032 h 032 032 032 032
0015620 h 032 032 032 h 032 032 032 g \0 \0 J h 032 032 h
0015640 032 032 032 032 020 \0 ( 1 8 6 s e t 1
0015660 8 0 b o u n d p 1 7 5 c l
0015700 : i n t e r n 1 7 2 c l : s
0015720 y m b o l - p a c k a g e 1 6
0015740 8 c l : c o n c a t e n a t e
0015760 1 6 1 s t r i n g 4 r e
0016000 m o v e - c o m m e n t s ) \r (
0016020 3 5 2 q u o t e 3 3 2 q u
0016040 o t e 3 2 1 q u o t e 3 1
0016060 8 \ \ d e f i n e - t y p e -
0016100 s a v e - d e f n 3 1 5 f i
0016120 l e p k g f l g 3 1 2 a n d
0016140 3 0 5 c l : e v a l - w h e
0016160 n 2 8 4 p r o p t y p e 2
0016200 8 0 p u t p r o p s 2 7 0
0016220 p u t p r o p s 2 6 0 p u t
0016240 p r o p s 2 5 2 f i l e p k
0016260 g t y p e s 2 4 9 a d d t o
0016300 v a r 2 2 6 q u o t e 2 2
0016320 3 c l : g e t h a s h 2 2 0
0016340 c l : s e t f 2 0 7 q u o
0016360 t e 2 0 4 c l : g e t h a s
0016400 h 2 0 1 c l : u n l e s s
0016420 1 5 3 s t r i n g 1 5 0 p
0016440 r e t t y t y p e l s t 1 4 7
0016460 a d d t o v a r 1 0 4 q u
0016500 o t e 9 3 c l : c e r r o r
0016520 7 3 q u o t e 7 0 i t e
0016540 m 6 7 g e t d e f 6 4 d
0016560 e f 6 1 c l : d o 5 4 l
0016600 a m b d a 5 1 f u n c t i o
0016620 n 4 4 m a p c a r 4 1 *
0016640 3 8 p 3 5 x 3 1 p r
0016660 e t t y d e f m a c r o s 2 8
0016700 a d d t o v a r 2 5 p r o
0016720 g n 2 2 w i t h o u t - f i
0016740 l e p k g 1 9 p r o g n ) \r
0016760 ( 3 2 9 ( q u o t e d e f
0017000 i n e - t y p e s ) 3 0 9 (
0017020 c l : e v a l ) 2 7 5 ( f i
0017040 l e p k g c o n t e n t s n i
0017060 l l ) 2 6 5 ( g e t d e f
0017100 \ \ d e f i n e - t y p e - g e
0017120 t d e f ) 2 4 0 \r ( ( c l :
0017140 m a k e - h a s h - t a b l e
0017160 : t e s t ( q u o t e c l :
0017200 e q u a l ) : s i z e 5 0
0017220 : r e h a s h - s i z e 5 0 )
0017240 ) 2 3 4 ( * d e f i n i t i
0017260 o n - h a s h - t a b l e * )
0017300 2 1 5 \r ( * d e f i n i t i o
0017320 n - h a s h - t a b l e * ) 1
0017340 6 5 " L S T " 1 5 7 " C H
0017360 A N G E D " 1 1 2 ( i t e m
0017400 ) 1 0 1 " N o ~ S d e f
0017420 i n i t i o n f o r ~ S "
0017440 9 7 " R e - f e t c h t h e
0017460 d e f i n i t i o n " \r 9 0
0017500 ( d e f d e f ) 5 8 ( i
0017520 t e m ) 4 8 ( q u o t e x
0017540 ) ) \r ( s e t f - m a c r o - f
0017560 u n c t i o n ( q u o t e d
0017600 e f - d e f i n e - t y p e )
0017620 ( q u o t e | e x p a n d - D
0017640 E F - D E F I N E - T Y P E | )
0017660 ) \r ( a d d t o v a r p r e t
0017700 t y p r i n t m a c r o s ( d
0017720 e f - d e f i n e - t y p e .
0017740 p p r i n t - d e f i n e r )
0017760 ) \r | e x p a n d - W I T H O U
0020000 T - F I L E P K G | d 1 \r ( l
0020020 ( 1 $ $ m a c r o - e n v i
0020040 r o n m e n t 0 $ $ m a c r
0020060 o - f o r m ) ) \0 = 001 \0 \0 002 @
0020100 002 021 001 \0 g \0 \0 g \0 \0 o \0 \0 \0 H 032
0020120 032 g \0 \0 o \0 \0 \0 g \0 \0 o \0 \0 \0 g
0020140 \0 \0 o \0 \0 \0 o \0 \0 \0 H 032 032 032 h 032
0020160 032 032 h 032 032 032 h 032 032 032 020 \0 n i l \r
0020200 ( 3 4 l e t 2 7 a n d 2
0020220 0 c l : e v a l - w h e n 1
0020240 0 c l : e v a l - w h e n 7
0020260 p r o g n ) \r ( 4 2 ( d e
0020300 c l a r e ( c l : s p e c i a
0020320 l f i l e p k g f l g d f n
0020340 f l g ) ) 3 8 ( f i l e p k
0020360 g f l g ( d f n f l g t ) )
0020400 3 1 ( n e q d f n f l g
0020420 ( q u o t e p r o p ) ) 2 4
0020440 \r ( c l : e v a l ) 1 4 (
0020460 c l : l o a d ) ) \r ( s e t f -
0020500 m a c r o - f u n c t i o n (
0020520 q u o t e w i t h o u t - f i
0020540 l e p k g ) ( q u o t e | e
0020560 x p a n d - W I T H O U T - F I
0020600 L E P K G | ) ) \r c l : : | e x
0020620 p a n d - D E F U N | d 1 \r (
0020640 l ( 1 $ $ m a c r o - e n v
0020660 i r o n m e n t 0 $ $ m a c
0020700 r o - f o r m ) ) \0 304 \t \0 \0 002
0020720 @ 002 \t \0 \0 021 201 \b @ 271 H 001 272 H 002 [
0020740 001 274 K 002 A i \v \0 \0 \t \0 \0 ] 001 276 M
0020760 002 001 _ 016 277 M 002 002 001 _ 020 277 g \0 \0 g
0021000 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J h
0021020 032 032 h 032 032 g \0 \0 g \0 \0 L O 016 g \0
0021040 \0 J N 032 032 h 032 \n \0 \0 032 032 h 032 032 h
0021060 032 032 032 O 020 264 035 g \0 \0 g \0 \0 g \0 \0
0021100 J h 032 032 o \0 \0 \0 032 032 O 020 h 032 032 032
0021120 h 032 032 032 h 032 032 g \0 \0 o \0 \0 \0 g \0
0021140 \0 g \0 \0 g \0 \0 g \0 \0 J h 032 032 o \0
0021160 \0 \0 g \0 \0 I h 032 032 h 032 032 032 032 h 032
0021200 032 032 h 032 032 032 g \0 \0 J h 032 032 h 032 032
0021220 032 032 020 \0 ( 8 9 \ \ a p p e n d
0021240 2 2 7 \ \ m v l i s t 2 4
0021260 p a r s e - b o d y 4 r e
0021300 m o v e - c o m m e n t s ) \r (
0021320 1 8 4 q u o t e 1 6 4 q u
0021340 o t e 1 5 3 q u o t e 1 5
0021360 0 \ \ d e f i n e - t y p e -
0021400 s a v e - d e f n 1 4 7 f i
0021420 l e p k g f l g 1 4 4 a n d
0021440 1 3 7 c l : e v a l - w h e
0021460 n 1 1 1 q u o t e 1 0 8
0021500 c l : d o c u m e n t a t i o n
0021520 1 0 5 c l : s e t f 8 0
0021540 c l : b l o c k 7 4 c l : l
0021560 a m b d a 7 1 c l : f u n c
0021600 t i o n 6 1 q u o t e 5 8
0021620 c l : s y m b o l - f u n c t
0021640 i o n 5 5 c l : s e t f 5
0021660 2 p r o g n 4 9 w i t h o
0021700 u t - f i l e p k g 4 6 p r
0021720 o g n ) \r ( 1 6 1 ( q u o t
0021740 e f u n c t i o n s ) 1 4 1
0021760 ( c l : e v a l ) 1 1 9 (
0022000 ( q u o t e c l : f u n c t i
0022020 o n ) ) ) \r ( s e t f - m a c r
0022040 o - f u n c t i o n ( q u o t
0022060 e c l : d e f u n ) ( q u o
0022100 t e c l : : | e x p a n d - D
0022120 E F U N | ) ) \r ( a d d t o v a
0022140 r p r e t t y p r i n t m a c
0022160 r o s ( c l : d e f u n .
0022200 p p r i n t - d e f i n e r ) )
0022220 \r | e x p a n d - D E F I N L I
0022240 N E | d 1 \r ( l ( 1 $ $ m
0022260 a c r o - e n v i r o n m e n t
0022300 0 $ $ m a c r o - f o r m )
0022320 ) \0 311 \v \0 \0 002 @ 002 \t \0 \0 021 241 \n
0022340 @ 271 H 001 272 H 002 [ 001 274 K 002 275 A 276 g
0022360 \0 \0 g \0 \0 M N i \v \0 \0 \t \0 \0 _ 024
0022400 001 _ 022 277 O 024 002 001 _ 020 277 g \0 \0 L O
0022420 020 g \0 \0 J O 022 032 032 h 032 \n \0 \0 032 032
0022440 _ 016 277 g \0 \0 g \0 \0 J L M 032 032 032 g
0022460 \0 \0 J o \0 \0 \0 J h 032 032 J \t \0 \0 \n
0022500 \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 O 016 h 032
0022520 032 o \0 \0 \0 032 032 h 032 032 032 032 032 h 032 032
0022540 032 h 032 032 g \0 \0 o \0 \0 \0 g \0 \0 g \0
0022560 \0 g \0 \0 g \0 \0 J h 032 032 o \0 \0 \0 g
0022600 \0 \0 I h 032 032 h 032 032 032 032 h 032 032 032 h
0022620 032 032 032 g \0 \0 J h 032 032 h 032 032 032 032 020
0022640 \0 ( 1 0 5 x c l : p a c k 1
0022660 0 2 c l : s y m b o l - p a c
0022700 k a g e 6 9 \ \ a p p e n d
0022720 2 3 7 \ \ m v l i s t 3 4
0022740 p a r s e - b o d y 4 r e
0022760 m o v e - c o m m e n t s ) \r (
0023000 1 8 9 q u o t e 1 6 9 q u
0023020 o t e 1 5 8 q u o t e 1 5
0023040 5 \ \ d e f i n e - t y p e -
0023060 s a v e - d e f n 1 5 2 f i
0023100 l e p k g f l g 1 4 9 a n d
0023120 1 4 2 c l : e v a l - w h e
0023140 n 1 1 5 q u o t e 1 1 2
0023160 c o n s 8 9 d e f o p t i m
0023200 i z e r 8 0 c l : d e f u n
0023220 7 7 p r o g n 5 9 c l :
0023240 b l o c k 5 3 c l : l a m b
0023260 d a 2 8 w i t h o u t - f i
0023300 l e p k g 2 5 p r o g n ) \r
0023320 ( 1 6 6 ( q u o t e f u n
0023340 c t i o n s ) 1 4 6 ( c l :
0023360 e v a l ) 1 2 4 ( a r g s )
0023400 1 0 9 ( & r e s t a r g s
0023420 ) 9 4 " d e f i n l i n e -
0023440 " ) \r ( s e t f - m a c r o - f
0023460 u n c t i o n ( q u o t e d
0023500 e f i n l i n e ) ( q u o t e
0023520 | e x p a n d - D E F I N L I
0023540 N E | ) ) \r ( a d d t o v a r
0023560 p r e t t y p r i n t m a c r o
0023600 s ( d e f i n l i n e . p
0023620 p r i n t - d e f i n e r ) ) \r
0023640 c l : : | e x p a n d - D E F M
0023660 A C R O | d 1 \r ( l ( 1 $
0023700 $ m a c r o - e n v i r o n m e
0023720 n t 0 $ $ m a c r o - f o r
0023740 m ) ) 001 037 \f \0 \0 002 @ 002 \t \0 \0 021
0023760 261 \v @ 271 H 001 272 H 002 [ 001 274 K 002 275 g
0024000 \0 \0 g \0 \0 J 225 J 004 l 004 360 250 o \0 \0
0024020 \0 J \n \0 \0 277 o \0 \0 \0 J h 032 032 J \t
0024040 \0 \0 \n \0 \0 _ 026 277 L g \0 \0 M J h g
0024060 \0 \0 g \0 \0 \r \a \0 \0 \t \0 \0 _ 024 001 _
0024100 022 277 O 024 002 _ 020 001 _ 016 277 O 020 002 001 276
0024120 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0
0024140 O 026 h 032 032 h 032 032 g \0 \0 g \0 \0 o \0
0024160 \0 \0 O 016 g \0 \0 J O 022 h 032 032 032 h 032
0024200 \n \0 \0 032 032 h 032 032 h 032 032 032 g \0 \0 g
0024220 \0 \0 g \0 \0 J h 032 032 h 032 032 g \0 \0 O
0024240 026 h 032 032 h 032 032 032 N 264 034 g \0 \0 g \0
0024260 \0 g \0 \0 J h 032 032 o \0 \0 \0 032 032 N h
0024300 032 032 032 h 032 032 032 032 032 h 032 032 g \0 \0 o
0024320 \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J
0024340 h 032 032 o \0 \0 \0 g \0 \0 I h 032 032 h 032
0024360 032 032 032 h 032 032 032 h 032 032 032 g \0 \0 J h
0024400 032 032 h 032 032 032 032 020 \0 ( 1 5 2 \ \
0024420 a p p e n d 2 8 1 \ \ m v l
0024440 i s t 7 8 p a r s e - d e f
0024460 m a c r o 5 8 x c l : p a c
0024500 k 5 5 c l : s y m b o l - p
0024520 a c k a g e 4 2 c l : e r r
0024540 o r 4 r e m o v e - c o m m
0024560 e n t s ) \r ( 2 7 5 q u o t e
0024600 2 5 5 q u o t e 2 4 4 q
0024620 u o t e 2 4 1 \ \ d e f i n
0024640 e - t y p e - s a v e - d e f n
0024660 2 3 8 f i l e p k g f l g
0024700 2 3 5 a n d 2 2 8 c l : e
0024720 v a l - w h e n 2 0 1 q u o
0024740 t e 1 9 8 c l : d o c u m e
0024760 n t a t i o n 1 9 5 c l : s
0025000 e t f 1 8 0 q u o t e 1 7
0025020 0 q u o t e 1 6 7 c l : m
0025040 a c r o - f u n c t i o n 1 6
0025060 4 c l : s e t f 1 4 0 c l
0025100 : b l o c k 1 3 1 c l : l a
0025120 m b d a 1 2 8 c l : f u n c
0025140 t i o n 1 1 7 q u o t e 1
0025160 1 4 c l : s y m b o l - f u n
0025200 c t i o n 1 1 1 c l : s e t
0025220 f 1 0 4 c l : e v a l - w h
0025240 e n 7 4 $ $ m a c r o - e n
0025260 v i r o n m e n t 7 1 : e n
0025300 v i r o n m e n t 6 5 $ $ m
0025320 a c r o - f o r m 2 6 w i t
0025340 h o u t - f i l e p k g 2 3
0025360 p r o g n ) \r ( 2 5 2 ( q u
0025400 o t e f u n c t i o n s ) 2
0025420 3 2 ( c l : e v a l ) 2 0 9
0025440 ( ( q u o t e c l : f u n c
0025460 t i o n ) ) 1 3 5 ( $ $ m a
0025500 c r o - f o r m $ $ m a c r o
0025520 - e n v i r o n m e n t ) \r 1
0025540 0 8 ( c l : e v a l c l : c
0025560 o m p i l e c l : l o a d )
0025600 4 7 " e x p a n d - " 3 8
0025620 " I l l e g a l n a m e u s
0025640 e d i n D E F M A C R O :
0025660 ~ S " ) \r ( s e t f - m a c r o
0025700 - f u n c t i o n ( q u o t e
0025720 d e f m a c r o ) ( q u o t
0025740 e c l : : | e x p a n d - D E
0025760 F M A C R O | ) ) \r ( a d d t o
0026000 v a r p r e t t y p r i n t m
0026020 a c r o s ( d e f m a c r o
0026040 . p p r i n t - d e f i n e r
0026060 ) ) \r c l : : | e x p a n d - D
0026100 E F V A R | d 1 \r ( l ( 1
0026120 $ $ m a c r o - e n v i r o n m
0026140 e n t 0 $ $ m a c r o - f o
0026160 r m ) ) \0 302 \a \0 \0 002 @ 002 \t \0 \0
0026200 021 a 006 @ 271 H 001 272 H 002 [ d 220 001 274 K
0026220 h 360 h 360 275 K 002 264 005 K 002 001 276 g \0 \0
0026240 g \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J
0026260 h 032 032 h 032 032 h 032 032 M 264 ! g \0 \0 g
0026300 \0 \0 g \0 \0 J h 032 032 h 032 032 g \0 \0 J
0026320 L h 032 032 032 h 032 032 032 h 032 N 264 034 g \0
0026340 \0 g \0 \0 g \0 \0 J h 032 032 o \0 \0 \0 032
0026360 032 N h 032 032 032 h 032 \n \0 \0 032 032 h 032 032
0026400 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0
0026420 g \0 \0 J h 032 032 o \0 \0 \0 g \0 \0 I h
0026440 032 032 h 032 032 032 032 h 032 032 032 h 032 032 032 g
0026460 \0 \0 J h 032 032 h 032 032 032 032 020 \0 ( 1 2
0026500 7 \ \ a p p e n d 2 4 r e
0026520 m o v e - c o m m e n t s ) \r (
0026540 1 8 2 q u o t e 1 6 2 q u
0026560 o t e 1 5 1 q u o t e 1 4
0026600 8 \ \ d e f i n e - t y p e -
0026620 s a v e - d e f n 1 4 5 f i
0026640 l e p k g f l g 1 4 2 a n d
0026660 1 3 5 c l : e v a l - w h e
0026700 n 1 0 7 q u o t e 1 0 4
0026720 c l : d o c u m e n t a t i o n
0026740 1 0 1 c l : s e t f 8 3
0026760 s e t q 7 3 q u o t e 7 0
0027000 b o u n d p 6 7 o r 5 1
0027020 c l : s p e c i a l 4 8 q
0027040 u o t e 4 5 c l : p r o c l
0027060 a i m 4 2 p r o g n 3 9
0027100 w i t h o u t - f i l e p k g
0027120 3 6 p r o g n ) \r ( 1 5 9
0027140 ( q u o t e v a r i a b l e s
0027160 ) 1 3 9 ( c l : e v a l )
0027200 1 1 5 ( ( q u o t e v a r i
0027220 a b l e ) ) ) \r ( s e t f - m a
0027240 c r o - f u n c t i o n ( q u
0027260 o t e c l : d e f v a r ) (
0027300 q u o t e c l : : | e x p a n
0027320 d - D E F V A R | ) ) \r ( a d d
0027340 t o v a r p r e t t y p r i n
0027360 t m a c r o s ( c l : d e f v
0027400 a r . p p r i n t - d e f i
0027420 n e r ) ) \r c l : : | e x p a n
0027440 d - D E F P A R A M E T E R |
0027460 d 1 \r ( l ( 1 $ $ m a c r o
0027500 - e n v i r o n m e n t 0 $
0027520 $ m a c r o - f o r m ) ) \0 235
0027540 006 \0 \0 002 @ 002 \t \0 \0 021 Q 005 @ 271 H 001
0027560 272 H 002 [ 001 274 K 002 d 220 001 275 g \0 \0 g
0027600 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J h
0027620 032 032 h 032 032 h 032 032 g \0 \0 J L h 032 032
0027640 032 M 264 034 g \0 \0 g \0 \0 g \0 \0 J h 032
0027660 032 o \0 \0 \0 032 032 M h 032 032 032 h 032 032 032
0027700 032 h 032 032 g \0 \0 o \0 \0 \0 g \0 \0 g \0
0027720 \0 g \0 \0 g \0 \0 J h 032 032 o \0 \0 \0 g
0027740 \0 \0 I h 032 032 h 032 032 032 032 h 032 032 032 h
0027760 032 032 032 g \0 \0 J h 032 032 h 032 032 032 032 020
0030000 \0 ( 4 r e m o v e - c o m m e
0030020 n t s ) \r ( 1 4 5 q u o t e
0030040 1 2 5 q u o t e 1 1 4 q u
0030060 o t e 1 1 1 \ \ d e f i n e
0030100 - t y p e - s a v e - d e f n
0030120 1 0 8 f i l e p k g f l g 1
0030140 0 5 a n d 9 8 c l : e v a
0030160 l - w h e n 7 2 q u o t e
0030200 6 9 c l : d o c u m e n t a t
0030220 i o n 6 6 c l : s e t f 5
0030240 4 s e t q 4 1 c l : s p e
0030260 c i a l 3 8 q u o t e 3 5
0030300 c l : p r o c l a i m 3 2
0030320 p r o g n 2 9 w i t h o u t
0030340 - f i l e p k g 2 6 p r o g
0030360 n ) \r ( 1 2 2 ( q u o t e
0030400 v a r i a b l e s ) 1 0 2 (
0030420 c l : e v a l ) 8 0 ( ( q u
0030440 o t e v a r i a b l e ) ) ) \r
0030460 ( s e t f - m a c r o - f u n c
0030500 t i o n ( q u o t e c l : d
0030520 e f p a r a m e t e r ) ( q u
0030540 o t e c l : : | e x p a n d -
0030560 D E F P A R A M E T E R | ) ) \r
0030600 ( a d d t o v a r p r e t t y
0030620 p r i n t m a c r o s ( c l :
0030640 d e f p a r a m e t e r . p
0030660 p r i n t - d e f i n e r ) ) \r
0030700 c l : : | e x p a n d - D E F C
0030720 O N S T A N T | d 1 \r ( l (
0030740 1 $ $ m a c r o - e n v i r o
0030760 n m e n t 0 $ $ m a c r o -
0031000 f o r m ) ) \0 250 006 \0 \0 002 @ 002 \t
0031020 \0 \0 021 Q 005 @ 271 H 001 272 H 002 [ 001 274 K
0031040 002 d 220 001 275 g \0 \0 g \0 \0 g \0 \0 g \0
0031060 \0 J L h 032 032 032 g \0 \0 g \0 \0 J h 032
0031100 032 g \0 \0 g \0 \0 J h 032 032 h 032 032 o \0
0031120 \0 \0 032 032 032 M 264 034 g \0 \0 g \0 \0 g \0
0031140 \0 J h 032 032 o \0 \0 \0 032 032 M h 032 032 032
0031160 h 032 032 032 032 h 032 032 g \0 \0 o \0 \0 \0 g
0031200 \0 \0 g \0 \0 g \0 \0 g \0 \0 J h 032 032 o
0031220 \0 \0 \0 g \0 \0 I h 032 032 h 032 032 032 032 h
0031240 032 032 032 h 032 032 032 g \0 \0 J h 032 032 h 032
0031260 032 032 032 020 \0 ( 4 r e m o v e - c
0031300 o m m e n t s ) \r ( 1 5 6 q u
0031320 o t e 1 3 6 q u o t e 1 2
0031340 5 q u o t e 1 2 2 \ \ d e
0031360 f i n e - t y p e - s a v e - d
0031400 e f n 1 1 9 f i l e p k g f
0031420 l g 1 1 6 a n d 1 0 9 c
0031440 l : e v a l - w h e n 8 3 q
0031460 u o t e 8 0 c l : d o c u m
0031500 e n t a t i o n 7 7 c l : s
0031520 e t f 5 7 c o n s t a n t
0031540 5 4 q u o t e 4 7 q u o t
0031560 e 4 4 p u t h a s h 3 5
0031600 s e t q 3 2 p r o g n 2 9
0031620 w i t h o u t - f i l e p k g
0031640 2 6 p r o g n ) \r ( 1 3 3
0031660 ( q u o t e v a r i a b l e
0031700 s ) 1 1 3 ( c l : e v a l )
0031720 9 1 ( ( q u o t e v a r i
0031740 a b l e ) ) 6 8 ( c o m p v
0031760 a r m a c r o h a s h ) ) \r ( s
0032000 e t f - m a c r o - f u n c t i
0032020 o n ( q u o t e c l : d e f
0032040 c o n s t a n t ) ( q u o t e
0032060 c l : : | e x p a n d - D E F
0032100 C O N S T A N T | ) ) \r ( a d d
0032120 t o v a r p r e t t y p r i n
0032140 t m a c r o s ( c l : d e f c
0032160 o n s t a n t . p p r i n t
0032200 - d e f i n e r ) ) \r | e x p a
0032220 n d - D E F G L O B A L V A R |
0032240 d 1 \r ( l ( 1 $ $ m a c r
0032260 o - e n v i r o n m e n t 0
0032300 $ $ m a c r o - f o r m ) ) \0
0032320 302 \a \0 \0 002 @ 002 \t \0 \0 021 a 006 @ 271 H
0032340 001 272 H 002 [ d 220 001 274 K h 360 h 360 275 K
0032360 002 264 005 K 002 001 276 g \0 \0 g \0 \0 g \0 \0
0032400 g \0 \0 g \0 \0 g \0 \0 J h 032 032 h 032 032
0032420 h 032 032 M 264 ! g \0 \0 g \0 \0 g \0 \0 J
0032440 h 032 032 h 032 032 g \0 \0 J L h 032 032 032 h
0032460 032 032 032 h 032 N 264 034 g \0 \0 g \0 \0 g \0
0032500 \0 J h 032 032 o \0 \0 \0 032 032 N h 032 032 032
0032520 h 032 \n \0 \0 032 032 h 032 032 g \0 \0 o \0 \0
0032540 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J h 032
0032560 032 o \0 \0 \0 g \0 \0 I h 032 032 h 032 032 032
0032600 032 h 032 032 032 h 032 032 032 g \0 \0 J h 032 032
0032620 h 032 032 032 032 020 \0 ( 1 2 7 \ \ a p
0032640 p e n d 2 4 r e m o v e - c
0032660 o m m e n t s ) \r ( 1 8 2 q u
0032700 o t e 1 6 2 q u o t e 1 5
0032720 1 q u o t e 1 4 8 \ \ d e
0032740 f i n e - t y p e - s a v e - d
0032760 e f n 1 4 5 f i l e p k g f
0033000 l g 1 4 2 a n d 1 3 5 c
0033020 l : e v a l - w h e n 1 0 7
0033040 q u o t e 1 0 4 c l : d o c
0033060 u m e n t a t i o n 1 0 1 c
0033100 l : s e t f 8 3 s e t q 7
0033120 3 q u o t e 7 0 b o u n d
0033140 p 6 7 o r 5 1 g l o b a
0033160 l 4 8 q u o t e 4 5 c l
0033200 : p r o c l a i m 4 2 p r o
0033220 g n 3 9 w i t h o u t - f i
0033240 l e p k g 3 6 p r o g n ) \r
0033260 ( 1 5 9 ( q u o t e v a r
0033300 i a b l e s ) 1 3 9 ( c l :
0033320 e v a l ) 1 1 5 ( ( q u o t
0033340 e v a r i a b l e ) ) ) \r ( s
0033360 e t f - m a c r o - f u n c t i
0033400 o n ( q u o t e d e f g l o
0033420 b a l v a r ) ( q u o t e |
0033440 e x p a n d - D E F G L O B A L
0033460 V A R | ) ) \r ( a d d t o v a r
0033500 p r e t t y p r i n t m a c r
0033520 o s ( d e f g l o b a l v a r
0033540 . p p r i n t - d e f i n e
0033560 r ) ) \r | e x p a n d - D E F G
0033600 L O B A L P A R A M E T E R |
0033620 d 1 \r ( l ( 1 $ $ m a c r o
0033640 - e n v i r o n m e n t 0 $
0033660 $ m a c r o - f o r m ) ) \0 235
0033700 006 \0 \0 002 @ 002 \t \0 \0 021 Q 005 @ 271 H 001
0033720 272 H 002 [ 001 274 K 002 d 220 001 275 g \0 \0 g
0033740 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J h
0033760 032 032 h 032 032 h 032 032 g \0 \0 J L h 032 032
0034000 032 M 264 034 g \0 \0 g \0 \0 g \0 \0 J h 032
0034020 032 o \0 \0 \0 032 032 M h 032 032 032 h 032 032 032
0034040 032 h 032 032 g \0 \0 o \0 \0 \0 g \0 \0 g \0
0034060 \0 g \0 \0 g \0 \0 J h 032 032 o \0 \0 \0 g
0034100 \0 \0 I h 032 032 h 032 032 032 032 h 032 032 032 h
0034120 032 032 032 g \0 \0 J h 032 032 h 032 032 032 032 020
0034140 \0 ( 4 r e m o v e - c o m m e
0034160 n t s ) \r ( 1 4 5 q u o t e
0034200 1 2 5 q u o t e 1 1 4 q u
0034220 o t e 1 1 1 \ \ d e f i n e
0034240 - t y p e - s a v e - d e f n
0034260 1 0 8 f i l e p k g f l g 1
0034300 0 5 a n d 9 8 c l : e v a
0034320 l - w h e n 7 2 q u o t e
0034340 6 9 c l : d o c u m e n t a t
0034360 i o n 6 6 c l : s e t f 5
0034400 4 s e t q 4 1 g l o b a l
0034420 3 8 q u o t e 3 5 c l :
0034440 p r o c l a i m 3 2 p r o g
0034460 n 2 9 w i t h o u t - f i l
0034500 e p k g 2 6 p r o g n ) \r (
0034520 1 2 2 ( q u o t e v a r i
0034540 a b l e s ) 1 0 2 ( c l : e
0034560 v a l ) 8 0 ( ( q u o t e
0034600 v a r i a b l e ) ) ) \r ( s e t
0034620 f - m a c r o - f u n c t i o n
0034640 ( q u o t e d e f g l o b a
0034660 l p a r a m e t e r ) ( q u o
0034700 t e | e x p a n d - D E F G L
0034720 O B A L P A R A M E T E R | ) )
0034740 \r ( a d d t o v a r p r e t t
0034760 y p r i n t m a c r o s ( d e
0035000 f g l o b a l p a r a m e t e r
0035020 . p p r i n t - d e f i n e
0035040 r ) ) \r ( p u t p r o p s m a
0035060 c r o - f n p r o p t y p e
0035100 f u n c t i o n s ) \r ( p u t p
0035120 r o p s c m l d e f f e r f
0035140 i l e t y p e c l : c o m p i
0035160 l e - f i l e ) \r ( p u t p r o
0035200 p s c m l d e f f e r c o p
0035220 y r i g h t ( " X e r o x C
0035240 o r p o r a t i o n " 1 9 8 6
0035260 1 9 0 0 ) ) \r n i l \r
0035274