$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLCOMPILE!15
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 006 001 ( f i l e
0000100 c r e a t e d " 2 9 - O c t -
0000120 8 6 1 9 : 1 4 : 2 6 " 006 004 {
0000140 e r i s } < l i s p c o r e > s
0000160 o u r c e s > c m l c o m p i l
0000200 e . \ ; 1 5 006 001 3 4 8 5 2
0000220 \r \r | c h a n g e s
0000240 | | t o : | ( f u n c t i
0000260 o n s d e f o p t i m i z e r
0000300 ) \r \r | p r e v i o
0000320 u s | | d a t e : | " 1 8 -
0000340 O c t - 8 6 2 2 : 2 2 : 4 9 "
0000360 { e r i s } < l i s p c o r e
0000400 > s o u r c e s > c m l c o m p
0000420 i l e . \ ; 1 4 ) \r \r \r ; C o
0000440 p y r i g h t ( c ) 1 9 8 5
0000460 , 1 9 8 6 b y X e r o x
0000500 C o r p o r a t i o n . A l
0000520 l r i g h t s r e s e r v e
0000540 d . \r \r ( p r e t t y c o m p r
0000560 i n t c m l c o m p i l e c o
0000600 m s ) \r \r ( r p a q q 006 002 c m
0000620 l c o m p i l e c o m s 006 001 \r
0000640 ( ( c o m s ( f
0000660 u n c t i o n s c l : c o m p
0000700 i l e c l : d i s a s s e m b
0000720 l e ) \r
0000740 ( f n s c l : c o m p i l
0000760 e - f i l e i n t e r l i s p
0001000 - f o r m a t - p i n t e r l
0001020 i s p - n l a m b d a - f u n c
0001040 t i o n - p \r
0001060 c o m p i
0001100 l e - f i l e - e x p r e s s i
0001120 o n c o m p i l e - f i l e -
0001140 w a l k - f u n c t i o n a r
0001160 g t y p e . s t a t e \r
0001200
0001220 c o m p i l e . c h e c k . a r
0001240 g t y p e c o m p i l e . f i
0001260 l e . d e f i n e q c o m p i
0001300 l e - f i l e - s e t f - s y m
0001320 b o l - f u n c t i o n \r
0001340
0001360 c o m p i l e - f i l e - e x
0001400 / i m p o r t c o m p i l e .
0001420 f i l e . a p p l y c o m p i
0001440 l e . f i l e . r e s e t c o
0001460 m p i l e - i n - c o r e ) \r
0001500 ( v a
0001520 r s a r g t y p e . v a r s )
0001540 \r (
0001560 p r o p c o m p i l e - f i l
0001600 e - e x p r e s s i o n d e f
0001620 i n e q * s e t f - s y m b
0001640 o l - f u n c t i o n p r e t
0001660 t y c o m p r i n t ) \r
0001700 ( f u n c t
0001720 i o n s c o m p i l e - f i l
0001740 e - d e c l a r e \ : ) ) \r
0001760 ( c o m s ( f n s
0002000 n e w d e f c ) \r
0002020 ( d e c l a r e
0002040 \ : d o n t e v a l @ l o a d
0002060 d o c o p y ( p ( m o v d
0002100 ' n e w d e f c ' d e f c )
0002120 ) ) ) \r ( c o m
0002140 s ( * \ ; " O p t i m i z
0002160 e r d e f i n i t i o n s a
0002200 n d e n v i r o n m e n t h
0002220 a c k i n g " ) \r
0002240 ( d e f i n e - t
0002260 y p e s o p t i m i z e r s )
0002300 \r (
0002320 f u n c t i o n s c o m p i l
0002340 e r : o p t i m i z e r - l i s
0002360 t ) \r
0002400 ( f u n c t i o n s d e f o
0002420 p t i m i z e r ) \r
0002440 ( s t r u c t u
0002460 r e s c o m p i l e r : e n v
0002500 c o m p i l e r : c o n t e x
0002520 t ) \r
0002540 ( f n s c o m p i l e r : c
0002560 o p y - e n v - w i t h - f u n
0002600 c t i o n c o m p i l e r : c
0002620 o p y - e n v - w i t h - v a r
0002640 i a b l e \r
0002660 c o m p i l
0002700 e r : e n v - b o u n d p c o
0002720 m p i l e r : e n v - f b o u n
0002740 d p c o m p i l e r : m a k e
0002760 - e m p t y - e n v ) ) \r
0003000 ( p r o p f i l e t
0003020 y p e c m l c o m p i l e ) \r
0003040 ( d e c l a r e
0003060 \ : d o n t e v a l @ l o a d
0003100 d o e v a l @ c o m p i l e
0003120 d o n t c o p y c o m p i l e
0003140 r v a r s \r
0003160 ( a d d v a r s ( n
0003200 l a m a ) \r
0003220 ( n l a
0003240 m l ) \r
0003260 ( l a m a
0003300 c o m p i l e r : m a k e - e m
0003320 p t y - e n v c o m p i l e r
0003340 : e n v - f b o u n d p c o m
0003360 p i l e r : e n v - b o u n d p
0003400 \r
0003420 c o
0003440 m p i l e r : c o p y - e n v -
0003460 w i t h - v a r i a b l e c o
0003500 m p i l e r : c o p y - e n v -
0003520 w i t h - f u n c t i o n \r
0003540
0003560 c l : c o
0003600 m p i l e - f i l e ) ) ) ) ) \r
0003620 ( c l : d e f u n 006 002 c l : c
0003640 o m p i l e 006 001 ( n a m e &
0003660 o p t i o n a l l a m b d a -
0003700 e x p r ) ( l e t ( ( n e w
0003720 - n a m e ( o r n a m e '
0003740 \ \ c l c o m p i l e t e m p )
0003760 ) ) \r
0004000
*
0004040 ( c o m p i
0004060 l e - i n - c o r e n e w - n
0004100 a m e ( o r l a m b d a - e
0004120 x p r \r
0004140
*
0004240 ( g e t d n
0004260 a m e ) ) ) \r
0004300
*
0004340 ( a
0004360 n d l a m b d a - e x p r n
0004400 a m e ( / p u t p r o p n a
0004420 m e \r
0004440
*
0004540 ' e x p r l a m
0004560 b d a - e x p r \r
0004600
*
0004700 ) ) \r
0004720
*
0005000 ( o r n a m e
0005020 ( g e t d n e w - n a m e ) )
0005040 ) ) \r \r ( c l : d e f u n 006 002
0005060 c l : d i s a s s e m b l e 006 001
0005100 ( n a m e - o r - c o m p i l
0005120 e d - f u n c t i o n & k e y
0005140 l e v e l - p ( r a d i x
0005160 8 ) \r
0005200
0005220 ( o u t p u t * s t a n
0005240 d a r d - o u t p u t * ) \r
0005260
0005300 f i
0005320 r s t - b y t e m a r k e d -
0005340 p c ) \r ( p r i n t c o d
0005360 e ( 006 002 | i f | 006 001 ( c c o
0005400 d e p n a m e - o r - c o m p
0005420 i l e d - f u n c t i o n ) \r
0005440
0005460 006 002 | t h e n | 006 001 n a m e
0005500 - o r - c o m p i l e d - f u n
0005520 c t i o n \r
0005540 006 002 | e l s e | 006 001
0005560 ( c l : c o m p i l e n i l
0005600 ( 006 002 | i f | 006 001 ( c l : s
0005620 y m b o l p n a m e - o r - c
0005640 o m p i l e d - f u n c t i o n
0005660 ) \r
0005700
0005720 006 002 |
0005740 t h e n | 006 001 ( c l : s y m b
0005760 o l - f u n c t i o n n a m e
0006000 - o r - c o m p i l e d - f u n
0006020 c t i o n ) \r
0006040
*
0006100 006 002 | e l s e | 006 001 n a m e -
0006120 o r - c o m p i l e d - f u n c
0006140 t i o n ) ) ) \r
0006160 l e v e l - p r a d i x
0006200 o u t p u t f i r s t - b y t
0006220 e m a r k e d - p c ) ) \r \r (
0006240 d e f i n e q \r \r ( 006 004 c l : c
0006260 o m p i l e - f i l e 006 001 \r
0006300 ( c l : l a m b d a ( f i l e
0006320 n a m e & k e y l a p r e
0006340 d e f i n e o u t p u t - f i
0006360 l e ( s a v e - e x p r s t
0006400 ) \r
0006420 ( c o m p i l e r -
0006440 o u t p u t t ) \r
0006460 ( p
0006500 r o c e s s - e n t i r e - f i
0006520 l e n i l p e f p ) ) 006 003 006
0006540 001 006 003 ( *
0006560 | P a v e l | " 6 - O c t -
0006600 8 6 2 2 : 3 6 " ) 006 001 \r
0006620 ( l e t ( c o m p
0006640 i l e . f i l e . a f t e r v
0006660 a l u e c o m p i l e . f i l
0006700 e . v a l u e ) \r
0006720 ( d e c l a r e
0006740 ( c l : s p e c i a l c o m p
0006760 i l e . f i l e . a f t e r c
0007000 o m p i l e . f i l e . v a l u
0007020 e ) ) \r
0007040 ( r e s e t l s t ( r e s
0007060 e t s a v e n i l ( l i s t
0007100 ' r e s e t u n d o ) \r
0007120
0007140 ( r e s
0007160 e t u n d o ) ) \r
0007200 ( r
0007220 e s e t s a v e n l a m l n
0007240 l a m l ) \r
0007260 ( r e s e
0007300 t s a v e n l a m a n l a m
0007320 a ) \r
0007340 ( r e s e t s a
0007360 v e l a m s l a m s ) \r
0007400
0007420 ( r e s e t s a v e l a
0007440 m a l a m a ) \r
0007460 ( r
0007500 e s e t s a v e d f n f l g
0007520 n i l ) \r
0007540 ( r e s e t
0007560 s a v e c o u t f i l e c o
0007600 m p i l e r - o u t p u t ) \r
0007620
0007640 ( r e s e t s a v e s
0007660 t r f r e d e f i n e ) \r
0007700
0007720 ( r e s e t s a v e s v
0007740 f l g ( a n d s a v e - e x
0007760 p r s r e d e f i n e ' d e
0010000 f e r ) ) \r
0010020 ( r e s e
0010040 t s a v e l a p f l g l a p
0010060 ) \r
0010100 ( l e t ( ( * p
0010120 a c k a g e * * i n t e r l i
0010140 s p - p a c k a g e * ) \r
0010160
0010200 ( * r e a d - b
0010220 a s e * 1 0 ) \r
0010240
0010260 ( l o c a l v a r s s
0010300 y s l o c a l v a r s ) \r
0010320
0010340 ( s p e c v a r
0010360 s t ) \r
0010400
0010420 s t r e a m l s t f i l r o
0010440 o t n a m e i n t e r l i s p
0010460 - f o r m a t e n v f o r m
0010500 ) \r
0010520 ( d e c
0010540 l a r e ( c l : s p e c i a l
0010560 * p a c k a g e * * r e a d
0010600 - b a s e * l o c a l v a r s
0010620 s p e c v a r s l s t f i l
0010640 ) ) \r
0010660 ( r e
0010700 s e t s a v e n i l ( l i s
0010720 t ( f u n c t i o n c l o s
0010740 e f ? ) \r
0010760
*
0011020 ( s e t q s t r e a m
0011040 ( o p e n s t r e a m f i l
0011060 e n a m e ' i n p u t ) ) ) )
0011100 \r
0011120 ( c l : m
0011140 u l t i p l e - v a l u e - s e
0011160 t q ( e n v f o r m ) \r
0011200
0011220 (
0011240 \ \ p a r s e - f i l e - h e a
0011260 d e r s t r e a m ' r e t u
0011300 r n t ) ) \r
0011320
0011340 ( s e t q i n t e r l i s p
0011360 - f o r m a t ( a n d e n v
0011400 ( n e q e n v * c o m m o
0011420 n - l i s p - r e a d - e n v i
0011440 r o n m e n t * ) ) ) \r
0011460
0011500 ( | i f | ( n o t
0011520 p e f p ) \r
0011540
0011560 | t h e n | \r
0011600
0011620 ( s
0011640 e t q p r o c e s s - e n t i
0011660 r e - f i l e i n t e r l i s
0011700 p - f o r m a t ) ) \r
0011720
0011740 ( | i f | l a p |
0011760 t h e n | ( s e t q l s t f
0012000 i l c o u t f i l e ) ) \r
0012020
0012040 ( s e t q f i
0012060 l e n a m e ( f u l l n a m e
0012100 s t r e a m ) ) \r
0012120
0012140 ( r e s e t s a v e n
0012160 i l ( l i s t ( f u n c t i
0012200 o n c o m p i l e . f i l e .
0012220 r e s e t ) \r
0012240
*
0012300 ( s e t q o u t p
0012320 u t - f i l e ( o p e n s t r
0012340 e a m \r
0012360
*
0012440 ( o r o u t p u t
0012460 - f i l e ( \r
0012500
*
0012600 p a c k f i
0012620 l e n a m e . s t r i n g \r
0012640
*
0012760 ' v e r s i o n n i l \r
0013000
*
0013120 ' e x t e n s i o n \r
0013140
*
0013260 c o m p i l e . e x t \r
0013300
*
0013400 '
0013420 b o d y f i l e n a m e ) ) \r
0013440
*
0013540 ' o u t p u t \r
0013560
*
0013640 ' n e w
0013660 \r
0013700
*
0013760 ' ( ( t y p e b i n a r
0014000 y ) ) ) ) \r
0014020
*
0014060 s t r e a m \r
0014100
*
0014140 ( r o o t
0014160 f i l e n a m e f i l e n a m
0014200 e ) ) ) \r
0014220 (
0014240 | i f | o u t p u t - f i l e
0014260 | t h e n | ( r e s e t s a
0014300 v e l c f i l o u t p u t -
0014320 f i l e ) \r
0014340
0014360 ( p r i n t - c o m
0014400 p i l e - h e a d e r ( l i s
0014420 t s t r e a m ) \r
0014440
*
0014500 ' ( " C O M P I L E - F I L E
0014520 d " ) e n v ) ) \r
0014540
0014560 ( w i t h - r e a d e r
0014600 - e n v i r o n m e n t \r
0014620
0014640 e n v \r
0014660
0014700 ( p r o g ( d e
0014720 f e r r e d . e x p r e s s i o
0014740 n s ) \r
0014760
0015000 ( d e c l a r e ( c
0015020 l : s p e c i a l d e f e r r
0015040 e d . e x p r e s s i o n s ) )
0015060 \r
0015100 l p
0015120 ( 006 002 c o m p i l e - f i l
0015140 e - e x p r e s s i o n 006 001 f
0015160 o r m o u t p u t - f i l e
0015200 n i l p r o c e s s - e n t i
0015220 r e - f i l e ) \r
0015240
0015260 ( s k i p s
0015300 e p r c o d e s s t r e a m )
0015320 \r
0015340
0015360 ( | i f | ( e o f p s t
0015400 r e a m ) \r
0015420
0015440 | t h
0015460 e n | \r
0015500
0015520 ( a n d
0015540 p r o c e s s - e n t i r e - f
0015560 i l e ( | f o r | e x p |
0015600 i n | ( r e v e r s e \r
0015620
*
0015720 d
0015740 e f e r r e d . e x p r e s s i
0015760 o n s \r
0016000
*
0016100 ) \r
0016120
*
0016220 | d o | \r
0016240
*
0016340 ( a p p l y * ( c a r e x p
0016360 ) \r
0016400
*
0016500 ( c d r e x p ) \r
0016520
*
0016620 o u t p u t - f
0016640 i l e ) ) ) \r
0016660
0016700 ( c
0016720 l o s e f s t r e a m ) \r
0016740
*
0017000 ( r e t u r n ) ) \r
0017020
*
0017060 ( s e t q f o r m ( l e t
0017100 ( ( e x p r e s s i o n ( r e
0017120 a d s t r e a m ) ) ) \r
0017140
*
0017200 ( |
0017220 i f | i n t e r l i s p - f o
0017240 r m a t | t h e n | e x p r
0017260 e s s i o n | e l s e | \r
0017300
*
0017360 ( c m l t r a n s l a
0017400 t e e x p r e s s i o n ) ) )
0017420 ) \r
0017440
0017460 ( g o l p ) ) \r
0017500
0017520 ( p r i n t n i
0017540 l o u t p u t - f i l e ) ) \r
0017560
0017600 ( s e t q
0017620 c o m p i l e . f i l e . v a l
0017640 u e ( c l o s e f o u t p u
0017660 t - f i l e ) ) ) ) 006 003 006 001 \r
0017700
*
0017760 006 003 ( * \ ;
0020000 " D o t h e s e a f t e r
0020020 U N D O N L S E T Q e n t e
0020040 r e d " ) 006 001 \r
0020060 ( m a p c ( r e v
0020100 e r s e c o m p i l e . f i l
0020120 e . a f t e r ) \r
0020140 ( f u
0020160 n c t i o n e v a l ) ) \r
0020200 c o m p
0020220 i l e . f i l e . v a l u e ) )
0020240 ) \r \r ( 006 004 i n t e r l i s p -
0020260 f o r m a t - p 006 001 \r ( l a
0020300 m b d a ( s t r e a m ) 006 003 006
0020320 001
0020340
0020360 006 003 ( *
0020400 | b v m : | " 3 - A u g -
0020420 8 6 1 4 : 0 1 " ) 006 001 \r
0020440 ( s e l c h a r q ( p e e k
0020460 c c o d e s t r e a m ) \r
0020500 ( \ ; n i l ) \r
0020520 ( ( ^ f " (
0020540 " ) \r
0020560 t ) \r n i
0020600 l ) ) ) \r \r ( 006 004 i n t e r l i
0020620 s p - n l a m b d a - f u n c t
0020640 i o n - p 006 001 \r ( l a m b d
0020660 a ( x ) 006 003 006 001
0020700
*
0020740 006 003 ( * | l
0020760 m m | " 7 - M a y - 8 6 2
0021000 0 : 1 2 " ) 006 001 \r ( a n
0021020 d ( l i t a t o m x ) \r
0021040 ( f m e m b ( a
0021060 r g t y p e x ) \r
0021100 ' ( 1 3 )
0021120 ) \r ( n o t
0021140 ( c l : s p e c i a l - f o r m
0021160 - p x ) ) ) ) ) \r \r ( 006 004 c o
0021200 m p i l e - f i l e - e x p r e
0021220 s s i o n 006 001 \r ( l a m b d
0021240 a ( f o r m c o m p i l e d
0021260 . f i l e c o m p i l e . t i
0021300 m e . t o o d e f e r ) 006 003 006
0021320 001 006 003 ( * | P
0021340 a v e l | " 2 2 - S e p - 8 6
0021360 1 4 : 3 6 " ) 006 001 \r (
0021400 d e c l a r e ( c l : s p e c
0021420 i a l c o m p i l e d . f i l
0021440 e ) ) \r ( a n d ( l i
0021460 s t p f o r m ) \r
0021500 ( s e l e c t q ( c a r
0021520 f o r m ) \r
0021540 ( ( d e c l a r e \ : )
0021560 \r
0021600 ( c o m p i l e - f i l
0021620 e - d e c l a r e \ : f o r m
0021640 c o m p i l e d . f i l e c
0021660 o m p i l e . t i m e . t o o
0021700 t d e f e r ) ) \r
0021720 ( ( p r o g n )
0021740 \r
0021760 ( | f o r | x | i n |
0022000 ( c d r f o r m ) \r
0022020
0022040 | d o | \r
0022060
0022100 ( 006 002 c o m p i l e - f i
0022120 l e - e x p r e s s i o n 006 001
0022140 x c o m p i l e d . f i l e
0022160 c o m p i l e . t i m e . t o o
0022200 d e f e r ) ) ) \r
0022220 ( ( q u o t e )
0022240 006 003 006 001
0022260
0022300 006 003 ( * \ ; " i g n
0022320 o r e t o p l e v e l q u
0022340 o t e d e x p r e s s i o n
0022360 - i " ) 006 001 \r
0022400 n i l ) \r
0022420 ( ( c l :
0022440 c o m p i l e r - l e t ) 006 003
0022460 006 001
0022500 006 003 ( * \ ; " t o
0022520 p l e v e l c o m p i l e r
0022540 - l e t . b i n d v a r i a
0022560 b l e s a n d r e c u r s i
0022600 v e l y c o m p i l e s u b
0022620 - e x p r e s s i o n s . T h
0022640 i s i s h e r e m a i n l
0022660 y f o r b P C L h a s
0022700 t o p l e v e l c o m p i
0022720 l e r - l e t s " ) 006 001 \r
0022740 (
0022760 l e t ( ( v a r s ( c l : m
0023000 a p c a r # ' ( c l : l a m b
0023020 d a ( x ) \r
0023040
*
0023100 ( | i f | (
0023120 c l : c o n s p x ) \r
0023140
*
0023220 | t h e n | \r
0023240
*
0023320 ( c a r x ) \r
0023340
*
0023420 | e l s e | x ) ) ( c
0023440 a d r f o r m ) ) ) \r
0023460
0023500 ( v a l s ( c l : m a
0023520 p c a r # ' ( c l : l a m b d
0023540 a ( x ) \r
0023560
*
0023620 ( | i f | ( c
0023640 l : c o n s p x ) \r
0023660
*
0023740 | t h e n | \r
0023760
*
0024040 ( c l : e v a l ( c a d r
0024060 x ) ) ) ) ( c a d r f o r
0024100 m ) ) ) ) \r
0024120 ( c l
0024140 : p r o g v v a r s v a l s
0024160 ( c l : m a p c # ' ( c l :
0024200 l a m b d a ( x ) \r
0024220
*
0024300 ( 006 002 c o m p i
0024320 l e - f i l e - e x p r e s s i
0024340 o n 006 001 x c o m p i l e d .
0024360 f i l e \r
0024400
*
0024460 c o m p i l
0024500 e . t i m e . t o o d e f e r
0024520 ) ) \r
0024540
*
0024600 ( c d d r f o r m )
0024620 ) ) ) ) \r
0024640 ( ( c l : e v a l - w h e n
0024660 ) \r
0024700 ( l e t ( ( e v a l
0024720 . s p e c i f i e d ( o r (
0024740 f m e m b ' e v a l ( c a d
0024760 r f o r m ) ) \r
0025000
*
0025040 ( f m e m b ' c l :
0025060 e v a l ( c a d r f o r m )
0025100 ) ) ) \r
0025120 ( l o a
0025140 d . s p e c i f i e d ( o r
0025160 ( f m e m b ' l o a d ( c a
0025200 d r f o r m ) ) \r
0025220
*
0025260 ( f m e m b ' c l
0025300 : l o a d ( c a d r f o r m
0025320 ) ) ) ) \r
0025340 ( c o
0025360 m p i l e . s p e c i f i e d
0025400 ( o r ( f m e m b ' c o m p
0025420 i l e ( c a d r f o r m ) )
0025440 \r
0025460
*
0025520 ( f m e m b ' c l : c o m p i
0025540 l e ( c a d r f o r m ) ) )
0025560 ) ) \r
0025600 ( c o n d \r
0025620
0025640 ( ( n o t
0025660 l o a d . s p e c i f i e d ) \r
0025700
0025720 ( c o n d
0025740 \r
0025760 (
0026000 ( o r c o m p i l e . s p e c
0026020 i f i e d ( a n d c o m p i
0026040 l e . t i m e . t o o e v a l
0026060 . s p e c i f i e d ) ) \r
0026100
0026120 ( | f o
0026140 r | i n n e r - f o r m | i
0026160 n | ( c d d r f o r m ) \r
0026200
*
0026240 | d o | \r
0026260
*
0026320 ( e v a l i n n e r - f o r m
0026340 ) ) ) ) ) \r
0026360
0026400 ( t ( | f o r | i n n e r -
0026420 f o r m | i n | ( c d d r
0026440 f o r m ) \r
0026460
0026500 | d o | \r
0026520
*
0026560 ( 006 002 c o m p i l e - f i
0026600 l e - e x p r e s s i o n 006 001
0026620 i n n e r - f o r m c o m p i
0026640 l e d . f i l e \r
0026660
*
0026720 ( o r c o m p i l e .
0026740 s p e c i f i e d ( a n d c
0026760 o m p i l e . t i m e . t o o
0027000 e v a l . s p e c i f i e d \r
0027020
*
0027120 ) ) \r
0027140
*
0027200 d e f e r ) ) ) ) ) ) \r
0027220 ( ( c l
0027240 : i n - p a c k a g e ) 006 003 006
0027260 001
0027300 006 003 ( * \ ; \r 006 001
0027320 006
0027340 003 " T h i s i s s p e c i a
0027360 l b e c a u s e i t h a s
0027400 t o b e d u m p e d t o
0027420 t h e o u t p u t B E F O
0027440 R E t h e p a c k a g e c
0027460 h a n g e s " ) 006 001 \r
0027500 ( p r
0027520 i n t f o r m c o m p i l e
0027540 d . f i l e f i l e r d t b l
0027560 ) \r
0027600 ( e v a l f o r m ) )
0027620 \r ( l
0027640 e t ( ( p r o p ( o r ( g
0027660 e t p r o p ( c a r f o r m
0027700 ) \r
0027720
0027740 ' c o m p i l e - f
0027760 i l e - e x p r e s s i o n ) \r
0030000
0030020 ( g e
0030040 t p r o p ( c a r f o r m )
0030060 \r
0030100
0030120 ' c o m p i l e . f i
0030140 l e . e x p r e s s i o n ) ) )
0030160 ) \r
0030200 ( | i f | ( a n d (
0030220 n o t p r o p ) \r
0030240
0030260 ( n o t ( c l :
0030300 s p e c i a l - f o r m - p (
0030320 c a r f o r m ) ) ) \r
0030340
0030360 ( n o t ( 006
0030400 002 i n t e r l i s p - n l a m b
0030420 d a - f u n c t i o n - p 006 001
0030440 ( c a r f o r m ) ) ) \r
0030460
0030500 ( n e q f
0030520 o r m ( s e t q f o r m (
0030540 c l : m a c r o e x p a n d - 1
0030560 f o r m ) ) ) ) \r
0030600
0030620 | t h e n | \r
0030640
0030660 ( 006 002 c o m p i l e - f i l e
0030700 - e x p r e s s i o n 006 001 f o
0030720 r m c o m p i l e d . f i l e
0030740 c o m p i l e . t i m e . t o
0030760 o d e f e r ) \r
0031000
0031020 | e l s e | \r
0031040
0031060 ( | i f | c o m p i l e . t i
0031100 m e . t o o | t h e n | ( e
0031120 v a l f o r m ) ) \r
0031140
0031160 ( | i f | p r o p | t
0031200 h e n | ( 006 002 c o m p i l e .
0031220 f i l e . a p p l y 006 001 p r o
0031240 p f o r m d e f e r ) \r
0031260
0031300 | e l s
0031320 e i f | \r
0031340
0031360 ( n o t ( e q u a l f
0031400 o r m ( s e t q f o r m (
0031420 w a l k - f o r m f o r m :
0031440 w a l k - f u n c t i o n \r
0031460
*
0031540 (
0031560 f u n c t i o n c o m p i l e
0031600 - f i l e - w a l k - f u n c t
0031620 i o n \r
0031640
*
0031720 ) ) ) ) ) \r
0031740
0031760 | t h e n |
0032000 \r
0032020 (
0032040 006 002 c o m p i l e - f i l e - e
0032060 x p r e s s i o n 006 001 f o r m
0032100 c o m p i l e d . f i l e c
0032120 o m p i l e . t i m e . t o o
0032140 d e f e r ) \r
0032160
0032200 | e l s e | \r
0032220
0032240 ( 006 002 c o m
0032260 p i l e . f i l e . a p p l y 006
0032300 001 ( f u n c t i o n p r i n
0032320 t ) \r
0032340
0032360 f o r m d e f
0032400 e r ) ) ) ) ) ) ) ) \r \r ( 006 004 c
0032420 o m p i l e - f i l e - w a l k
0032440 - f u n c t i o n 006 001 \r ( l
0032460 a m b d a ( f o r m ) 006 003 006 001
0032500
*
0032540 006 003 (
0032560 * | l m m | " 2 6 - J u n -
0032600 8 6 1 7 : 2 5 " ) 006 001 \r
0032620 ( | i f | ( n l i s t p f
0032640 o r m ) \r |
0032660 t h e n | f o r m | e l s e
0032700 | ( c l : v a l u e s f o r
0032720 m ( 006 002 i n t e r l i s p - n
0032740 l a m b d a - f u n c t i o n -
0032760 p 006 001 ( c a r f o r m ) ) )
0033000 ) ) ) \r \r ( 006 004 a r g t y p e .
0033020 s t a t e 006 001 \r ( l a m b d
0033040 a n i l \r ( | f o r |
0033060 x | i n | a r g t y p e .
0033100 v a r s | d o | ( p r i n t
0033120 o u t t x \ , ( e v a l
0033140 ( c a d r x ) ) \r
0033160
*
0033220 t ) ) ) ) \r \r ( 006 004
0033240 c o m p i l e . c h e c k . a r
0033260 g t y p e 006 001 \r ( l a m b d
0033300 a ( x a t ) 006 003 006 001
0033320
*
0033360 006 003 ( * | l
0033400 m m | " 1 5 - J u n - 8 5 1
0033420 6 : 5 8 " ) 006 001 \r ( | i
0033440 f | ( n e q a t ( l e t
0033460 ( b l k f l g ) \r
0033500
0033520 ( c o m p . a r g t y p e x )
0033540 ) ) \r | t h
0033560 e n | 006 003 006 001
0033600
0033620 006 003 ( * \
0033640 ; " I n c o r r e c t l y o
0033660 n o n e o f t h e d e f
0033700 i n i n g l i s t s " ) 006 001 \r
0033720 ( | f o r |
0033740 a t y p e p a i r | i n |
0033760 a r g t y p e . v a r s | d o
0034000 | \r
0034020 ( l e t ( ( v a l ( f
0034040 m e m b x ( e v a l v ( c
0034060 a d r a t y p e p a i r ) ) )
0034100 ) ) \r
0034120 ( | i f | (
0034140 e q a t ( c a r a t y p e
0034160 p a i r ) ) \r
0034200
0034220 | t h e n | \r
0034240
0034260 ( | i f | v a l
0034300 | t h e n | ( p r i n t o u t
0034320 c o u t f i l e " C o m p i
0034340 l e r c o n f u s e d : "
0034360 x " o n " \r
0034400
*
0034440 ( c a
0034460 d r a t y p e p a i r ) \r
0034500
*
0034560 " b u t c o m p i l e r
0034600 d o e s n ' t t h i n k i
0034620 t s a " \r
0034640
*
0034700 ( c a d d
0034720 r a t y p e p a i r ) ) ) \r
0034740
0034760 ( / s e t
0035000 t o p v a l ( c a d r a t y
0035020 p e p a i r ) \r
0035040
0035060 ( c o n s
0035100 x ( p r o g n ( g e t t o
0035120 p v a l ( c a d r a t y p e
0035140 p a i r ) ) ) ) ) \r
0035160
0035200 | e l s e | \r
0035220
0035240 ( | i f | v
0035260 a l | t h e n | ( p r i n t
0035300 o u t c o u t f i l e " W a
0035320 r n i n g : c o m p i l e r
0035340 t h o u g h t " x " " \r
0035360
*
0035440 ( l i s t ' \ a ( o
0035460 r ( c a d d r ( a s s o c
0035500 a t a r g t y p e . v a r s )
0035520 ) \r
0035540
*
0035620 " L A M B D A s p r e
0035640 a d " ) \r
0035660
*
0035720 '
0035740 | f u n c t i o n | ) \r
0035760
*
0036040 " w a s a " \r
0036060
*
0036120 ( c
0036140 a d d r a t y p e p a i r ) \r
0036160
*
0036240 " b e c a u s e i t
0036260 w a s i n c o r r e c t l y
0036300 o n " \r
0036320
*
0036360 ( c a d r
0036400 a t y p e p a i r ) \r
0036420
*
0036460 t
0036500 ) \r
0036520
0036540 ( / s e t t o p v a l
0036560 ( c a d r a t y p e p a i r )
0036600 \r
0036620
0036640 ( r e m o v
0036660 e x ( p r o g n ( g e t t
0036700 o p v a l ( c a d r a t y p
0036720 e p a i r ) ) ) ) ) ) ) ) ) ) )
0036740 ) \r \r ( 006 004 c o m p i l e . f i
0036760 l e . d e f i n e q 006 001 \r (
0037000 l a m b d a ( f o r m l c f
0037020 i l ) 006 003 006 001
0037040
0037060 006 003
0037100 ( * | b v m : | " 1 8 - S e
0037120 p - 8 6 1 4 : 3 5 " ) 006 001 \r
0037140 ( | f o r | d e f | i
0037160 n | ( c d r f o r m ) \r
0037200 | u n l e s s
0037220 | \r ( f m
0037240 e m b ( c a r d e f ) \r
0037260
0037300 d o n t c o m p i l e f n s ) \r
0037320 | d o | \r
0037340 ( 006 002 c o
0037360 m p i l e . c h e c k . a r g t
0037400 y p e 006 001 ( c a r d e f ) \r
0037420
0037440 ( a r g t y p e ( c a d r
0037460 d e f ) ) ) \r
0037500 ( b y t e c o m p i l e 2
0037520 ( c a r d e f ) \r
0037540 ( c o
0037560 m p i l e 1 a ( c a r d e f
0037600 ) \r
0037620 ( c a d r
0037640 d e f ) \r
0037660 n
0037700 i l ) ) ) ) ) \r \r ( 006 004 c o m p
0037720 i l e - f i l e - s e t f - s y
0037740 m b o l - f u n c t i o n 006 001 \r
0037760 ( l a m b d a ( f o r m
0040000 l c f i l ) 006 003 006 001
0040020
*
0040060 006 003 ( * | b v m : | " 8
0040100 - S e p - 8 6 1 6 : 5 5 " ) 006
0040120 001 \r ( | i f | ( a n d
0040140 ( f m e m b ( c a r ( l i
0040160 s t p ( c l : t h i r d f o
0040200 r m ) ) ) \r
0040220 ' ( f u
0040240 n c t i o n c l : f u n c t i
0040260 o n ) ) \r
0040300 ( e q ( c a r ( l i
0040320 s t p ( c l : s e c o n d f
0040340 o r m ) ) ) \r
0040360 ' q u o t e
0040400 ) \r
0040420 ( c l : c o n s p ( c l : s
0040440 e c o n d ( c l : t h i r d
0040460 f o r m ) ) ) ) \r
0040500 | t h e n | \r
0040520 ( b y t e c o m p i l e
0040540 2 ( c a d r ( c l : s e c o
0040560 n d f o r m ) ) \r
0040600 ( c a d r
0040620 ( c l : t h i r d f o r m )
0040640 ) ) \r | e l
0040660 s e | \r ( p
0040700 r i n t ( w a l k - f o r m
0040720 f o r m : w a l k - f u n c t
0040740 i o n ( f u n c t i o n c o
0040760 m p i l e - f i l e - w a l k -
0041000 f u n c t i o n ) ) \r
0041020 l c f i
0041040 l ) ) ) ) \r \r ( 006 004 c o m p i l
0041060 e - f i l e - e x / i m p o r t
0041100 006 001 \r ( l a m b d a ( f o
0041120 r m l c f i l r d t b l ) 006
0041140 003 006 001
0041160
0041200 006 003 ( * | b v m : |
0041220 " 3 - A u g - 8 6 1 5 : 0 5
0041240 " ) 006 001 \r \r
0041260 006 003 ( * *
0041300 " E X P O R T , I M P O R T
0041320 , S H A D O W , U S E - P A
0041340 C K A G E a r e a l l i m
0041360 p l i c i t l y E V A L @ C O
0041400 M P I L E , s i n c e t h e
0041420 y h a v e t o a f f e c t
0041440 t h e p a c k a g e b e i
0041460 n g u s e d t o r e a d
0041500 w h a t f o l l o w s " ) 006 001
0041520 \r \r ( p r i n t f o r
0041540 m l c f i l r d t b l ) \r
0041560 ( e v a l f o r m ) ) )
0041600 \r \r ( 006 004 c o m p i l e . f i l
0041620 e . a p p l y 006 001 \r ( l a m
0041640 b d a ( p r o p f o r m d
0041660 e f e r ) 006 003 006 001
0041700
0041720 006 003 ( *
0041740 | b v m : | " 8 - S e p - 8
0041760 6 1 6 : 5 5 " ) 006 001 \r
0042000 ( | i f | d e f e r | t h e
0042020 n | ( | p u s h | d e f e r
0042040 r e d . e x p r e s s i o n s
0042060 ( c o n s p r o p f o r m )
0042100 ) \r | e l s
0042120 e | \r ( a p
0042140 p l y * p r o p f o r m c
0042160 o m p i l e d . f i l e ) ) ) )
0042200 \r \r ( 006 004 c o m p i l e . f i l
0042220 e . r e s e t 006 001 \r ( l a m
0042240 b d a ( c o m p i l e d . f i
0042260 l e s o u r c e f i l e r o
0042300 o t n a m e ) 006 003 006 001
0042320 006 003 ( *
0042340 | b v m : | " 9 - S e p - 8
0042360 6 1 5 : 1 6 " ) 006 001 \r
0042400
*
0042460 006 003 ( * | C
0042500 l e a n s | | u p | | a f t
0042520 e r | | b r e c o m p i l e |
0042540 \r 006 001
0042560
*
0042640 006 003 | a n d | | b c o m p l
0042660 | | h a v e | | f i n i s h
0042700 e d | \r 006 001
0042720
*
0043000 006 003 | o p e r a t i n g
0043020 , | ) 006 001 \r ( | i f |
0043040 ( a n d c o m p i l e d . f i
0043060 l e ( o p e n p c o m p i l
0043100 e d . f i l e ) ) \r
0043120 | t h e n | \r
0043140 ( c l o s e - a n d -
0043160 m a y b e - d e l e t e c o m
0043200 p i l e d . f i l e ) ) \r
0043220 ( | i f | s o u r c e f i l
0043240 e | t h e n | ( c l o s e f
0043260 ? s o u r c e f i l e ) ) \r
0043300 ( | i f | ( n u l l r
0043320 e s e t s t a t e ) \r
0043340 | t h e n |
0043360
*
0043420 006 003 ( * | F i
0043440 n i s h e d | | s u c c e s s
0043460 f u l l y . | ) 006 001 \r
0043500 ( / s e t a t o m v a
0043520 l ' n o t c o m p i l e d f i
0043540 l e s ( r e m o v e r o o t
0043560 n a m e n o t c o m p i l e d
0043600 f i l e s ) ) \r
0043620
*
0043700 006 003 ( * | R e m o v
0043720 e s | f i l e s | f r o m |
0043740 \r 006 001
0043760
*
0044040 006 003 n o t c o m p i l e d f i
0044060 l e s . ) 006 001 \r
0044100 ) ) ) \r \r ( 006 004 c o m p i l
0044120 e - i n - c o r e 006 001 \r ( l
0044140 a m b d a ( | f n - n a m e |
0044160 | f n - e x p r | | f n - t
0044200 y p e | n o s a v e ) \r
0044220 ( d e c l a r e ( s p e c v
0044240 a r s l c f i l l a p f l g
0044260 s t r f s v f l g l s t f
0044300 i l s p e c v a r s l o c a
0044320 l v a r s d o n t - t r a n s
0044340 f e r - p u t d ) ) 006 003 006 001 \r
0044360
*
0044440 006 003 ( *
0044460 | l m m | " 2 - J u n - 8
0044500 6 2 2 : 0 4 " ) 006 001 \r
0044520 \r
0044540 006 003 ( * | i n - c o r e |
0044560 | c o m p i l i n g | | f o r
0044600 | | f u n c t i o n s | | a
0044620 n d | | f o r m s , | | w i
0044640 t h o u t | | t h e | \r 006 001
0044660 006 003 | i n t
0044700 e r v i e w . | | i f | x
0044720 | i s | \ a | l i s t , |
0044740 | w e | | a s s u m e | | t
0044760 h a t | | w e | | a r e |
0045000 | b e i n g | \r 006 001
0045020 006 003 | c a l l e d |
0045040 | m e r e l y | | t o | | d
0045060 i s p l a y | | t h e | | l
0045100 a p | | a n d | | m a c h i
0045120 n e | | c o d e . | \r 006 001
0045140 006 003 | t h e |
0045160 | f o r m | | i s | | c o m
0045200 p i l e d | | a s | | t h e
0045220 | | d e f i n i t i o n | |
0045240 o f | f o o | b u t | | t
0045260 h e | \r 006 001
0045300 006 003 | c o m p i l e d | : c
0045320 o d e | i s | | t h r o w n
0045340 | | a w a y . | - \r 006 001
0045360 006 003 | i f | x
0045400 | i s | \ a | l i t a t o
0045420 m , | | t h e n | | s a v i
0045440 n g , | | r e d e f i n i n g
0045460 , | | a n d | | p r i n t i
0045500 n g | | i s | \r 006 001
0045520 006 003 | c o n t r o l
0045540 l e d | | b y | | t h e |
0045560 | f l a g s . | ) 006 001 \r \r
0045600 ( l e t ( ( n o r e d e f i
0045620 n e n i l ) \r
0045640 ( p r i n t l a p n i l )
0045660 \r ( d o n t
0045700 - t r a n s f e r - p u t d t
0045720 ) ) \r ( r e s
0045740 e t v a r s ( ( n l a m a n
0045760 l a m a ) \r
0046000 ( n l a m
0046020 l n l a m l ) \r
0046040 ( l
0046060 a m s l a m s ) \r
0046100 (
0046120 l a m a l a m a ) \r
0046140
0046160 ( n o f i x f n s l s t n o f
0046200 i x f n s l s t ) \r
0046220 (
0046240 n o f i x v a r s l s t n o f
0046260 i x v a r s l s t ) \r
0046300
0046320 ( c o u t f i l e ( c o n d \r
0046340
*
0046400 ( ( a n d ( b o u n d p
0046420 ' n u l l f i l e ) \r
0046440
*
0046500 ( s t r e a m p n u l l
0046520 f i l e ) \r
0046540
0046560 ( o
0046600 p e n p n u l l f i l e ) ) \r
0046620
*
0046660 n u l l f i l e ) \r
0046700
0046720 (
0046740 t ( s e t q n u l l f i l e
0046760 ( o p e n f i l e ' { n u l
0047000 l } ' o u t p u t ) ) ) ) ) )
0047020 \r
0047040 ( r e t u r n ( r e
0047060 s e t l s t \r
0047100 \r 006 003 (
0047120 * r e s e t l s t | t o |
0047140 | p r o v i d e | | r e s e t
0047160 | | c o n t e x t | | f o r
0047200 | | m a c r o s | | u n d e
0047220 r | c o m p i l e 1 \r 006 001
0047240 006 003 | a s |
0047260 | g e n e r a t e d | | e . g
0047300 . | | b y | d e c l . ) 006 001
0047320 \r \r
0047340
0047360 ( p r o g ( ( l c f
0047400 i l ) \r
0047420
0047440 ( l
0047460 a p f l g ( a n d p r i n t
0047500 l a p ( c o n d \r
0047520
*
0047600 ( b y
0047620 t e c o m p f l g t ) \r
0047640
*
0047740 ( t 2 ) ) ) ) \r
0047760
*
0050020 ( s t r f ( n o t n o
0050040 r e d e f i n e ) ) \r
0050060
*
0050120 ( s v f l g ( | i f
0050140 | ( e q | f n - t y p e |
0050160 ' s e l e c t o r ) \r
0050200
*
0050260 | t h e n | \r
0050300
*
0050360 ' s e l e c t o r | e l s e |
0050400 ( n o t n o s a v e ) ) ) \r
0050420
*
0050460 ( l s t f i
0050500 l t ) \r
0050520
0050540 (
0050560 s p e c v a r s s y s s p e c
0050600 v a r s ) \r
0050620
*
0050660 ( l o c a l v a r s t ) ) \r
0050700
*
0050740 ( r e t u r n
0050760 ( p r o g n ( s e t q | f n
0051000 - e x p r | ( c o m p i l e 1
0051020 a | f n - n a m e | \r
0051040
*
0051140 | f n -
0051160 e x p r | t ) ) \r
0051200
*
0051260 ( p r o g ( ( f r e e v a
0051300 r s f r e e v a r s ) ) \r
0051320
*
0051400 ( r e t
0051420 u r n ( b y t e c o m p i l e
0051440 2 | f n - n a m e | \r
0051460
*
0051560 | f n - e x
0051600 p r | ) ) ) ) ) ) ) ) ) ) ) ) \r
0051620 ) \r \r ( r p a q q 006 002 a r g t
0051640 y p e . v a r s 006 001 ( ( 1 n
0051660 l a m l " N L A M B D A s p
0051700 r e a d " ) \r
0051720 ( 2 l
0051740 a m a " L A M B D A n o s p
0051760 r e a d " ) \r
0052000 ( 0 l
0052020 a m s " L A M B D A s p r e
0052040 a d " ) \r
0052060 ( 3 n l a
0052100 m a " N L A M B D A n o - s
0052120 p r e a d " ) ) ) \r \r ( p u t p
0052140 r o p s 006 002 d e f i n e q c
0052160 o m p i l e - f i l e - e x p r
0052200 e s s i o n 006 001 c o m p i l e
0052220 . f i l e . d e f i n e q ) \r \r
0052240 ( p u t p r o p s 006 002 * c o
0052260 m p i l e - f i l e - e x p r e
0052300 s s i o n 006 001 n i l l ) \r \r (
0052320 p u t p r o p s 006 002 s e t f -
0052340 s y m b o l - f u n c t i o n
0052360 c o m p i l e - f i l e - e x p
0052400 r e s s i o n 006 001 c o m p i l
0052420 e - f i l e - s e t f - s y m b
0052440 o l - f u n c t i o n ) \r \r ( p
0052460 u t p r o p s 006 002 p r e t t y
0052500 c o m p r i n t c o m p i l e
0052520 - f i l e - e x p r e s s i o n
0052540 006 001 n i l l ) \r ( c l : d e f
0052560 u n 006 002 c o m p i l e - f i l
0052600 e - d e c l a r e \ : 006 001 ( f
0052620 o r m c o m p i l e d . f i l
0052640 e e v a l @ c o m p i l e d
0052660 o c o p y d e f e r ) \r
0052700 ( c l : d o ( ( t a i l ( c
0052720 d r f o r m ) \r
0052740 ( c d r t
0052760 a i l ) ) ) \r
0053000 ( ( c l : e n d p t a i l )
0053020 ) \r ( c l :
0053040 i f ( c l : s y m b o l p (
0053060 c a r t a i l ) ) \r
0053100 ( c a s
0053120 e ( c a r t a i l ) \r
0053140
0053160 ( ( e v a l @ l o a d
0053200 d o e v a l @ l o a d d o n t
0053220 e v a l @ l o a d ) \r
0053240
0053260 n i l ) \r
0053300 (
0053320 ( e v a l @ l o a d w h e n ) \r
0053340
0053360 ( c l : p o p
0053400 t a i l ) ) \r
0053420 ( (
0053440 e v a l @ c o m p i l e d o e
0053460 v a l @ c o m p i l e ) \r
0053500
0053520 ( s e t q e v a l @
0053540 c o m p i l e t ) ) \r
0053560
0053600 ( ( d o n t e v a l @ c o
0053620 m p i l e ) \r
0053640 (
0053660 s e t q e v a l @ c o m p i l
0053700 e n i l ) ) \r
0053720 (
0053740 ( e v a l @ c o m p i l e w h e
0053760 n ) \r
0054000 ( s e t q
0054020 e v a l @ c o m p i l e ( e
0054040 v a l ( c a r ( s e t q t
0054060 a i l ( c d r t a i l ) ) )
0054100 ) ) ) \r
0054120 ( ( c o p
0054140 y d o c o p y ) \r
0054160
0054200 ( s e t q d o c o p y t
0054220 ) ) \r
0054240 ( ( d o n t
0054260 c o p y ) \r
0054300 ( s
0054320 e t q d o c o p y n i l ) )
0054340 \r
0054360 ( ( c o p y w h
0054400 e n ) \r
0054420 ( s e t
0054440 q d o c o p y ( e v a l (
0054460 c a r ( s e t q t a i l (
0054500 c d r t a i l ) ) ) ) ) ) \r
0054520
0054540 ( ( 006 002 f i r s t 006
0054560 001 ) \r
0054600 ( c l : f
0054620 o r m a t c o u t f i l e \r
0054640
0054660 " W a r n
0054700 i n g : ( D E C L A R E : -
0054720 - F I R S T - - - - ) n
0054740 o t i m p l e m e n t e d i
0054760 n C O M P I L E - F I L E :
0055000 ~ S ~ % " \r
0055020
0055040 ( c a d r t a i l )
0055060 ) ) \r
0055100 ( ( n o t f
0055120 i r s t c o m p i l e r v a r
0055140 s ) ) \r
0055160 ( c l : o
0055200 t h e r w i s e ( c l : f o r
0055220 m a t c o u t f i l e \r
0055240
*
0055300 " W a r n i
0055320 n g : I g n o r i n g u n r
0055340 e c o g n i z e d D E C L A R
0055360 E : t a g : ~ S ~ % " \r
0055400
*
0055440 ( c a r t
0055460 a i l ) ) ) ) \r
0055500 ( c o n d \r
0055520
0055540 ( ( e q ' d e c l a r e
0055560 \ : ( c a r ( c a r t a i
0055600 l ) ) ) \r
0055620 ( c o m p i
0055640 l e - f i l e - d e c l a r e \
0055660 : ( c a r t a i l ) \r
0055700
0055720 c o m p i l e
0055740 d . f i l e e v a l @ c o m p
0055760 i l e d o c o p y d e f e r
0056000 ) ) \r
0056020 ( t ( c l : w h
0056040 e n e v a l @ c o m p i l e
0056060 ( e v a l ( c a r t a i l )
0056100 ) ) \r
0056120 ( c l : w h
0056140 e n d o c o p y ( c o m p i
0056160 l e - f i l e - e x p r e s s i
0056200 o n ( c a r t a i l ) \r
0056220
*
0056260 c o m p
0056300 i l e d . f i l e e v a l @ c
0056320 o m p i l e d e f e r ) ) ) )
0056340 ) ) ) \r \r ( d e f i n e q \r \r (
0056360 006 004 n e w d e f c 006 001 \r ( l
0056400 a m b d a ( n m d f ) 006 003 006
0056420 001
0056440
0056460 006 003 (
0056500 * | b v m : | " 3 0 - S e p
0056520 - 8 6 2 3 : 1 2 " ) 006 001 \r
0056540 ( c o n d \r (
0056560 ( e q s v f l g ' d e f e r
0056600 ) \r ( | p u s h
0056620 | c o m p i l e . f i l e . a
0056640 f t e r ( l i s t ( f u n c
0056660 t i o n n e w d e f c ) \r
0056700
*
0056740 ( k w o t e n m
0056760 ) \r
0057000
0057020 ( k w o t
0057040 e d f ) \r
0057060
0057100 t
0057120 ) ) ) \r ( ( o r
0057140 ( n u l l d f n f l g ) \r
0057160 ( e q d f
0057200 n f l g t ) ) \r
0057220 ( c o n d \r
0057240 ( ( g e t d n m ) \r
0057260 ( v i r g i n
0057300 f n n m t ) \r
0057320 ( c o n d \r
0057340 ( ( n u l l
0057360 d f n f l g ) \r
0057400 ( c l : f o r
0057420 m a t * e r r o r - o u t p u
0057440 t * " ~ & ( ~ S r e d e f i
0057460 n e d ) ~ % " n m ) \r
0057500 ( s a v
0057520 e d e f n m ) ) ) ) ) \r
0057540 ( / p u t d n m d
0057560 f t ) ) \r ( t
0057600 006 003 006 001
0057620
0057640 006 003 ( *
0057660 | ; ; | " S a v e o n C
0057700 O D E p r o p . B e n i
0057720 c e a n d c h a n g e i t
0057740 f r o m a r c h a i c C C
0057760 O D E P o b j e c t t o m
0060000 o d e r n c o m p i l e d c
0060020 o d e o b j e c t . " ) 006 001 \r
0060040 ( / p u t p
0060060 r o p n m ' c o d e ( | i
0060100 f | ( a r r a y p d f ) \r
0060120
*
0060160 | t h e n | \r
0060200
0060220 ( | c r
0060240 e a t e | c o m p i l e d - c
0060260 l o s u r e f n h e a d e r
0060300 _ ( | f e t c h | ( a r r a
0060320 y p b a s e ) \r
0060340
*
0060440 | o f | d f
0060460 ) ) \r
0060500
0060520 | e l s e | d f )
0060540 ) ) ) \r d f ) ) \r ) \r (
0060560 d e c l a r e \ : d o n t e v
0060600 a l @ l o a d d o c o p y \r
0060620 ( m o v d ' n e w d e f c '
0060640 d e f c ) \r ) \r \r \r \r 006 004 ( *
0060660 \ ; " O p t i m i z e r d e
0060700 f i n i t i o n s a n d e n
0060720 v i r o n m e n t h a c k i n
0060740 g " ) 006 001 \r \r ( d e f - d e f i
0060760 n e - t y p e 006 002 o p t i m i
0061000 z e r s 006 001 " C O M P I L E R
0061020 O P T I M I Z E R S " ) \r \r
0061040 ( d e f m a c r o 006 002 c o m p
0061060 i l e r : o p t i m i z e r - l
0061100 i s t 006 001 ( f n ) ` ( g e t
0061120 , f n ' c o m p i l e r : o
0061140 p t i m i z e r - l i s t ) ) \r
0061160 \r ( d e f d e f i n e r ( 006 002
0061200 d e f o p t i m i z e r 006 001 (
0061220 : n a m e ( c l : l a m b d a
0061240 ( w h o l e ) \r
0061260
*
0061320 ( l e t ( ( n a m e ( c l
0061340 : s e c o n d w h o l e ) ) \r
0061360
*
0061420 ( o
0061440 p t - n a m e ( c l : t h i r
0061460 d w h o l e ) ) \r
0061500
*
0061540 ( r e s t ( c
0061560 l : n t h c d r 3 w h o l e
0061600 ) ) ) \r
0061620
*
0061660 ( c o n d \r
0061700
*
0061740 ( ( n u l l r e
0061760 s t ) 006 003 006 001 006 003 ( * \ ;
0062000 " ( d e f o p t i m i z e r n
0062020 a m e o p t f n ) " ) 006 001 \r
0062040
*
0062120 ( x c l : p a c k ( l i s t
0062140 n a m e " - O P T I M I Z E D
0062160 - B Y - " o p t - n a m e ) \r
0062200
*
0062260 ( c l : s y m b
0062300 o l - p a c k a g e o p t - n
0062320 a m e ) ) ) \r
0062340
*
0062400 ( ( c l : l i s t
0062420 p o p t - n a m e ) 006 003 006 001 \r
0062440
*
0062520 006 003 ( * \ ; " ( d e
0062540 f o p t i m i z e r f o r m -
0062560 n a m e a r g l i s t . b
0062600 o d y ) " ) 006 001 \r
0062620
*
0062660 n a m e ) \r
0062700
*
0062760 ( t 006 003 006 001 \r
0063000
*
0063040 006 003 ( * \
0063060 ; \r 006 001
0063100
*
0063140 006 003 " ( d e f o p
0063160 t i m i z e r f o r m - n a m
0063200 e o p t - n a m e a r g l i
0063220 s t . b o d y ) " ) 006 001 \r
0063240
*
0063320 o p t - n a m e ) ) ) ) ) )
0063340 \r o p t i m i z e r s (
0063360 n a m e o p t - n a m e & r
0063400 e s t a r g l i s t - b o d y
0063420 & e n v i r o n m e n t e n
0063440 v ) \r ( c o n
0063460 d \r ( (
0063500 n o t a r g l i s t - b o d y
0063520 ) 006 003 006 001
0063540
0063560 006 003 ( * \ ; " ( d e f
0063600 o p t i m i z e r n a m e o
0063620 p t f n ) " ) 006 001 \r
0063640 ` ( c l : p u s h
0063660 n e w ' , o p t - n a m e (
0063700 c o m p i l e r : o p t i m i z
0063720 e r - l i s t ' , n a m e ) )
0063740 ) \r ( t
0063760 ( l e t * ( ( a r g - l i s
0064000 t o p t - n a m e ) \r
0064020
0064040 ( o p t - f n - n a m e (
0064060 006 002 | i f | 006 001 ( c l : l i s
0064100 t p o p t - n a m e ) \r
0064120
*
0064160 006 002 | t h e n | 006 001 006
0064200 003 006 001 006 003 ( * \ ;
0064220 " ( d e f o p t i m i z e r
0064240 f o r m - n a m e a r g l i s
0064260 t . b o d y ) " ) 006 001 \r
0064300
*
0064340 ( x c l :
0064360 p a c k ( l i s t " o p t i
0064400 m i z e - " n a m e ) \r
0064420
*
0064500 ( c l : s y m b o l - p a c k
0064520 a g e n a m e ) ) \r
0064540
*
0064600 006 002 | e l s e | 006 001 006 003 006 001
0064620 006 003 ( * \ ; \r 006 001
0064640
*
0064720 006 003 " ( d e f o p t i m i z
0064740 e r f o r m - n a m e o p t
0064760 - n a m e a r g l i s t .
0065000 b o d y ) " ) 006 001 \r
0065020
*
0065060 ( s e t q a r g - l
0065100 i s t ( 006 002 p o p 006 001 a r g
0065120 l i s t - b o d y ) ) \r
0065140
*
0065200 o p t - n a m e )
0065220 ) ) \r
0065240 ( c l : m u l t
0065260 i p l e - v a l u e - b i n d
0065300 ( b o d y d e c l s d o c )
0065320 \r
0065340 ( p a
0065360 r s e - d e f m a c r o a r g
0065400 - l i s t ' $ $ w h o l e a
0065420 r g l i s t - b o d y n a m e
0065440 e n v : e n v i r o n m e n
0065460 t \r
0065500
0065520 ' $ $ e n v : c o n
0065540 t e x t ' $ $ c t x ) \r
0065560
0065600 ` ( p r o g n
0065620 ( c l : d e f u n ( 006 002 \ \
0065640 \ , 006 001 o p t - f n - n a m e
0065660 ) ( $ $ w h o l e $ $ e n v
0065700 $ $ c t x ) , @ d e c l s \r
0065720
*
0066040 , b o d y ) \r \r
0066060
*
0066120 ( c l : p u s h n e w '
0066140 , o p t - f n - n a m e ( c o
0066160 m p i l e r : o p t i m i z e r
0066200 - l i s t \r
0066220
*
0066300 ' , n a m e ) ) ) ) )
0066320 ) ) ) \r \r ( c l : d e f s t r u
0066340 c t ( 006 002 c o m p i l e r : e
0066360 n v 006 001 ( : c o n s t r u c t
0066400 o r c o m p i l e r : : m a k
0066420 e - e n v ) \r
0066440
0066460 ( : c o p i e r c o m p
0066500 i l e r : : c o p y - e n v ) \r
0066520
0066540 ( : p r
0066560 e d i c a t e c o m p i l e r
0066600 : : e n v - p ) ) ( v e n v
0066620 n i l ) ( f e n v n i l ) )
0066640 \r \r ( c l : d e f s t r u c t
0066660 ( 006 002 c o m p i l e r : c o n t
0066700 e x t 006 001 ( : c o n s t r u c
0066720 t o r c o m p i l e r : m a k
0066740 e - c o n t e x t ) \r
0066760
0067000 ( : c o p
0067020 i e r c o m p i l e r : : c o
0067040 p y - c o n t e x t ) \r
0067060
0067100 ( : p r
0067120 e d i c a t e c o m p i l e r
0067140 : : c o n t e x t - p ) ) ( t
0067160 o p - l e v e l - p n i l )
0067200 ( v a l u e s - u s e d \r
0067220
*
0067340 : u n k n o w n ) \r
0067360
*
0067500 ( p r e d i c a t e - p \r
0067520
*
0067640 n i l ) ) \r \r ( d e f i n e
0067660 q \r \r ( 006 004 c o m p i l e r : c
0067700 o p y - e n v - w i t h - f u n
0067720 c t i o n 006 001 \r ( c l : l a
0067740 m b d a ( e n v f n & o p
0067760 t i o n a l ( k i n d : f u
0070000 n c t i o n ) \r
0070020 e x p - f n
0070040 ) 006 003 006 001
0070060
0070100 006 003 ( * " P
0070120 a v e l " " 2 6 - A p r - 8 6
0070140 1 5 : 1 3 " ) 006 001 006 003 006 001 \r
0070160
*
0070240 006 003 ( *
0070260 " P a v e l " " 2 5 - A p r
0070300 - 8 6 1 8 : 5 3 " ) 006 001 \r
0070320 ( l e t ( ( n e
0070340 w - e n v ( c l : i f e n v
0070360 ( c o m p i l e r : : c o p y
0070400 - e n v e n v ) \r
0070420
0070440 ( 006 002 c o m p
0070460 i l e r : m a k e - e m p t y -
0070500 e n v 006 001 ) ) ) ) \r
0070520 ( c l : p u s h
0070540 ( l i s t f n k i n d e
0070560 x p - f n ) \r
0070600 ( c o m
0070620 p i l e r : : e n v - f e n v
0070640 n e w - e n v ) ) \r
0070660 n e w - e n v )
0070700 ) ) \r \r ( 006 004 c o m p i l e r :
0070720 c o p y - e n v - w i t h - v a
0070740 r i a b l e 006 001 \r ( c l : l
0070760 a m b d a ( e n v v a r &
0071000 o p t i o n a l ( k i n d :
0071020 l e x i c a l ) ) 006 003 006 001
0071040 006 003 ( * "
0071060 P a v e l " " 2 6 - A p r - 8
0071100 6 1 5 : 1 2 " ) 006 001 006 003 006 001 \r
0071120
*
0071200 006 003 (
0071220 * " P a v e l " " 2 5 - A p
0071240 r - 8 6 1 8 : 5 4 " ) 006 001 \r
0071260 ( l e t ( ( n
0071300 e w - e n v ( c l : i f e n
0071320 v ( c o m p i l e r : : c o p
0071340 y - e n v e n v ) \r
0071360
0071400 ( 006 002 c o m
0071420 p i l e r : m a k e - e m p t y
0071440 - e n v 006 001 ) ) ) ) \r
0071460 ( c l : p u s
0071500 h ( c o n s v a r k i n d
0071520 ) \r
0071540 ( c o m p i l e r
0071560 : : e n v - v e n v n e w - e
0071600 n v ) ) \r
0071620 n e w - e n v ) ) ) \r \r (
0071640 006 004 c o m p i l e r : e n v - b
0071660 o u n d p 006 001 \r ( c l : l a
0071700 m b d a ( c o m p i l e r : :
0071720 e n v c o m p i l e r : : n a
0071740 m e ) \r ( c l
0071760 : b l o c k c o m p i l e r :
0072000 e n v - b o u n d p \r
0072020 ( l e t
0072040 ( ( c o m p i l e r : : l o o k
0072060 u p ( c l : a s s o c c o m
0072100 p i l e r : : n a m e ( c o m
0072120 p i l e r : : e n v - v e n v
0072140 c o m p i l e r : : e n v ) ) )
0072160 \r
0072200 ) \r
0072220 ( c
0072240 o n d \r
0072260 ( c o m
0072300 p i l e r : : l o o k u p ( c
0072320 l : v a l u e s - l i s t ( c
0072340 d r c o m p i l e r : : l o o
0072360 k u p ) ) ) \r
0072400 (
0072420 ( c o m p i l e r : : e n v - p
0072440 r o c l a i m e d - s p e c i a
0072460 l - p c o m p i l e r : : e n
0072500 v c o m p i l e r : : n a m e
0072520 ) \r
0072540 ( c o m p
0072560 i l e r : : e n v - b i n d - v
0072600 a r i a b l e c o m p i l e r
0072620 : : e n v c o m p i l e r : :
0072640 n a m e : s p e c i a l \r
0072660
0072700 ( c
0072720 o m p i l e r : : m a k e - v a
0072740 r i a b l e : s c o p e : s
0072760 p e c i a l : k i n d : v a
0073000 r i a b l e : n a m e \r
0073020
*
0073060 c o m p i l e r : : n
0073100 a m e ) ) ) \r
0073120 (
0073140 t ( l e t ( ( c o m p i l e
0073160 r : : p a r e n t ( c o m p i
0073200 l e r : : e n v - p a r e n t
0073220 c o m p i l e r : : e n v ) ) )
0073240 \r
0073260
0073300 ( c o n d \r
0073320
0073340 ( ( e q c
0073360 o m p i l e r : : p a r e n t
0073400 t ) \r
0073420
0073440 ( c o n d \r
0073460
*
0073520 ( ( v a r i a b l e - g
0073540 l o b a l l y - s p e c i a l -
0073560 p c o m p i l e r : : n a m e
0073600 ) \r
0073620
0073640 ( c o m p i
0073660 l e r : : e n v - b i n d - v a
0073700 r i a b l e c o m p i l e r :
0073720 : e n v c o m p i l e r : : n
0073740 a m e \r
0073760
*
0074020 : s p e c i a l ( c o
0074040 m p i l e r : : m a k e - v a r
0074060 i a b l e : s c o p e : s p
0074100 e c i a l \r
0074120
*
0074200 : k i n d : v a r
0074220 i a b l e : n a m e c o m p
0074240 i l e r : : n a m e ) ) \r
0074260
*
0074320 ) \r
0074340
0074360 ( (
0074400 c l : c o n s t a n t p c o m
0074420 p i l e r : : n a m e ) \r
0074440
*
0074500 ( c o m p i l e r : :
0074520 e n v - b i n d - v a r i a b l
0074540 e c o m p i l e r : : e n v
0074560 c o m p i l e r : : n a m e \r
0074600
*
0074640 :
0074660 c o n s t a n t ( c l : i f
0074700 ( f a s l \ : v a l u e - d u m
0074720 p a b l e - p ( \r
0074740
*
0075060 c l : s y m b o l - v a l u e \r
0075100
*
0075220 \r
0075240
*
0075360 c o m p i l e r : : n a m e \r
0075400
*
0075520 ) ) \r
0075540
*
0075620 ( c o m
0075640 p i l e r : : m a k e - l i t e
0075660 r a l : v a l u e \r
0075700
*
0076000 ( c l : s y m b o l - v a l
0076020 u e \r
0076040
*
0076140 c o m p i l e r : : n a m e
0076160 ) ) \r
0076200
*
0076260 ( c o m p i l e r : : m a
0076300 k e - v a r i a b l e : s c o
0076320 p e \r
0076340
*
0076420 : g l o b
0076440 a l : k i n d : v a r i a b
0076460 l e : n a m e \r
0076500
*
0076600 c o m p i l e r : : n a m e )
0076620 ) ) ) \r
0076640
0076660 ( ( g e t
0076700 c o m p i l e r : : n a m e
0076720 ' g l o b a l v a r ) \r
0076740
*
0077000 ( c o m p i l e r : : e
0077020 n v - b i n d - v a r i a b l e
0077040 c o m p i l e r : : e n v c
0077060 o m p i l e r : : n a m e \r
0077100
*
0077140 : g
0077160 l o b a l ( c o m p i l e r :
0077200 : m a k e - v a r i a b l e :
0077220 s c o p e : g l o b a l : k
0077240 i n d \r
0077260
*
0077340 : v a r i a b l e : n a
0077360 m e c o m p i l e r : : n a m
0077400 e ) ) ) \r
0077420
0077440 ( t n
0077460 i l ) ) ) \r
0077500
0077520 ( c o m p i l
0077540 e r : : p a r e n t ( 006 002 c o
0077560 m p i l e r : e n v - b o u n d
0077600 p 006 001 c o m p i l e r : : p a
0077620 r e n t \r
0077640
*
0077720 c o m p i l e r : : n a m e
0077740 ) ) \r
0077760
0100000 ( t n i l ) ) ) )
0100020 ) ) ) ) ) \r \r ( 006 004 c o m p i l
0100040 e r : e n v - f b o u n d p 006 001
0100060 \r ( c l : l a m b d a ( c
0100100 o m p i l e r : : e n v c o m
0100120 p i l e r : : n a m e ) \r
0100140 ( c l : b l o c k
0100160 c o m p i l e r : e n v - f b o
0100200 u n d p ( l e t ( ( c o m p
0100220 i l e r : : l o o k u p ( c l
0100240 : a s s o c c o m p i l e r :
0100260 : n a m e ( \r
0100300
*
0100400 c o m p i
0100420 l e r : : e n v - f e n v \r
0100440
*
0100560 \r
0100600
*
0100720 c o m p i l e r : : e n v \r
0100740
*
0101060 ) ) ) ) \r
0101100
*
0101140 ( c l : i
0101160 f c o m p i l e r : : l o o k
0101200 u p ( c l : v a l u e s - l i
0101220 s t ( c d r \r
0101240
*
0101340 c o
0101360 m p i l e r : : l o o k u p \r
0101400
*
0101520 ) ) \r
0101540
*
0101620 ( l e t ( ( c o m p i l e r :
0101640 : p a r e n t ( c o m p i l e
0101660 r : : e n v - p a r e n t \r
0101700
*
0102000 c o m p i
0102020 l e r : : e n v ) ) ) \r
0102040
*
0102120 ( c l : i f ( a n d
0102140 c o m p i l e r : : p a r e n
0102160 t \r
0102200
*
0102260 ( n e q c o m p
0102300 i l e r : : p a r e n t t ) )
0102320 \r
0102340
*
0102420 ( 006 002 c o m p i l e r : e n v
0102440 - f b o u n d p 006 001 \r
0102460
*
0102560 c o m p i l e r : : p a r
0102600 e n t \r
0102620
*
0102700 c o m p
0102720 i l e r : : n a m e ) \r
0102740
*
0103020 n i l )
0103040 ) ) ) ) ) ) \r \r ( 006 004 c o m p i
0103060 l e r : m a k e - e m p t y - e
0103100 n v 006 001 \r ( c l : l a m b d
0103120 a n i l ( c o m p i l e r :
0103140 : m a k e - e n v ) ) ) \r ) \r \r
0103160 ( p u t p r o p s 006 002 c m l c
0103200 o m p i l e f i l e t y p e 006
0103220 001 c l : c o m p i l e - f i l
0103240 e ) \r ( d e c l a r e \ : d o
0103260 n t e v a l @ l o a d d o e v
0103300 a l @ c o m p i l e d o n t c
0103320 o p y c o m p i l e r v a r s
0103340 \r \r ( a d d t o v a r 006 002 n
0103360 l a m a 006 001 ) \r \r ( a d d t o
0103400 v a r 006 002 n l a m l 006 001 ) \r
0103420 \r ( a d d t o v a r 006 002 l a m
0103440 a 006 001 c o m p i l e r : m a k
0103460 e - e m p t y - e n v c o m p
0103500 i l e r : e n v - f b o u n d p
0103520 c o m p i l e r : e n v - b o
0103540 u n d p \r
0103560 c o m p i
0103600 l e r : c o p y - e n v - w i t
0103620 h - v a r i a b l e c o m p i
0103640 l e r : c o p y - e n v - w i t
0103660 h - f u n c t i o n c l : c o
0103700 m p i l e - f i l e ) \r ) \r ( p
0103720 u t p r o p s c m l c o m p i
0103740 l e c o p y r i g h t ( " X
0103760 e r o x C o r p o r a t i o n
0104000 " 1 9 8 5 1 9 8 6 ) ) \r ( d
0104020 e c l a r e \ : d o n t c o p
0104040 y \r ( f i l e m a p ( n i
0104060 l ( 3 2 3 1 2 1 3 9 3 ( c
0104100 l : c o m p i l e - f i l e 3
0104120 2 4 1 . 8 3 5 3 ) ( i n t
0104140 e r l i s p - f o r m a t - p
0104160 8 3 5 5 . 8 5 8 0 ) ( \r i
0104200 n t e r l i s p - n l a m b d a
0104220 - f u n c t i o n - p 8 5 8 2
0104240 . 8 8 2 5 ) ( c o m p i l
0104260 e - f i l e - e x p r e s s i o
0104300 n 8 8 2 7 . 1 3 5 7 8 )
0104320 ( \r c o m p i l e - f i l e - w
0104340 a l k - f u n c t i o n 1 3 5
0104360 8 0 . 1 3 8 2 7 ) ( a r g
0104400 t y p e . s t a t e 1 3 8 2 9
0104420 . 1 3 9 7 9 ) ( c o m p i
0104440 l e . c h e c k . a r g t y p e
0104460 1 3 9 8 1 \r . 1 5 8 4 1 )
0104500 ( c o m p i l e . f i l e . d
0104520 e f i n e q 1 5 8 4 3 . 1
0104540 6 3 2 7 ) ( c o m p i l e - f
0104560 i l e - s e t f - s y m b o l -
0104600 f u n c t i o n 1 6 3 2 9 .
0104620 1 6 9 3 3 ) ( \r c o m p i l
0104640 e - f i l e - e x / i m p o r t
0104660 1 6 9 3 5 . 1 7 2 8 0 )
0104700 ( c o m p i l e . f i l e . a p
0104720 p l y 1 7 2 8 2 . 1 7 5 3
0104740 6 ) ( c o m p i l e . f i l e
0104760 . r e s e t 1 7 5 3 8 . \r
0105000 1 8 5 0 1 ) ( c o m p i l e -
0105020 i n - c o r e 1 8 5 0 3 .
0105040 2 1 3 9 1 ) ) ( 2 3 7 8 1 2
0105060 4 9 4 2 ( n e w d e f c 2 3
0105100 7 9 1 . 2 4 9 4 0 ) ) ( 2
0105120 8 5 8 5 3 4 4 1 4 ( \r c o m
0105140 p i l e r : c o p y - e n v - w
0105160 i t h - f u n c t i o n 2 8 5
0105200 9 5 . 2 9 1 2 2 ) ( c o m
0105220 p i l e r : c o p y - e n v - w
0105240 i t h - v a r i a b l e 2 9 1
0105260 2 4 . 2 9 5 9 7 ) ( \r c o
0105300 m p i l e r : e n v - b o u n d
0105320 p 2 9 5 9 9 . 3 2 7 8 9 )
0105340 ( c o m p i l e r : e n v - f
0105360 b o u n d p 3 2 7 9 1 . 3
0105400 4 3 4 2 ) ( c o m p i l e r :
0105420 m a k e - e m p t y - e n v 3
0105440 4 3 4 4 \r . 3 4 4 1 2 ) ) )
0105460 ) ) \r s t o p \r
0105470