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