$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLDEFFER.DCOM!28
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 9 - O c t - 8 6
0000120 1 9 : 2 6 : 1 2 " ( " 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 9 ) \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 9 - O c t - 8 6 1
0000420 9 : 2 5 : 3 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 9
0000500 2 7 9 1 3 | c h a n g e s |
0000520 | t o : | ( \r f u n c t i o n
0000540 s \ \ d e f i n e - t y p e -
0000560 s a v e - d e f n s i : : m a
0000600 c r o - f u n c a l l d e f d
0000620 e f i n e r w i t h o u t - f
0000640 i l e p k g c l : d e f u n
0000660 d e f i n l i n e \r \ \ d e f
0000700 i n e - t y p e - d e l d e f
0000720 \ \ d e f i n e - t y p e - g e
0000740 t d e f d e f - d e f i n e -
0000760 t y p e r e m o v e - c o m m
0001000 e n t s ) ( v a r s c m l d
0001020 e f f e r c o m s ) ( \r d e f
0001040 i n e - t y p e s d e f i n e
0001060 - t y p e s ) | p r e v i o u
0001100 s | | d a t e : | " 2 4 - O
0001120 c t - 8 6 1 6 : 5 4 : 3 4 "
0001140 \r { e r i s } < l i s p c o r e
0001160 > n e w - c m l d e f f e r > c
0001200 m l d e f f e r . \ ; 5 ) \r ( r
0001220 p a q q c m l d e f f e r c o
0001240 m s ( ( * | ; ; ; | \r " D
0001260 E F - D E F I N E - T Y P E a
0001300 n d D E F D E F I N E R - -
0001320 Y o u r O n e - S t o p P
0001340 r o v i d e r s o f C u s t
0001360 o m i z e d F i l e M a n a
0001400 g e r F a c i l i t i e s . "
0001420 ) ( * \r | ; ; | \r " B E
0001440 V E R Y C A R E F U L C H A
0001460 N G I N G A N Y T H I N G I
0001500 N T H I S F I L E ! ! !
0001520 I t i s h e a v i l y s e
0001540 l f - r e f e r e n t i a l a
0001560 n d t h i c k w i t h b o
0001600 o t s t r a p p i n g p r o b
0001620 l e m s . A l l b u t t
0001640 h e m o s t t r i v i a l
0001660 c h a n g e s ( a n d s o m
0001700 e o f t h o s e ) a r e
0001720 v e r y t r i c k y t o m
0001740 a k e w i t h o u t b l o w
0001760 i n g y o u r s e l f o u t
0002000 o f t h e w a t e r . . .
0002020 Y o u h a v e b e e n
0002040 w a r n e d . " \r ) ( i n i t
0002060 v a r s ( f i l e p k g f l g
0002100 n i l ) ) ( * | ; ; | "
0002120 T h e d e f i n e r d a t a
0002140 s t r u c t u r e s a n d
0002160 m a n i p u l a t i o n f u n
0002200 c t i o n s " ) ( \r v a r i a
0002220 b l e s * d e f i n i t i o n
0002240 - h a s h - t a b l e * ) ( f
0002260 u n c t i o n s p p r i n t -
0002300 d e f i n e r r e m o v e - c
0002320 o m m e n t s ) ( f u n c t i
0002340 o n s \r \ \ d e f i n e - t y
0002360 p e - d e l d e f \ \ d e f i
0002400 n e - t y p e - g e t d e f \
0002420 \ d e f i n e - t y p e - s a v
0002440 e - d e f n ) ( * | ; ; |
0002460 \r " T h e g r o u n d w o r k
0002500 f o r b o o t s t r a p p i
0002520 n g " ) ( d e f i n e - t y p
0002540 e s d e f i n e - t y p e s
0002560 f u n c t i o n s v a r i a b
0002600 l e s ) ( * | ; ; | \r " P
0002620 r o t o t y p e d e f i n i t
0002640 i o n f a c i l i t y " ) (
0002660 v a r i a b l e s x c l : : *
0002700 d e f i n i t i o n - p r o t o
0002720 t y p e s * ) ( f u n c t i o
0002740 n s \r x c l : : a d d - p r o
0002760 t o t y p e - f n x c l : : p
0003000 r o t o t y p e - d e f n - t y
0003020 p e s x c l : : p r o t o t y
0003040 p e - d e f i n e r s - f o r -
0003060 t y p e x c l : : m a k e - p
0003100 r o t o t y p e ) \r ( * | ;
0003120 ; | " D e f D e f i n e r i
0003140 t s e l f a n d f r i e n d
0003160 s " ) ( f u n c t i o n s s
0003200 i : : e x p a n s i o n - f u n
0003220 c t i o n s i : : m a c r o -
0003240 f u n c a l l ) ( \r f u n c t
0003260 i o n s d e f d e f i n e r
0003300 d e f - d e f i n e - t y p e
0003320 w i t h o u t - f i l e p k g )
0003340 ( * | ; ; | " T h e m o
0003360 s t c o m m o n l y - u s e d
0003400 d e f i n e r s " ) ( \r f u
0003420 n c t i o n s c l : d e f u n
0003440 d e f i n l i n e d e f m a
0003460 c r o ) ( f u n c t i o n s
0003500 c l : d e f v a r c l : d e f
0003520 p a r a m e t e r c l : d e f
0003540 c o n s t a n t \r d e f g l o
0003560 b a l v a r d e f g l o b a l
0003600 p a r a m e t e r ) ( * | ;
0003620 ; | " D o n ' t n o t e f
0003640 i l e p a c k a g e c h a n
0003660 g e s t o m a c r o - f n .
0003700 " ) ( p r o p \r p r o p t y
0003720 p e m a c r o - f n ) ( *
0003740 | ; ; | " A r r a n g e f o
0003760 r t h e c o r r e c t c o
0004000 m p i l e r t o b e u s e
0004020 d . " ) ( p r o p f i l e t
0004040 y p e c m l d e f f e r ) ) )
0004060 \r ( r p a q ? f i l e p k g f
0004100 l g n i l ) \r ( c l : p r o c
0004120 l a i m ( q u o t e ( g l o
0004140 b a l * d e f i n i t i o n -
0004160 h a s h - t a b l e * ) ) ) \r (
0004200 o r ( b o u n d p ( q u o t
0004220 e * d e f i n i t i o n - h a
0004240 s h - t a b l e * ) ) ( s e t
0004260 q * d e f i n i t i o n - h a
0004300 s h - t a b l e * ( h a s h a
0004320 r r a y 2 0 ) ) ) \r p p r i n
0004340 t - d e f i n e r d 1 \r ( l
0004360 ( 0 d e f i n e - e x p r e s
0004400 s i o n ) p 3 \ # r p a r
0004420 s f 4 p r e t t y c o m f
0004440 o n t f 5 d e f a u l t f
0004460 o n t f 6 c o m m e n t f
0004500 l g ) \0 370 004 003 \0 001 @ d 002 003 263 ,
0004520 277 o \0 \0 \0 \t \0 \0 277 @ 001 \t \0 \0 @ 002
0004540 237 o \0 \0 \0 \t \0 \0 277 @ 002 i d \v \0 \0
0004560 277 o \0 \0 \0 \t \0 \0 h 020 001 @ 002 b \0 001
0004600 @ 002 b \0 277 \b \0 \0 021 023 003 o \0 \0 \0 \t
0004620 \0 \0 277 H \t \0 \0 277 k \t \0 \0 I 003 262 0
0004640 o \0 \0 \0 \t \0 \0 277 T \t \0 \0 277 I 001 \t
0004660 \0 \0 277 U \t \0 \0 277 k \t \0 \0 277 I 002 i
0004700 d d \f \0 \0 277 o \0 \0 \0 \t \0 \0 215 T \t
0004720 \0 \0 277 I \t \0 \0 277 U \t \0 \0 277 @ d 001
0004740 003 262 025 277 k \t \0 \0 277 @ 001 @ 002 b \0 277
0004760 i \n \0 \0 277 @ 001 005 \a 251 @ d 001 003 001 V
0005000 360 262 026 277 k \t \0 \0 277 @ 001 @ 002 b \0 277
0005020 i d \v \0 \0 277 @ i d \v \0 \0 253 \b \0 \0
0005040 277 J \t \0 \0 277 l 003 200 k \t \0 \0 277 @ i
0005060 d d \f \0 \0 o \0 \0 \0 \t \0 \0 h \t \0 \0
0005100 020 \0 ( 2 4 5 t e r p r i 2 4
0005120 1 p r i n 1 2 3 4 p r i n
0005140 t d e f 2 2 6 s p a c e s
0005160 2 1 8 d s p x p o s i t i o n
0005200 2 1 3 t e r p r i 2 0 9
0005220 f i t p 2 0 2 p r i n t d e
0005240 f 1 8 9 s p a c e s 1 6 9
0005260 p r i n t d e f 1 5 7 s p
0005300 a c e s 1 4 5 c h a n g e f
0005320 o n t 1 4 0 p r i n 2 1 3
0005340 5 c h a n g e f o n t 1 3 0
0005360 p r i n 1 1 2 2 p r i n t
0005400 d e f 1 1 3 s p a c e s 1
0005420 0 8 c h a n g e f o n t 1 0
0005440 3 p r i n 2 9 7 c h a n g
0005460 e f o n t 9 2 p r i n 1 8
0005500 1 s p a c e s 7 6 p r i n
0005520 2 7 1 p r i n 1 6 1 d s
0005540 p x p o s i t i o n 4 5 p r
0005560 i n 1 3 7 p r i n t d e f
0005600 2 9 p r i n 1 1 9 p r i n
0005620 2 1 3 p r i n 1 ) \r n i l \r
0005640 ( 2 3 8 " ) " 1 2 7 " )
0005660 " 8 9 " ( " 6 8 " ( "
0005700 4 2 " ) " 2 6 " . "
0005720 1 0 " ( " ) \r r e m o v e - c
0005740 o m m e n t s a 0 0 0 1 d 1 \r
0005760 ( l ( 0 y ) ) \0 026 \0 \0 \0 001
0006000 @ 003 264 022 @ 001 g \0 \0 360 264 \n @ 002 001 o
0006020 \0 \0 \0 034 020 \0 n i l \r ( 8 * ) \r
0006040 ( 1 8 ( \ ; | ; ; | | ;
0006060 ; ; | ) ) \r r e m o v e - c o m
0006100 m e n t s d 1 \r ( l ( 0 x
0006120 ) ) \0 3 002 \0 \0 001 @ 003 265 004 @ 020 001
0006140 k g \0 \0 016 225 @ 002 b \0 260 360 @ 001 \t \0
0006160 \0 @ 002 \t \0 \0 021 002 001 H d @ 001 360 230 277
0006200 I @ 002 360 221 @ 020 H I 032 020 \0 ( 2 8
0006220 r e m o v e - c o m m e n t s
0006240 2 3 r e m o v e - c o m m e n
0006260 t s ) \r ( 1 0 r e m o v e - c
0006300 o m m e n t s a 0 0 0 1 ) \r ( )
0006320 \r \ \ d e f i n e - t y p e - d
0006340 e l d e f d 1 \r ( l ( 1 t
0006360 y p e 0 n a m e ) ) \0 + 002
0006400 \0 \0 002 A ` \0 \0 \n \0 \0 021 021 001 H 225 @
0006420 H \n \0 \0 277 A 301 002 311 \0 g \0 \0 ' 210 d
0006440 001 271 @ k I 016 277 002 003 265 366 @ 020 \0 ( 1
0006460 6 r e m h a s h 6 c l : g
0006500 e t h a s h ) \r ( 2 5 u n d e
0006520 f i n e r s 3 * d e f i n i
0006540 t i o n - h a s h - t a b l e *
0006560 ) \r ( ) \r \ \ d e f i n e - t y
0006600 p e - g e t d e f d 1 \r ( l
0006620 ( 2 o p t i o n s 1 t y p
0006640 e 0 n a m e ) ) \0 * 002 \0 \0
0006660 003 A ` \0 \0 \n \0 \0 021 021 001 H 264 \a @ H
0006700 \n \0 \0 271 B g \0 \0 360 250 B 003 232 g \0 \0
0006720 B 034 224 I \t \0 \0 020 I 020 \0 ( 3 7 c
0006740 l : c o p y - t r e e 1 7 c
0006760 l : g e t h a s h 6 c l : g
0007000 e t h a s h ) \r ( 3 0 e d i t
0007020 2 2 e d i t 3 * d e f i
0007040 n i t i o n - h a s h - t a b l
0007060 e * ) \r ( ) \r \ \ d e f i n e -
0007100 t y p e - s a v e - d e f n d
0007120 1 \r ( l ( 2 d e f i n i t i
0007140 o n 1 t y p e 0 n a m e
0007160 ) ) \0 O \a \0 \0 003 A ` \0 \0 \n \0 \0
0007200 021 a 006 H 263 - o \0 \0 \0 A \n \0 \0 277 A
0007220 273 ` \0 \0 272 g \0 \0 g \0 \0 g \0 \0 l 2
0007240 g \0 \0 l 2 \r 006 \0 \0 271 K J I \v \0 \0
0007260 270 @ 276 H 275 B 274 N M L \v \0 \0 023 @ A
0007300 g \0 \0 \v \0 \0 020 \0 ( 7 6 m a r k
0007320 a s c h a n g e d 6 7 c l :
0007340 : p u t h a s h 5 4 c l : :
0007360 p u t h a s h 4 7 c l : m a
0007400 k e - h a s h - t a b l e 2 0
0007420 c l : w a r n 6 c l : g e
0007440 t h a s h ) \r ( 7 3 c h a n g
0007460 e d 4 1 : r e h a s h - s i
0007500 z e 3 6 : s i z e 3 3 c
0007520 l : e q u a l 3 0 : t e s t
0007540 2 6 * d e f i n i t i o n -
0007560 h a s h - t a b l e * 3 * d
0007600 e f i n i t i o n - h a s h - t
0007620 a b l e * ) \r ( 1 6 " C o u
0007640 l d n ' t f i n d a h a s
0007660 h - t a b l e f o r ~ S d
0007700 e f i n i t i o n s . ~ % O n e
0007720 w i l l b e c r e a t e d
0007740 . " ) \r ( l e t * ( ( a 1 0 6
0007760 9 6 ( q u o t e d e f i n e
0010000 - t y p e s ) ) ( a 1 0 6 9 7
0010020 ( q u o t e d e f i n e - t
0010040 y p e s ) ) ( a 1 0 6 9 8 (
0010060 q u o t e " D e f i n i t i o
0010100 n t y p e " ) ) ) \r ( p r o
0010120 g n ( c o n d ( ( c l : f b
0010140 o u n d p ( q u o t e s e t
0010160 - d o c u m e n t a t i o n ) )
0010200 ( s e t - d o c u m e n t a t
0010220 i o n a 1 0 6 9 6 a 1 0 6 9
0010240 7 a 1 0 6 9 8 ) ) ) \r a 1 0
0010260 6 9 8 ) ) \r ( s e t q p r e t
0010300 t y d e f m a c r o s ( c l :
0010320 a d j o i n ( q u o t e ( d
0010340 e f i n e - t y p e s x ( p
0010360 * ( m a p c a r ( q u o t
0010400 e x ) ( f u n c t i o n (
0010420 l a m b d a ( i t e m \r ) (
0010440 c l : d o ( ( d e f ( g e t
0010460 d e f i t e m ( q u o t e
0010500 d e f i n e - t y p e s ) ) ) )
0010520 ( d e f d e f ) ( c l : c
0010540 e r r o r " R e - f e t c h
0010560 t h e d e f i n i t i o n "
0010600 \r " N o ~ S d e f i n i t i
0010620 o n f o r ~ S " ( q u o t
0010640 e d e f i n e - t y p e s )
0010660 i t e m ) ) ) ) ) ) ) ) p r e
0010700 t t y d e f m a c r o s : t e
0010720 s t ( q u o t e c l : e q u
0010740 a l ) ) ) \r ( s e t q p r e t
0010760 t y t y p e l s t ( c l : a d
0011000 j o i n ( q u o t e ( c h a
0011020 n g e d d e f i n e - t y p e s
0011040 l s t d e f i n e - t y p e s
0011060 " D e f i n i t i o n t y p
0011100 e " ) ) \r p r e t t y t y p e
0011120 l s t : t e s t ( q u o t e
0011140 c l : e q u a l ) ) ) \r ( c l
0011160 : p r o c l a i m ( q u o t e
0011200 ( g l o b a l c h a n g e d
0011220 d e f i n e - t y p e s l s t )
0011240 ) ) \r ( o r ( b o u n d p (
0011260 q u o t e c h a n g e d d e f
0011300 i n e - t y p e s l s t ) ) (
0011320 s e t q c h a n g e d d e f i
0011340 n e - t y p e s l s t n i l )
0011360 ) \r ( c o n d ( ( n o t ( c
0011400 l : g e t h a s h ( q u o t e
0011420 d e f i n e - t y p e s ) *
0011440 d e f i n i t i o n - h a s h -
0011460 t a b l e * ) ) ( l e t * (
0011500 ( a 1 0 6 9 9 ( q u o t e \r
0011520 d e f i n e - t y p e s ) ) (
0011540 a 1 0 7 0 0 * d e f i n i t i
0011560 o n - h a s h - t a b l e * )
0011600 ( a 1 0 7 0 2 ( c l : m a k e
0011620 - h a s h - t a b l e : t e s
0011640 t ( q u o t e c l : e q u a
0011660 l ) \r : s i z e 5 0 : r e
0011700 h a s h - s i z e 5 0 ) ) )
0011720 ( c l : : p u t h a s h a 1 0
0011740 6 9 9 a 1 0 7 0 0 a 1 0 7 0
0011760 2 ) ) ) ) \r ( s e t q f i l e
0012000 p k g t y p e s ( c l : a d j
0012020 o i n ( q u o t e d e f i n
0012040 e - t y p e s ) f i l e p k g
0012060 t y p e s ) ) \r ( l e t * ( (
0012100 a 1 0 7 0 3 ( q u o t e d e
0012120 f i n e - t y p e s ) ) ( a 1
0012140 0 7 0 4 ( q u o t e g e t d
0012160 e f ) ) ( a 1 0 7 0 6 ( q u
0012200 o t e \ \ d e f i n e - t y p
0012220 e - g e t d e f ) ) ) ( \r p u
0012240 t p r o p a 1 0 7 0 3 a 1 0
0012260 7 0 4 a 1 0 7 0 6 ) ) \r ( l e
0012300 t * ( ( a 1 0 7 0 7 ( q u o
0012320 t e d e f i n e - t y p e s )
0012340 ) ( a 1 0 7 0 8 ( q u o t e
0012360 d e l d e f ) ) ( a 1 0 7 1
0012400 0 ( q u o t e \ \ d e f i n
0012420 e - t y p e - d e l d e f ) ) )
0012440 ( \r p u t p r o p a 1 0 7 0
0012460 7 a 1 0 7 0 8 a 1 0 7 1 0 )
0012500 ) \r ( l e t * ( ( a 1 0 7 1 1
0012520 ( q u o t e d e f i n e - t
0012540 y p e s ) ) ( a 1 0 7 1 2 (
0012560 q u o t e f i l e p k g c o n
0012600 t e n t s ) ) ( a 1 0 7 1 4
0012620 ( q u o t e n i l l ) ) ) (
0012640 p u t p r o p \r a 1 0 7 1 1
0012660 a 1 0 7 1 2 a 1 0 7 1 4 ) ) \r
0012700 ( l e t * ( ( a 1 0 7 1 9 (
0012720 q u o t e d e f i n e - t y p
0012740 e s ) ) ( a 1 0 7 2 0 ( q u
0012760 o t e u n d e f i n e r s ) )
0013000 ( a 1 0 7 2 2 ( c l : a d j
0013020 o i n ( q u o t e n i l )
0013040 ( g e t \r a 1 0 7 1 9 a 1 0
0013060 7 2 0 ) ) ) ) ( p u t p r o p
0013100 a 1 0 7 1 9 a 1 0 7 2 0 a
0013120 1 0 7 2 2 ) ) \r ( l e t * ( (
0013140 a 1 0 7 2 3 ( q u o t e f u
0013160 n c t i o n s ) ) ( a 1 0 7 2
0013200 4 ( q u o t e d e f i n e -
0013220 t y p e s ) ) ( a 1 0 7 2 5
0013240 ( q u o t e " C o m m o n L
0013260 i s p f u n c t i o n s " \r )
0013300 ) ) ( p r o g n ( c o n d
0013320 ( ( c l : f b o u n d p ( q u
0013340 o t e s e t - d o c u m e n t
0013360 a t i o n ) ) ( s e t - d o c
0013400 u m e n t a t i o n a 1 0 7 2
0013420 3 a 1 0 7 2 4 a 1 0 7 2 5 )
0013440 ) ) \r a 1 0 7 2 5 ) ) \r ( s e
0013460 t q p r e t t y d e f m a c r
0013500 o s ( c l : a d j o i n ( q
0013520 u o t e ( f u n c t i o n s
0013540 x ( p * ( m a p c a r (
0013560 q u o t e x ) ( f u n c t i
0013600 o n ( l a m b d a ( i t e m
0013620 ) ( \r c l : d o ( ( d e f
0013640 ( g e t d e f i t e m ( q u
0013660 o t e f u n c t i o n s ) ) )
0013700 ) ( d e f d e f ) ( c l :
0013720 c e r r o r " R e - f e t c h
0013740 t h e d e f i n i t i o n "
0013760 \r " N o ~ S d e f i n i t
0014000 i o n f o r ~ S " ( q u o
0014020 t e f u n c t i o n s ) i t
0014040 e m ) ) ) ) ) ) ) ) p r e t t
0014060 y d e f m a c r o s : t e s t
0014100 ( q u o t e c l : e q u a l
0014120 ) ) ) \r ( s e t q p r e t t y
0014140 t y p e l s t ( c l : a d j o
0014160 i n ( q u o t e ( c h a n g
0014200 e d f u n c t i o n s l s t f
0014220 u n c t i o n s " C o m m o n
0014240 L i s p f u n c t i o n s "
0014260 ) ) \r p r e t t y t y p e l s
0014300 t : t e s t ( q u o t e c
0014320 l : e q u a l ) ) ) \r ( c l : p
0014340 r o c l a i m ( q u o t e (
0014360 g l o b a l c h a n g e d f u
0014400 n c t i o n s l s t ) ) ) \r ( o
0014420 r ( b o u n d p ( q u o t e
0014440 c h a n g e d f u n c t i o n
0014460 s l s t ) ) ( s e t q c h a
0014500 n g e d f u n c t i o n s l s t
0014520 n i l ) ) \r ( c o n d ( ( n
0014540 o t ( c l : g e t h a s h (
0014560 q u o t e f u n c t i o n s )
0014600 * d e f i n i t i o n - h a s
0014620 h - t a b l e * ) ) ( l e t *
0014640 ( ( a 1 0 7 2 6 ( q u o t e
0014660 f u n c t i o n s ) ) \r ( a
0014700 1 0 7 2 7 * d e f i n i t i o
0014720 n - h a s h - t a b l e * ) (
0014740 a 1 0 7 2 9 ( c l : m a k e -
0014760 h a s h - t a b l e : t e s t
0015000 ( q u o t e c l : e q u a l
0015020 ) : s i z e 5 0 \r : r e h
0015040 a s h - s i z e 5 0 ) ) ) (
0015060 c l : : p u t h a s h a 1 0 7
0015100 2 6 a 1 0 7 2 7 a 1 0 7 2 9
0015120 ) ) ) ) \r ( s e t q f i l e p
0015140 k g t y p e s ( c l : a d j o
0015160 i n ( q u o t e f u n c t i
0015200 o n s ) f i l e p k g t y p e
0015220 s ) ) \r ( l e t * ( ( a 1 0 7
0015240 3 0 ( q u o t e f u n c t i
0015260 o n s ) ) ( a 1 0 7 3 1 ( q
0015300 u o t e g e t d e f ) ) ( a
0015320 1 0 7 3 3 ( q u o t e \ \ d
0015340 e f i n e - t y p e - g e t d e
0015360 f ) ) ) ( \r p u t p r o p a
0015400 1 0 7 3 0 a 1 0 7 3 1 a 1 0
0015420 7 3 3 ) ) \r ( l e t * ( ( a 1
0015440 0 7 3 4 ( q u o t e f u n c
0015460 t i o n s ) ) ( a 1 0 7 3 5
0015500 ( q u o t e d e l d e f ) )
0015520 ( a 1 0 7 3 7 ( q u o t e \
0015540 \ d e f i n e - t y p e - d e l
0015560 d e f ) ) ) ( \r p u t p r o p
0015600 a 1 0 7 3 4 a 1 0 7 3 5 a
0015620 1 0 7 3 7 ) ) \r ( l e t * ( (
0015640 a 1 0 7 3 8 ( q u o t e f u
0015660 n c t i o n s ) ) ( a 1 0 7 3
0015700 9 ( q u o t e f i l e p k g
0015720 c o n t e n t s ) ) ( a 1 0 7
0015740 4 1 ( q u o t e n i l l ) )
0015760 ) ( p u t p r o p \r a 1 0 7
0016000 3 8 a 1 0 7 3 9 a 1 0 7 4 1
0016020 ) ) \r ( l e t * ( ( a 1 0 7 4
0016040 2 ( q u o t e f u n c t i o
0016060 n s ) ) ( a 1 0 7 4 3 ( q u
0016100 o t e u n d e f i n e r s ) )
0016120 ( a 1 0 7 4 5 ( c l : a d j
0016140 o i n ( q u o t e n i l )
0016160 ( g e t \r a 1 0 7 4 2 a 1 0
0016200 7 4 3 ) ) ) ) ( p u t p r o p
0016220 a 1 0 7 4 2 a 1 0 7 4 3 a
0016240 1 0 7 4 5 ) ) \r ( l e t * ( (
0016260 a 1 0 7 4 6 ( q u o t e v a
0016300 r i a b l e s ) ) ( a 1 0 7 4
0016320 7 ( q u o t e d e f i n e -
0016340 t y p e s ) ) ( a 1 0 7 4 8
0016360 ( q u o t e " C o m m o n L
0016400 i s p v a r i a b l e s " \r )
0016420 ) ) ( p r o g n ( c o n d
0016440 ( ( c l : f b o u n d p ( q u
0016460 o t e s e t - d o c u m e n t
0016500 a t i o n ) ) ( s e t - d o c
0016520 u m e n t a t i o n a 1 0 7 4
0016540 6 a 1 0 7 4 7 a 1 0 7 4 8 )
0016560 ) ) \r a 1 0 7 4 8 ) ) \r ( s e
0016600 t q p r e t t y d e f m a c r
0016620 o s ( c l : a d j o i n ( q
0016640 u o t e ( v a r i a b l e s
0016660 x ( p * ( m a p c a r (
0016700 q u o t e x ) ( f u n c t i
0016720 o n ( l a m b d a ( i t e m
0016740 ) ( \r c l : d o ( ( d e f
0016760 ( g e t d e f i t e m ( q u
0017000 o t e v a r i a b l e s ) ) )
0017020 ) ( d e f d e f ) ( c l :
0017040 c e r r o r " R e - f e t c h
0017060 t h e d e f i n i t i o n "
0017100 \r " N o ~ S d e f i n i t
0017120 i o n f o r ~ S " ( q u o
0017140 t e v a r i a b l e s ) i t
0017160 e m ) ) ) ) ) ) ) ) p r e t t
0017200 y d e f m a c r o s : t e s t
0017220 ( q u o t e c l : e q u a l
0017240 ) ) ) \r ( s e t q p r e t t y
0017260 t y p e l s t ( c l : a d j o
0017300 i n ( q u o t e ( c h a n g
0017320 e d v a r i a b l e s l s t v
0017340 a r i a b l e s " C o m m o n
0017360 L i s p v a r i a b l e s "
0017400 ) ) \r p r e t t y t y p e l s
0017420 t : t e s t ( q u o t e c
0017440 l : e q u a l ) ) ) \r ( c l : p
0017460 r o c l a i m ( q u o t e (
0017500 g l o b a l c h a n g e d v a
0017520 r i a b l e s l s t ) ) ) \r ( o
0017540 r ( b o u n d p ( q u o t e
0017560 c h a n g e d v a r i a b l e
0017600 s l s t ) ) ( s e t q c h a
0017620 n g e d v a r i a b l e s l s t
0017640 n i l ) ) \r ( c o n d ( ( n
0017660 o t ( c l : g e t h a s h (
0017700 q u o t e v a r i a b l e s )
0017720 * d e f i n i t i o n - h a s
0017740 h - t a b l e * ) ) ( l e t *
0017760 ( ( a 1 0 7 4 9 ( q u o t e
0020000 v a r i a b l e s ) ) \r ( a
0020020 1 0 7 5 0 * d e f i n i t i o
0020040 n - h a s h - t a b l e * ) (
0020060 a 1 0 7 5 2 ( c l : m a k e -
0020100 h a s h - t a b l e : t e s t
0020120 ( q u o t e c l : e q u a l
0020140 ) : s i z e 5 0 \r : r e h
0020160 a s h - s i z e 5 0 ) ) ) (
0020200 c l : : p u t h a s h a 1 0 7
0020220 4 9 a 1 0 7 5 0 a 1 0 7 5 2
0020240 ) ) ) ) \r ( s e t q f i l e p
0020260 k g t y p e s ( c l : a d j o
0020300 i n ( q u o t e v a r i a b
0020320 l e s ) f i l e p k g t y p e
0020340 s ) ) \r ( l e t * ( ( a 1 0 7
0020360 5 3 ( q u o t e v a r i a b
0020400 l e s ) ) ( a 1 0 7 5 4 ( q
0020420 u o t e g e t d e f ) ) ( a
0020440 1 0 7 5 6 ( q u o t e \ \ d
0020460 e f i n e - t y p e - g e t d e
0020500 f ) ) ) ( \r p u t p r o p a
0020520 1 0 7 5 3 a 1 0 7 5 4 a 1 0
0020540 7 5 6 ) ) \r ( l e t * ( ( a 1
0020560 0 7 5 7 ( q u o t e v a r i
0020600 a b l e s ) ) ( a 1 0 7 5 8
0020620 ( q u o t e d e l d e f ) )
0020640 ( a 1 0 7 6 0 ( q u o t e \
0020660 \ d e f i n e - t y p e - d e l
0020700 d e f ) ) ) ( \r p u t p r o p
0020720 a 1 0 7 5 7 a 1 0 7 5 8 a
0020740 1 0 7 6 0 ) ) \r ( l e t * ( (
0020760 a 1 0 7 6 1 ( q u o t e v a
0021000 r i a b l e s ) ) ( a 1 0 7 6
0021020 2 ( q u o t e f i l e p k g
0021040 c o n t e n t s ) ) ( a 1 0 7
0021060 6 4 ( q u o t e n i l l ) )
0021100 ) ( p u t p r o p \r a 1 0 7
0021120 6 1 a 1 0 7 6 2 a 1 0 7 6 4
0021140 ) ) \r ( l e t * ( ( a 1 0 7 6
0021160 5 ( q u o t e v a r i a b l
0021200 e s ) ) ( a 1 0 7 6 6 ( q u
0021220 o t e u n d e f i n e r s ) )
0021240 ( a 1 0 7 6 8 ( c l : a d j
0021260 o i n ( q u o t e n i l )
0021300 ( g e t \r a 1 0 7 6 5 a 1 0
0021320 7 6 6 ) ) ) ) ( p u t p r o p
0021340 a 1 0 7 6 5 a 1 0 7 6 6 a
0021360 1 0 7 6 8 ) ) \r ( c l : p r o c
0021400 l a i m ( q u o t e ( g l o
0021420 b a l x c l : : * d e f i n i
0021440 t i o n - p r o t o t y p e s *
0021460 ) ) ) \r ( o r ( b o u n d p
0021500 ( q u o t e x c l : : * d e f
0021520 i n i t i o n - p r o t o t y p
0021540 e s * ) ) ( s e t q x c l :
0021560 : * d e f i n i t i o n - p r o
0021600 t o t y p e s * n i l ) ) \r (
0021620 l e t * ( ( a 1 0 7 6 9 ( q
0021640 u o t e x c l : : * d e f i n
0021660 i t i o n - p r o t o t y p e s
0021700 * ) ) ( a 1 0 7 7 0 ( q u o
0021720 t e c l : : v a r i a b l e )
0021740 ) ( a 1 0 7 7 1 \r " A n A
0021760 L i s t m a p p i n g f i l
0022000 e - m a n a g e r t y p e s
0022020 t o A L i s t s f r o m d
0022040 e f i n e r - n a m e s t o
0022060 p r o t o t y p e - f u n c t i
0022100 o n s " ) ) ( p r o g n ( \r
0022120 c o n d ( ( c l : f b o u n d
0022140 p ( q u o t e s e t - d o c
0022160 u m e n t a t i o n ) ) ( s e
0022200 t - d o c u m e n t a t i o n
0022220 a 1 0 7 6 9 a 1 0 7 7 0 a 1
0022240 0 7 7 1 ) ) ) a 1 0 7 7 1 ) )
0022260 \r x c l : : a d d - p r o t o t
0022300 y p e - f n d 1 \r ( l ( 2
0022320 c l : : p r o t o t y p e - f n
0022340 1 c l : : d e f i n e r 0
0022360 t y p e ) ) \0 ? 005 \0 \0 003 @ h
0022400 032 ` \0 \0 g \0 \0 g \0 \0 \f \0 \0 027 \0 \0
0022420 @ ` \0 \0 \n \0 \0 021 A 004 A H 002 \n \0 \0
0022440 265 022 H 271 A B 032 I 002 032 272 I d J 031 277
0022460 002 020 273 B 274 K d L 031 277 002 020 \0 ( 3 3
0022500 c l : a s s o c 2 4 c l :
0022520 a s s o c 1 4 c l : a d j o
0022540 i n ) \r ( 2 1 x c l : : * d e
0022560 f i n i t i o n - p r o t o t y
0022600 p e s * 1 7 x c l : : * d e
0022620 f i n i t i o n - p r o t o t y
0022640 p e s * 1 1 c a r 8 : k
0022660 e y 5 x c l : : * d e f i n
0022700 i t i o n - p r o t o t y p e s
0022720 * ) \r ( ) \r x c l : : p r o t o
0022740 t y p e - d e f n - t y p e s
0022760 d 1 \r n i l \0 \v \0 \0 \0 \0 g \0 \0
0023000 ` \0 \0 \n \0 \0 020 \0 ( 8 c l : m a
0023020 p c a r ) \r ( 5 x c l : : * d
0023040 e f i n i t i o n - p r o t o t
0023060 y p e s * 2 c a r ) \r ( ) \r
0023100 x c l : : p r o t o t y p e - d
0023120 e f i n e r s - f o r - t y p e
0023140 d 1 \r ( l ( 0 t y p e ) )
0023160 \0 020 \0 \0 \0 001 g \0 \0 @ ` \0 \0 \n \0
0023200 \0 002 \n \0 \0 020 \0 ( 1 3 c l : m a
0023220 p c a r 9 c l : a s s o c )
0023240 \r ( 6 x c l : : * d e f i n i
0023260 t i o n - p r o t o t y p e s *
0023300 2 c a r ) \r ( ) \r x c l : :
0023320 m a k e - p r o t o t y p e d
0023340 1 \r ( l ( 2 c l : : d e f i
0023360 n e r 1 t y p e 0 c l :
0023400 : n a m e ) ) \0 033 001 \0 \0 003 B A
0023420 ` \0 \0 \n \0 \0 002 \n \0 \0 021 001 \0 H 264 \t
0023440 @ A B l 003 H 016 020 \0 ( 1 1 c l :
0023460 a s s o c 7 c l : a s s o c
0023500 ) \r ( 4 x c l : : * d e f i n
0023520 i t i o n - p r o t o t y p e s
0023540 * ) \r ( ) \r s i : : e x p a n s
0023560 i o n - f u n c t i o n d 1 \r
0023600 ( l ( 2 s i : : b o d y 1
0023620 s i : : a r g - l i s t 0
0023640 s i : : n a m e ) ) \0 A 005 \0 \0
0023660 003 A g \0 \0 B @ h g \0 \0 g \0 \0 \r \a
0023700 \0 \0 \t \0 \0 021 A 004 H 001 271 H 002 Z 001 273
0023720 J 002 001 274 g \0 \0 o \0 \0 \0 K g \0 \0 @
0023740 I h 032 032 032 h 032 \n \0 \0 032 032 L \n \0 \0
0023760 020 \0 ( 6 2 c l : v a l u e s
0024000 5 6 \ \ a p p e n d 2 1 9
0024020 \ \ m v l i s t 1 6 p a r s
0024040 e - d e f m a c r o ) \r ( 4 5
0024060 c l : b l o c k 3 7 c l : l
0024100 a m b d a 1 2 s i : : $ $ m
0024120 a c r o - e n v i r o n m e n t
0024140 9 : e n v i r o n m e n t
0024160 3 s i : : $ $ m a c r o - f o
0024200 r m ) \r ( 4 1 ( s i : : $ $
0024220 m a c r o - f o r m s i : : $
0024240 $ m a c r o - e n v i r o n m e
0024260 n t ) ) \r s i : : | e x p a n d
0024300 - M A C R O - F U N C A L L |
0024320 d 1 \r ( l ( 1 s i : : $ $ m
0024340 a c r o - e n v i r o n m e n t
0024360 0 s i : : $ $ m a c r o - f
0024400 o r m ) ) \0 031 005 \0 \0 002 @ 002 021 A
0024420 004 H 001 271 H 002 Z 001 273 J 002 001 274 K L l
0024440 002 I 016 020 \0 n i l \r n i l \r ( ) \r
0024460 ( s e t f - m a c r o - f u n c
0024500 t i o n ( q u o t e s i : :
0024520 m a c r o - f u n c a l l ) (
0024540 q u o t e s i : : | e x p a n
0024560 d - M A C R O - F U N C A L L |
0024600 ) ) \r ( l e t * ( ( a 1 0 7 8
0024620 5 ( q u o t e d e f d e f i
0024640 n e r ) ) ( a 1 0 7 8 6 ( q
0024660 u o t e d e f i n e r - f o r
0024700 ) ) ( a 1 0 7 8 8 ( q u o t
0024720 e f u n c t i o n s ) ) ) (
0024740 p u t p r o p \r a 1 0 7 8 5
0024760 a 1 0 7 8 6 a 1 0 7 8 8 ) ) \r
0025000 ( l e t * ( ( a 1 0 7 8 9 (
0025020 q u o t e f u n c t i o n s )
0025040 ) ( a 1 0 7 9 0 ( q u o t e
0025060 d e f i n e d - b y ) ) ( a
0025100 1 0 7 9 2 ( c l : a d j o i n
0025120 ( q u o t e d e f d e f i n
0025140 e r ) ( \r g e t a 1 0 7 8 9
0025160 a 1 0 7 9 0 ) ) ) ) ( p u t
0025200 p r o p a 1 0 7 8 9 a 1 0 7
0025220 9 0 a 1 0 7 9 2 ) ) \r | e x p
0025240 a n d - D E F D E F I N E R A 0
0025260 0 0 1 | d 1 \r ( l ( 1 s i
0025300 : : $ $ m a c r o - e n v i r o
0025320 n m e n t 0 s i : : $ $ m a
0025340 c r o - f o r m ) ) 001 336 020 \0 \0
0025360 002 @ 002 021 361 017 H 001 271 H 002 Z 001 273 J 002
0025400 \ 001 275 L 002 276 I 003 264 \a I 002 I 001 271 _
0025420 016 277 g \0 \0 _ 020 277 h _ 022 _ 024 277 O 016
0025440 260 B d 001 _ 030 001 _ 026 d g \0 \0 360 230 277
0025460 O 030 002 001 _ 022 260 * g \0 \0 360 227 O 030 002
0025500 001 _ 020 260 035 O 026 g \0 \0 360 226 O 030 002 001
0025520 _ 024 214 o \0 \0 \0 o \0 \0 \0 O 030 \v \0 \0
0025540 277 002 003 265 277 I M N \v \0 \0 \t \0 \0 _ 032
0025560 001 _ 034 277 O 032 002 001 _ 036 277 g \0 \0 g \0
0025600 \0 g \0 \0 g \0 \0 I h 032 032 o \0 \0 \0 032
0025620 032 g \0 \0 K h 032 032 h 032 032 032 g \0 \0 g
0025640 \0 \0 I h 032 032 g \0 \0 g \0 \0 K h 032 032
0025660 o \0 \0 \0 032 032 h 032 032 032 g \0 \0 I o \0
0025700 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 O 020 o \0
0025720 \0 \0 032 h 032 032 h 032 032 g \0 \0 g \0 \0 g
0025740 \0 \0 g \0 \0 g \0 \0 g \0 \0 O 034 h 032 032
0025760 h 032 032 o \0 \0 \0 032 032 h 032 032 g \0 \0 o
0026000 \0 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 o \0 \0
0026020 \0 g \0 \0 g \0 \0 g \0 \0 K h 032 032 h 032
0026040 032 h 032 032 o \0 \0 \0 032 032 032 h 032 032 032 h
0026060 032 032 032 o \0 \0 \0 032 032 032 h 032 032 h 032 032
0026100 032 h 032 032 032 032 g \0 \0 g \0 \0 I g \0 \0
0026120 032 h 032 032 o \0 \0 \0 032 032 O 022 264 # g \0
0026140 \0 g \0 \0 O 022 h 032 032 g \0 \0 g \0 \0 I
0026160 h 032 032 o \0 \0 \0 032 032 h 032 032 032 h 032 O
0026200 024 264 " g \0 \0 g \0 \0 K h 032 032 g \0 \0
0026220 I h 032 032 g \0 \0 O 024 h 032 032 h 032 032 032
0026240 032 h 032 O 036 264 035 g \0 \0 g \0 \0 g \0 \0
0026260 I h 032 032 o \0 \0 \0 032 032 O 036 h 032 032 032
0026300 h 032 \n \0 \0 \n \0 \0 032 032 032 032 032 020 \0 (
0026320 4 7 0 \ \ a p p e n d 2 4 6
0026340 7 \ \ a p p e n d 2 1 2 4
0026360 \ \ m v l i s t 1 2 1 s i :
0026400 : e x p a n s i o n - f u n c t
0026420 i o n 1 1 0 c l : c e r r o
0026440 r ) \r ( 4 4 6 q u o t e 4 4
0026460 3 c l : d o c u m e n t a t i
0026500 o n 4 4 0 c l : s e t f 4
0026520 2 1 c l : f u n c t i o n 4
0026540 1 4 q u o t e 4 0 7 q u o
0026560 t e 4 0 4 x c l : : a d d -
0026600 p r o t o t y p e - f n 3 8 1
0026620 q u o t e 3 7 8 g e t 3
0026640 7 0 q u o t e 3 6 7 c l :
0026660 p u s h n e w 3 5 0 p p r i
0026700 n t - d e f i n e r 3 4 6 q
0026720 u o t e 3 4 3 c l : p u s h
0026740 n e w 2 9 6 q u o t e 2 9
0026760 3 \ \ \ , 2 9 0 q u o t e
0027000 2 8 3 \ \ d e f i n e - t y
0027020 p e - s a v e - d e f n 2 7 6
0027040 c l : u n l e s s 2 6 9 c
0027060 l : e v a l - w h e n 2 4 9
0027100 c l : f u n c t i o n 2 4 6
0027120 \ \ \ , 2 4 3 s i : : m a c
0027140 r o - f u n c a l l 2 4 0 w
0027160 i t h o u t - f i l e p k g 2
0027200 3 7 p r o g n 2 3 4 b q u
0027220 o t e 2 1 8 c l : : d e f i
0027240 n e d - o b j e c t - n a m e
0027260 2 1 1 l e t * 2 0 3 d e f
0027300 m a c r o 1 8 6 q u o t e
0027320 1 8 3 g e t 1 7 6 q u o t
0027340 e 1 7 3 c l : p u s h n e w
0027360 1 6 2 q u o t e 1 4 9 q
0027400 u o t e 1 4 6 g e t 1 4 3
0027420 c l : s e t f 1 4 0 p r o
0027440 g n 8 8 : p r o t o t y p e
0027460 7 3 : n a m e 5 9 : u n
0027500 d e f i n e r 3 5 c l : s e
0027520 c o n d ) \r ( 4 5 4 ( ( q u
0027540 o t e c l : f u n c t i o n )
0027560 ) 3 8 9 ( ( q u o t e u n
0027600 d e f i n e r s ) ) 3 5 8 (
0027620 p r e t t y p r i n t m a c r o
0027640 s : t e s t ( q u o t e c
0027660 l : e q u a l ) ) 3 2 5 \r (
0027700 ( q u o t e ( \ \ \ , c l :
0027720 : d e f i n e d - o b j e c t -
0027740 n a m e ) ) ) 3 1 0 ( ( q u
0027760 o t e ( \ \ \ , c l : : o r
0030000 i g i n a l - m a c r o - c a l
0030020 l ) ) ) 2 8 7 ( q u o t e
0030040 ( \ \ \ , c l : : d e f i n e
0030060 d - o b j e c t - n a m e ) ) \r
0030100 2 8 0 ( n u l l f i l e p
0030120 k g f l g ) 2 7 3 ( c l : e
0030140 v a l ) 2 6 1 ( ( \ \ \ ,
0030160 c l : : m a c r o - c a l l - w
0030200 i t h o u t - c o m m e n t s )
0030220 ( \ \ \ , c l : : e n v ) )
0030240 2 2 4 ( c l : : m a c r o -
0030260 c a l l - w i t h o u t - c o m
0030300 m e n t s ) \r 2 1 5 ( c l :
0030320 : m a c r o - c a l l - w i t h
0030340 o u t - c o m m e n t s ( r e
0030360 m o v e - c o m m e n t s c l
0030400 : : o r i g i n a l - m a c r o
0030420 - c a l l ) ) 2 0 8 ( & w h
0030440 o l e c l : : o r i g i n a l
0030460 - m a c r o - c a l l & e n v
0030500 i r o n m e n t c l : : e n v
0030520 ) \r 1 9 4 ( ( q u o t e d
0030540 e f i n e d - b y ) ) 1 5 7
0030560 ( ( q u o t e d e f i n e r -
0030600 f o r ) ) 1 0 5 " U n r e c
0030620 o g n i z e d o p t i o n t
0030640 o D e f D e f i n e r : ~ S
0030660 " 1 0 1 " I g n o r e t h
0030700 e b o g u s o p t i o n " )
0030720 \r | e x p a n d - D E F D E F I
0030740 N E R | d 1 \r ( l ( 1 s i
0030760 : : $ $ m a c r o - e n v i r o
0031000 n m e n t 0 s i : : $ $ m a
0031020 c r o - f o r m ) ) \0 f 004 \0 \0
0031040 002 @ 021 1 003 A 271 H \t \0 \0 Z 002 001 d 003
0031060 220 001 273 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J
0031100 I h 032 032 032 032 h 032 032 g \0 \0 o \0 \0 \0
0031120 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 K h 032
0031140 032 o \0 \0 \0 g \0 \0 H h 032 032 h 032 032 032
0031160 032 h 032 032 032 h 032 032 032 g \0 \0 K h 032 032
0031200 h 032 032 032 032 020 \0 ( 9 r e m o v e
0031220 - c o m m e n t s ) \r ( 9 0 q
0031240 u o t e 7 0 q u o t e 5 9
0031260 q u o t e 5 6 \ \ d e f i
0031300 n e - t y p e - s a v e - d e f
0031320 n 4 9 c l : u n l e s s 4
0031340 2 c l : e v a l - w h e n 2
0031360 9 | e x p a n d - D E F D E F
0031400 I N E R A 0 0 0 1 | 2 6 s i
0031420 : : m a c r o - f u n c a l l
0031440 2 3 w i t h o u t - f i l e p
0031460 k g 2 0 p r o g n ) \r ( 6
0031500 7 ( q u o t e f u n c t i o
0031520 n s ) 5 3 ( n u l l f i l
0031540 e p k g f l g ) 4 6 ( c l :
0031560 e v a l ) ) \r ( s e t f - m a c
0031600 r o - f u n c t i o n ( q u o
0031620 t e d e f d e f i n e r ) (
0031640 q u o t e | e x p a n d - D E
0031660 F D E F I N E R | ) ) \r ( s e t
0031700 q p r e t t y p r i n t m a c
0031720 r o s ( c l : a d j o i n (
0031740 q u o t e ( d e f d e f i n e
0031760 r . p p r i n t - d e f i n
0032000 e r ) ) p r e t t y p r i n t
0032020 m a c r o s : t e s t ( \r q
0032040 u o t e c l : e q u a l ) ) )
0032060 \r ( x c l : : a d d - p r o t o
0032100 t y p e - f n ( q u o t e f
0032120 u n c t i o n s ) ( q u o t e
0032140 d e f d e f i n e r ) ( c l
0032160 : f u n c t i o n ( c l : l a
0032200 m b d a ( c l : : n a m e )
0032220 ( a n d ( \r c l : s y m b o l
0032240 p c l : : n a m e ) ( l i s
0032260 t * ( q u o t e d e f d e f
0032300 i n e r ) c l : : n a m e (
0032320 q u o t e ( " T y p e " ( "
0032340 A r g - l i s t " ) " B o d y
0032360 " ) ) ) ) ) ) ) \r ( l e t * (
0032400 ( a 1 0 8 0 2 ( q u o t e d
0032420 e f - d e f i n e - t y p e ) )
0032440 ( a 1 0 8 0 3 ( q u o t e
0032460 d e f i n e r - f o r ) ) ( a
0032500 1 0 8 0 5 ( q u o t e d e f
0032520 i n e - t y p e s ) ) ) ( \r p
0032540 u t p r o p a 1 0 8 0 2 a 1
0032560 0 8 0 3 a 1 0 8 0 5 ) ) \r ( l
0032600 e t * ( ( a 1 0 8 0 6 ( q u
0032620 o t e d e f i n e - t y p e s
0032640 ) ) ( a 1 0 8 0 7 ( q u o t
0032660 e d e f i n e d - b y ) ) (
0032700 a 1 0 8 0 9 ( c l : a d j o i
0032720 n ( q u o t e \r d e f - d e
0032740 f i n e - t y p e ) ( g e t
0032760 a 1 0 8 0 6 a 1 0 8 0 7 ) ) )
0033000 ) ( p u t p r o p a 1 0 8 0
0033020 6 a 1 0 8 0 7 a 1 0 8 0 9 )
0033040 ) \r | e x p a n d - D E F - D E
0033060 F I N E - T Y P E A 0 0 0 1 |
0033100 d 1 \r ( l ( 1 s i : : $ $ m
0033120 a c r o - e n v i r o n m e n t
0033140 0 s i : : $ $ m a c r o - f
0033160 o r m ) ) 001 261 \a \0 \0 002 @ 002 021 a
0033200 006 H 001 271 H 002 Z 001 273 J 002 274 g \0 \0 L
0033220 \n \0 \0 d 220 001 275 g \0 \0 o \0 \0 \0 I \t
0033240 \0 \0 o \0 \0 \0 \f \0 \0 I \t \0 \0 \n \0 \0
0033260 276 L o \0 \0 \0 \n \0 \0 g \0 \0 g \0 \0 g
0033300 \0 \0 g \0 \0 I h 032 032 o \0 \0 \0 032 032 g
0033320 \0 \0 K h 032 032 h 032 032 032 g \0 \0 g \0 \0
0033340 I g \0 \0 g \0 \0 g \0 \0 g \0 \0 o \0 \0
0033360 \0 g \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 g \0
0033400 \0 g \0 \0 g \0 \0 g \0 \0 I h 032 032 h 032
0033420 032 032 h 032 032 h 032 o \0 \0 \0 g \0 \0 o \0
0033440 \0 \0 o \0 \0 \0 g \0 \0 I h 032 032 o \0 \0
0033460 \0 032 032 032 032 h 032 032 032 032 h 032 032 032 h 032
0033500 032 h 032 032 032 h 032 032 032 h 032 032 032 h 032 032
0033520 o \0 \0 \0 032 032 g \0 \0 g \0 \0 N I K h
0033540 032 032 032 h 032 032 o \0 \0 \0 032 032 g \0 \0 N
0033560 o \0 \0 \0 032 032 g \0 \0 g \0 \0 g \0 \0 I
0033600 h 032 032 o \0 \0 \0 032 032 g \0 \0 g \0 \0 g
0033620 \0 \0 I h 032 032 o \0 \0 \0 032 032 o \0 \0 \0
0033640 032 032 h 032 032 032 g \0 \0 g \0 \0 I h 032 032
0033660 o \0 \0 \0 032 032 g \0 \0 g \0 \0 g \0 \0 I
0033700 h 032 032 o \0 \0 \0 032 032 o \0 \0 \0 032 032 g
0033720 \0 \0 g \0 \0 g \0 \0 I h 032 032 o \0 \0 \0
0033740 032 032 o \0 \0 \0 032 032 g \0 \0 g \0 \0 g \0
0033760 \0 I h 032 032 o \0 \0 \0 032 032 o \0 \0 \0 032
0034000 032 g \0 \0 g \0 \0 M h 032 032 g \0 \0 g \0
0034020 \0 I h 032 032 o \0 \0 \0 032 032 h 032 032 032 h
0034040 032 032 032 032 032 032 032 032 032 032 032 020 \0 ( 6 0
0034060 k e y w o r d - t e s t 5 1
0034100 c l : i n t e r n 4 8 c l
0034120 : s y m b o l - p a c k a g e
0034140 4 4 c l : c o n c a t e n a t
0034160 e 3 7 s t r i n g 2 2 f
0034200 i n d - k e y w o r d ) \r ( 4 0
0034220 4 q u o t e 4 0 1 g e t
0034240 3 9 4 q u o t e 3 9 1 c l
0034260 : p u s h n e w 3 7 2 q u o
0034300 t e 3 6 9 g e t 3 6 6 c
0034320 l : s e t f 3 4 7 q u o t e
0034340 3 4 4 g e t 3 4 1 c l :
0034360 s e t f 3 2 2 q u o t e 3
0034400 1 9 g e t 3 1 6 c l : s e
0034420 t f 3 0 3 q u o t e 3 0 0
0034440 c l : p u s h n e w 2 7 7
0034460 q u o t e 2 7 4 c l : g e t
0034500 h a s h 2 7 1 c l : s e t f
0034520 2 5 8 q u o t e 2 5 5 c
0034540 l : g e t h a s h 2 5 2 c l
0034560 : u n l e s s 2 4 2 d e f g
0034600 l o b a l v a r 2 2 3 q u o
0034620 t e 2 2 0 c l : p u s h n e
0034640 w 1 7 2 q u o t e 1 6 1
0034660 c l : c e r r o r 1 4 1 q u
0034700 o t e 1 3 8 i t e m 1 3 5
0034720 g e t d e f 1 3 2 d e f
0034740 1 2 9 c l : d o 1 2 2 l a
0034760 m b d a 1 1 9 f u n c t i o
0035000 n 1 1 2 m a p c a r 1 0 9
0035020 * 1 0 6 p 1 0 3 x 9
0035040 9 q u o t e 9 6 c l : p u
0035060 s h n e w 8 5 q u o t e 7
0035100 2 q u o t e 6 9 c l : d o
0035120 c u m e n t a t i o n 6 6 c
0035140 l : s e t f 6 3 p r o g n
0035160 2 9 s t r i n g 1 8 : u n
0035200 d e f i n e r ) \r ( 4 1 2 (
0035220 ( q u o t e u n d e f i n e r
0035240 s ) ) 3 8 6 ( ( q u o t e
0035260 n i l l ) ) 3 8 0 ( ( q u o
0035300 t e f i l e p k g c o n t e n
0035320 t s ) ) 3 6 1 ( ( q u o t e
0035340 \ \ d e f i n e - t y p e - d
0035360 e l d e f ) ) \r 3 5 5 ( ( q
0035400 u o t e d e l d e f ) ) 3 3
0035420 6 ( ( q u o t e \ \ d e f i
0035440 n e - t y p e - g e t d e f ) )
0035460 3 3 0 ( ( q u o t e g e t
0035500 d e f ) ) 3 1 1 ( f i l e p
0035520 k g t y p e s ) 2 9 1 ( ( c
0035540 l : m a k e - h a s h - t a b l
0035560 e : t e s t ( q u o t e c
0035600 l : e q u a l ) : s i z e 5
0035620 0 : r e h a s h - s i z e 5
0035640 0 ) ) \r 2 8 5 ( * d e f i n
0035660 i t i o n - h a s h - t a b l e
0035700 * ) 2 6 6 ( * d e f i n i t
0035720 i o n - h a s h - t a b l e * )
0035740 2 4 7 ( n i l ) 2 3 7 (
0035760 p r e t t y t y p e l s t : t
0036000 e s t ( q u o t e c l : e q
0036020 u a l ) ) \r 2 1 5 ( p r e t
0036040 t y d e f m a c r o s : t e s
0036060 t ( q u o t e c l : e q u a
0036100 l ) ) 1 8 0 ( i t e m ) 1
0036120 6 9 " N o ~ S d e f i n i
0036140 t i o n f o r ~ S " 1 6 5
0036160 " R e - f e t c h t h e d
0036200 e f i n i t i o n " \r 1 5 8
0036220 ( d e f d e f ) 1 2 6 ( i
0036240 t e m ) 1 1 6 ( q u o t e
0036260 x ) 8 0 ( ( q u o t e d e
0036300 f i n e - t y p e s ) ) 5 7
0036320 ( : u n d e f i n e r ) 4 1
0036340 " L S T " 3 3 " C H A N G E
0036360 D " ) \r | e x p a n d - D E F -
0036400 D E F I N E - T Y P E | d 1 \r
0036420 ( l ( 1 s i : : $ $ m a c r
0036440 o - e n v i r o n m e n t 0
0036460 s i : : $ $ m a c r o - f o r m
0036500 ) ) \0 b 004 \0 \0 002 @ 021 1 003 A 271 H
0036520 \t \0 \0 Z 002 001 273 g \0 \0 g \0 \0 g \0 \0
0036540 g \0 \0 J I h 032 032 032 032 h 032 032 g \0 \0
0036560 o \0 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 g \0
0036600 \0 K h 032 032 o \0 \0 \0 g \0 \0 H h 032 032
0036620 h 032 032 032 032 h 032 032 032 h 032 032 032 g \0 \0
0036640 K h 032 032 h 032 032 032 032 020 \0 ( 9 r e
0036660 m o v e - c o m m e n t s ) \r (
0036700 8 6 q u o t e 6 6 q u o t
0036720 e 5 5 q u o t e 5 2 \ \
0036740 d e f i n e - t y p e - s a v e
0036760 - d e f n 4 5 c l : u n l e
0037000 s s 3 8 c l : e v a l - w h
0037020 e n 2 5 | e x p a n d - D E
0037040 F - D E F I N E - T Y P E A 0 0
0037060 0 1 | 2 2 s i : : m a c r o
0037100 - f u n c a l l 1 9 w i t h
0037120 o u t - f i l e p k g 1 6 p
0037140 r o g n ) \r ( 6 3 ( q u o t
0037160 e d e f i n e - t y p e s )
0037200 4 9 ( n u l l f i l e p k g
0037220 f l g ) 4 2 ( c l : e v a l
0037240 ) ) \r ( s e t f - m a c r o - f
0037260 u n c t i o n ( q u o t e d
0037300 e f - d e f i n e - t y p e )
0037320 ( q u o t e | e x p a n d - D
0037340 E F - D E F I N E - T Y P E | )
0037360 ) \r ( s e t q p r e t t y p r
0037400 i n t m a c r o s ( c l : a d
0037420 j o i n ( q u o t e ( d e f
0037440 - d e f i n e - t y p e . p
0037460 p r i n t - d e f i n e r ) )
0037500 p r e t t y p r i n t m a c r o
0037520 s : t e s t \r ( q u o t e
0037540 c l : e q u a l ) ) ) \r ( x c l
0037560 : : a d d - p r o t o t y p e -
0037600 f n ( q u o t e d e f i n e
0037620 - t y p e s ) ( q u o t e d
0037640 e f - d e f i n e - t y p e )
0037660 ( c l : f u n c t i o n ( l a
0037700 m b d a ( n a m e ) ( a n d
0037720 ( \r c l : s y m b o l p n a
0037740 m e ) ( l i s t * ( q u o t
0037760 e d e f - d e f i n e - t y p
0040000 e ) n a m e ( q u o t e (
0040020 " D e s c r i p t i o n s t r
0040040 i n g " ) ) ) ) ) ) ) \r ( l e t
0040060 * ( ( a 1 0 8 1 1 ( q u o t
0040100 e d e f - d e f i n e - t y p
0040120 e ) ) ( a 1 0 8 1 2 ( q u o
0040140 t e c l : f u n c t i o n ) )
0040160 ( a 1 0 8 1 3 \r " D e f i n
0040200 e N A M E a s a n e w
0040220 d e f i n i t i o n t y p e "
0040240 ) ) ( p r o g n ( c o n d
0040260 ( ( c l : f b o u n d p ( q u
0040300 o t e s e t - d o c u m e n t
0040320 a t i o n ) ) ( \r s e t - d o
0040340 c u m e n t a t i o n a 1 0 8
0040360 1 1 a 1 0 8 1 2 a 1 0 8 1 3
0040400 ) ) ) a 1 0 8 1 3 ) ) \r | e x
0040420 p a n d - W I T H O U T - F I L
0040440 E P K G | d 1 \r ( l ( 1 s
0040460 i : : $ $ m a c r o - e n v i r
0040500 o n m e n t 0 s i : : $ $ m
0040520 a c r o - f o r m ) ) \0 8 001 \0
0040540 \0 002 @ 002 021 001 \0 g \0 \0 g \0 \0 o \0 \0
0040560 \0 H 032 032 g \0 \0 o \0 \0 \0 g \0 \0 o \0
0040600 \0 \0 g \0 \0 o \0 \0 \0 H 032 032 h 032 032 032
0040620 h 032 032 032 h 032 032 032 020 \0 n i l \r ( 3
0040640 4 l e t 2 7 c l : u n l e
0040660 s s 2 0 c l : e v a l - w h
0040700 e n 1 0 c l : e v a l - w h
0040720 e n 7 p r o g n ) \r ( 3 8
0040740 ( f i l e p k g f l g ( d f
0040760 n f l g t ) ) 3 1 ( o r
0041000 ( e q d f n f l g ( q u o t
0041020 e p r o p ) ) ( e q d f n
0041040 f l g ( q u o t e a l l p r
0041060 o p ) ) ) 2 4 ( c l : e v a
0041100 l ) \r 1 4 ( c l : l o a d )
0041120 ) \r ( s e t f - m a c r o - f u
0041140 n c t i o n ( q u o t e w i
0041160 t h o u t - f i l e p k g ) (
0041200 q u o t e | e x p a n d - W I
0041220 T H O U T - F I L E P K G | ) )
0041240 \r ( l e t * ( ( a 1 0 8 2 0
0041260 ( q u o t e c l : d e f u n )
0041300 ) ( a 1 0 8 2 1 ( q u o t e
0041320 d e f i n e r - f o r ) ) (
0041340 a 1 0 8 2 3 ( q u o t e f u
0041360 n c t i o n s ) ) ) ( p u t p
0041400 r o p \r a 1 0 8 2 0 a 1 0 8
0041420 2 1 a 1 0 8 2 3 ) ) \r ( l e t
0041440 * ( ( a 1 0 8 2 4 ( q u o t
0041460 e f u n c t i o n s ) ) ( a
0041500 1 0 8 2 5 ( q u o t e d e f
0041520 i n e d - b y ) ) ( a 1 0 8 2
0041540 7 ( c l : a d j o i n ( q u
0041560 o t e c l : d e f u n ) ( g
0041600 e t \r a 1 0 8 2 4 a 1 0 8 2
0041620 5 ) ) ) ) ( p u t p r o p a
0041640 1 0 8 2 4 a 1 0 8 2 5 a 1 0
0041660 8 2 7 ) ) \r | e x p a n d - D E
0041700 F U N A 0 0 0 1 | d 1 \r ( l
0041720 ( 1 s i : : $ $ m a c r o - e
0041740 n v i r o n m e n t 0 s i :
0041760 : $ $ m a c r o - f o r m ) )
0042000 \0 x \b \0 \0 002 @ 002 021 q \a H 001 271 H 002
0042020 Z 001 273 J 002 A i \v \0 \0 \t \0 \0 \ 001 275
0042040 L 002 001 276 L 002 002 001 _ 016 277 g \0 \0 g \0
0042060 \0 g \0 \0 g \0 \0 I h 032 032 h 032 032 g \0
0042100 \0 g \0 \0 K N g \0 \0 I M 032 032 h 032 \n
0042120 \0 \0 032 032 h 032 032 h 032 032 032 O 016 264 035 g
0042140 \0 \0 g \0 \0 g \0 \0 I h 032 032 o \0 \0 \0
0042160 032 032 O 016 h 032 032 032 h 032 032 032 020 \0 ( 7
0042200 5 \ \ a p p e n d 2 2 2 \
0042220 \ m v l i s t 1 9 p a r s e
0042240 - b o d y ) \r ( 9 7 q u o t e
0042260 9 4 c l : d o c u m e n t a
0042300 t i o n 9 1 c l : s e t f
0042320 6 6 c l : b l o c k 6 1 c
0042340 l : l a m b d a 5 8 c l : f
0042360 u n c t i o n 4 8 q u o t e
0042400 4 5 c l : s y m b o l - f u
0042420 n c t i o n 4 2 c l : s e t
0042440 f 3 9 p r o g n ) \r ( 1 0
0042460 5 ( ( q u o t e c l : f u n
0042500 c t i o n ) ) ) \r c l : : | e x
0042520 p a n d - D E F U N | d 1 \r (
0042540 l ( 1 s i : : $ $ m a c r o
0042560 - e n v i r o n m e n t 0 s
0042600 i : : $ $ m a c r o - f o r m )
0042620 ) \0 b 004 \0 \0 002 @ 021 1 003 A 271 H \t
0042640 \0 \0 Z 002 001 273 g \0 \0 g \0 \0 g \0 \0 g
0042660 \0 \0 J I h 032 032 032 032 h 032 032 g \0 \0 o
0042700 \0 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0
0042720 K h 032 032 o \0 \0 \0 g \0 \0 H h 032 032 h
0042740 032 032 032 032 h 032 032 032 h 032 032 032 g \0 \0 K
0042760 h 032 032 h 032 032 032 032 020 \0 ( 9 r e m
0043000 o v e - c o m m e n t s ) \r ( 8
0043020 6 q u o t e 6 6 q u o t e
0043040 5 5 q u o t e 5 2 \ \ d
0043060 e f i n e - t y p e - s a v e -
0043100 d e f n 4 5 c l : u n l e s
0043120 s 3 8 c l : e v a l - w h e
0043140 n 2 5 | e x p a n d - D E F
0043160 U N A 0 0 0 1 | 2 2 s i : :
0043200 m a c r o - f u n c a l l 1 9
0043220 w i t h o u t - f i l e p k g
0043240 1 6 p r o g n ) \r ( 6 3
0043260 ( q u o t e f u n c t i o n s
0043300 ) 4 9 ( n u l l f i l e p
0043320 k g f l g ) 4 2 ( c l : e v
0043340 a l ) ) \r ( s e t f - m a c r o
0043360 - f u n c t i o n ( q u o t e
0043400 c l : d e f u n ) ( q u o t
0043420 e c l : : | e x p a n d - D E
0043440 F U N | ) ) \r ( s e t q p r e
0043460 t t y p r i n t m a c r o s (
0043500 c l : a d j o i n ( q u o t e
0043520 ( c l : d e f u n . p p r
0043540 i n t - d e f i n e r ) ) p r
0043560 e t t y p r i n t m a c r o s
0043600 : t e s t ( q u o t e \r c l
0043620 : e q u a l ) ) ) \r ( x c l : :
0043640 a d d - p r o t o t y p e - f n
0043660 ( q u o t e f u n c t i o n
0043700 s ) ( q u o t e c l : d e f
0043720 u n ) ( c l : f u n c t i o n
0043740 ( c l : l a m b d a ( c l :
0043760 : n a m e ) ( a n d ( \r c l
0044000 : s y m b o l p c l : : n a m
0044020 e ) ( l i s t * ( q u o t e
0044040 c l : d e f u n ) c l : : n
0044060 a m e ( q u o t e ( ( " A r
0044100 g L i s t " ) " B o d y " )
0044120 ) ) ) ) ) ) \r ( l e t * ( ( a
0044140 1 0 8 3 5 ( q u o t e d e f
0044160 i n l i n e ) ) ( a 1 0 8 3 6
0044200 ( q u o t e d e f i n e r -
0044220 f o r ) ) ( a 1 0 8 3 8 ( q
0044240 u o t e f u n c t i o n s ) )
0044260 ) ( p u t p r o p \r a 1 0 8
0044300 3 5 a 1 0 8 3 6 a 1 0 8 3 8
0044320 ) ) \r ( l e t * ( ( a 1 0 8 3
0044340 9 ( q u o t e f u n c t i o
0044360 n s ) ) ( a 1 0 8 4 0 ( q u
0044400 o t e d e f i n e d - b y ) )
0044420 ( a 1 0 8 4 2 ( c l : a d j
0044440 o i n ( q u o t e d e f i n
0044460 l i n e ) ( \r g e t a 1 0 8
0044500 3 9 a 1 0 8 4 0 ) ) ) ) ( p
0044520 u t p r o p a 1 0 8 3 9 a 1
0044540 0 8 4 0 a 1 0 8 4 2 ) ) \r | e
0044560 x p a n d - D E F I N L I N E A
0044600 0 0 0 1 | d 1 \r ( l ( 1 s
0044620 i : : $ $ m a c r o - e n v i r
0044640 o n m e n t 0 s i : : $ $ m
0044660 a c r o - f o r m ) ) \0 ~ \n \0
0044700 \0 002 @ 002 021 221 \t H 001 271 H 002 Z 001 273 J
0044720 002 274 A 275 L M i \v \0 \0 \t \0 \0 ^ 001 _
0044740 016 277 N 002 001 _ 020 277 g \0 \0 K O 020 g \0
0044760 \0 I O 016 032 032 h 032 \n \0 \0 032 032 _ 022 277
0045000 g \0 \0 g \0 \0 I K L 032 032 032 g \0 \0 I
0045020 o \0 \0 \0 I h 032 032 I \t \0 \0 \n \0 \0 o
0045040 \0 \0 \0 g \0 \0 g \0 \0 O 022 h 032 032 o \0
0045060 \0 \0 032 032 h 032 032 032 032 032 h 032 032 032 020 \0
0045100 ( 9 2 x c l : p a c k 8 9
0045120 c l : s y m b o l - p a c k a g
0045140 e 5 6 \ \ a p p e n d 2 2
0045160 6 \ \ m v l i s t 2 3 p a
0045200 r s e - b o d y ) \r ( 1 0 2 q
0045220 u o t e 9 9 c o n s 7 6
0045240 d e f o p t i m i z e r 6 7
0045260 c l : d e f u n 6 4 p r o g
0045300 n 4 6 c l : b l o c k 4 0
0045320 c l : l a m b d a ) \r ( 1 1
0045340 1 ( a r g s ) 9 6 ( & r e
0045360 s t a r g s ) 8 1 " d e f
0045400 i n l i n e - " ) \r | e x p a n
0045420 d - D E F I N L I N E | d 1 \r
0045440 ( l ( 1 s i : : $ $ m a c r
0045460 o - e n v i r o n m e n t 0
0045500 s i : : $ $ m a c r o - f o r m
0045520 ) ) \0 b 004 \0 \0 002 @ 021 1 003 A 271 H
0045540 \t \0 \0 Z 002 001 273 g \0 \0 g \0 \0 g \0 \0
0045560 g \0 \0 J I h 032 032 032 032 h 032 032 g \0 \0
0045600 o \0 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 g \0
0045620 \0 K h 032 032 o \0 \0 \0 g \0 \0 H h 032 032
0045640 h 032 032 032 032 h 032 032 032 h 032 032 032 g \0 \0
0045660 K h 032 032 h 032 032 032 032 020 \0 ( 9 r e
0045700 m o v e - c o m m e n t s ) \r (
0045720 8 6 q u o t e 6 6 q u o t
0045740 e 5 5 q u o t e 5 2 \ \
0045760 d e f i n e - t y p e - s a v e
0046000 - d e f n 4 5 c l : u n l e
0046020 s s 3 8 c l : e v a l - w h
0046040 e n 2 5 | e x p a n d - D E
0046060 F I N L I N E A 0 0 0 1 | 2 2
0046100 s i : : m a c r o - f u n c a
0046120 l l 1 9 w i t h o u t - f i
0046140 l e p k g 1 6 p r o g n ) \r
0046160 ( 6 3 ( q u o t e f u n c
0046200 t i o n s ) 4 9 ( n u l l
0046220 f i l e p k g f l g ) 4 2 (
0046240 c l : e v a l ) ) \r ( s e t f -
0046260 m a c r o - f u n c t i o n (
0046300 q u o t e d e f i n l i n e )
0046320 ( q u o t e | e x p a n d -
0046340 D E F I N L I N E | ) ) \r ( s e
0046360 t q p r e t t y p r i n t m a
0046400 c r o s ( c l : a d j o i n
0046420 ( q u o t e ( d e f i n l i n
0046440 e . p p r i n t - d e f i n
0046460 e r ) ) p r e t t y p r i n t
0046500 m a c r o s : t e s t ( q u
0046520 o t e \r c l : e q u a l ) ) )
0046540 \r ( x c l : : a d d - p r o t o
0046560 t y p e - f n ( q u o t e f
0046600 u n c t i o n s ) ( q u o t e
0046620 d e f i n l i n e ) ( c l :
0046640 f u n c t i o n ( l a m b d a
0046660 ( n a m e ) ( a n d ( c l
0046700 : s y m b o l p \r n a m e )
0046720 ( l i s t * ( q u o t e d e
0046740 f i n l i n e ) n a m e ( q
0046760 u o t e ( ( " A r g L i s t
0047000 " ) " B o d y " ) ) ) ) ) ) )
0047020 \r ( l e t * ( ( a 1 0 8 4 8
0047040 ( q u o t e d e f m a c r o )
0047060 ) ( a 1 0 8 4 9 ( q u o t e
0047100 d e f i n e r - f o r ) ) (
0047120 a 1 0 8 5 1 ( q u o t e f u
0047140 n c t i o n s ) ) ) ( p u t p
0047160 r o p \r a 1 0 8 4 8 a 1 0 8
0047200 4 9 a 1 0 8 5 1 ) ) \r ( l e t
0047220 * ( ( a 1 0 8 5 2 ( q u o t
0047240 e f u n c t i o n s ) ) ( a
0047260 1 0 8 5 3 ( q u o t e d e f
0047300 i n e d - b y ) ) ( a 1 0 8 5
0047320 5 ( c l : a d j o i n ( q u
0047340 o t e d e f m a c r o ) ( g
0047360 e t \r a 1 0 8 5 2 a 1 0 8 5
0047400 3 ) ) ) ) ( p u t p r o p a
0047420 1 0 8 5 2 a 1 0 8 5 3 a 1 0
0047440 8 5 5 ) ) \r | e x p a n d - D E
0047460 F M A C R O A 0 0 0 1 | d 1 \r
0047500 ( l ( 1 s i : : $ $ m a c r
0047520 o - e n v i r o n m e n t 0
0047540 s i : : $ $ m a c r o - f o r m
0047560 ) ) \0 250 \t \0 \0 002 @ 002 021 201 \b H 001
0047600 271 H 002 Z 001 273 J 002 274 I 225 I 004 l 004 360
0047620 250 o \0 \0 \0 I \n \0 \0 277 o \0 \0 \0 I h
0047640 032 032 I \t \0 \0 \n \0 \0 275 I K L \v \0 \0
0047660 \t \0 \0 ^ 001 _ 016 277 N 002 001 _ 020 277 g \0
0047700 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 M h
0047720 032 032 h 032 032 g \0 \0 O 016 h 032 032 h 032 032
0047740 032 g \0 \0 g \0 \0 g \0 \0 I h 032 032 h 032
0047760 032 g \0 \0 M h 032 032 h 032 032 032 O 020 264 035
0050000 g \0 \0 g \0 \0 g \0 \0 I h 032 032 o \0 \0
0050020 \0 032 032 O 020 h 032 032 032 h 032 032 032 032 032 020
0050040 \0 ( 5 7 \ \ m v l i s t 5 4
0050060 s i : : e x p a n s i o n - f
0050100 u n c t i o n 4 7 x c l : p
0050120 a c k 4 4 c l : s y m b o l
0050140 - p a c k a g e 3 1 c l : e
0050160 r r o r ) \r ( 1 4 3 q u o t e
0050200 1 4 0 c l : d o c u m e n t
0050220 a t i o n 1 3 7 c l : s e t
0050240 f 1 2 2 q u o t e 1 1 2
0050260 q u o t e 1 0 9 c l : m a c
0050300 r o - f u n c t i o n 1 0 6
0050320 c l : s e t f 9 4 c l : f u
0050340 n c t i o n 8 4 q u o t e
0050360 8 1 c l : s y m b o l - f u n
0050400 c t i o n 7 8 c l : s e t f
0050420 7 1 c l : e v a l - w h e n
0050440 ) \r ( 1 5 1 ( ( q u o t e
0050460 c l : f u n c t i o n ) ) 7 5
0050500 ( c l : e v a l c l : c o m
0050520 p i l e c l : l o a d ) 3 6
0050540 " e x p a n d - " 2 7 " I
0050560 l l e g a l n a m e u s e d
0050600 i n D E F M A C R O : ~ S
0050620 " ) \r c l : : | e x p a n d - D
0050640 E F M A C R O | d 1 \r ( l (
0050660 1 s i : : $ $ m a c r o - e n
0050700 v i r o n m e n t 0 s i : :
0050720 $ $ m a c r o - f o r m ) ) \0
0050740 b 004 \0 \0 002 @ 021 1 003 A 271 H \t \0 \0 Z
0050760 002 001 273 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J
0051000 I h 032 032 032 032 h 032 032 g \0 \0 o \0 \0 \0
0051020 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 K h 032
0051040 032 o \0 \0 \0 g \0 \0 H h 032 032 h 032 032 032
0051060 032 h 032 032 032 h 032 032 032 g \0 \0 K h 032 032
0051100 h 032 032 032 032 020 \0 ( 9 r e m o v e
0051120 - c o m m e n t s ) \r ( 8 6 q
0051140 u o t e 6 6 q u o t e 5 5
0051160 q u o t e 5 2 \ \ d e f i
0051200 n e - t y p e - s a v e - d e f
0051220 n 4 5 c l : u n l e s s 3
0051240 8 c l : e v a l - w h e n 2
0051260 5 | e x p a n d - D E F M A C
0051300 R O A 0 0 0 1 | 2 2 s i : :
0051320 m a c r o - f u n c a l l 1 9
0051340 w i t h o u t - f i l e p k g
0051360 1 6 p r o g n ) \r ( 6 3
0051400 ( q u o t e f u n c t i o n s
0051420 ) 4 9 ( n u l l f i l e p
0051440 k g f l g ) 4 2 ( c l : e v
0051460 a l ) ) \r ( s e t f - m a c r o
0051500 - f u n c t i o n ( q u o t e
0051520 d e f m a c r o ) ( q u o t
0051540 e c l : : | e x p a n d - D E
0051560 F M A C R O | ) ) \r ( s e t q
0051600 p r e t t y p r i n t m a c r o
0051620 s ( c l : a d j o i n ( q u
0051640 o t e ( d e f m a c r o .
0051660 p p r i n t - d e f i n e r ) )
0051700 p r e t t y p r i n t m a c r
0051720 o s : t e s t ( q u o t e
0051740 \r c l : e q u a l ) ) ) \r ( x c
0051760 l : : a d d - p r o t o t y p e
0052000 - f n ( q u o t e f u n c t
0052020 i o n s ) ( q u o t e d e f
0052040 m a c r o ) ( c l : f u n c t
0052060 i o n ( c l : l a m b d a (
0052100 c l : : n a m e ) ( a n d (
0052120 \r c l : s y m b o l p c l : :
0052140 n a m e ) ( l i s t * ( q u
0052160 o t e d e f m a c r o ) c l
0052200 : : n a m e ( q u o t e ( (
0052220 c l : : a r g - l i s t ) " B
0052240 o d y " ) ) ) ) ) ) ) \r ( l e t
0052260 * ( ( a 1 0 8 6 0 ( q u o t
0052300 e c l : d e f v a r ) ) ( a
0052320 1 0 8 6 1 ( q u o t e d e f
0052340 i n e r - f o r ) ) ( a 1 0 8
0052360 6 3 ( q u o t e v a r i a b
0052400 l e s ) ) ) ( p u t p r o p
0052420 \r a 1 0 8 6 0 a 1 0 8 6 1 a
0052440 1 0 8 6 3 ) ) \r ( l e t * ( (
0052460 a 1 0 8 6 4 ( q u o t e v a
0052500 r i a b l e s ) ) ( a 1 0 8 6
0052520 5 ( q u o t e d e f i n e d
0052540 - b y ) ) ( a 1 0 8 6 7 ( c
0052560 l : a d j o i n ( q u o t e
0052600 c l : d e f v a r ) ( \r g e t
0052620 a 1 0 8 6 4 a 1 0 8 6 5 ) )
0052640 ) ) ( p u t p r o p a 1 0 8
0052660 6 4 a 1 0 8 6 5 a 1 0 8 6 7
0052700 ) ) \r | e x p a n d - D E F V A
0052720 R A 0 0 0 1 | d 1 \r ( l ( 1
0052740 s i : : $ $ m a c r o - e n v
0052760 i r o n m e n t 0 s i : : $
0053000 $ m a c r o - f o r m ) ) \0 y
0053020 006 \0 \0 002 @ 002 021 Q 005 H 001 271 H 002 Z d
0053040 220 001 273 J h 360 h 360 274 J 002 264 005 J 002 001
0053060 275 g \0 \0 g \0 \0 g \0 \0 g \0 \0 I h 032
0053100 032 h 032 032 h 032 032 L 264 ! g \0 \0 g \0 \0
0053120 g \0 \0 I h 032 032 h 032 032 g \0 \0 I K h
0053140 032 032 032 h 032 032 032 h 032 M 264 034 g \0 \0 g
0053160 \0 \0 g \0 \0 I h 032 032 o \0 \0 \0 032 032 M
0053200 h 032 032 032 h 032 \n \0 \0 032 032 020 \0 ( 1 1
0053220 6 \ \ a p p e n d 2 ) \r ( 9 6
0053240 q u o t e 9 3 c l : d o c
0053260 u m e n t a t i o n 9 0 c l
0053300 : s e t f 7 2 s e t q 6 2
0053320 q u o t e 5 9 b o u n d p
0053340 5 6 o r 4 0 c l : s p e
0053360 c i a l 3 7 q u o t e 3 4
0053400 c l : p r o c l a i m 3 1
0053420 p r o g n ) \r ( 1 0 4 ( ( q
0053440 u o t e c l : : v a r i a b l
0053460 e ) ) ) \r c l : : | e x p a n d
0053500 - D E F V A R | d 1 \r ( l (
0053520 1 s i : : $ $ m a c r o - e n
0053540 v i r o n m e n t 0 s i : :
0053560 $ $ m a c r o - f o r m ) ) \0
0053600 b 004 \0 \0 002 @ 021 1 003 A 271 H \t \0 \0 Z
0053620 002 001 273 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J
0053640 I h 032 032 032 032 h 032 032 g \0 \0 o \0 \0 \0
0053660 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 K h 032
0053700 032 o \0 \0 \0 g \0 \0 H h 032 032 h 032 032 032
0053720 032 h 032 032 032 h 032 032 032 g \0 \0 K h 032 032
0053740 h 032 032 032 032 020 \0 ( 9 r e m o v e
0053760 - c o m m e n t s ) \r ( 8 6 q
0054000 u o t e 6 6 q u o t e 5 5
0054020 q u o t e 5 2 \ \ d e f i
0054040 n e - t y p e - s a v e - d e f
0054060 n 4 5 c l : u n l e s s 3
0054100 8 c l : e v a l - w h e n 2
0054120 5 | e x p a n d - D E F V A R
0054140 A 0 0 0 1 | 2 2 s i : : m a
0054160 c r o - f u n c a l l 1 9 w
0054200 i t h o u t - f i l e p k g 1
0054220 6 p r o g n ) \r ( 6 3 ( q
0054240 u o t e v a r i a b l e s )
0054260 4 9 ( n u l l f i l e p k g
0054300 f l g ) 4 2 ( c l : e v a l
0054320 ) ) \r ( s e t f - m a c r o - f
0054340 u n c t i o n ( q u o t e c
0054360 l : d e f v a r ) ( q u o t e
0054400 c l : : | e x p a n d - D E F
0054420 V A R | ) ) \r ( s e t q p r e
0054440 t t y p r i n t m a c r o s (
0054460 c l : a d j o i n ( q u o t e
0054500 ( c l : d e f v a r . p p
0054520 r i n t - d e f i n e r ) ) p
0054540 r e t t y p r i n t m a c r o s
0054560 : t e s t ( q u o t e \r c
0054600 l : e q u a l ) ) ) \r ( x c l :
0054620 : a d d - p r o t o t y p e - f
0054640 n ( q u o t e v a r i a b l
0054660 e s ) ( q u o t e c l : d e
0054700 f v a r ) ( c l : f u n c t i
0054720 o n ( c l : l a m b d a ( c
0054740 l : : n a m e ) ( a n d ( \r
0054760 c l : s y m b o l p c l : : n
0055000 a m e ) ( l i s t ( q u o t
0055020 e c l : d e f v a r ) c l :
0055040 : n a m e ) ) ) ) ) \r ( l e t *
0055060 ( ( a 1 0 8 7 4 ( q u o t e
0055100 c l : d e f p a r a m e t e r
0055120 ) ) ( a 1 0 8 7 5 ( q u o t
0055140 e d e f i n e r - f o r ) )
0055160 ( a 1 0 8 7 7 ( q u o t e v
0055200 a r i a b l e s ) ) ) ( \r p u
0055220 t p r o p a 1 0 8 7 4 a 1 0
0055240 8 7 5 a 1 0 8 7 7 ) ) \r ( l e
0055260 t * ( ( a 1 0 8 7 8 ( q u o
0055300 t e v a r i a b l e s ) ) (
0055320 a 1 0 8 7 9 ( q u o t e d e
0055340 f i n e d - b y ) ) ( a 1 0 8
0055360 8 1 ( c l : a d j o i n ( q
0055400 u o t e c l : d e f p a r a m
0055420 e t e r \r ) ( g e t a 1 0 8
0055440 7 8 a 1 0 8 7 9 ) ) ) ) ( p
0055460 u t p r o p a 1 0 8 7 8 a 1
0055500 0 8 7 9 a 1 0 8 8 1 ) ) \r | e
0055520 x p a n d - D E F P A R A M E T
0055540 E R A 0 0 0 1 | d 1 \r ( l (
0055560 1 s i : : $ $ m a c r o - e n
0055600 v i r o n m e n t 0 s i : :
0055620 $ $ m a c r o - f o r m ) ) \0
0055640 T 005 \0 \0 002 @ 002 021 A 004 H 001 271 H 002 Z
0055660 001 273 J 002 d 220 001 274 g \0 \0 g \0 \0 g \0
0055700 \0 g \0 \0 I h 032 032 h 032 032 h 032 032 g \0
0055720 \0 I K h 032 032 032 L 264 034 g \0 \0 g \0 \0
0055740 g \0 \0 I h 032 032 o \0 \0 \0 032 032 L h 032
0055760 032 032 h 032 032 032 032 020 \0 n i l \r ( 6 1
0056000 q u o t e 5 8 c l : d o c
0056020 u m e n t a t i o n 5 5 c l
0056040 : s e t f 4 3 s e t q 3 0
0056060 c l : s p e c i a l 2 7 q
0056100 u o t e 2 4 c l : p r o c l
0056120 a i m 2 1 p r o g n ) \r (
0056140 6 9 ( ( q u o t e c l : : v
0056160 a r i a b l e ) ) ) \r c l : : |
0056200 e x p a n d - D E F P A R A M E
0056220 T E R | d 1 \r ( l ( 1 s i
0056240 : : $ $ m a c r o - e n v i r o
0056260 n m e n t 0 s i : : $ $ m a
0056300 c r o - f o r m ) ) \0 b 004 \0 \0
0056320 002 @ 021 1 003 A 271 H \t \0 \0 Z 002 001 273 g
0056340 \0 \0 g \0 \0 g \0 \0 g \0 \0 J I h 032 032
0056360 032 032 h 032 032 g \0 \0 o \0 \0 \0 g \0 \0 o
0056400 \0 \0 \0 g \0 \0 g \0 \0 K h 032 032 o \0 \0
0056420 \0 g \0 \0 H h 032 032 h 032 032 032 032 h 032 032
0056440 032 h 032 032 032 g \0 \0 K h 032 032 h 032 032 032
0056460 032 020 \0 ( 9 r e m o v e - c o m
0056500 m e n t s ) \r ( 8 6 q u o t e
0056520 6 6 q u o t e 5 5 q u o
0056540 t e 5 2 \ \ d e f i n e - t
0056560 y p e - s a v e - d e f n 4 5
0056600 c l : u n l e s s 3 8 c l
0056620 : e v a l - w h e n 2 5 | e
0056640 x p a n d - D E F P A R A M E T
0056660 E R A 0 0 0 1 | 2 2 s i : :
0056700 m a c r o - f u n c a l l 1 9
0056720 w i t h o u t - f i l e p k g
0056740 1 6 p r o g n ) \r ( 6 3
0056760 ( q u o t e v a r i a b l e s
0057000 ) 4 9 ( n u l l f i l e p
0057020 k g f l g ) 4 2 ( c l : e v
0057040 a l ) ) \r ( s e t f - m a c r o
0057060 - f u n c t i o n ( q u o t e
0057100 c l : d e f p a r a m e t e r
0057120 ) ( q u o t e c l : : | e x
0057140 p a n d - D E F P A R A M E T E
0057160 R | ) ) \r ( s e t q p r e t t
0057200 y p r i n t m a c r o s ( c l
0057220 : a d j o i n ( q u o t e (
0057240 c l : d e f p a r a m e t e r
0057260 . p p r i n t - d e f i n e r
0057300 ) ) p r e t t y p r i n t m a
0057320 c r o s : t e s t \r ( q u o
0057340 t e c l : e q u a l ) ) ) \r (
0057360 x c l : : a d d - p r o t o t y
0057400 p e - f n ( q u o t e v a r
0057420 i a b l e s ) ( q u o t e c
0057440 l : d e f p a r a m e t e r )
0057460 ( c l : f u n c t i o n ( c l
0057500 : l a m b d a ( c l : : n a m
0057520 e ) ( \r a n d ( c l : s y m
0057540 b o l p c l : : n a m e ) (
0057560 l i s t * ( q u o t e c l :
0057600 d e f p a r a m e t e r ) c l
0057620 : : n a m e ( q u o t e ( "
0057640 V a l u e " \r " D o c u m e n
0057660 t a t i o n s t r i n g " ) )
0057700 ) ) ) ) ) \r ( l e t * ( ( a 1
0057720 0 8 8 7 ( q u o t e c l : d
0057740 e f c o n s t a n t ) ) ( a 1
0057760 0 8 8 8 ( q u o t e d e f i
0060000 n e r - f o r ) ) ( a 1 0 8 9
0060020 0 ( q u o t e v a r i a b l
0060040 e s ) ) ) ( \r p u t p r o p
0060060 a 1 0 8 8 7 a 1 0 8 8 8 a 1
0060100 0 8 9 0 ) ) \r ( l e t * ( ( a
0060120 1 0 8 9 1 ( q u o t e v a r
0060140 i a b l e s ) ) ( a 1 0 8 9 2
0060160 ( q u o t e d e f i n e d -
0060200 b y ) ) ( a 1 0 8 9 4 ( c l
0060220 : a d j o i n ( q u o t e c
0060240 l : d e f c o n s t a n t \r )
0060260 ( g e t a 1 0 8 9 1 a 1 0 8
0060300 9 2 ) ) ) ) ( p u t p r o p
0060320 a 1 0 8 9 1 a 1 0 8 9 2 a 1
0060340 0 8 9 4 ) ) \r | e x p a n d - D
0060360 E F C O N S T A N T A 0 0 0 1 |
0060400 d 1 \r ( l ( 1 s i : : $ $
0060420 m a c r o - e n v i r o n m e n
0060440 t 0 s i : : $ $ m a c r o -
0060460 f o r m ) ) \0 _ 005 \0 \0 002 @ 002 021
0060500 A 004 H 001 271 H 002 Z 001 273 J 002 d 220 001 274
0060520 g \0 \0 g \0 \0 I K h 032 032 032 g \0 \0 g
0060540 \0 \0 I h 032 032 g \0 \0 g \0 \0 I h 032 032
0060560 h 032 032 o \0 \0 \0 032 032 032 L 264 034 g \0 \0
0060600 g \0 \0 g \0 \0 I h 032 032 o \0 \0 \0 032 032
0060620 L h 032 032 032 h 032 032 032 032 020 \0 n i l \r
0060640 ( 7 2 q u o t e 6 9 c l :
0060660 d o c u m e n t a t i o n 6 6
0060700 c l : s e t f 4 6 c o n s
0060720 t a n t 4 3 q u o t e 3 6
0060740 q u o t e 3 3 p u t h a s
0060760 h 2 4 s e t q 2 1 p r o
0061000 g n ) \r ( 8 0 ( ( q u o t e
0061020 c l : : v a r i a b l e ) )
0061040 5 7 ( c o m p v a r m a c r o
0061060 h a s h ) ) \r c l : : | e x p a
0061100 n d - D E F C O N S T A N T |
0061120 d 1 \r ( l ( 1 s i : : $ $ m
0061140 a c r o - e n v i r o n m e n t
0061160 0 s i : : $ $ m a c r o - f
0061200 o r m ) ) \0 b 004 \0 \0 002 @ 021 1 003
0061220 A 271 H \t \0 \0 Z 002 001 273 g \0 \0 g \0 \0
0061240 g \0 \0 g \0 \0 J I h 032 032 032 032 h 032 032
0061260 g \0 \0 o \0 \0 \0 g \0 \0 o \0 \0 \0 g \0
0061300 \0 g \0 \0 K h 032 032 o \0 \0 \0 g \0 \0 H
0061320 h 032 032 h 032 032 032 032 h 032 032 032 h 032 032 032
0061340 g \0 \0 K h 032 032 h 032 032 032 032 020 \0 ( 9
0061360 r e m o v e - c o m m e n t s
0061400 ) \r ( 8 6 q u o t e 6 6 q
0061420 u o t e 5 5 q u o t e 5 2
0061440 \ \ d e f i n e - t y p e - s
0061460 a v e - d e f n 4 5 c l : u
0061500 n l e s s 3 8 c l : e v a l
0061520 - w h e n 2 5 | e x p a n d
0061540 - D E F C O N S T A N T A 0 0 0
0061560 1 | 2 2 s i : : m a c r o -
0061600 f u n c a l l 1 9 w i t h o
0061620 u t - f i l e p k g 1 6 p r
0061640 o g n ) \r ( 6 3 ( q u o t e
0061660 v a r i a b l e s ) 4 9 (
0061700 n u l l f i l e p k g f l g )
0061720 4 2 ( c l : e v a l ) ) \r (
0061740 s e t f - m a c r o - f u n c t
0061760 i o n ( q u o t e c l : d e
0062000 f c o n s t a n t ) ( q u o t
0062020 e c l : : | e x p a n d - D E
0062040 F C O N S T A N T | ) ) \r ( s e
0062060 t q p r e t t y p r i n t m a
0062100 c r o s ( c l : a d j o i n
0062120 ( q u o t e ( c l : d e f c o
0062140 n s t a n t . p p r i n t -
0062160 d e f i n e r ) ) p r e t t y
0062200 p r i n t m a c r o s : t e s
0062220 t ( \r q u o t e c l : e q u
0062240 a l ) ) ) \r ( x c l : : a d d -
0062260 p r o t o t y p e - f n ( q u
0062300 o t e v a r i a b l e s ) (
0062320 q u o t e c l : d e f c o n s
0062340 t a n t ) ( c l : f u n c t i
0062360 o n ( c l : l a m b d a ( c
0062400 l : : n a m e ) ( \r a n d (
0062420 c l : s y m b o l p c l : : n
0062440 a m e ) ( l i s t * ( q u o
0062460 t e c l : d e f c o n s t a n
0062500 t ) c l : : n a m e ( q u o
0062520 t e ( " V a l u e " \r " D o
0062540 c u m e n t a t i o n s t r i
0062560 n g " ) ) ) ) ) ) ) \r ( l e t *
0062600 ( ( a 1 0 8 9 9 ( q u o t e
0062620 d e f g l o b a l v a r ) )
0062640 ( a 1 0 9 0 0 ( q u o t e d
0062660 e f i n e r - f o r ) ) ( a 1
0062700 0 9 0 2 ( q u o t e v a r i
0062720 a b l e s ) ) ) ( p u t p r o
0062740 p \r a 1 0 8 9 9 a 1 0 9 0 0
0062760 a 1 0 9 0 2 ) ) \r ( l e t *
0063000 ( ( a 1 0 9 0 3 ( q u o t e
0063020 v a r i a b l e s ) ) ( a 1 0
0063040 9 0 4 ( q u o t e d e f i n
0063060 e d - b y ) ) ( a 1 0 9 0 6
0063100 ( c l : a d j o i n ( q u o t
0063120 e d e f g l o b a l v a r )
0063140 \r ( g e t a 1 0 9 0 3 a 1 0
0063160 9 0 4 ) ) ) ) ( p u t p r o p
0063200 a 1 0 9 0 3 a 1 0 9 0 4 a
0063220 1 0 9 0 6 ) ) \r | e x p a n d -
0063240 D E F G L O B A L V A R A 0 0 0
0063260 1 | d 1 \r ( l ( 1 s i : :
0063300 $ $ m a c r o - e n v i r o n m
0063320 e n t 0 s i : : $ $ m a c r
0063340 o - f o r m ) ) \0 y 006 \0 \0 002 @
0063360 002 021 Q 005 H 001 271 H 002 Z d 220 001 273 J h
0063400 360 h 360 274 J 002 264 005 J 002 001 275 g \0 \0 g
0063420 \0 \0 g \0 \0 g \0 \0 I h 032 032 h 032 032 h
0063440 032 032 L 264 ! g \0 \0 g \0 \0 g \0 \0 I h
0063460 032 032 h 032 032 g \0 \0 I K h 032 032 032 h 032
0063500 032 032 h 032 M 264 034 g \0 \0 g \0 \0 g \0 \0
0063520 I h 032 032 o \0 \0 \0 032 032 M h 032 032 032 h
0063540 032 \n \0 \0 032 032 020 \0 ( 1 1 6 \ \ a
0063560 p p e n d 2 ) \r ( 9 6 q u o t
0063600 e 9 3 c l : d o c u m e n t
0063620 a t i o n 9 0 c l : s e t f
0063640 7 2 s e t q 6 2 q u o t
0063660 e 5 9 b o u n d p 5 6 o
0063700 r 4 0 g l o b a l 3 7 q
0063720 u o t e 3 4 c l : p r o c l
0063740 a i m 3 1 p r o g n ) \r (
0063760 1 0 4 ( ( q u o t e c l : :
0064000 v a r i a b l e ) ) ) \r | e x p
0064020 a n d - D E F G L O B A L V A R
0064040 | d 1 \r ( l ( 1 s i : : $
0064060 $ m a c r o - e n v i r o n m e
0064100 n t 0 s i : : $ $ m a c r o
0064120 - f o r m ) ) \0 b 004 \0 \0 002 @ 021
0064140 1 003 A 271 H \t \0 \0 Z 002 001 273 g \0 \0 g
0064160 \0 \0 g \0 \0 g \0 \0 J I h 032 032 032 032 h
0064200 032 032 g \0 \0 o \0 \0 \0 g \0 \0 o \0 \0 \0
0064220 g \0 \0 g \0 \0 K h 032 032 o \0 \0 \0 g \0
0064240 \0 H h 032 032 h 032 032 032 032 h 032 032 032 h 032
0064260 032 032 g \0 \0 K h 032 032 h 032 032 032 032 020 \0
0064300 ( 9 r e m o v e - c o m m e n
0064320 t s ) \r ( 8 6 q u o t e 6 6
0064340 q u o t e 5 5 q u o t e
0064360 5 2 \ \ d e f i n e - t y p e
0064400 - s a v e - d e f n 4 5 c l
0064420 : u n l e s s 3 8 c l : e v
0064440 a l - w h e n 2 5 | e x p a
0064460 n d - D E F G L O B A L V A R A
0064500 0 0 0 1 | 2 2 s i : : m a c
0064520 r o - f u n c a l l 1 9 w i
0064540 t h o u t - f i l e p k g 1 6
0064560 p r o g n ) \r ( 6 3 ( q u
0064600 o t e v a r i a b l e s ) 4
0064620 9 ( n u l l f i l e p k g f
0064640 l g ) 4 2 ( c l : e v a l )
0064660 ) \r ( s e t f - m a c r o - f u
0064700 n c t i o n ( q u o t e d e
0064720 f g l o b a l v a r ) ( q u o
0064740 t e | e x p a n d - D E F G L
0064760 O B A L V A R | ) ) \r ( s e t q
0065000 p r e t t y p r i n t m a c r
0065020 o s ( c l : a d j o i n ( q
0065040 u o t e ( d e f g l o b a l v
0065060 a r . p p r i n t - d e f i
0065100 n e r ) ) p r e t t y p r i n
0065120 t m a c r o s : t e s t ( \r
0065140 q u o t e c l : e q u a l ) )
0065160 ) \r ( x c l : : a d d - p r o t
0065200 o t y p e - f n ( q u o t e
0065220 v a r i a b l e s ) ( q u o t
0065240 e d e f g l o b a l v a r )
0065260 ( c l : f u n c t i o n ( c l
0065300 : l a m b d a ( c l : : n a m
0065320 e ) ( a n d \r ( c l : s y m
0065340 b o l p c l : : n a m e ) (
0065360 l i s t ( q u o t e d e f g
0065400 l o b a l v a r ) c l : : n a
0065420 m e ) ) ) ) ) \r ( l e t * ( (
0065440 a 1 0 9 1 2 ( q u o t e d e
0065460 f g l o b a l p a r a m e t e r
0065500 ) ) ( a 1 0 9 1 3 ( q u o t
0065520 e d e f i n e r - f o r ) )
0065540 ( a 1 0 9 1 5 ( q u o t e v
0065560 a r i a b l e s ) ) ) ( \r p u
0065600 t p r o p a 1 0 9 1 2 a 1 0
0065620 9 1 3 a 1 0 9 1 5 ) ) \r ( l e
0065640 t * ( ( a 1 0 9 1 6 ( q u o
0065660 t e v a r i a b l e s ) ) (
0065700 a 1 0 9 1 7 ( q u o t e d e
0065720 f i n e d - b y ) ) ( a 1 0 9
0065740 1 9 ( c l : a d j o i n ( q
0065760 u o t e \r d e f g l o b a l p
0066000 a r a m e t e r ) ( g e t a
0066020 1 0 9 1 6 a 1 0 9 1 7 ) ) ) )
0066040 ( p u t p r o p a 1 0 9 1 6
0066060 a 1 0 9 1 7 a 1 0 9 1 9 ) )
0066100 \r | e x p a n d - D E F G L O B
0066120 A L P A R A M E T E R A 0 0 0 1
0066140 | d 1 \r ( l ( 1 s i : : $
0066160 $ m a c r o - e n v i r o n m e
0066200 n t 0 s i : : $ $ m a c r o
0066220 - f o r m ) ) \0 T 005 \0 \0 002 @ 002
0066240 021 A 004 H 001 271 H 002 Z 001 273 J 002 d 220 001
0066260 274 g \0 \0 g \0 \0 g \0 \0 g \0 \0 I h 032
0066300 032 h 032 032 h 032 032 g \0 \0 I K h 032 032 032
0066320 L 264 034 g \0 \0 g \0 \0 g \0 \0 I h 032 032
0066340 o \0 \0 \0 032 032 L h 032 032 032 h 032 032 032 032
0066360 020 \0 n i l \r ( 6 1 q u o t e
0066400 5 8 c l : d o c u m e n t a t
0066420 i o n 5 5 c l : s e t f 4
0066440 3 s e t q 3 0 g l o b a l
0066460 2 7 q u o t e 2 4 c l :
0066500 p r o c l a i m 2 1 p r o g
0066520 n ) \r ( 6 9 ( ( q u o t e
0066540 c l : : v a r i a b l e ) ) ) \r
0066560 | e x p a n d - D E F G L O B A
0066600 L P A R A M E T E R | d 1 \r (
0066620 l ( 1 s i : : $ $ m a c r o
0066640 - e n v i r o n m e n t 0 s
0066660 i : : $ $ m a c r o - f o r m )
0066700 ) \0 b 004 \0 \0 002 @ 021 1 003 A 271 H \t
0066720 \0 \0 Z 002 001 273 g \0 \0 g \0 \0 g \0 \0 g
0066740 \0 \0 J I h 032 032 032 032 h 032 032 g \0 \0 o
0066760 \0 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0
0067000 K h 032 032 o \0 \0 \0 g \0 \0 H h 032 032 h
0067020 032 032 032 032 h 032 032 032 h 032 032 032 g \0 \0 K
0067040 h 032 032 h 032 032 032 032 020 \0 ( 9 r e m
0067060 o v e - c o m m e n t s ) \r ( 8
0067100 6 q u o t e 6 6 q u o t e
0067120 5 5 q u o t e 5 2 \ \ d
0067140 e f i n e - t y p e - s a v e -
0067160 d e f n 4 5 c l : u n l e s
0067200 s 3 8 c l : e v a l - w h e
0067220 n 2 5 | e x p a n d - D E F
0067240 G L O B A L P A R A M E T E R A
0067260 0 0 0 1 | 2 2 s i : : m a c
0067300 r o - f u n c a l l 1 9 w i
0067320 t h o u t - f i l e p k g 1 6
0067340 p r o g n ) \r ( 6 3 ( q u
0067360 o t e v a r i a b l e s ) 4
0067400 9 ( n u l l f i l e p k g f
0067420 l g ) 4 2 ( c l : e v a l )
0067440 ) \r ( s e t f - m a c r o - f u
0067460 n c t i o n ( q u o t e d e
0067500 f g l o b a l p a r a m e t e r
0067520 ) ( q u o t e | e x p a n d
0067540 - D E F G L O B A L P A R A M E
0067560 T E R | ) ) \r ( s e t q p r e
0067600 t t y p r i n t m a c r o s (
0067620 c l : a d j o i n ( q u o t e
0067640 ( d e f g l o b a l p a r a m
0067660 e t e r . p p r i n t - d e
0067700 f i n e r ) ) p r e t t y p r
0067720 i n t m a c r o s \r : t e s t
0067740 ( q u o t e c l : e q u a l
0067760 ) ) ) \r ( x c l : : a d d - p r
0070000 o t o t y p e - f n ( q u o t
0070020 e v a r i a b l e s ) ( q u
0070040 o t e d e f g l o b a l p a r
0070060 a m e t e r ) ( c l : f u n c
0070100 t i o n ( c l : l a m b d a
0070120 ( c l : : n a m e ) \r ( a n d
0070140 ( c l : s y m b o l p c l :
0070160 : n a m e ) ( l i s t * ( q
0070200 u o t e d e f g l o b a l p a
0070220 r a m e t e r ) c l : : n a m
0070240 e ( q u o t e ( " V a l u e
0070260 " \r " D o c u m e n t a t i o
0070300 n s t r i n g " ) ) ) ) ) ) )
0070320 \r ( p u t p r o p s m a c r o
0070340 - f n p r o p t y p e f u n
0070360 c t i o n s ) \r ( p u t p r o p
0070400 s c m l d e f f e r f i l e
0070420 t y p e c l : c o m p i l e -
0070440 f i l e ) \r ( p u t p r o p s
0070460 c m l d e f f e r c o p y r i
0070500 g h t ( " X e r o x C o r p
0070520 o r a t i o n " 1 9 8 6 1 9
0070540 0 0 ) ) \r n i l \r
0070551