$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLCOMPILE.DCOM!16
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 : 1 5 : 0 3 " ( " 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 c o m p i l e . \ ;
0000220 1 5 ) \r " 2 1 - O c t - 8 6
0000240 0 4 : 1 3 : 0 1 " " C O M P I
0000260 L E - F I L E d " | i n | "
0000300 X e r o x L i s p 2 1 - O c
0000320 t - 8 6 . . . " | d a t e d
0000340 | " 2 1 - O c t - 8 6 0 4 :
0000360 4 8 : 4 3 " ) \r ( f i l e c r e
0000400 a t e d " 2 9 - O c t - 8 6
0000420 1 9 : 1 4 : 2 6 " { e r i s }
0000440 < l i s p c o r e > s o u r c e
0000460 s > c m l c o m p i l e . \ ; 1
0000500 5 3 4 8 5 2 | c h a n g e s
0000520 | | t o : | ( \r f u n c t i
0000540 o n s d e f o p t i m i z e r
0000560 ) | p r e v i o u s | | d a
0000600 t e : | " 1 8 - O c t - 8 6
0000620 2 2 : 2 2 : 4 9 " \r { e r i s
0000640 } < l i s p c o r e > s o u r c
0000660 e s > c m l c o m p i l e . \ ;
0000700 1 4 ) \r ( r p a q q c m l c o
0000720 m p i l e c o m s ( ( c o m s
0000740 ( f u n c t i o n s c l : c
0000760 o m p i l e c l : d i s a s s
0001000 e m b l e ) ( f n s c l : c
0001020 o m p i l e - f i l e \r i n t
0001040 e r l i s p - f o r m a t - p
0001060 i n t e r l i s p - n l a m b d
0001100 a - f u n c t i o n - p c o m
0001120 p i l e - f i l e - e x p r e s
0001140 s i o n c o m p i l e - f i l
0001160 e - w a l k - f u n c t i o n
0001200 \r a r g t y p e . s t a t e c
0001220 o m p i l e . c h e c k . a r g
0001240 t y p e c o m p i l e . f i l
0001260 e . d e f i n e q c o m p i l
0001300 e - f i l e - s e t f - s y m b
0001320 o l - f u n c t i o n \r c o m
0001340 p i l e - f i l e - e x / i m p
0001360 o r t c o m p i l e . f i l e
0001400 . a p p l y c o m p i l e . f
0001420 i l e . r e s e t c o m p i l
0001440 e - i n - c o r e ) ( v a r s
0001460 a r g t y p e . v a r s ) (
0001500 \r p r o p c o m p i l e - f i
0001520 l e - e x p r e s s i o n d e
0001540 f i n e q * s e t f - s y m
0001560 b o l - f u n c t i o n p r e
0001600 t t y c o m p r i n t ) ( f u
0001620 n c t i o n s \r c o m p i l e
0001640 - f i l e - d e c l a r e \ : )
0001660 ) ( c o m s ( f n s n e w
0001700 d e f c ) ( d e c l a r e \ :
0001720 d o n t e v a l @ l o a d d
0001740 o c o p y ( p ( m o v d (
0001760 q u o t e n e w d e f c ) \r
0002000 ( q u o t e d e f c ) ) ) ) )
0002020 ( c o m s ( * \ ; " O p
0002040 t i m i z e r d e f i n i t i
0002060 o n s a n d e n v i r o n m
0002100 e n t h a c k i n g " ) ( d
0002120 e f i n e - t y p e s o p t i
0002140 m i z e r s \r ) ( f u n c t i
0002160 o n s c o m p i l e r : o p t
0002200 i m i z e r - l i s t ) ( f u
0002220 n c t i o n s d e f o p t i m
0002240 i z e r ) ( s t r u c t u r e
0002260 s c o m p i l e r : e n v c
0002300 o m p i l e r : c o n t e x t \r
0002320 ) ( f n s c o m p i l e r :
0002340 c o p y - e n v - w i t h - f u
0002360 n c t i o n c o m p i l e r :
0002400 c o p y - e n v - w i t h - v a
0002420 r i a b l e c o m p i l e r :
0002440 e n v - b o u n d p \r c o m p
0002460 i l e r : e n v - f b o u n d p
0002500 c o m p i l e r : m a k e - e
0002520 m p t y - e n v ) ) ( p r o p
0002540 f i l e t y p e c m l c o m
0002560 p i l e ) ( d e c l a r e \ :
0002600 d o n t e v a l @ l o a d \r
0002620 d o e v a l @ c o m p i l e d
0002640 o n t c o p y c o m p i l e r
0002660 v a r s ( a d d v a r s ( n
0002700 l a m a ) ( n l a m l ) ( l
0002720 a m a c o m p i l e r : m a k
0002740 e - e m p t y - e n v \r c o m
0002760 p i l e r : e n v - f b o u n d
0003000 p c o m p i l e r : e n v - b
0003020 o u n d p c o m p i l e r : c
0003040 o p y - e n v - w i t h - v a r
0003060 i a b l e c o m p i l e r : c
0003100 o p y - e n v - w i t h - f u n
0003120 c t i o n \r c l : c o m p i l
0003140 e - f i l e ) ) ) ) ) \r c l : c
0003160 o m p i l e d 1 \r ( l ( 1
0003200 l a m b d a - e x p r 0 n a
0003220 m e ) ) \0 * 001 \0 \0 002 @ 265 005 g \0
0003240 \0 021 001 \0 H A 265 006 @ \t \0 \0 \n \0 \0 A
0003260 232 @ 233 @ g \0 \0 A \v \0 \0 277 @ 265 006 H
0003300 \t \0 \0 020 \0 ( 3 9 g e t d 3 1
0003320 / p u t p r o p 1 9 c o m
0003340 p i l e - i n - c o r e 1 6
0003360 g e t d ) \r ( 2 7 e x p r 5
0003400 \ \ c l c o m p i l e t e m p
0003420 ) \r ( ) \r c l : d i s a s s e m
0003440 b l e d 1 \r ( l ( 0 | - a
0003460 r g s - | ) f 1 7 * s t a
0003500 n d a r d - o u t p u t * ) \0
0003520 370 021 001 002 \0 e 021 001 \0 k a 021 361 020 H l
0003540 002 273 272 K d J 363 262 b 277 h 274 H l 002 276
0003560 275 N d M 363 262 g 277 l \b _ 016 277 H l 002
0003600 _ 022 277 _ 020 277 O 022 d O 020 363 262 c 277 W
0003620 " _ 024 277 H l 002 _ 030 277 _ 026 277 O 030 d
0003640 O 026 363 262 b 277 h _ 032 277 H l 002 _ 036 277
0003660 _ 034 277 O 036 d O 034 363 262 b 277 h _ 277
0003700 I \t \0 \0 264 m I 260 w a g \0 \0 360 225 K
0003720 k 330 a 260 230 K l 002 324 [ 260 212 a g \0 \0
0003740 360 225 N k 330 a 260 224 N l 002 324 ^ 260 205 a
0003760 g \0 \0 360 226 O 022 k 330 a 260 227 O 022 l 002
0004000 324 _ 022 260 205 a g \0 \0 360 226 O 030 k 330 a
0004020 260 227 O 030 l 002 324 _ 030 260 206 a g \0 \0 360
0004040 226 O 036 k 330 a 260 227 O 036 l 002 324 _ 036 260
0004060 206 I d 004 l 004 360 222 \t \0 \0 \n \0 \0 L O
0004100 016 O 024 O 032 O \r 006 \0 \0 020 \0 ( 2 4
0004120 5 p r i n t c o d e 2 3 2
0004140 c l : c o m p i l e 2 2 9 c
0004160 l : s y m b o l - f u n c t i o
0004200 n 1 1 0 c c o d e p ) \r ( 2
0004220 0 1 : m a r k e d - p c 1 7
0004240 9 : f i r s t - b y t e 1 5
0004260 7 : o u t p u t 1 3 8 : r
0004300 a d i x 1 1 9 : l e v e l -
0004320 p ) \r ( ) \r c o m p i l e - f i
0004340 l e a 0 0 0 1 d 1 \r ( n a m e
0004360 e r r o r s e t p 1 8 d
0004400 e f e r r e d . e x p r e s s i
0004420 o n s p 1 7 * p r i n t -
0004440 b a s e * p 1 6 * r e a d
0004460 - b a s e * p 1 5 * r e a
0004500 d t a b l e * p 1 4 * p a
0004520 c k a g e * p 5 l s t f i
0004540 l p 3 s p e c v a r s p
0004560 2 l o c a l v a r s p 1
0004600 * r e a d - b a s e * p 0
0004620 * p a c k a g e * f 1 9
0004640 r e s e t v a r s l s t f 2
0004660 0 o u t p u t - f i l e f
0004700 2 1 f i l e n a m e f 2 2
0004720 p r o c e s s - e n t i r e -
0004740 f i l e f 2 3 r e d e f i
0004760 n e f 2 4 l a p f 2 5
0005000 c o m p i l e r - o u t p u t
0005020 f 2 6 s a v e - e x p r s
0005040 f 2 7 * i n t e r l i s p
0005060 - p a c k a g e * f 2 8 c
0005100 o m p i l e . f i l e . v a l u
0005120 e f 2 9 * c o m m o n - l
0005140 i s p - r e a d - e n v i r o n
0005160 m e n t * f 3 0 p e f p
0005200 f 3 1 r e s e t y f 3 2
0005220 c o u t f i l e ) 002 , 023 016 002
0005240 \0 g \0 \0 h 032 h h 032 032 W & 032 c & 277
0005260 g \0 \0 d \t \0 \0 032 g \0 \0 ` \0 \0 \n \0
0005300 \0 277 W & 032 c & 277 g \0 \0 d \t \0 \0 032
0005320 g \0 \0 ` \0 \0 \n \0 \0 277 W & 032 c & 277
0005340 g \0 \0 d \t \0 \0 032 g \0 \0 ` \0 \0 \n \0
0005360 \0 277 W & 032 c & 277 g \0 \0 d \t \0 \0 032
0005400 g \0 \0 ` \0 \0 \n \0 \0 277 W & 032 c & 277
0005420 g \0 \0 d \t \0 \0 032 g \0 \0 \t \0 \0 277 W
0005440 & 032 c & 277 g \0 \0 d \t \0 \0 032 g \0 \0
0005460 W 2 \n \0 \0 277 W & 032 c & 277 g \0 \0 d
0005500 \t \0 \0 032 g \0 \0 W . \n \0 \0 277 W & 032
0005520 c & 277 g \0 \0 d \t \0 \0 032 g \0 \0 W 4
0005540 264 \t W . 264 005 g \0 \0 \n \0 \0 277 W & 032
0005560 c & 277 g \0 \0 d \t \0 \0 032 g \0 \0 W 0
0005600 \n \0 \0 277 W & 032 c & 277 W 6 l \n ` \0
0005620 \0 i 021 244 \r g \0 \0 W * g \0 \0 \n \0 \0
0005640 \ h 032 032 h h 032 032 W & 032 c & 277 L g
0005660 \0 \0 i \v \0 \0 \t \0 \0 _ 022 001 _ 016 277 O
0005700 022 002 001 _ 020 277 O 016 d 224 W : 360 h 360 276
0005720 W < 243 N c , 277 W 0 222 W @ 275 L \t \0
0005740 \0 c * 277 g \0 \0 W ( 265 025 g \0 \0 h g
0005760 \0 \0 ` \0 \0 g \0 \0 W * \r 006 \0 \0 g \0
0006000 \0 g \0 \0 o \0 \0 \0 \f \0 \0 c ( L W *
0006020 \t \0 \0 h 032 032 032 032 h h 032 032 W & 032 c
0006040 & 277 W ( 262 & g \0 \0 d \t \0 \0 032 g \0
0006060 \0 W ( \n \0 \0 277 W & 032 c & 277 L h 032
0006100 o \0 \0 \0 O 016 \v \0 \0 277 O 016 006 \0 \0 _
0006120 032 311 \0 O 032 311 002 O 032 311 004 O 032 311 004 021
0006140 004 021 021 020 022 O 020 W ( h W , \f \0 \0 277
0006160 L \t \0 \0 277 L d \t \0 \0 262 > 277 W , 262
0006200 ! O $ \t \0 \0 260 027 d 001 _ 026 001 _ 024 277
0006220 O 026 002 W ( l 002 O 024 017 016 277 002 003 265 352
0006240 L \t \0 \0 023 h W ( \n \0 \0 023 W ( \t \0
0006260 \0 c 8 022 c > i 020 \t \0 \0 _ 030 277 N 222
0006300 O 030 204 O 030 \t \0 \0 _ 020 260 235 \0 ( 5 5
0006320 0 c m l t r a n s l a t e 5
0006340 3 7 r e a d 5 2 7 c l o s
0006360 e f 5 2 1 p r i n t 5 1 4
0006400 c l o s e f 4 8 4 r e v e
0006420 r s e 4 7 2 e o f p 4 6 6
0006440 s k i p s e p r c o d e s 4
0006460 6 1 c o m p i l e - f i l e -
0006500 e x p r e s s i o n 4 2 3 p
0006520 r i n t - c o m p i l e - h e a
0006540 d e r 4 0 4 s e t t o p v a
0006560 l 3 9 5 g e t t o p v a l
0006600 3 6 9 r o o t f i l e n a m e
0006620 3 6 1 o p e n s t r e a m
0006640 3 4 8 p a c k f i l e n a m e
0006660 . s t r i n g 3 1 9 f u l l
0006700 n a m e 2 7 9 \ \ m v l i s
0006720 t 2 7 6 \ \ p a r s e - f i
0006740 l e - h e a d e r 2 5 4 o p
0006760 e n s t r e a m 2 2 5 s e t
0007000 t o p v a l 2 1 6 g e t t o
0007020 p v a l 2 0 2 s e t t o p v
0007040 a l 1 8 4 g e t t o p v a l
0007060 1 7 0 s e t t o p v a l 1
0007100 6 1 g e t t o p v a l 1 4 7
0007120 s e t t o p v a l 1 3 8 g
0007140 e t t o p v a l 1 2 4 s e t
0007160 t o p v a l 1 1 7 g e t t o
0007200 p v a l 1 0 3 s e t t o p v
0007220 a l 9 3 g e t t o p v a l
0007240 7 9 s e t t o p v a l 6 9
0007260 g e t t o p v a l 5 5 s e t
0007300 t o p v a l 4 5 g e t t o p
0007320 v a l 3 1 s e t t o p v a l
0007340 2 1 g e t t o p v a l ) \r (
0007360 4 2 9 r e a d e r - e n v i r
0007400 o n m e n t 3 9 9 l c f i l
0007420 3 9 1 l c f i l 3 5 4 n
0007440 e w 3 5 1 o u t p u t 3 4
0007460 2 b o d y 3 3 9 c o m p i
0007500 l e . e x t 3 3 6 e x t e n
0007520 s i o n 3 3 2 v e r s i o n
0007540 3 2 5 c o m p i l e . f i l
0007560 e . r e s e t 2 7 2 r e t u
0007600 r n 2 5 1 i n p u t 2 4 6
0007620 c l o s e f ? 2 3 9 s y s
0007640 l o c a l v a r s 2 2 0 l a
0007660 p f l g 2 1 2 l a p f l g
0007700 1 9 9 d e f e r 1 8 8 s v
0007720 f l g 1 8 0 s v f l g 1 6
0007740 5 s t r f 1 5 7 s t r f
0007760 1 4 2 c o u t f i l e 1 3 4
0010000 c o u t f i l e 1 2 1 d f
0010020 n f l g 1 1 3 d f n f l g
0010040 1 0 0 l a m a 9 7 l a m a
0010060 8 9 l a m a 7 6 l a m s
0010100 7 3 l a m s 6 5 l a m s
0010120 5 2 n l a m a 4 9 n l a
0010140 m a 4 1 n l a m a 2 8 n
0010160 l a m l 2 5 n l a m l 1 7
0010200 n l a m l 2 r e s e t u n
0010220 d o ) \r ( 4 1 8 ( " C O M P
0010240 I L E - F I L E d " ) 3 5 8
0010260 ( ( t y p e b i n a r y ) ) )
0010300 \r c l : c o m p i l e - f i l e
0010320 d 1 \r ( l ( 0 | - a r g s
0010340 - | ) p 2 4 r e s e t y
0010360 p 2 3 l i s p x h i s t p
0010400 2 2 c o m p i l e . f i l e
0010420 . v a l u e p 2 1 c o m p
0010440 i l e . f i l e . a f t e r p
0010460 2 0 p r o c e s s - e n t i
0010500 r e - f i l e p 1 7 p e f
0010520 p p 1 6 c o m p i l e r -
0010540 o u t p u t p 1 3 s a v e
0010560 - e x p r s p 1 0 o u t p
0010600 u t - f i l e p 7 r e d e
0010620 f i n e p 4 l a p p 1
0010640 f i l e n a m e f 2 6 l
0010660 i s p x h i s t f 2 7 r e
0010700 s e t v a r s l s t ) 001 b 032 002
0010720 002 \0 e 021 001 \0 k a 021 361 020 021 ` 026 H l
0010740 002 273 272 K d J 363 242 261 \0 235 277 h 274 H l
0010760 002 276 275 N d M 363 242 261 \0 242 277 h _ 016 277
0011000 H l 002 _ 022 277 _ 020 277 O 022 d O 020 363 242
0011020 261 \0 237 277 h _ 024 277 H l 002 _ 030 277 _ 026
0011040 277 O 030 d O 026 363 242 261 \0 237 277 i _ 032 277
0011060 H l 002 _ 036 277 _ 034 277 O 036 d O 034 363 242
0011100 261 \0 237 277 i _ 277 i _ " 277 H l 002 _
0011120 & 277 _ $ 277 O & d O $ 363 242 261 \0 233 277
0011140 h _ " _ ( 277 h _ * _ , 277 W 4 021 !
0011160 031 W 6 o \0 \0 \0 g \0 \0 \n \0 \0 242 261 \0
0011200 221 h 261 \0 220 a g \0 \0 360 226 K k 330 a 261
0011220 377 ^ K l 002 324 [ 261 377 M a g \0 \0 360 226
0011240 N k 330 a 261 377 Y N l 002 324 ^ 261 377 H a
0011260 g \0 \0 360 227 O 022 k 330 a 261 377 [ O 022 l
0011300 002 324 _ 022 261 377 G a g \0 \0 360 227 O 030 k
0011320 330 a 261 377 [ O 030 l 002 324 _ 030 261 377 G a
0011340 g \0 \0 360 227 O 036 k 330 a 261 377 [ O 036 l
0011360 002 324 _ 036 261 377 G a g \0 \0 360 227 O & k
0011400 330 a 261 377 a O & l 002 324 _ & 261 377 K g
0011420 \0 \0 _ 2 \n \0 \0 277 O 2 223 \b \0 \0 277 023
0011440 O * \t \0 \0 206 d 001 \t \0 \0 277 002 003 265 370
0011460 O , 020 \0 ( 3 4 4 e v a l 3 3
0011500 8 r e v e r s e 3 3 1 e r
0011520 r o r ! 3 2 4 r e s e t r e
0011540 s t o r e 1 7 0 c o m p i l
0011560 e - f i l e a 0 0 0 1 ) \r ( 3 1
0011600 9 e r r o r 2 9 6 : p r o
0011620 c e s s - e n t i r e - f i l e
0011640 2 7 2 : c o m p i l e r - o
0011660 u t p u t 2 4 8 : s a v e -
0011700 e x p r s 2 2 4 : o u t p u
0011720 t - f i l e 2 0 3 : r e d e
0011740 f i n e 1 8 2 : l a p 1 6
0011760 7 i n t e r n a l ) \r ( 1 6
0012000 4 ( c o m p i l e - f i l e a
0012020 0 0 0 1 ) ) \r i n t e r l i s p
0012040 - f o r m a t - p d 1 \r ( i
0012060 0 s t r e a m ) \0 031 \0 \0 \0 001
0012100 @ \t \0 \0 d l ; 360 221 h 020 d l 006 360 245
0012120 d l ( 360 264 366 i 020 \0 ( 3 p e e k
0012140 c c o d e ) \r n i l \r ( ) \r i n
0012160 t e r l i s p - n l a m b d a -
0012200 f u n c t i o n - p d 1 \r ( i
0012220 0 x ) \0 # \0 \0 \0 001 @ 004 l 004
0012240 360 264 034 @ \t \0 \0 d k 360 244 d l 003 360 222
0012260 277 i 201 277 h 264 \b @ \t \0 \0 h 360 020 \0 (
0012300 3 0 c l : s p e c i a l - f o
0012320 r m - p 1 0 a r g t y p e )
0012340 \r n i l \r ( ) \r c o m p i l e -
0012360 f i l e - e x p r e s s i o n a
0012400 0 0 0 1 d 1 \r ( l ( 0 x )
0012420 ) \0 \a \0 \0 \0 001 @ d 003 220 001 020 \0 n
0012440 i l \r n i l \r ( ) \r c o m p i l
0012460 e - f i l e - e x p r e s s i o
0012500 n a 0 0 0 2 d 1 \r ( l ( 0
0012520 x ) ) \0 \f \0 \0 \0 001 @ 003 264 \b @ 002
0012540 001 \t \0 \0 020 \0 ( 9 c l : e v a l
0012560 ) \r n i l \r ( ) \r c o m p i l e
0012600 - f i l e - e x p r e s s i o n
0012620 a 0 0 0 3 a 0 0 0 4 d 1 \r ( l
0012640 ( 0 x ) f 0 c o m p i
0012660 l e d . f i l e f 1 c o m
0012700 p i l e . t i m e . t o o f
0012720 2 d e f e r ) \0 \t \0 003 \0 001 @
0012740 P Q R \f \0 \0 020 \0 ( 6 c o m p i
0012760 l e - f i l e - e x p r e s s i
0013000 o n ) \r n i l \r ( ) \r c o m p i
0013020 l e - f i l e - e x p r e s s i
0013040 o n a 0 0 0 3 d 1 \r ( f 0
0013060 f o r m ) \0 \v \0 001 \0 \0 g \0 \0 P
0013100 002 002 \n \0 \0 020 \0 ( 8 c l : m a p
0013120 c ) \r ( 2 c o m p i l e - f i
0013140 l e - e x p r e s s i o n a 0 0
0013160 0 3 a 0 0 0 4 ) \r ( ) \r c o m p
0013200 i l e - f i l e - e x p r e s s
0013220 i o n d 1 \r ( p 8 p r o p
0013240 p 7 i n n e r - f o r m
0013260 p 6 i n n e r - f o r m p
0013300 5 c o m p i l e . s p e c i
0013320 f i e d p 4 l o a d . s p
0013340 e c i f i e d p 3 e v a l
0013360 . s p e c i f i e d p 2 v
0013400 a l s p 1 v a r s p 0
0013420 x i 3 d e f e r i 2
0013440 c o m p i l e . t i m e . t o
0013460 o i 1 c o m p i l e d . f
0013500 i l e i 0 f o r m ) 001 X
0013520 \t \0 \0 004 @ 003 264 003 202 261 001 B @ 001 d g
0013540 \0 \0 360 232 277 @ A B i C \r 005 \0 \0 020 d
0013560 g \0 \0 360 262 030 277 @ 214 d 001 021 001 \0 H A
0013600 B C \f \0 \0 023 002 003 265 361 h 020 d g \0 \0
0013620 360 222 261 \0 245 d g \0 \0 360 262 g \0 \0 @
0013640 002 001 \n \0 \0 g \0 \0 @ 002 001 \n \0 \0 021 002
0013660 002 I J g \0 \0 \v \0 \0 020 d g \0 \0 360 262
0013700 z 277 g \0 \0 @ 002 001 034 265 \t g \0 \0 @ 002
0013720 001 034 g \0 \0 @ 002 001 034 265 \t g \0 \0 @ 002
*
0013760 001 034 021 003 005 L 263 % M 255 B 264 003 202 261 \0
0014000 235 K 264 003 202 261 \0 226 @ 002 211 d 001 021 001 006
0014020 N \t \0 \0 023 002 003 265 364 h 020 @ 002 260 026 d
0014040 001 021 001 \a O 016 A M 265 006 B 264 003 K C \f
0014060 \0 \0 023 002 003 265 352 h 020 g \0 \0 360 234 @ A
0014100 ` \0 \0 \v \0 \0 @ \t \0 \0 020 @ 001 g \0 \0
0014120 \n \0 \0 265 \n @ 001 g \0 \0 \n \0 \0 021 001 \b
0014140 O 020 263 030 @ 001 \t \0 \0 257 @ 001 \t \0 \0 251
0014160 @ d \t \0 \0 b \0 360 262 034 B 224 @ \t \0 \0
0014200 277 O 020 265 031 @ d g \0 \0 g \0 \0 \v \0 \0
0014220 b \0 364 255 @ A B C \f \0 \0 020 @ C \v \0
0014240 \0 020 g \0 \0 @ C \v \0 \0 020 \0 ( 3 4 1
0014260 c o m p i l e . f i l e . a p
0014300 p l y 3 3 2 c o m p i l e .
0014320 f i l e . a p p l y 3 2 6 c
0014340 o m p i l e - f i l e - e x p r
0014360 e s s i o n 3 1 5 w a l k -
0014400 f o r m 2 9 9 e v a l 2 8
0014420 8 c l : m a c r o e x p a n d
0014440 - 1 2 8 2 i n t e r l i s p
0014460 - n l a m b d a - f u n c t i o
0014500 n - p 2 7 6 c l : s p e c i
0014520 a l - f o r m - p 2 6 4 g e
0014540 t p r o p 2 5 4 g e t p r o
0014560 p 2 4 5 e v a l 2 4 1 p
0014600 r i n t 2 2 1 c o m p i l e
0014620 - f i l e - e x p r e s s i o n
0014640 1 9 1 e v a l 1 0 0 \ \
0014660 d o . p r o g v 8 9 c l : m
0014700 a p c a r 8 0 c l : m a p c
0014720 a r 4 8 c o m p i l e - f i
0014740 l e - e x p r e s s i o n 2 5
0014760 c o m p i l e - f i l e - d e
0015000 c l a r e \ : ) \r ( 3 3 6 p r
0015020 i n t 3 1 2 c o m p i l e -
0015040 f i l e - w a l k - f u n c t i
0015060 o n 3 0 9 : w a l k - f u n
0015100 c t i o n 2 6 1 c o m p i l
0015120 e . f i l e . e x p r e s s i o
0015140 n 2 5 1 c o m p i l e - f i
0015160 l e - e x p r e s s i o n 2 3
0015200 8 f i l e r d t b l 2 3 1
0015220 c l : i n - p a c k a g e 1 5
0015240 3 c l : c o m p i l e 1 4 4
0015260 c o m p i l e 1 3 7 c l :
0015300 l o a d 1 2 8 l o a d 1 2
0015320 1 c l : e v a l 1 1 2 e v
0015340 a l 1 0 5 c l : e v a l - w
0015360 h e n 9 7 c o m p i l e - f
0015400 i l e - e x p r e s s i o n a 0
0015420 0 0 3 8 3 c o m p i l e - f
0015440 i l e - e x p r e s s i o n a 0
0015460 0 0 2 7 4 c o m p i l e - f
0015500 i l e - e x p r e s s i o n a 0
0015520 0 0 1 6 8 c l : c o m p i l
0015540 e r - l e t 5 9 q u o t e
0015560 3 0 p r o g n 1 3 d e c l
0015600 a r e \ : ) \r ( ) \r c o m p i l
0015620 e - f i l e - w a l k - f u n c
0015640 t i o n d 1 \r ( i 0 f o r
0015660 m ) \0 017 \0 \0 \0 001 @ d 003 240 020 d 001
0015700 \t \0 \0 \n \0 \0 020 \0 ( 1 2 c l : v
0015720 a l u e s 9 i n t e r l i s
0015740 p - n l a m b d a - f u n c t i
0015760 o n - p ) \r n i l \r ( ) \r a r g
0016000 t y p e . s t a t e d 1 \r ( p
0016020 0 x f 1 a r g t y p e
0016040 . v a r s ) \0 + 001 001 \0 \0 Q 260 $
0016060 d 001 021 001 \0 H i \n \0 \0 277 k i \n \0 \0
0016100 277 H 002 001 \t \0 \0 i \n \0 \0 277 i \t \0 \0
0016120 023 002 003 265 335 h 020 \0 ( 3 4 t e r p
0016140 r i 2 9 p r i n 1 2 5 e
0016160 v a l 1 8 s p a c e s 1 2
0016200 p r i n 1 ) \r n i l \r ( ) \r c
0016220 o m p i l e . c h e c k . a r g
0016240 t y p e d 1 \r ( p 2 v a l
0016260 p 1 a t y p e p a i r p
0016300 0 b l k f l g i 1 a t
0016320 i 0 x f 3 c o u t f
0016340 i l e f 4 a r g t y p e .
0016360 v a r s ) \0 346 003 002 \0 002 A 021 020 \0
0016400 @ \t \0 \0 022 360 222 261 \0 330 T 261 \0 315 d 001
0016420 021 001 001 @ I 002 001 \t \0 \0 034 021 001 002 A I
0016440 001 360 262 D J 262 4 o \0 \0 \0 S \n \0 \0 277
0016460 @ S \n \0 \0 277 o \0 \0 \0 S \n \0 \0 277 I
0016500 002 001 S \n \0 \0 277 o \0 \0 \0 S \n \0 \0 277
0016520 I 002 002 001 S \n \0 \0 277 I 002 001 @ I 002 001
0016540 \t \0 \0 032 260 m J 262 n o \0 \0 \0 S \n \0
0016560 \0 277 @ S \n \0 \0 277 o \0 \0 \0 S \n \0 \0
0016600 277 g \0 \0 A T 026 002 002 001 265 006 o \0 \0 \0
0016620 g \0 \0 h 032 032 032 S \n \0 \0 277 o \0 \0 \0
0016640 S \n \0 \0 277 I 002 002 001 S \n \0 \0 277 o \0
0016660 \0 \0 S \n \0 \0 277 I 002 001 S \n \0 \0 277 S
0016700 \t \0 \0 277 I 002 001 @ I 002 001 \t \0 \0 \n \0
0016720 \0 \n \0 \0 277 023 023 002 003 265 003 202 261 377 2 h
0016740 020 \0 ( 2 1 5 / s e t t o p v a
0016760 l 2 1 2 r e m o v e 2 0 9
0017000 g e t t o p v a l 1 9 8 t
0017020 e r p r i 1 9 3 p r i n 1
0017040 1 8 5 p r i n 1 1 7 6 p r
0017060 i n 1 1 6 7 p r i n 1 1 5
0017100 8 p r i n 1 1 3 1 p r i n
0017120 1 1 2 2 p r i n 1 1 1 6
0017140 p r i n 1 1 0 2 g e t t o p
0017160 v a l 9 1 p r i n 1 8 2
0017200 p r i n 1 7 3 p r i n 1 6
0017220 5 p r i n 1 5 6 p r i n 1
0017240 5 0 p r i n 1 2 9 \ \ e
0017260 v a l v 1 7 c o m p . a r g
0017300 t y p e ) \r ( 1 5 0 | f u n c
0017320 t i o n | 1 3 5 \ a ) \r (
0017340 1 8 1 " b e c a u s e i t
0017360 w a s i n c o r r e c t l y
0017400 o n " 1 6 3 " w a s
0017420 a " 1 4 7 " L A M B D A
0017440 s p r e a d " 1 2 7 " "
0017460 1 1 2 " W a r n i n g : c o
0017500 m p i l e r t h o u g h t "
0017520 \r 7 8 " b u t c o m p i
0017540 l e r d o e s n ' t t h i n
0017560 k i t s a " 6 1 " o
0017600 n " 4 6 " C o m p i l e r
0017620 c o n f u s e d : " ) \r c o
0017640 m p i l e . f i l e . d e f i n
0017660 e q d 1 \r ( p 1 d e f i
0017700 1 l c f i l i 0 f o r
0017720 m ) \0 4 002 \0 \0 002 @ 002 021 021 001 H 003
0017740 265 004 h 020 001 Y d 001 ` \0 \0 034 263 032 001 I
0017760 002 001 \t \0 \0 \n \0 \0 277 I 001 I 001 I 002 001
0020000 \n \0 \0 \n \0 \0 277 H 002 X 260 325 \0 ( 4 4
0020020 b y t e c o m p i l e 2 4 1
0020040 c o m p i l e 1 a 3 0 c o
0020060 m p i l e . c h e c k . a r g t
0020100 y p e 2 7 a r g t y p e ) \r
0020120 ( 1 7 d o n t c o m p i l e f
0020140 n s ) \r ( ) \r c o m p i l e - f
0020160 i l e - s e t f - s y m b o l -
0020200 f u n c t i o n d 1 \r ( i 1
0020220 l c f i l i 0 f o r m )
0020240 \0 K \0 \0 \0 002 @ 002 002 001 003 001 d g \0
0020260 \0 360 245 d g \0 \0 360 222 277 i 201 277 h 262 $
0020300 @ d 002 001 003 001 g \0 \0 360 262 031 d 002 002 001
0020320 002 001 003 236 002 001 002 001 @ 002 002 001 002 001 \n \0
0020340 \0 020 @ g \0 \0 g \0 \0 \v \0 \0 A \n \0 \0
0020360 020 \0 ( 7 2 p r i n t 6 8 w
0020400 a l k - f o r m 5 7 b y t e
0020420 c o m p i l e 2 ) \r ( 6 5 c o
0020440 m p i l e - f i l e - w a l k -
0020460 f u n c t i o n 6 2 : w a l
0020500 k - f u n c t i o n 3 3 q u
0020520 o t e 1 5 c l : f u n c t i
0020540 o n 9 f u n c t i o n ) \r (
0020560 ) \r c o m p i l e - f i l e - e
0020600 x / i m p o r t d 1 \r ( i 2
0020620 r d t b l i 1 l c f i l
0020640 i 0 f o r m ) \0 \f \0 \0 \0
0020660 003 @ A B \v \0 \0 @ \t \0 \0 020 \0 ( 9
0020700 e v a l 5 p r i n t ) \r n i
0020720 l \r ( ) \r c o m p i l e . f i l
0020740 e . a p p l y d 1 \r ( i 2
0020760 d e f e r i 1 f o r m i
0021000 0 p r o p f 0 d e f e
0021020 r r e d . e x p r e s s i o n s
0021040 f 1 c o m p i l e d . f i
0021060 l e ) \0 023 \0 002 \0 003 B 227 @ A 032 P
0021100 032 c \0 020 A Q l 002 @ 017 016 020 \0 n i l
0021120 \r n i l \r ( ) \r c o m p i l e .
0021140 f i l e . r e s e t d 1 \r ( i
0021160 2 r o o t n a m e i 1
0021200 s o u r c e f i l e i 0 c
0021220 o m p i l e d . f i l e f 0
0021240 r e s e t s t a t e ) \0 / \0
0021260 001 \0 003 @ 265 037 A 265 026 P 263 % g \0 \0 B
0021300 ` \0 \0 \n \0 \0 \n \0 \0 g \0 \0 020 \t \0 \0
0021320 277 260 350 \t \0 \0 262 340 @ \t \0 \0 277 260 331 h
0021340 020 \0 ( 4 0 c l o s e - a n d -
0021360 m a y b e - d e l e t e 3 4
0021400 o p e n p 2 8 c l o s e f ?
0021420 2 1 / s e t a t o m v a l
0021440 1 8 r e m o v e ) \r ( 2 4 |
0021460 R e m o v e s | 1 5 n o t c
0021500 o m p i l e d f i l e s 1 1
0021520 n o t c o m p i l e d f i l e s
0021540 ) \r ( ) \r c o m p i l e - i n -
0021560 c o r e a 0 0 0 1 a 0 0 0 2 d
0021600 1 \r ( n a m e e r r o r s e t
0021620 p 7 f r e e v a r s p
0021640 6 l c f i l p 5 l o c a
0021660 l v a r s p 4 s p e c v a
0021700 r s p 3 l s t f i l p
0021720 2 s v f l g p 1 s t r f
0021740 p 0 l a p f l g f 8
0021760 | f n - e x p r | f 9 | f
0022000 n - n a m e | f 1 0 p r i
0022020 n t l a p f 1 1 n o r e d
0022040 e f i n e f 1 2 r e s e t
0022060 y f 1 3 | f n - t y p e |
0022100 f 1 4 n o s a v e f 1
0022120 5 f r e e v a r s ) \0 E \b \b
0022140 002 \0 W 024 264 \n ` \0 \0 221 i 201 l 002 W 026
0022160 h 360 W 032 g \0 \0 360 223 g \0 \0 203 W 034 h
0022200 360 i ` \0 \0 i 021 026 006 W 022 W 020 i \v \0
0022220 \0 c 020 277 W 036 021 001 \a W 022 W 020 \n \0 \0
0022240 022 022 c 030 i 020 \0 ( 6 1 b y t e c
0022260 o m p i l e 2 4 6 c o m p i
0022300 l e 1 a ) \r ( 3 4 s y s s p e
0022320 c v a r s 2 5 s e l e c t o
0022340 r 2 0 s e l e c t o r 6
0022360 b y t e c o m p f l g ) \r ( ) \r
0022400 c o m p i l e - i n - c o r e a
0022420 0 0 0 1 d 1 \r ( n a m e e r
0022440 r o r s e t p 2 r e s e t
0022460 z p 1 r e s e t y p 0
0022500 l i s p x h i s t f 3 n
0022520 u l l f i l e f 4 c o u t
0022540 f i l e f 5 l i s p x h i
0022560 s t f 6 r e s e t v a r s
0022600 l s t ) \0 G 003 004 002 \0 g \0 \0 \t \0
0022620 \0 233 S \t \0 \0 226 S \t \0 \0 221 S 212 g \0
0022640 \0 g \0 \0 \n \0 \0 c 006 c \b 277 U 021 ! 002
0022660 V o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0
0022700 \0 Z \n \0 \0 277 J 223 \b \0 \0 200 I 022 h 032
0022720 020 \0 ( 6 3 e r r o r ! 5 7
0022740 r e s e t r e s t o r e 4 7
0022760 c o m p i l e - i n - c o r e a
0023000 0 0 0 1 a 0 0 0 2 2 7 o p e
0023020 n f i l e 1 5 o p e n p 1
0023040 0 s t r e a m p 5 b o u n
0023060 d p ) \r ( 5 3 e r r o r 4 4
0023100 i n t e r n a l 2 4 o u t
0023120 p u t 2 1 { n u l l } 2
0023140 n u l l f i l e ) \r ( 4 1 (
0023160 c o m p i l e - i n - c o r e a
0023200 0 0 0 1 a 0 0 0 2 ) ) \r c o m p
0023220 i l e - i n - c o r e d 1 \r (
0023240 p 4 m a c r o y p 3 m
0023260 a c r o x p 2 p r i n t l
0023300 a p p 1 n o r e d e f i n
0023320 e p 0 d o n t - t r a n s
0023340 f e r - p u t d i 3 n o s
0023360 a v e i 2 | f n - t y p e
0023400 | i 1 | f n - e x p r |
0023420 i 0 | f n - n a m e | f
0023440 5 r e s e t v a r s l s t f
0023460 6 n o f i x f n s l s t f
0023500 7 n o f i x v a r s l s t
0023520 f 8 c o u t f i l e ) \0 243
0023540 005 004 \0 004 i 021 A 004 g \0 \0 ` \0 \0 032 g
0023560 \0 \0 ` \0 \0 032 g \0 \0 ` \0 \0 032 g \0 \0
0023600 ` \0 \0 032 g \0 \0 V 032 g \0 \0 W 016 032 g
0023620 \0 \0 W 020 032 U 032 032 032 032 032 032 032 c \n [
0023640 \ o \0 \0 \0 g \0 \0 \n \0 \0 K 001 002 027 \0
0023660 \0 277 K 002 [ 001 002 027 \0 \0 277 K 002 [ 001 002
0023700 027 \0 \0 277 K 002 [ 001 002 027 \0 \0 277 K 002 [
0023720 001 002 c \f 277 K 002 [ 001 002 c 016 277 K 002 [
0023740 001 002 c 020 277 L d U 360 225 277 K 002 c \n 215
0023760 U \n \0 \0 231 U k L \v \0 \0 K 002 031 277 265
0024000 005 \b \0 \0 001 020 \0 ( 1 5 9 e r r o
0024020 r ! 1 5 0 n l e f t 1 4 3
0024040 t a i l p 7 0 c o m p i l
0024060 e - i n - c o r e a 0 0 0 1 ) \r
0024100 ( 1 0 3 l a m a 9 4 l a m
0024120 s 8 5 n l a m l 7 6 n l
0024140 a m a 6 7 i n t e r n a l
0024160 4 5 c o u t f i l e 3 9 n
0024200 o f i x v a r s l s t 3 4 n
0024220 o f i x f n s l s t 3 0 l a
0024240 m a 2 7 l a m a 2 3 l a
0024260 m s 2 0 l a m s 1 6 n l
0024300 a m l 1 3 n l a m l 9 n
0024320 l a m a 6 n l a m a ) \r (
0024340 6 4 ( c o m p i l e - i n - c
0024360 o r e a 0 0 0 1 ) ) \r ( r p a q
0024400 q a r g t y p e . v a r s (
0024420 ( 1 n l a m l " N L A M B D
0024440 A s p r e a d " ) ( 2 l a
0024460 m a " L A M B D A n o s p r
0024500 e a d " ) ( 0 l a m s " L
0024520 A M B D A s p r e a d " ) (
0024540 3 \r n l a m a " N L A M B D
0024560 A n o - s p r e a d " ) ) ) \r
0024600 ( p u t p r o p s d e f i n e
0024620 q c o m p i l e - f i l e - e
0024640 x p r e s s i o n c o m p i l
0024660 e . f i l e . d e f i n e q ) \r
0024700 ( p u t p r o p s * c o m p
0024720 i l e - f i l e - e x p r e s s
0024740 i o n n i l l ) \r ( p u t p r
0024760 o p s s e t f - s y m b o l -
0025000 f u n c t i o n c o m p i l e
0025020 - f i l e - e x p r e s s i o n
0025040 c o m p i l e - f i l e - s e
0025060 t f - s y m b o l - f u n c t i
0025100 o n ) \r ( p u t p r o p s p r
0025120 e t t y c o m p r i n t c o m
0025140 p i l e - f i l e - e x p r e s
0025160 s i o n n i l l ) \r c o m p i
0025200 l e - f i l e - d e c l a r e \
0025220 : d 1 \r ( l ( 4 d e f e r
0025240 3 d o c o p y 2 e v a l
0025260 @ c o m p i l e 1 c o m p i
0025300 l e d . f i l e 0 f o r m )
0025320 f 2 c o u t f i l e ) \0
0025340 370 002 001 \0 005 @ 002 021 021 001 H d \t \0 \0 221
0025360 h 020 001 004 l 004 360 242 261 \0 267 H 001 Y g \0
0025400 \0 360 222 261 \0 323 I g \0 \0 360 222 261 \0 312 I
0025420 d g \0 \0 360 222 261 \0 277 d g \0 \0 360 226 277
0025440 H 002 X 261 \0 262 g \0 \0 360 247 I d g \0 \0
0025460 360 226 277 i b 004 261 \0 237 g \0 \0 360 225 h b
0025500 004 261 \0 224 I d g \0 \0 360 234 277 H 002 X 001
0025520 \t \0 \0 b 004 261 \0 200 g \0 \0 360 247 I d g
0025540 \0 \0 360 225 277 i b 006 260 m g \0 \0 360 224 h
0025560 b 006 260 c I d g \0 \0 360 233 277 H 002 X 001
0025600 \t \0 \0 b 006 260 P g \0 \0 360 230 R o \0 \0
0025620 \0 H 002 260 026 I g \0 \0 360 263 < I g \0 \0
0025640 360 263 5 R o \0 \0 \0 H 001 \v \0 \0 260 ( H
0025660 001 001 g \0 \0 360 233 H 001 A B C D \r 005 \0
0025700 \0 260 024 B 225 H 001 \t \0 \0 277 C 230 H 001 A
0025720 B D \f \0 \0 277 H 002 X 261 377 022 \0 ( 2 3
0025740 9 c o m p i l e - f i l e - e
0025760 x p r e s s i o n 2 2 8 e v
0026000 a l 2 1 9 c o m p i l e - f
0026020 i l e - d e c l a r e \ : 1 9
0026040 9 c l : f o r m a t 1 5 7
0026060 e v a l 1 0 9 e v a l 9
0026100 c l : e n d p ) \r ( 2 0 7 d e
0026120 c l a r e \ : 1 8 6 c o m p
0026140 i l e r v a r s 1 7 9 n o t
0026160 f i r s t 1 6 4 f i r s t
0026200 1 4 7 c o p y w h e n 1 3 5
0026220 d o n t c o p y 1 2 4 d o
0026240 c o p y 1 1 7 c o p y 9 9
0026260 e v a l @ c o m p i l e w h e
0026300 n 8 6 d o n t e v a l @ c o
0026320 m p i l e 7 4 d o e v a l @
0026340 c o m p i l e 6 7 e v a l @
0026360 c o m p i l e 5 5 e v a l @
0026400 l o a d w h e n 4 6 d o n t
0026420 e v a l @ l o a d 3 6 d o e
0026440 v a l @ l o a d 2 7 e v a l
0026460 @ l o a d ) \r ( 1 9 4 " W a
0026500 r n i n g : I g n o r i n g
0026520 u n r e c o g n i z e d D E C
0026540 L A R E : t a g : ~ S ~ % "
0026560 1 7 1 " W a r n i n g : (
0026600 D E C L A R E : - - F I R S
0026620 T - - - - ) n o t i m p
0026640 l e m e n t e d i n C O M P
0026660 I L E - F I L E : ~ S ~ % " )
0026700 \r n e w d e f c d 1 \r ( i 1
0026720 d f i 0 n m f 2 d
0026740 f n f l g f 3 c o m p i l
0026760 e . f i l e . a f t e r f 4
0027000 s v f l g f 5 * e r r o
0027020 r - o u t p u t * ) \0 212 002 004 \0
0027040 002 T g \0 \0 360 262 5 g \0 \0 @ d 236 d i
0027060 360 252 3 020 265 \t g \0 \0 @ h 032 032 A d 236
0027100 d i 360 252 3 020 265 \t g \0 \0 A h 032 032 i
0027120 h 032 032 032 032 S 032 c 006 260 O R 224 R i 360
0027140 262 ' @ \t \0 \0 262 031 @ i \n \0 \0 277 R 256
0027160 U o \0 \0 \0 @ \v \0 \0 277 @ \t \0 \0 277 @
0027200 A i \v \0 \0 260 # @ g \0 \0 A d 005 006 262
0027220 026 277 l \r 037 A 006 \0 \0 311 \0 021 002 001 H d
0027240 I 024 \0 277 022 \v \0 \0 A 020 \0 ( 1 3 4
0027260 / p u t p r o p 9 9 / p u t
0027300 d 9 2 s a v e d e f 8 7
0027320 c l : f o r m a t 7 5 v i r
0027340 g i n f n 6 8 \ \ d e f i n
0027360 e d p ) \r ( 1 1 9 a r r a y p
0027400 1 0 5 c o d e 4 1 q u o
0027420 t e 2 3 q u o t e 9 n e
0027440 w d e f c 3 d e f e r ) \r (
0027460 8 3 " ~ & ( ~ S r e d e f
0027500 i n e d ) ~ % " ) \r ( m o v d
0027520 ( q u o t e n e w d e f c )
0027540 ( q u o t e d e f c ) ) \r ( l
0027560 e t * ( ( a 9 8 1 6 ( q u o
0027600 t e o p t i m i z e r s ) )
0027620 ( a 9 8 1 7 ( q u o t e d e
0027640 f i n e - t y p e s ) ) ( a 9
0027660 8 1 8 ( q u o t e " C O M P
0027700 I L E R O P T I M I Z E R S "
0027720 ) ) ) \r ( p r o g n ( c o n
0027740 d ( ( c l : f b o u n d p (
0027760 q u o t e s e t - d o c u m e
0030000 n t a t i o n ) ) ( s e t - d
0030020 o c u m e n t a t i o n a 9 8
0030040 1 6 a 9 8 1 7 a 9 8 1 8 ) )
0030060 ) a 9 8 1 8 ) ) \r ( s e t q
0030100 p r e t t y d e f m a c r o s
0030120 ( c l : a d j o i n ( q u o t
0030140 e ( o p t i m i z e r s x
0030160 ( p * ( m a p c a r ( q u
0030200 o t e x ) ( f u n c t i o n
0030220 ( l a m b d a ( i t e m )
0030240 \r ( c l : d o ( ( d e f ( g
0030260 e t d e f i t e m ( q u o t
0030300 e o p t i m i z e r s ) ) ) )
0030320 ( d e f d e f ) ( c l : c
0030340 e r r o r " R e - f e t c h
0030360 t h e d e f i n i t i o n "
0030400 \r " N o ~ S d e f i n i t i
0030420 o n f o r ~ S " ( q u o t
0030440 e o p t i m i z e r s ) i t
0030460 e m ) ) ) ) ) ) ) ) p r e t t
0030500 y d e f m a c r o s : t e s t
0030520 ( q u o t e c l : e q u a l
0030540 ) ) ) \r ( s e t q p r e t t y
0030560 t y p e l s t ( c l : a d j o
0030600 i n ( q u o t e ( c h a n g
0030620 e d o p t i m i z e r s l s t
0030640 o p t i m i z e r s " C O M P
0030660 I L E R O P T I M I Z E R S "
0030700 ) ) \r p r e t t y t y p e l s
0030720 t : t e s t ( q u o t e c
0030740 l : e q u a l ) ) ) \r ( c l : p
0030760 r o c l a i m ( q u o t e (
0031000 g l o b a l c h a n g e d o p
0031020 t i m i z e r s l s t ) ) ) \r (
0031040 o r ( b o u n d p ( q u o t
0031060 e c h a n g e d o p t i m i z
0031100 e r s l s t ) ) ( s e t q c
0031120 h a n g e d o p t i m i z e r s
0031140 l s t n i l ) ) \r ( c o n d
0031160 ( ( n o t ( c l : g e t h a s
0031200 h ( q u o t e o p t i m i z
0031220 e r s ) * d e f i n i t i o n
0031240 - h a s h - t a b l e * ) ) (
0031260 l e t * ( ( a 9 8 1 9 ( q u
0031300 o t e o p t i m i z e r s ) )
0031320 \r ( a 9 8 2 0 * d e f i n i
0031340 t i o n - h a s h - t a b l e *
0031360 ) ( a 9 8 2 2 ( c l : m a k
0031400 e - h a s h - t a b l e : t e
0031420 s t ( q u o t e c l : e q u
0031440 a l ) : s i z e 5 0 \r : r
0031460 e h a s h - s i z e 5 0 ) ) )
0031500 ( c l : : p u t h a s h a 9
0031520 8 1 9 a 9 8 2 0 a 9 8 2 2 )
0031540 ) ) ) \r ( s e t q f i l e p k
0031560 g t y p e s ( c l : a d j o i
0031600 n ( q u o t e o p t i m i z
0031620 e r s ) f i l e p k g t y p e
0031640 s ) ) \r ( l e t * ( ( a 9 8 2
0031660 3 ( q u o t e o p t i m i z
0031700 e r s ) ) ( a 9 8 2 4 ( q u
0031720 o t e g e t d e f ) ) ( a 9
0031740 8 2 6 ( q u o t e \ \ d e f
0031760 i n e - t y p e - g e t d e f )
0032000 ) ) ( \r p u t p r o p a 9 8
0032020 2 3 a 9 8 2 4 a 9 8 2 6 ) )
0032040 \r ( l e t * ( ( a 9 8 2 7 (
0032060 q u o t e o p t i m i z e r s
0032100 ) ) ( a 9 8 2 8 ( q u o t e
0032120 d e l d e f ) ) ( a 9 8 3 0
0032140 ( q u o t e \ \ d e f i n e
0032160 - t y p e - d e l d e f ) ) )
0032200 ( \r p u t p r o p a 9 8 2 7
0032220 a 9 8 2 8 a 9 8 3 0 ) ) \r ( l
0032240 e t * ( ( a 9 8 3 1 ( q u o
0032260 t e o p t i m i z e r s ) )
0032300 ( a 9 8 3 2 ( q u o t e f i
0032320 l e p k g c o n t e n t s ) )
0032340 ( a 9 8 3 4 ( q u o t e n i
0032360 l l ) ) ) ( p u t p r o p a
0032400 9 8 3 1 \r a 9 8 3 2 a 9 8 3
0032420 4 ) ) \r ( l e t * ( ( a 9 8 3
0032440 9 ( q u o t e o p t i m i z
0032460 e r s ) ) ( a 9 8 4 0 ( q u
0032500 o t e u n d e f i n e r s ) )
0032520 ( a 9 8 4 2 ( c l : a d j o
0032540 i n ( q u o t e n i l ) (
0032560 g e t a 9 8 3 9 \r a 9 8 4 0
0032600 ) ) ) ) ( p u t p r o p a 9
0032620 8 3 9 a 9 8 4 0 a 9 8 4 2 )
0032640 ) \r c o m p i l e r : : | e x p
0032660 a n d - O P T I M I Z E R - L I
0032700 S T | d 1 \r ( l ( 1 s i :
0032720 : $ $ m a c r o - e n v i r o n
0032740 m e n t 0 s i : : $ $ m a c
0032760 r o - f o r m ) ) \0 022 001 \0 \0 002
0033000 @ 002 001 021 001 \0 g \0 \0 H o \0 \0 \0 032 032
0033020 020 \0 n i l \r ( 8 g e t ) \r (
0033040 1 3 ( ( q u o t e c o m p i
0033060 l e r : o p t i m i z e r - l i
0033100 s t ) ) ) \r ( s e t f - m a c r
0033120 o - f u n c t i o n ( q u o t
0033140 e c o m p i l e r : o p t i m
0033160 i z e r - l i s t ) ( q u o t
0033200 e c o m p i l e r : : | e x p
0033220 a n d - O P T I M I Z E R - L I
0033240 S T | ) ) \r ( l e t * ( ( a 9
0033260 8 5 1 ( q u o t e d e f o p
0033300 t i m i z e r ) ) ( a 9 8 5 2
0033320 ( q u o t e d e f i n e r -
0033340 f o r ) ) ( a 9 8 5 4 ( q u
0033360 o t e o p t i m i z e r s ) )
0033400 ) ( p u t p r o p \r a 9 8 5
0033420 1 a 9 8 5 2 a 9 8 5 4 ) ) \r
0033440 ( l e t * ( ( a 9 8 5 5 ( q
0033460 u o t e o p t i m i z e r s )
0033500 ) ( a 9 8 5 6 ( q u o t e
0033520 d e f i n e d - b y ) ) ( a 9
0033540 8 5 8 ( c l : a d j o i n (
0033560 q u o t e d e f o p t i m i z
0033600 e r ) ( \r g e t a 9 8 5 5
0033620 a 9 8 5 6 ) ) ) ) ( p u t p r
0033640 o p a 9 8 5 5 a 9 8 5 6 a
0033660 9 8 5 8 ) ) \r | e x p a n d - D
0033700 E F O P T I M I Z E R A 0 0 0 1
0033720 | d 1 \r ( l ( 1 s i : : $
0033740 $ m a c r o - e n v i r o n m e
0033760 n t 0 s i : : $ $ m a c r o
0034000 - f o r m ) ) \0 262 \v \0 \0 002 @ 002
0034020 021 241 \n H 001 271 H 002 Z 001 273 J 002 274 A 275
0034040 L 263 036 g \0 \0 g \0 \0 K h 032 032 g \0 \0
0034060 g \0 \0 I h 032 032 h 032 032 h 032 032 032 020 K
0034100 ^ 222 K 003 237 o \0 \0 \0 I h 032 032 I \t \0
0034120 \0 \n \0 \0 206 L 001 L 002 274 276 K _ 016 277 N
0034140 g \0 \0 L I M g \0 \0 g \0 \0 g \0 \0 g
0034160 \0 \0 \r \t \0 \0 \t \0 \0 _ 020 001 _ 022 277 O
0034200 020 002 001 _ 024 277 g \0 \0 g \0 \0 O 016 o \0
0034220 \0 \0 O 024 O 022 h 032 \n \0 \0 032 032 032 g \0
0034240 \0 g \0 \0 O 016 h 032 032 g \0 \0 g \0 \0 I
0034260 h 032 032 h 032 032 h 032 032 032 h 032 032 032 020 \0
0034300 ( 1 4 0 \ \ a p p e n d 2 1
0034320 0 6 \ \ m v l i s t 1 0 3
0034340 p a r s e - d e f m a c r o 6
0034360 9 x c l : p a c k 6 6 c l
0034400 : s y m b o l - p a c k a g e )
0034420 \r ( 1 6 0 q u o t e 1 5 7
0034440 c o m p i l e r : o p t i m i z
0034460 e r - l i s t 1 4 9 q u o t
0034500 e 1 4 6 c l : p u s h n e w
0034520 1 2 5 c l : d e f u n 1 2
0034540 2 p r o g n 9 9 $ $ c t x
0034560 9 6 : c o n t e x t 9 3
0034600 $ $ e n v 9 0 : e n v i r o
0034620 n m e n t 8 4 $ $ w h o l e
0034640 3 6 q u o t e 3 3 c o m
0034660 p i l e r : o p t i m i z e r -
0034700 l i s t 2 6 q u o t e 2 3
0034720 c l : p u s h n e w ) \r ( 1
0034740 3 1 ( $ $ w h o l e $ $ e n
0034760 v $ $ c t x ) 5 8 " o p t
0035000 i m i z e - " ) \r | e x p a n d
0035020 - D E F O P T I M I Z E R | d
0035040 1 \r ( l ( 1 s i : : $ $ m a
0035060 c r o - e n v i r o n m e n t
0035100 0 s i : : $ $ m a c r o - f o
0035120 r m ) ) \0 217 \b \0 \0 002 @ 021 A 004 A
0035140 271 H \t \0 \0 Z [ 002 001 K 002 002 001 l 003 K
0035160 \n \0 \0 021 003 \a O 016 263 024 M o \0 \0 \0 N
0035200 h 032 032 032 N \t \0 \0 \n \0 \0 207 N 224 N d
0035220 003 221 277 M 022 274 g \0 \0 g \0 \0 g \0 \0 g
0035240 \0 \0 J I h 032 032 032 032 h 032 032 g \0 \0 o
0035260 \0 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0
0035300 L h 032 032 o \0 \0 \0 g \0 \0 H h 032 032 h
0035320 032 032 032 032 h 032 032 032 h 032 032 032 g \0 \0 L
0035340 h 032 032 h 032 032 032 032 020 \0 ( 4 7 x c
0035360 l : p a c k 4 4 c l : s y m
0035400 b o l - p a c k a g e 2 3 c
0035420 l : n t h c d r 9 r e m o v
0035440 e - c o m m e n t s ) \r ( 1 3 1
0035460 q u o t e 1 1 1 q u o t e
0035500 1 0 0 q u o t e 9 7 \ \
0035520 d e f i n e - t y p e - s a v e
0035540 - d e f n 9 0 c l : u n l e
0035560 s s 8 3 c l : e v a l - w h
0035600 e n 7 0 | e x p a n d - D E
0035620 F O P T I M I Z E R A 0 0 0 1 |
0035640 6 7 s i : : m a c r o - f u
0035660 n c a l l 6 4 w i t h o u t
0035700 - f i l e p k g 6 1 p r o g
0035720 n ) \r ( 1 0 8 ( q u o t e
0035740 o p t i m i z e r s ) 9 4 (
0035760 n u l l f i l e p k g f l g )
0036000 8 7 ( c l : e v a l ) 3 5
0036020 " - O P T I M I Z E D - B Y -
0036040 " ) \r ( s e t f - m a c r o - f
0036060 u n c t i o n ( q u o t e d
0036100 e f o p t i m i z e r ) ( q u
0036120 o t e | e x p a n d - D E F O
0036140 P T I M I Z E R | ) ) \r ( s e t
0036160 q p r e t t y p r i n t m a c
0036200 r o s ( c l : a d j o i n (
0036220 q u o t e ( d e f o p t i m i
0036240 z e r . p p r i n t - d e f
0036260 i n e r ) ) p r e t t y p r i
0036300 n t m a c r o s : t e s t (
0036320 \r q u o t e c l : e q u a l )
0036340 ) ) \r ( s i : : % s t r u c t u
0036360 r e - d e c l a r e - d a t a t
0036400 y p e ( q u o t e c o m p i
0036420 l e r : e n v ) ( q u o t e
0036440 ( p o i n t e r p o i n t e r
0036460 ) ) ( q u o t e ( ( c o m p
0036500 i l e r : e n v \r 0 p o i n
0036520 t e r ) ( c o m p i l e r : e
0036540 n v 2 p o i n t e r ) ) )
0036560 4 ( q u o t e n i l ) ) \r c
0036600 o m p i l e r : : | t y p e - e
0036620 x p a n d - E N V | d 1 \r ( l
0036640 ( 0 $ $ t y p e - f o r m )
0036660 ) \0 006 \0 \0 \0 001 o \0 \0 \0 020 \0 n i
0036700 l \r n i l \r ( 3 ( d a t a t
0036720 y p e c o m p i l e r : e n v
0036740 ) ) \r ( p u t ( q u o t e c
0036760 o m p i l e r : e n v ) ( q u
0037000 o t e t y p e - e x p a n d e
0037020 r ) ( q u o t e c o m p i l
0037040 e r : : | t y p e - e x p a n d
0037060 - E N V | ) ) \r c o m p i l e r
0037100 : : e n v - p d 1 \r ( l ( 0
0037120 c l : : o b j e c t ) ) \0 \t
0037140 \0 \0 \0 001 @ 303 \0 \0 264 003 i 020 \0 n i l
0037160 \r ( 3 c o m p i l e r : e n v
0037200 ) \r ( ) \r e n v - v e n v d 1
0037220 \r ( l ( 0 c o m p i l e r :
0037240 e n v ) ) \0 \b \0 \0 \0 001 @ 006 \0 \0
0037260 311 \0 020 \0 n i l \r ( 3 c o m p i
0037300 l e r : e n v ) \r ( ) \r e n v -
0037320 f e n v d 1 \r ( l ( 0 c o
0037340 m p i l e r : e n v ) ) \0 \b \0
0037360 \0 \0 001 @ 006 \0 \0 311 002 020 \0 n i l \r (
0037400 3 c o m p i l e r : e n v ) \r
0037420 ( ) \r ( r e m p r o p ( q u o
0037440 t e e n v - v e n v ) ( q u
0037460 o t e s e t f - m e t h o d -
0037500 e x p a n d e r ) ) \r ( p u t p
0037520 r o p ( q u o t e e n v - v
0037540 e n v ) ( q u o t e s e t f
0037560 - i n v e r s e ) ( q u o t e
0037600 % % s e t f - e n v - v e n v
0037620 ) ) \r % % s e t f - e n v - v e
0037640 n v d 1 \r ( l ( 1 c l : :
0037660 v a l u e 0 c o m p i l e r
0037700 : e n v ) ) \0 \n \0 \0 \0 002 @ 006 \0
0037720 \0 A 024 \0 A 020 \0 n i l \r ( 3 c o
0037740 m p i l e r : e n v ) \r ( ) \r (
0037760 r e m p r o p ( q u o t e e
0040000 n v - f e n v ) ( q u o t e
0040020 s e t f - m e t h o d - e x p a
0040040 n d e r ) ) \r ( p u t p r o p
0040060 ( q u o t e e n v - f e n v )
0040100 ( q u o t e s e t f - i n v
0040120 e r s e ) ( q u o t e % % s
0040140 e t f - e n v - f e n v ) ) \r %
0040160 % s e t f - e n v - f e n v d
0040200 1 \r ( l ( 1 c l : : v a l u
0040220 e 0 c o m p i l e r : e n v
0040240 ) ) \0 \n \0 \0 \0 002 @ 006 \0 \0 A 024 002
0040260 A 020 \0 n i l \r ( 3 c o m p i l
0040300 e r : e n v ) \r ( ) \r c o m p i
0040320 l e r : : m a k e - e n v d 1
0040340 \r ( l ( 0 | - a r g s - | )
0040360 ) \0 ] 006 \0 002 \0 e 021 001 \0 H k 021 002
0040400 002 J d I 363 262 ) 277 h 022 021 A 005 H k 273
0040420 272 K d J 363 262 , 277 h 274 ` \0 \0 037 ] 006
0040440 \0 \0 I 024 \0 M 006 \0 \0 L 024 002 M 020 a g
0040460 \0 \0 360 225 J k 330 a 260 321 J l 002 324 Z 260
0040500 303 a g \0 \0 360 225 K k 330 a 260 316 K l 002
0040520 324 [ 260 300 \0 n i l \r ( 7 6 : f e
0040540 n v 5 7 : v e n v 4 8 c
0040560 o m p i l e r : e n v 4 1 c
0040600 o m p i l e r : e n v 3 6 |
0040620 004 003 E N V T Y P E # | ) \r ( ) \r
0040640 c o m p i l e r : : c o p y - e
0040660 n v d 1 \r ( l ( 0 c o m p
0040700 i l e r : e n v ) ) \0 7 001 \0 \0
0040720 001 @ 021 001 \0 H 303 \0 \0 262 036 023 ` \0 \0 037
0040740 021 001 \0 H 006 \0 \0 @ 311 \0 024 \0 H 006 \0 \0
0040760 @ 311 002 024 002 H 020 i g \0 \0 H g \0 \0 \f
0041000 \0 \0 b \0 023 260 314 \0 ( 4 8 c h e c
0041020 k - t y p e - f a i l ) \r ( 4 5
0041040 c o m p i l e r : e n v 4 1
0041060 c o m p i l e r : e n v 3 0
0041100 c o m p i l e r : e n v 2 1
0041120 c o m p i l e r : e n v 1 3
0041140 | 004 003 E N V T Y P E # | 7
0041160 c o m p i l e r : e n v ) \r ( )
0041200 \r ( d e f p r i n t ( q u o t
0041220 e c o m p i l e r : e n v )
0041240 ( q u o t e c l : : d e f a u
0041260 l t - s t r u c t u r e - p r i
0041300 n t e r ) ) \r ( c l : : s e t -
0041320 p a r s e d - s t r u c t u r e
0041340 ( q u o t e c o m p i l e r
0041360 : e n v ) ( q u o t e ( c l
0041400 : : p s c o m p i l e r : e n
0041420 v c o m p i l e r : : m a k e
0041440 - e n v ( v e n v \r f e n v
0041460 ) c l : : d a t a t y p e n
0041500 i l n i l e n v - ( c o m
0041520 p i l e r : : m a k e - e n v
0041540 . : n o n e ) c o m p i l e
0041560 r : : e n v - p \r c l : : d e
0041600 f a u l t - s t r u c t u r e -
0041620 p r i n t e r c o m p i l e r
0041640 : : c o p y - e n v n i l 0
0041660 ( ( v e n v n i l t n i
0041700 l ( c o m p i l e r : e n v
0041720 0 p o i n t e r ) \r e n v -
0041740 v e n v ) ( f e n v n i l
0041760 t n i l ( c o m p i l e r :
0042000 e n v 2 p o i n t e r ) e
0042020 n v - f e n v ) ) ( ( v e n v
0042040 n i l t n i l ( c o m p
0042060 i l e r : e n v 0 p o i n t
0042100 e r \r ) e n v - v e n v ) (
0042120 f e n v n i l t n i l (
0042140 c o m p i l e r : e n v 2 p
0042160 o i n t e r ) e n v - f e n v
0042200 ) ) n i l n i l ( p o i n
0042220 t e r p o i n t e r ) ) ) ) \r
0042240 ( s i : : % s t r u c t u r e -
0042260 d e c l a r e - d a t a t y p e
0042300 ( q u o t e c o m p i l e r
0042320 : c o n t e x t ) ( q u o t e
0042340 ( p o i n t e r p o i n t e
0042360 r p o i n t e r ) ) ( q u o
0042400 t e ( ( \r c o m p i l e r : c
0042420 o n t e x t 0 p o i n t e r
0042440 ) ( c o m p i l e r : c o n t
0042460 e x t 2 p o i n t e r ) (
0042500 c o m p i l e r : c o n t e x t
0042520 4 p o i n t e r ) ) ) 6
0042540 ( q u o t e n i l ) ) \r c o m
0042560 p i l e r : : | t y p e - e x p
0042600 a n d - C O N T E X T | d 1 \r
0042620 ( l ( 0 $ $ t y p e - f o r
0042640 m ) ) \0 006 \0 \0 \0 001 o \0 \0 \0 020 \0
0042660 n i l \r n i l \r ( 3 ( d a t
0042700 a t y p e c o m p i l e r : c
0042720 o n t e x t ) ) \r ( p u t ( q
0042740 u o t e c o m p i l e r : c o
0042760 n t e x t ) ( q u o t e t y
0043000 p e - e x p a n d e r ) ( q u
0043020 o t e c o m p i l e r : : | t
0043040 y p e - e x p a n d - C O N T E
0043060 X T | ) ) \r c o m p i l e r : :
0043100 c o n t e x t - p d 1 \r ( l
0043120 ( 0 c l : : o b j e c t ) )
0043140 \0 \t \0 \0 \0 001 @ 303 \0 \0 264 003 i 020 \0 n
0043160 i l \r ( 3 c o m p i l e r : c
0043200 o n t e x t ) \r ( ) \r c o n t e
0043220 x t - t o p - l e v e l - p d
0043240 1 \r ( l ( 0 c o m p i l e r
0043260 : c o n t e x t ) ) \0 \b \0 \0 \0
0043300 001 @ 006 \0 \0 311 \0 020 \0 n i l \r ( 3
0043320 c o m p i l e r : c o n t e x t
0043340 ) \r ( ) \r c o n t e x t - v a l
0043360 u e s - u s e d d 1 \r ( l (
0043400 0 c o m p i l e r : c o n t e
0043420 x t ) ) \0 \b \0 \0 \0 001 @ 006 \0 \0 311
0043440 002 020 \0 n i l \r ( 3 c o m p i l
0043460 e r : c o n t e x t ) \r ( ) \r c
0043500 o n t e x t - p r e d i c a t e
0043520 - p d 1 \r ( l ( 0 c o m p
0043540 i l e r : c o n t e x t ) ) \0
0043560 \b \0 \0 \0 001 @ 006 \0 \0 311 004 020 \0 n i l
0043600 \r ( 3 c o m p i l e r : c o n
0043620 t e x t ) \r ( ) \r ( r e m p r o
0043640 p ( q u o t e c o n t e x t
0043660 - t o p - l e v e l - p ) ( q
0043700 u o t e s e t f - m e t h o d
0043720 - e x p a n d e r ) ) \r ( p u t
0043740 p r o p ( q u o t e c o n t
0043760 e x t - t o p - l e v e l - p )
0044000 ( q u o t e s e t f - i n v
0044020 e r s e ) ( q u o t e % % s
0044040 e t f - c o n t e x t - t o p -
0044060 l e v e l - p ) ) \r % % s e t f
0044100 - c o n t e x t - t o p - l e v
0044120 e l - p d 1 \r ( l ( 1 c l
0044140 : : v a l u e 0 c o m p i l
0044160 e r : c o n t e x t ) ) \0 \n \0
0044200 \0 \0 002 @ 006 \0 \0 A 024 \0 A 020 \0 n i l
0044220 \r ( 3 c o m p i l e r : c o n
0044240 t e x t ) \r ( ) \r ( r e m p r o
0044260 p ( q u o t e c o n t e x t
0044300 - v a l u e s - u s e d ) ( q
0044320 u o t e s e t f - m e t h o d
0044340 - e x p a n d e r ) ) \r ( p u t
0044360 p r o p ( q u o t e c o n t
0044400 e x t - v a l u e s - u s e d )
0044420 ( q u o t e s e t f - i n v
0044440 e r s e ) ( q u o t e % % s
0044460 e t f - c o n t e x t - v a l u
0044500 e s - u s e d ) ) \r % % s e t f
0044520 - c o n t e x t - v a l u e s -
0044540 u s e d d 1 \r ( l ( 1 c l
0044560 : : v a l u e 0 c o m p i l
0044600 e r : c o n t e x t ) ) \0 \n \0
0044620 \0 \0 002 @ 006 \0 \0 A 024 002 A 020 \0 n i l
0044640 \r ( 3 c o m p i l e r : c o n
0044660 t e x t ) \r ( ) \r ( r e m p r o
0044700 p ( q u o t e c o n t e x t
0044720 - p r e d i c a t e - p ) ( q
0044740 u o t e s e t f - m e t h o d
0044760 - e x p a n d e r ) ) \r ( p u t
0045000 p r o p ( q u o t e c o n t
0045020 e x t - p r e d i c a t e - p )
0045040 ( q u o t e s e t f - i n v
0045060 e r s e ) ( q u o t e % % s
0045100 e t f - c o n t e x t - p r e d
0045120 i c a t e - p ) ) \r % % s e t f
0045140 - c o n t e x t - p r e d i c a
0045160 t e - p d 1 \r ( l ( 1 c l
0045200 : : v a l u e 0 c o m p i l
0045220 e r : c o n t e x t ) ) \0 \n \0
0045240 \0 \0 002 @ 006 \0 \0 A 024 004 A 020 \0 n i l
0045260 \r ( 3 c o m p i l e r : c o n
0045300 t e x t ) \r ( ) \r c o m p i l e
0045320 r : m a k e - c o n t e x t d
0045340 1 \r ( l ( 0 | - a r g s - |
0045360 ) ) \0 215 \t \0 002 \0 e 021 001 \0 H k 021
0045400 002 002 J d I 363 262 F 277 h 022 021 q \b H k
0045420 273 272 K d J 363 262 I 277 g \0 \0 274 H k 276
0045440 275 N d M 363 262 M 277 h _ 016 277 ` \0 \0 037
0045460 _ 020 006 \0 \0 I 024 \0 O 020 006 \0 \0 L 024 002
0045500 O 020 006 \0 \0 O 016 024 004 O 020 020 a g \0 \0
0045520 360 225 J k 330 a 260 264 J l 002 324 Z 260 246 a
0045540 g \0 \0 360 225 K k 330 a 260 263 K l 002 324 [
0045560 260 243 a g \0 \0 360 225 N k 330 a 260 255 N l
0045600 002 324 ^ 260 237 \0 n i l \r ( 1 2 4 :
0045620 p r e d i c a t e - p 1 0 5
0045640 : v a l u e s - u s e d 8 6
0045660 : t o p - l e v e l - p 7 5
0045700 c o m p i l e r : c o n t e x t
0045720 6 7 c o m p i l e r : c o n
0045740 t e x t 5 9 c o m p i l e r
0045760 : c o n t e x t 5 3 | 004 003 C
0046000 O N T E X T T Y P E # | 3 4
0046020 : u n k n o w n ) \r ( ) \r c o m
0046040 p i l e r : : c o p y - c o n t
0046060 e x t d 1 \r ( l ( 0 c o m
0046100 p i l e r : c o n t e x t ) )
0046120 \0 @ 001 \0 \0 001 @ 021 001 \0 H 303 \0 \0 262 '
0046140 023 ` \0 \0 037 021 001 \0 H 006 \0 \0 @ 311 \0 024
0046160 \0 H 006 \0 \0 @ 311 002 024 002 H 006 \0 \0 @ 311
0046200 004 024 004 H 020 i g \0 \0 H g \0 \0 \f \0 \0
0046220 b \0 023 260 303 \0 ( 5 7 c h e c k -
0046240 t y p e - f a i l ) \r ( 5 4 c
0046260 o m p i l e r : c o n t e x t
0046300 5 0 c o m p i l e r : c o n t
0046320 e x t 3 9 c o m p i l e r :
0046340 c o n t e x t 3 0 c o m p i
0046360 l e r : c o n t e x t 2 1 c
0046400 o m p i l e r : c o n t e x t
0046420 1 3 | 004 003 C O N T E X T T Y P
0046440 E # | 7 c o m p i l e r : c
0046460 o n t e x t ) \r ( ) \r ( d e f p
0046500 r i n t ( q u o t e c o m p
0046520 i l e r : c o n t e x t ) ( q
0046540 u o t e c l : : d e f a u l t
0046560 - s t r u c t u r e - p r i n t
0046600 e r ) ) \r ( c l : : s e t - p a
0046620 r s e d - s t r u c t u r e (
0046640 q u o t e c o m p i l e r : c
0046660 o n t e x t ) ( q u o t e (
0046700 c l : : p s c o m p i l e r :
0046720 c o n t e x t c o m p i l e r
0046740 : m a k e - c o n t e x t \r (
0046760 t o p - l e v e l - p v a l u
0047000 e s - u s e d p r e d i c a t
0047020 e - p ) c l : : d a t a t y p
0047040 e n i l n i l c o n t e x
0047060 t - ( c o m p i l e r : m a k
0047100 e - c o n t e x t . : n o n
0047120 e ) \r c o m p i l e r : : c o
0047140 n t e x t - p c l : : d e f a
0047160 u l t - s t r u c t u r e - p r
0047200 i n t e r c o m p i l e r : :
0047220 c o p y - c o n t e x t n i l
0047240 0 ( ( t o p - l e v e l - p
0047260 n i l t n i l \r ( c o m
0047300 p i l e r : c o n t e x t 0
0047320 p o i n t e r ) c o n t e x t
0047340 - t o p - l e v e l - p ) ( v
0047360 a l u e s - u s e d : u n k n
0047400 o w n t n i l ( c o m p i
0047420 l e r : c o n t e x t 2 \r p
0047440 o i n t e r ) c o n t e x t -
0047460 v a l u e s - u s e d ) ( p r
0047500 e d i c a t e - p n i l t
0047520 n i l ( c o m p i l e r : c o
0047540 n t e x t 4 p o i n t e r )
0047560 c o n t e x t - p r e d i c a
0047600 t e - p ) \r ) ( ( t o p - l e
0047620 v e l - p n i l t n i l
0047640 ( c o m p i l e r : c o n t e x
0047660 t 0 p o i n t e r ) c o n
0047700 t e x t - t o p - l e v e l - p
0047720 ) ( v a l u e s - u s e d :
0047740 u n k n o w n t \r n i l (
0047760 c o m p i l e r : c o n t e x t
0050000 2 p o i n t e r ) c o n t
0050020 e x t - v a l u e s - u s e d )
0050040 ( p r e d i c a t e - p n i
0050060 l t n i l ( c o m p i l e
0050100 r : c o n t e x t 4 \r p o i
0050120 n t e r ) c o n t e x t - p r
0050140 e d i c a t e - p ) ) n i l
0050160 n i l ( p o i n t e r p o i
0050200 n t e r p o i n t e r ) ) ) )
0050220 \r c o m p i l e r : c o p y - e
0050240 n v - w i t h - f u n c t i o n
0050260 d 1 \r ( l ( 0 | - a r g s
0050300 - | ) ) \0 K \b \0 002 \0 e 021 001 \0 k
0050320 a 021 a \a l 002 a 272 l 003 H 361 223 g \0 \0
0050340 202 l 003 a 273 l 004 H 361 221 h 202 l 004 a 274
0050360 I 265 037 \b \0 \0 ] _ 016 277 J K L h 032 032
0050400 032 O 016 \t \0 \0 032 276 O 016 N \n \0 \0 M 020
0050420 \t \0 \0 260 343 \0 ( 7 1 c o m p i l
0050440 e r : : c o p y - e n v 6 6
0050460 c o m p i l e r : : % % s e t f
0050500 - e n v - f e n v 5 8 c o m
0050520 p i l e r : : e n v - f e n v
0050540 4 2 c o m p i l e r : m a k e
0050560 - e m p t y - e n v ) \r ( 2 0
0050600 : f u n c t i o n ) \r ( ) \r c o
0050620 m p i l e r : c o p y - e n v -
0050640 w i t h - v a r i a b l e d 1
0050660 \r ( l ( 0 | - a r g s - | )
0050700 ) \0 8 \a \0 002 \0 e 021 001 \0 k a 021 Q
0050720 006 l 002 a 272 l 003 H 361 223 g \0 \0 202 l 003
0050740 a 273 I 265 027 \b \0 \0 \ 276 J K 032 N \t \0
0050760 \0 032 275 N M \n \0 \0 L 020 \t \0 \0 260 353 \0
0051000 ( 5 2 c o m p i l e r : : c o
0051020 p y - e n v 4 7 c o m p i l
0051040 e r : : % % s e t f - e n v - v
0051060 e n v 4 0 c o m p i l e r :
0051100 : e n v - v e n v 3 1 c o m
0051120 p i l e r : m a k e - e m p t y
0051140 - e n v ) \r ( 2 0 : l e x i c
0051160 a l ) \r ( ) \r c o m p i l e r :
0051200 e n v - b o u n d p d 1 \r ( l
0051220 ( 1 c o m p i l e r : : n a
0051240 m e 0 c o m p i l e r : e n
0051260 v ) ) \0 275 001 \0 \0 002 A @ \t \0 \0 \n
0051300 \0 \0 265 ( @ d A \n \0 \0 262 % 277 @ A g
0051320 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0
0051340 \0 A \r 006 \0 \0 \f \0 \0 020 002 \t \0 \0 020 \t
0051360 \0 \0 021 001 \0 H d i 360 262 t 277 A d 301 002
0051400 311 \0 g \0 \0 ' 262 277 @ A g \0 \0 g \0
0051420 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 A \r 006
0051440 \0 \0 \f \0 \0 020 \t \0 \0 262 034 @ A g \0 \0
0051460 A \t \0 \0 \t \0 \0 262 036 g \0 \0 A \t \0 \0
0051500 \n \0 \0 260 & A 301 002 311 \0 g \0 \0 ' 264 036
0051520 @ A g \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0
0051540 \0 g \0 \0 A \r 006 \0 \0 \f \0 \0 020 264 377 H
0051560 b \0 023 261 377 G \0 ( 1 7 7 c o m p
0051600 i l e r : : e n v - b i n d - v
0051620 a r i a b l e 1 7 4 c o m p
0051640 i l e r : : m a k e - v a r i a
0051660 b l e 1 3 6 c o m p i l e r
0051700 : : m a k e - l i t e r a l 1
0051720 3 3 c l : s y m b o l - v a l
0051740 u e 1 2 4 f a s l \ : v a l
0051760 u e - d u m p a b l e - p 1 2
0052000 1 c l : s y m b o l - v a l u
0052020 e 1 1 0 c l : c o n s t a n
0052040 t p 1 0 6 c o m p i l e r :
0052060 : e n v - b i n d - v a r i a b
0052100 l e 1 0 3 c o m p i l e r :
0052120 : m a k e - v a r i a b l e 5
0052140 5 c o m p i l e r : : e n v -
0052160 p a r e n t 5 1 c l : v a l
0052200 u e s - l i s t 4 6 c o m p
0052220 i l e r : : e n v - b i n d - v
0052240 a r i a b l e 4 3 c o m p i
0052260 l e r : : m a k e - v a r i a b
0052300 l e 1 5 c o m p i l e r : :
0052320 e n v - p r o c l a i m e d - s
0052340 p e c i a l - p 7 c l : a s
0052360 s o c 4 c o m p i l e r : :
0052400 e n v - v e n v ) \r ( 1 6 9 :
0052420 n a m e 1 6 6 : v a r i a b
0052440 l e 1 6 3 : k i n d 1 6 0
0052460 : g l o b a l 1 5 7 : s c
0052500 o p e 1 5 4 : g l o b a l
0052520 1 4 6 g l o b a l v a r 1 2
0052540 9 : v a l u e 1 1 7 : c o
0052560 n s t a n t 9 8 : n a m e
0052600 9 5 : v a r i a b l e 9 2
0052620 : k i n d 8 9 : s p e c i a
0052640 l 8 6 : s c o p e 8 3 :
0052660 s p e c i a l 7 4 g l o b a
0052700 l l y - s p e c i a l 3 8 :
0052720 n a m e 3 5 : v a r i a b l
0052740 e 3 2 : k i n d 2 9 : s
0052760 p e c i a l 2 6 : s c o p e
0053000 2 3 : s p e c i a l ) \r ( )
0053020 \r c o m p i l e r : e n v - f b
0053040 o u n d p d 1 \r ( l ( 1 c
0053060 o m p i l e r : : n a m e 0
0053100 c o m p i l e r : e n v ) ) \0
0053120 % 001 \0 \0 002 A @ \t \0 \0 \n \0 \0 265 025 @
0053140 \t \0 \0 021 001 \0 H d 236 i 360 252 H b \0 023
0053160 260 345 002 \t \0 \0 020 h 020 \0 ( 3 2 c l
0053200 : v a l u e s - l i s t 1 3
0053220 c o m p i l e r : : e n v - p a
0053240 r e n t 7 c l : a s s o c
0053260 4 c o m p i l e r : : e n v -
0053300 f e n v ) \r n i l \r ( ) \r c o m
0053320 p i l e r : m a k e - e m p t y
0053340 - e n v d 1 \r n i l \0 005 \0 \0
0053360 \0 \0 \b \0 \0 020 \0 ( 2 c o m p i l
0053400 e r : : m a k e - e n v ) \r n i
0053420 l \r ( ) \r ( p u t p r o p s c
0053440 m l c o m p i l e f i l e t y
0053460 p e c l : c o m p i l e - f i
0053500 l e ) \r ( p u t p r o p s c m
0053520 l c o m p i l e c o p y r i g
0053540 h t ( " X e r o x C o r p o
0053560 r a t i o n " 1 9 8 5 1 9 8
0053600 6 ) ) \r n i l \r
0053610