$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLCOMPILE!14
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 " 1 8 - O c t -
0000120 8 6 2 2 : 2 2 : 4 9 " 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 4 006 001 3 5 5 7 8
0000220 \r \r | p r e v i o u
0000240 s | | d a t e : | " 1 2 - O
0000260 c t - 8 6 1 6 : 0 3 : 5 5 "
0000300 { e r i s } < l i s p c o r e >
0000320 s o u r c e s > c m l c o m p i
0000340 l e . \ ; 1 3 ) \r \r \r ; C o p
0000360 y r i g h t ( c ) 1 9 8 5 ,
0000400 1 9 8 6 b y X e r o x C
0000420 o r p o r a t i o n . A l l
0000440 r i g h t s r e s e r v e d
0000460 . \r \r ( p r e t t y c o m p r i
0000500 n t c m l c o m p i l e c o m
0000520 s ) \r \r ( r p a q q 006 002 c m l
0000540 c o m p i l e c o m s 006 001 \r
0000560 ( ( c o m s ( f u
0000600 n c t i o n s c l : c o m p i
0000620 l e c l : d i s a s s e m b l
0000640 e ) \r
0000660 ( f n s c l : c o m p i l e
0000700 - f i l e i n t e r l i s p -
0000720 f o r m a t - p i n t e r l i
0000740 s p - n l a m b d a - f u n c t
0000760 i o n - p \r
0001000 c o m p i l
0001020 e - f i l e - e x p r e s s i o
0001040 n c o m p i l e - f i l e - w
0001060 a l k - f u n c t i o n a r g
0001100 t y p e . s t a t e \r
0001120 c
0001140 o m p i l e . c h e c k . a r g
0001160 t y p e c o m p i l e . f i l
0001200 e . d e f i n e q c o m p i l
0001220 e - f i l e - s e t f - s y m b
0001240 o l - f u n c t i o n \r
0001260
0001300 c o m p i l e - f i l e - e x /
0001320 i m p o r t c o m p i l e . f
0001340 i l e . a p p l y c o m p i l
0001360 e . f i l e . r e s e t c o m
0001400 p i l e - i n - c o r e ) \r
0001420 ( v a r
0001440 s a r g t y p e . v a r s ) \r
0001460 ( p
0001500 r o p c o m p i l e - f i l e
0001520 - e x p r e s s i o n d e f i
0001540 n e q * s e t f - s y m b o
0001560 l - f u n c t i o n p r e t t
0001600 y c o m p r i n t ) \r
0001620 ( f u n c t i
0001640 o n s c o m p i l e - f i l e
0001660 - d e c l a r e \ : ) ) \r
0001700 ( c o m s ( f n s
0001720 n e w d e f c ) \r
0001740 ( d e c l a r e \
0001760 : d o n t e v a l @ l o a d
0002000 d o c o p y ( p ( m o v d
0002020 ' n e w d e f c ' d e f c ) )
0002040 ) ) \r ( c o m s
0002060 ( * \ ; " O p t i m i z e
0002100 r d e f i n i t i o n s a n
0002120 d e n v i r o n m e n t h a
0002140 c k i n g " ) \r
0002160 ( d e f i n e - t y
0002200 p e s o p t i m i z e r s ) \r
0002220 ( f
0002240 u n c t i o n s c o m p i l e
0002260 r : o p t i m i z e r - l i s t
0002300 ) \r
0002320 ( f u n c t i o n s d e f o p
0002340 t i m i z e r ) \r
0002360 ( s t r u c t u r
0002400 e s c o m p i l e r : : e n v
0002420 c o m p i l e r : c o n t e x
0002440 t ) \r
0002460 ( f n s c o m p i l e r : c
0002500 o p y - e n v - w i t h - f u n
0002520 c t i o n c o m p i l e r : c
0002540 o p y - e n v - w i t h - v a r
0002560 i a b l e \r
0002600 c o m p i l
0002620 e r : e n v - b o u n d p c o
0002640 m p i l e r : e n v - f b o u n
0002660 d p c o m p i l e r : m a k e
0002700 - e m p t y - e n v ) ) \r
0002720 ( p r o p f i l e t
0002740 y p e c m l c o m p i l e ) \r
0002760 ( d e c l a r e
0003000 \ : d o n t e v a l @ l o a d
0003020 d o e v a l @ c o m p i l e
0003040 d o n t c o p y c o m p i l e
0003060 r v a r s \r
0003100 ( a d d v a r s ( n
0003120 l a m a ) \r
0003140 ( n l a
0003160 m l ) \r
0003200 ( l a m a
0003220 c o m p i l e r : m a k e - e m
0003240 p t y - e n v c o m p i l e r
0003260 : e n v - f b o u n d p c o m
0003300 p i l e r : e n v - b o u n d p
0003320 \r
0003340 c o
0003360 m p i l e r : c o p y - e n v -
0003400 w i t h - v a r i a b l e c o
0003420 m p i l e r : c o p y - e n v -
0003440 w i t h - f u n c t i o n \r
0003460
0003500 c l : c o
0003520 m p i l e - f i l e ) ) ) ) ) \r
0003540 ( c l : d e f u n 006 002 c l : c
0003560 o m p i l e 006 001 ( n a m e &
0003600 o p t i o n a l l a m b d a -
0003620 e x p r ) ( l e t ( ( n e w
0003640 - n a m e ( o r n a m e '
0003660 \ \ c l c o m p i l e t e m p )
0003700 ) ) \r
0003720
*
0003760 ( c o m p i
0004000 l e - i n - c o r e n e w - n
0004020 a m e ( o r l a m b d a - e
0004040 x p r \r
0004060
*
0004160 ( g e t d n
0004200 a m e ) ) ) \r
0004220
*
0004260 ( a
0004300 n d l a m b d a - e x p r n
0004320 a m e ( / p u t p r o p n a
0004340 m e \r
0004360
*
0004460 ' e x p r l a m
0004500 b d a - e x p r \r
0004520
*
0004620 ) ) \r
0004640
*
0004720 ( o r n a m e
0004740 ( g e t d n e w - n a m e ) )
0004760 ) ) \r \r ( c l : d e f u n 006 002
0005000 c l : d i s a s s e m b l e 006 001
0005020 ( n a m e - o r - c o m p i l
0005040 e d - f u n c t i o n & k e y
0005060 l e v e l - p ( r a d i x
0005100 8 ) \r
0005120
0005140 ( o u t p u t * s t a n
0005160 d a r d - o u t p u t * ) \r
0005200
0005220 f i
0005240 r s t - b y t e m a r k e d -
0005260 p c ) \r ( p r i n t c o d
0005300 e ( | i f | ( c c o d e p
0005320 n a m e - o r - c o m p i l e d
0005340 - f u n c t i o n ) \r
0005360 |
0005400 t h e n | n a m e - o r - c o
0005420 m p i l e d - f u n c t i o n
0005440 | e l s e | ( c l : c o m p i
0005460 l e n i l ( | i f | ( c l
0005500 : s y m b o l p \r
0005520
*
0005620 n a m e - o r - c o
0005640 m p i l e d - f u n c t i o n \r
0005660
*
0006000 ) \r
0006020
*
0006120 | t h
0006140 e n | \r
0006160
*
0006260 ( c l : s y m b o l
0006300 - f u n c t i o n \r
0006320
*
0006420 \r
0006440
*
0006540 n a m e - o
0006560 r - c o m p i l e d - f u n c t
0006600 i o n \r
0006620
*
0006720 ) \r
0006740
*
0007040 | e l s e
0007060 | \r
0007100
*
0007160 n
0007200 a m e - o r - c o m p i l e d -
0007220 f u n c t i o n \r
0007240
*
0007340 ) ) ) \r
0007360 l e v e l - p
0007400 r a d i x o u t p u t f i
0007420 r s t - b y t e m a r k e d -
0007440 p c ) ) \r \r ( d e f i n e q \r \r
0007460 ( 006 004 c l : c o m p i l e - f i
0007500 l e 006 001 \r ( c l : l a m b d
0007520 a ( f i l e n a m e & k e y
0007540 l a p r e d e f i n e o u
0007560 t p u t - f i l e ( s a v e -
0007600 e x p r s t ) \r
0007620 ( c o
0007640 m p i l e r - o u t p u t t )
0007660 \r
0007700 ( p r o c e s s - e n
0007720 t i r e - f i l e n i l p e
0007740 f p ) ) 006 003 006 001
0007760 006 003 ( * | P a v e l | "
0010000 6 - O c t - 8 6 2 2 : 3 6 "
0010020 ) 006 001 \r ( l e
0010040 t ( c o m p i l e . f i l e .
0010060 a f t e r v a l u e c o m p
0010100 i l e . f i l e . v a l u e ) \r
0010120 ( d
0010140 e c l a r e ( c l : s p e c i
0010160 a l c o m p i l e . f i l e .
0010200 a f t e r c o m p i l e . f i
0010220 l e . v a l u e ) ) \r
0010240 ( r e s e t l
0010260 s t ( r e s e t s a v e n i
0010300 l ( l i s t ' r e s e t u n
0010320 d o ) \r
0010340
0010360 ( r e s e t u n d o ) ) \r
0010400
0010420 ( r e s e t s a v e
0010440 n l a m l n l a m l ) \r
0010460
0010500 ( r e s e t s a v e n l a
0010520 m a n l a m a ) \r
0010540 (
0010560 r e s e t s a v e l a m s l
0010600 a m s ) \r
0010620 ( r e s e t
0010640 s a v e l a m a l a m a ) \r
0010660
0010700 ( r e s e t s a v e
0010720 d f n f l g n i l ) \r
0010740
0010760 ( r e s e t s a v e c o u t
0011000 f i l e c o m p i l e r - o u
0011020 t p u t ) \r
0011040 ( r e s e
0011060 t s a v e s t r f r e d e f
0011100 i n e ) \r
0011120 ( r e s e t
0011140 s a v e s v f l g ( a n d
0011160 s a v e - e x p r s r e d e f
0011200 i n e ' d e f e r ) ) \r
0011220
0011240 ( r e s e t s a v e l a p
0011260 f l g l a p ) \r
0011300 ( l
0011320 e t ( ( * p a c k a g e * *
0011340 i n t e r l i s p - p a c k a g
0011360 e * ) \r
0011400 (
0011420 * r e a d - b a s e * 1 0 ) \r
0011440
0011460 ( l o c a
0011500 l v a r s s y s l o c a l v a
0011520 r s ) \r
0011540 (
0011560 s p e c v a r s t ) \r
0011600
0011620 s t r e a m l s
0011640 t f i l r o o t n a m e i n
0011660 t e r l i s p - f o r m a t e
0011700 n v f o r m ) \r
0011720
0011740 ( d e c l a r e ( c l :
0011760 s p e c i a l * p a c k a g e
0012000 * * r e a d - b a s e * l o
0012020 c a l v a r s s p e c v a r s
0012040 l s t f i l ) ) \r
0012060
0012100 ( r e s e t s a v e n
0012120 i l ( l i s t ( f u n c t i
0012140 o n c l o s e f ? ) \r
0012160
*
0012220 ( s e t q
0012240 s t r e a m ( o p e n s t r
0012260 e a m f i l e n a m e ' i n
0012300 p u t ) ) ) ) \r
0012320
0012340 ( c l : m u l t i p l e - v
0012360 a l u e - s e t q ( e n v f
0012400 o r m ) \r
0012420
0012440 ( \ \ p a r s e - f
0012460 i l e - h e a d e r s t r e a
0012500 m ' r e t u r n t ) ) \r
0012520
0012540 ( s e t q i n
0012560 t e r l i s p - f o r m a t (
0012600 a n d e n v ( n e q e n v
0012620 * c o m m o n - l i s p - r e
0012640 a d - e n v i r o n m e n t * )
0012660 ) ) \r
0012700 ( | i
0012720 f | ( n o t p e f p ) \r
0012740
0012760 | t
0013000 h e n | \r
0013020
0013040 ( s e t q p r o c e
0013060 s s - e n t i r e - f i l e i
0013100 n t e r l i s p - f o r m a t )
0013120 ) \r
0013140 ( | i f
0013160 | l a p | t h e n | ( s e
0013200 t q l s t f i l c o u t f i
0013220 l e ) ) \r
0013240 (
0013260 s e t q f i l e n a m e ( f
0013300 u l l n a m e s t r e a m ) )
0013320 \r
0013340 ( r e s e
0013360 t s a v e n i l ( l i s t
0013400 ( f u n c t i o n c o m p i l
0013420 e . f i l e . r e s e t ) \r
0013440
*
0013500 ( s e
0013520 t q o u t p u t - f i l e (
0013540 o p e n s t r e a m \r
0013560
*
0013640 ( o r
0013660 o u t p u t - f i l e ( \r
0013700
*
0014020 p a c k f i l e n a m e . s t
0014040 r i n g \r
0014060
*
0014160 ' v e r s i o n
0014200 n i l \r
0014220
*
0014320 ' e x t e n s i
0014340 o n \r
0014360
*
0014460 c o m p i l e . e
0014500 x t \r
0014520
*
0014620 ' b o d y f i l e
0014640 n a m e ) ) \r
0014660
*
0014740 ' o u t p u t
0014760 \r
0015000
*
0015060 ' n e w \r
0015100
*
0015160 ' ( ( t y p
0015200 e b i n a r y ) ) ) ) \r
0015220
*
0015260 s t r e
0015300 a m \r
0015320
*
0015360 ( r o o t f i l e n a m e
0015400 f i l e n a m e ) ) ) \r
0015420
0015440 ( | i f | o u t p
0015460 u t - f i l e | t h e n | (
0015500 r e s e t s a v e l c f i l
0015520 o u t p u t - f i l e ) \r
0015540
0015560 ( p r
0015600 i n t - c o m p i l e - h e a d
0015620 e r ( l i s t s t r e a m )
0015640 \r
0015660
0015700 ' ( " C O M P I
0015720 L E - F I L E d " ) e n v ) )
0015740 \r
0015760 ( w i t h
0016000 - r e a d e r - e n v i r o n m
0016020 e n t \r
0016040 e
0016060 n v \r
0016100 ( p
0016120 r o g ( d e f e r r e d . e x
0016140 p r e s s i o n s ) \r
0016160
0016200 ( d e c
0016220 l a r e ( c l : s p e c i a l
0016240 d e f e r r e d . e x p r e s
0016260 s i o n s ) ) \r
0016300
0016320 l p ( 006 002 c o m p
0016340 i l e - f i l e - e x p r e s s
0016360 i o n 006 001 f o r m o u t p u
0016400 t - f i l e n i l p r o c e
0016420 s s - e n t i r e - f i l e ) \r
0016440
*
0016500 ( s k i p s e p r c o d e s
0016520 s t r e a m ) \r
0016540
0016560 ( | i f | (
0016600 e o f p s t r e a m ) \r
0016620
*
0016660 | t h e n | \r
0016700
*
0016740 ( a n d p r o c e s s - e
0016760 n t i r e - f i l e ( | f o r
0017000 | e x p | i n | ( r e v e
0017020 r s e \r
0017040
*
0017140 d e f e r r e d . e
0017160 x p r e s s i o n s \r
0017200
*
0017320 ) \r
0017340
*
0017420 | d o | \r
0017440
*
0017540 ( a p p l y * (
0017560 c a r e x p ) \r
0017600
*
0017700 ( c d r e x p )
0017720 \r
0017740
*
0020020 o
0020040 u t p u t - f i l e ) ) ) \r
0020060
*
0020120 ( c l o s e f s t r
0020140 e a m ) \r
0020160
0020200 ( r e t
0020220 u r n ) ) \r
0020240
0020260 ( s e t q f o r
0020300 m ( l e t ( ( e x p r e s s
0020320 i o n ( r e a d s t r e a m
0020340 ) ) ) \r
0020360
*
0020420 ( | i f | i n t e r
0020440 l i s p - f o r m a t | t h e
0020460 n | e x p r e s s i o n | e
0020500 l s e | \r
0020520
*
0020560 ( c m l
0020600 t r a n s l a t e e x p r e s
0020620 s i o n ) ) ) ) \r
0020640
0020660 ( g o l p
0020700 ) ) \r
0020720 ( p
0020740 r i n t n i l o u t p u t -
0020760 f i l e ) ) \r
0021000
0021020 ( s e t q c o m p i l e . f
0021040 i l e . v a l u e ( c l o s e
0021060 f o u t p u t - f i l e ) ) )
0021100 ) 006 003 006 001 \r
0021120
*
0021200 006 003 ( * \ ; " D o t h e s
0021220 e a f t e r U N D O N L S E
0021240 T Q e n t e r e d " ) 006 001 \r
0021260 ( m a
0021300 p c ( r e v e r s e c o m p
0021320 i l e . f i l e . a f t e r ) \r
0021340
0021360 ( f u n c t i o n e v
0021400 a l ) ) \r
0021420 c o m p i l e . f i l e .
0021440 v a l u e ) ) ) \r \r ( 006 004 i n t
0021460 e r l i s p - f o r m a t - p 006
0021500 001 \r ( l a m b d a ( s t r
0021520 e a m ) 006 003 006 001
0021540
*
0021600 006 003 ( * | b v m : | "
0021620 3 - A u g - 8 6 1 4 : 0 1 "
0021640 ) 006 001 \r ( s e l c h a r
0021660 q ( p e e k c c o d e s t r
0021700 e a m ) \r ( \
0021720 ; n i l ) \r
0021740 ( ( ^ f " ( " ) \r
0021760 t ) \r
0022000 n i l ) ) ) \r \r ( 006 004
0022020 i n t e r l i s p - n l a m b d
0022040 a - f u n c t i o n - p 006 001 \r
0022060 ( l a m b d a ( x ) 006 003 006 001
0022100
*
0022160 006 003 ( * | l m m | " 7 - M
0022200 a y - 8 6 2 0 : 1 2 " ) 006 001 \r
0022220 ( a n d ( l i t a t o
0022240 m x ) \r ( f
0022260 m e m b ( a r g t y p e x )
0022300 \r
0022320 ' ( 1 3 ) ) \r
0022340 ( n o t ( c l : s p e c i
0022360 a l - f o r m - p x ) ) ) ) )
0022400 \r \r ( 006 004 c o m p i l e - f i l
0022420 e - e x p r e s s i o n 006 001 \r
0022440 ( l a m b d a ( f o r m c
0022460 o m p i l e d . f i l e c o m
0022500 p i l e . t i m e . t o o d e
0022520 f e r ) 006 003 006 001
0022540 006 003 ( * | P a v e l | " 2 2
0022560 - S e p - 8 6 1 4 : 3 6 " ) 006
0022600 001 \r ( d e c l a r e (
0022620 c l : s p e c i a l c o m p i
0022640 l e d . f i l e ) ) \r (
0022660 a n d ( l i s t p f o r m )
0022700 \r ( s e l e c
0022720 t q ( c a r f o r m ) \r
0022740 ( ( d e c
0022760 l a r e \ : ) \r
0023000 ( c o m p
0023020 i l e - f i l e - d e c l a r e
0023040 \ : f o r m c o m p i l e d
0023060 . f i l e c o m p i l e . t i
0023100 m e . t o o t d e f e r ) )
0023120 \r ( (
0023140 p r o g n ) \r
0023160 ( | f o r |
0023200 x | i n | ( c d r f o r
0023220 m ) \r
0023240 | d o |
0023260 \r
0023300 ( 006 002 c o m
0023320 p i l e - f i l e - e x p r e s
0023340 s i o n 006 001 x c o m p i l e
0023360 d . f i l e c o m p i l e . t
0023400 i m e . t o o d e f e r ) ) )
0023420 \r ( (
0023440 q u o t e ) 006 003 006 001
0023460
0023500 006 003 ( * \
0023520 ; " i g n o r e t o p l
0023540 e v e l q u o t e d e x p r
0023560 e s s i o n - i " ) 006 001 \r
0023600
0023620 n i l ) \r
0023640 ( ( c l : c o m p i l e r -
0023660 l e t ) 006 003 006 001
0023700 006 003 ( *
0023720 \ ; " t o p l e v e l c
0023740 o m p i l e r - l e t . b i n
0023760 d v a r i a b l e s a n d
0024000 r e c u r s i v e l y c o m p
0024020 i l e s u b - e x p r e s s i
0024040 o n s . T h i s i s h e r
0024060 e m a i n l y f o r b
0024100 P C L h a s t o p l e v e
0024120 l c o m p i l e r - l e t s "
0024140 ) 006 001 \r
0024160 ( l e t ( ( v a r
0024200 s ( c l : m a p c a r # ' (
0024220 c l : l a m b d a ( x ) \r
0024240
*
0024320 ( | i f | ( c l : c o n s p
0024340 x ) \r
0024360
*
0024420 | t h e n
0024440 | \r
0024460
*
0024520 ( c a r x
0024540 ) \r
0024560
*
0024620 | e l s e |
0024640 x ) ) ( c a d r f o r m )
0024660 ) ) \r
0024700 ( v a l s
0024720 ( c l : m a p c a r # ' ( c
0024740 l : l a m b d a ( x ) \r
0024760
*
0025020 (
0025040 | i f | ( c l : c o n s p x
0025060 ) \r
0025100
*
0025140 | t h e n |
0025160 \r
0025200
*
0025240 ( c l : e v a
0025260 l ( c a d r x ) ) ) ) ( c
0025300 a d r f o r m ) ) ) ) \r
0025320
0025340 ( c l : p r o g v v a
0025360 r s v a l s ( c l : m a p c
0025400 # ' ( c l : l a m b d a ( x
0025420 ) \r
0025440
*
0025500 (
0025520 006 002 c o m p i l e - f i l e - e
0025540 x p r e s s i o n 006 001 x c o
0025560 m p i l e d . f i l e \r
0025600
*
0025700 c o m p i l e . t i m e . t o
0025720 o d e f e r ) ) \r
0025740
*
0026000 ( c d d
0026020 r f o r m ) ) ) ) ) \r
0026040 ( ( c l : e v
0026060 a l - w h e n ) \r
0026100 ( l e t
0026120 ( ( e v a l . s p e c i f i e
0026140 d ( o r ( f m e m b ' e v
0026160 a l ( c a d r f o r m ) ) \r
0026200
*
0026240 ( f m e
0026260 m b ' c l : e v a l ( c a d
0026300 r f o r m ) ) ) ) \r
0026320
0026340 ( l o a d . s p e c i f i
0026360 e d ( o r ( f m e m b ' l
0026400 o a d ( c a d r f o r m ) )
0026420 \r
0026440
0026460 ( f m
0026500 e m b ' c l : l o a d ( c a
0026520 d r f o r m ) ) ) ) \r
0026540
0026560 ( c o m p i l e . s p e
0026600 c i f i e d ( o r ( f m e m
0026620 b ' c o m p i l e ( c a d r
0026640 f o r m ) ) \r
0026660
*
0026720 ( f m e m b ' c
0026740 l : c o m p i l e ( c a d r
0026760 f o r m ) ) ) ) ) \r
0027000
0027020 ( c o n d \r
0027040
0027060 ( ( n o t l o a d . s p e c
0027100 i f i e d ) \r
0027120
0027140 ( c o n d \r
0027160
0027200 ( ( o r c o m p i
0027220 l e . s p e c i f i e d ( a n
0027240 d c o m p i l e . t i m e . t
0027260 o o e v a l . s p e c i f i e
0027300 d ) ) \r
0027320
0027340 ( | f o r | i n n e r -
0027360 f o r m | i n | ( c d d r
0027400 f o r m ) \r
0027420
0027440 | d o |
0027460 \r
0027500
0027520 ( e v a l i n n
0027540 e r - f o r m ) ) ) ) ) \r
0027560
0027600 ( t ( | f o r |
0027620 i n n e r - f o r m | i n |
0027640 ( c d d r f o r m ) \r
0027660
*
0027720 | d o | \r
0027740
0027760 ( 006 002 c o m
0030000 p i l e - f i l e - e x p r e s
0030020 s i o n 006 001 i n n e r - f o r
0030040 m c o m p i l e d . f i l e \r
0030060
*
0030120 ( o r c
0030140 o m p i l e . s p e c i f i e d
0030160 ( a n d c o m p i l e . t i
0030200 m e . t o o e v a l . s p e c
0030220 i f i e d \r
0030240
*
0030320 ) ) \r
0030340
*
0030400 d e f e r )
0030420 ) ) ) ) ) \r
0030440 ( ( c l : i n - p a c k a
0030460 g e ) 006 003 006 001
0030500 006 003 ( *
0030520 \ ; \r 006 001
0030540 006 003 " T h i s i s
0030560 s p e c i a l b e c a u s e
0030600 i t h a s t o b e d u
0030620 m p e d t o t h e o u t p
0030640 u t B E F O R E t h e p a
0030660 c k a g e c h a n g e s " ) 006
0030700 001 \r
0030720 ( p r i n t f o r m
0030740 c o m p i l e d . f i l e f i
0030760 l e r d t b l ) \r
0031000 ( e v a l
0031020 f o r m ) ) \r
0031040 ( l e t ( ( p r o p
0031060 ( o r ( g e t p r o p ( c
0031100 a r f o r m ) \r
0031120
0031140 ' c o
0031160 m p i l e - f i l e - e x p r e
0031200 s s i o n ) \r
0031220
0031240 ( g e t p r o p ( c a
0031260 r f o r m ) \r
0031300
0031320 ' c o m
0031340 p i l e . f i l e . e x p r e s
0031360 s i o n ) ) ) ) \r
0031400 ( | i f |
0031420 ( a n d ( n o t p r o p )
0031440 \r
0031460 ( n
0031500 o t ( c l : s p e c i a l - f
0031520 o r m - p ( c a r f o r m )
0031540 ) ) \r
0031560
0031600 ( n o t ( 006 002 i n t e r l i s
0031620 p - n l a m b d a - f u n c t i
0031640 o n - p 006 001 ( c a r f o r m
0031660 ) ) ) \r
0031700
0031720 ( n e q f o r m ( s e t q
0031740 f o r m ( c l : m a c r o e
0031760 x p a n d - 1 f o r m ) ) ) )
0032000 \r
0032020 | t h e n | \r
0032040
0032060 ( 006 002 c o m p i
0032100 l e - f i l e - e x p r e s s i
0032120 o n 006 001 f o r m c o m p i l
0032140 e d . f i l e c o m p i l e .
0032160 t i m e . t o o d e f e r ) \r
0032200
0032220 | e l s e | \r
0032240
0032260 ( | i f | c o m
0032300 p i l e . t i m e . t o o | t
0032320 h e n | ( e v a l f o r m )
0032340 ) \r
0032360 ( | i f |
0032400 p r o p | t h e n | ( 006 002 c
0032420 o m p i l e . f i l e . a p p l
0032440 y 006 001 p r o p f o r m d e
0032460 f e r ) \r
0032500
0032520 | e l s e i f | \r
0032540
0032560 ( n o t (
0032600 e q u a l f o r m ( s e t q
0032620 f o r m ( w a l k - f o r m
0032640 f o r m : w a l k - f u n c
0032660 t i o n \r
0032700
*
0032760 ( f u n c t i o n
0033000 c o m p i l e - f i l e - w a l
0033020 k - f u n c t i o n \r
0033040
*
0033120 ) ) )
0033140 ) ) \r
0033160
0033200 | t h e n | \r
0033220
0033240 ( 006 002 c o m p i l e
0033260 - f i l e - e x p r e s s i o n
0033300 006 001 f o r m c o m p i l e d
0033320 . f i l e c o m p i l e . t i
0033340 m e . t o o d e f e r ) \r
0033360
0033400 | e l s
0033420 e | \r
0033440
0033460 ( 006 002 c o m p i l e . f i l e
0033500 . a p p l y 006 001 ( f u n c t i
0033520 o n p r i n t ) \r
0033540
0033560 f
0033600 o r m d e f e r ) ) ) ) ) ) )
0033620 ) \r \r ( 006 004 c o m p i l e - f i
0033640 l e - w a l k - f u n c t i o n
0033660 006 001 \r ( l a m b d a ( f o
0033700 r m ) 006 003 006 001
0033720
*
0033760 006 003 ( * | l m m | "
0034000 2 6 - J u n - 8 6 1 7 : 2 5 "
0034020 ) 006 001 \r ( | i f | ( n
0034040 l i s t p f o r m ) \r
0034060 | t h e n | f o r
0034100 m | e l s e | ( c l : v a l
0034120 u e s f o r m ( 006 002 i n t e
0034140 r l i s p - n l a m b d a - f u
0034160 n c t i o n - p 006 001 ( c a r
0034200 f o r m ) ) ) ) ) ) \r \r ( 006 004 a
0034220 r g t y p e . s t a t e 006 001 \r
0034240 ( l a m b d a n i l \r
0034260 ( | f o r | x | i n | a
0034300 r g t y p e . v a r s | d o |
0034320 ( p r i n t o u t t x \
0034340 , ( e v a l ( c a d r x )
0034360 ) \r
0034400
0034420 t ) )
0034440 ) ) \r \r ( 006 004 c o m p i l e . c
0034460 h e c k . a r g t y p e 006 001 \r
0034500 ( l a m b d a ( x a t ) 006
0034520 003 006 001
0034540
*
0034600 006 003 ( * | l m m | " 1 5 - J
0034620 u n - 8 5 1 6 : 5 8 " ) 006 001 \r
0034640 ( | i f | ( n e q a
0034660 t ( l e t ( b l k f l g ) \r
0034700
0034720 ( c o m p . a r g
0034740 t y p e x ) ) ) \r
0034760 | t h e n | 006 003 006 001
0035000
*
0035040 006 003 ( * \ ; " I n c o r r
0035060 e c t l y o n o n e o f
0035100 t h e d e f i n i n g l i s
0035120 t s " ) 006 001 \r
0035140 ( | f o r | a t y p e p a i
0035160 r | i n | a r g t y p e . v
0035200 a r s | d o | \r
0035220 ( l e t (
0035240 ( v a l ( f m e m b x ( e
0035260 v a l v ( c a d r a t y p e
0035300 p a i r ) ) ) ) ) \r
0035320
0035340 ( | i f | ( e q a t ( c a
0035360 r a t y p e p a i r ) ) \r
0035400
0035420 | t h e n |
0035440 \r
0035460 ( | i
0035500 f | v a l | t h e n | ( p
0035520 r i n t o u t c o u t f i l e
0035540 " C o m p i l e r c o n f u
0035560 s e d : " x " o n " \r
0035600
*
0035660 ( c a d r a t y p e p
0035700 a i r ) \r
0035720
*
0035760 " b u t c
0036000 o m p i l e r d o e s n ' t
0036020 t h i n k i t s a " \r
0036040
*
0036120 ( c a d d r a t y p e p a
0036140 i r ) ) ) \r
0036160
0036200 ( / s e t t o p v a l ( c
0036220 a d r a t y p e p a i r ) \r
0036240
*
0036300 ( c o n s x ( p r o g n
0036320 ( g e t t o p v a l ( c a d
0036340 r a t y p e p a i r ) ) ) ) )
0036360 \r
0036400 | e l
0036420 s e | \r
0036440
0036460 ( | i f | v a l | t h e n |
0036500 ( p r i n t o u t c o u t f
0036520 i l e " W a r n i n g : c o
0036540 m p i l e r t h o u g h t "
0036560 x " " \r
0036600
*
0036640 ( l i s t
0036660 ' \ a ( o r ( c a d d r
0036700 ( a s s o c a t a r g t y p
0036720 e . v a r s ) ) \r
0036740
*
0037020 " L A M B
0037040 D A s p r e a d " ) \r
0037060
*
0037140 ' | f u n c t i o n
0037160 | ) \r
0037200
*
0037240 " w a s a "
0037260 \r
0037300
*
0037340 ( c a d d r a t y p
0037360 e p a i r ) \r
0037400
*
0037440 " b e c
0037460 a u s e i t w a s i n c o
0037500 r r e c t l y o n " \r
0037520
*
0037600 ( c a d r a t y p e p a i r
0037620 ) \r
0037640
*
0037700 t ) \r
0037720
0037740 ( / s e t
0037760 t o p v a l ( c a d r a t y
0040000 p e p a i r ) \r
0040020
*
0040060 ( r e m o v e x ( p r o g
0040100 n ( g e t t o p v a l ( c a
0040120 d r a t y p e p a i r ) ) ) )
0040140 ) ) ) ) ) ) ) ) \r \r ( 006 004 c o m
0040160 p i l e . f i l e . d e f i n e
0040200 q 006 001 \r ( l a m b d a ( f
0040220 o r m l c f i l ) 006 003 006 001
0040240
*
0040300 006 003 ( * | b v m : |
0040320 " 1 8 - S e p - 8 6 1 4 : 3
0040340 5 " ) 006 001 \r ( | f o r |
0040360 d e f | i n | ( c d r f
0040400 o r m ) \r
0040420 | u n l e s s | \r
0040440 ( f m e m b ( c a r
0040460 d e f ) \r
0040500 d o n t c o m p i
0040520 l e f n s ) \r
0040540 | d o | \r
0040560 ( 006 002 c o m p i l e . c h e
0040600 c k . a r g t y p e 006 001 ( c a
0040620 r d e f ) \r
0040640 ( a r g t y p
0040660 e ( c a d r d e f ) ) ) \r
0040700 ( b y t e c
0040720 o m p i l e 2 ( c a r d e f
0040740 ) \r
0040760 ( c o m p i l e 1 a (
0041000 c a r d e f ) \r
0041020
0041040 ( c a d r d e f ) \r
0041060
0041100 n i l ) ) ) ) ) \r \r
0041120 ( 006 004 c o m p i l e - f i l e -
0041140 s e t f - s y m b o l - f u n c
0041160 t i o n 006 001 \r ( l a m b d a
0041200 ( f o r m l c f i l ) 006 003 006
0041220 001
0041240
0041260 006 003 ( * | b v
0041300 m : | " 8 - S e p - 8 6 1
0041320 6 : 5 5 " ) 006 001 \r ( | i
0041340 f | ( a n d ( f m e m b (
0041360 c a r ( l i s t p ( c l : t
0041400 h i r d f o r m ) ) ) \r
0041420
0041440 ' ( f u n c t i o n c l
0041460 : f u n c t i o n ) ) \r
0041500 ( e q (
0041520 c a r ( l i s t p ( c l : s
0041540 e c o n d f o r m ) ) ) \r
0041560
0041600 ' q u o t e ) \r
0041620 ( c l : c o n s
0041640 p ( c l : s e c o n d ( c l
0041660 : t h i r d f o r m ) ) ) ) \r
0041700 | t h e n |
0041720 \r ( b y t e
0041740 c o m p i l e 2 ( c a d r (
0041760 c l : s e c o n d f o r m ) )
0042000 \r
0042020 ( c a d r ( c l : t h i r
0042040 d f o r m ) ) ) \r
0042060 | e l s e | \r
0042100 ( p r i n t ( w a l
0042120 k - f o r m f o r m : w a l
0042140 k - f u n c t i o n ( f u n c
0042160 t i o n c o m p i l e - f i l
0042200 e - w a l k - f u n c t i o n )
0042220 ) \r
0042240 l c f i l ) ) ) ) \r \r ( 006
0042260 004 c o m p i l e - f i l e - e x
0042300 / i m p o r t 006 001 \r ( l a m
0042320 b d a ( f o r m l c f i l
0042340 r d t b l ) 006 003 006 001
0042360
0042400 006 003 ( *
0042420 | b v m : | " 3 - A u g - 8
0042440 6 1 5 : 0 5 " ) 006 001 \r
0042460 \r
0042500 006 003 ( * * " E X P O R T ,
0042520 I M P O R T , S H A D O W ,
0042540 U S E - P A C K A G E a r e
0042560 a l l i m p l i c i t l y
0042600 E V A L @ C O M P I L E , s i
0042620 n c e t h e y h a v e t o
0042640 a f f e c t t h e p a c k
0042660 a g e b e i n g u s e d t
0042700 o r e a d w h a t f o l l
0042720 o w s " ) 006 001 \r \r ( p r
0042740 i n t f o r m l c f i l r
0042760 d t b l ) \r ( e v a l
0043000 f o r m ) ) ) \r \r ( 006 004 c o m p
0043020 i l e . f i l e . a p p l y 006 001
0043040 \r ( l a m b d a ( p r o p
0043060 f o r m d e f e r ) 006 003 006 001
0043100
*
0043140 006 003 ( * | b v m : | "
0043160 8 - S e p - 8 6 1 6 : 5 5 " )
0043200 006 001 \r ( | i f | d e f
0043220 e r | t h e n | ( | p u s h
0043240 | d e f e r r e d . e x p r e
0043260 s s i o n s ( c o n s p r o
0043300 p f o r m ) ) \r
0043320 | e l s e | \r
0043340 ( a p p l y * p r o p
0043360 f o r m c o m p i l e d . f
0043400 i l e ) ) ) ) \r \r ( 006 004 c o m p
0043420 i l e . f i l e . r e s e t 006 001
0043440 \r ( l a m b d a ( c o m p
0043460 i l e d . f i l e s o u r c e
0043500 f i l e r o o t n a m e ) 006 003
0043520 006 001
0043540 006 003 ( * | b v m : | "
0043560 9 - S e p - 8 6 1 5 : 1 6 " )
0043600 006 001 \r
0043620
*
0043700 006 003 ( * | C l e a n s | | u
0043720 p | | a f t e r | | b r e c
0043740 o m p i l e | \r 006 001
0043760
*
0044040 006 003 | a n d |
0044060 | b c o m p l | | h a v e |
0044100 | f i n i s h e d | \r 006 001
0044120
*
0044200 006 003 | o p
0044220 e r a t i n g , | ) 006 001 \r
0044240 ( | i f | ( a n d c o m p
0044260 i l e d . f i l e ( o p e n p
0044300 c o m p i l e d . f i l e ) )
0044320 \r | t h e n
0044340 | \r ( c l o
0044360 s e - a n d - m a y b e - d e l
0044400 e t e c o m p i l e d . f i l
0044420 e ) ) \r ( | i f | s o
0044440 u r c e f i l e | t h e n |
0044460 ( c l o s e f ? s o u r c e f
0044500 i l e ) ) \r ( | i f |
0044520 ( n u l l r e s e t s t a t e
0044540 ) \r | t h e
0044560 n |
0044600
0044620 006
0044640 003 ( * | F i n i s h e d | |
0044660 s u c c e s s f u l l y . | ) 006
0044700 001 \r ( / s e
0044720 t a t o m v a l ' n o t c o m
0044740 p i l e d f i l e s ( r e m o
0044760 v e r o o t n a m e n o t c
0045000 o m p i l e d f i l e s ) ) \r
0045020
*
0045100 006 003 ( *
0045120 | R e m o v e s | f i l e s
0045140 | f r o m | \r 006 001
0045160
*
0045240 006 003 n o t c o m
0045260 p i l e d f i l e s . ) 006 001 \r
0045300 ) ) ) \r \r ( 006
0045320 004 c o m p i l e - i n - c o r e
0045340 006 001 \r ( l a m b d a ( | f
0045360 n - n a m e | | f n - e x p r
0045400 | | f n - t y p e | n o s a
0045420 v e ) \r ( d e c l a r e
0045440 ( s p e c v a r s l c f i l
0045460 l a p f l g s t r f s v f
0045500 l g l s t f i l s p e c v a
0045520 r s l o c a l v a r s d o n
0045540 t - t r a n s f e r - p u t d )
0045560 ) 006 003 006 001 \r
0045600
*
0045660 006 003 ( * | l m m | "
0045700 2 - J u n - 8 6 2 2 : 0 4 " )
0045720 006 001 \r \r
0045740 006 003 ( * | i n
0045760 - c o r e | | c o m p i l i n
0046000 g | | f o r | | f u n c t i
0046020 o n s | | a n d | | f o r m
0046040 s , | | w i t h o u t | | t
0046060 h e | \r 006 001
0046100 006 003 | i n t e r v i e w . |
0046120 | i f | x | i s | \ a |
0046140 l i s t , | | w e | | a s s
0046160 u m e | | t h a t | | w e |
0046200 | a r e | | b e i n g | \r
0046220 006 001 006 003 | c
0046240 a l l e d | | m e r e l y |
0046260 | t o | | d i s p l a y | |
0046300 t h e | | l a p | | a n d |
0046320 | m a c h i n e | | c o d e
0046340 . | \r 006 001 006
0046360 003 | t h e | | f o r m | | i
0046400 s | | c o m p i l e d | | a
0046420 s | | t h e | | d e f i n i
0046440 t i o n | | o f | f o o |
0046460 b u t | | t h e | \r 006 001
0046500 006 003 | c o m p i
0046520 l e d | : c o d e | i s |
0046540 | t h r o w n | | a w a y . |
0046560 - \r 006 001 006
0046600 003 | i f | x | i s | \ a
0046620 | l i t a t o m , | | t h e n
0046640 | | s a v i n g , | | r e d
0046660 e f i n i n g , | | a n d |
0046700 | p r i n t i n g | | i s |
0046720 \r 006 001 006 003 |
0046740 c o n t r o l l e d | | b y |
0046760 | t h e | | f l a g s . | )
0047000 006 001 \r \r ( l e t ( ( n
0047020 o r e d e f i n e n i l ) \r
0047040 ( p r i n t l
0047060 a p n i l ) \r
0047100 ( d o n t - t r a n s f e r
0047120 - p u t d t ) ) \r
0047140 ( r e s e t v a r s ( (
0047160 n l a m a n l a m a ) \r
0047200
0047220 ( n l a m l n l a m l ) \r
0047240
0047260 ( l a m s l a m s )
0047300 \r
0047320 ( l a m a l a m a
0047340 ) \r
0047360 ( n o f i x f n s
0047400 l s t n o f i x f n s l s t )
0047420 \r
0047440 ( n o f i x v a r s
0047460 l s t n o f i x v a r s l s t
0047500 ) \r
0047520 ( c o u t f i l e
0047540 ( c o n d \r
0047560
0047600 ( ( a n d (
0047620 b o u n d p ' n u l l f i l e
0047640 ) \r
0047660
0047700 ( s t r e a
0047720 m p n u l l f i l e ) \r
0047740
*
0050000 ( o p e n p n u l l
0050020 f i l e ) ) \r
0050040
0050060 n u l l f i
0050100 l e ) \r
0050120
0050140 ( t ( s e t q n
0050160 u l l f i l e ( o p e n f i l
0050200 e ' { n u l l } ' o u t p u
0050220 t ) ) ) ) ) ) \r
0050240 ( r e t
0050260 u r n ( r e s e t l s t \r
0050300 \r
0050320 006 003 ( * r e s e t l s
0050340 t | t o | | p r o v i d e |
0050360 | r e s e t | | c o n t e x
0050400 t | | f o r | | m a c r o s
0050420 | | u n d e r | c o m p i l
0050440 e 1 \r 006 001
0050460 006 003 | a s | | g e n e r a t e
0050500 d | | e . g . | | b y | d
0050520 e c l . ) 006 001 \r \r
0050540
0050560 ( p r o
0050600 g ( ( l c f i l ) \r
0050620
*
0050660 ( l a p f l g ( a n
0050700 d p r i n t l a p ( c o n d
0050720 \r
0050740
*
0051020 ( b y t e c o m p f l g
0051040 t ) \r
0051060
*
0051140 ( t 2 ) ) ) ) \r
0051160
*
0051220 ( s t r f
0051240 ( n o t n o r e d e f i n e )
0051260 ) \r
0051300
0051320 ( s v f
0051340 l g ( | i f | ( e q | f n
0051360 - t y p e | ' s e l e c t o r
0051400 ) \r
0051420
*
0051460 | t h e n | \r
0051500
*
0051560 ' s e l e c t o r
0051600 | e l s e | ( n o t n o s
0051620 a v e ) ) ) \r
0051640
*
0051700 ( l s t f i l t ) \r
0051720
*
0051760 ( s p e c v a r s
0052000 s y s s p e c v a r s ) \r
0052020
*
0052060 ( l o c a l v a r
0052100 s t ) ) \r
0052120
0052140 (
0052160 r e t u r n ( p r o g n ( s
0052200 e t q | f n - e x p r | ( c
0052220 o m p i l e 1 a | f n - n a m
0052240 e | \r
0052260
*
0052360 | f n - e x p r | t ) )
0052400 \r
0052420
*
0052460 ( p r o g (
0052500 ( f r e e v a r s f r e e v a
0052520 r s ) ) \r
0052540
*
0052620 ( r e t u r n ( b y t e
0052640 c o m p i l e 2 | f n - n a m
0052660 e | \r
0052700
*
0053000 | f n - e x p r | ) ) ) ) ) )
0053020 ) ) ) ) ) ) \r ) \r \r ( r p a q q
0053040 006 002 a r g t y p e . v a r s 006
0053060 001 ( ( 1 n l a m l " N L A
0053100 M B D A s p r e a d " ) \r
0053120
0053140 ( 2 l a m a " L A M B
0053160 D A n o s p r e a d " ) \r
0053200
0053220 ( 0 l a m s " L A M B
0053240 D A s p r e a d " ) \r
0053260
0053300 ( 3 n l a m a " N L A M B
0053320 D A n o - s p r e a d " ) ) )
0053340 \r \r ( p u t p r o p s 006 002 d e
0053360 f i n e q c o m p i l e - f i
0053400 l e - e x p r e s s i o n 006 001
0053420 c o m p i l e . f i l e . d e f
0053440 i n e q ) \r \r ( p u t p r o p s
0053460 006 002 * c o m p i l e - f i l
0053500 e - e x p r e s s i o n 006 001 n
0053520 i l l ) \r \r ( p u t p r o p s
0053540 006 002 s e t f - s y m b o l - f u
0053560 n c t i o n c o m p i l e - f
0053600 i l e - e x p r e s s i o n 006 001
0053620 c o m p i l e - f i l e - s e
0053640 t f - s y m b o l - f u n c t i
0053660 o n ) \r \r ( p u t p r o p s 006
0053700 002 p r e t t y c o m p r i n t
0053720 c o m p i l e - f i l e - e x p
0053740 r e s s i o n 006 001 n i l l ) \r
0053760 ( c l : d e f u n 006 002 c o m p
0054000 i l e - f i l e - d e c l a r e
0054020 \ : 006 001 ( f o r m c o m p i
0054040 l e d . f i l e e v a l @ c o
0054060 m p i l e d o c o p y d e f
0054100 e r ) \r ( c l : d o ( (
0054120 t a i l ( c d r f o r m ) \r
0054140
0054160 ( c d r t a i l ) ) ) \r
0054200 ( ( c l : e n d
0054220 p t a i l ) ) \r
0054240 ( c l : i f ( c l : s y
0054260 m b o l p ( c a r t a i l )
0054300 ) \r
0054320 ( c a s e ( c a r t a
0054340 i l ) \r
0054360 ( ( e v a
0054400 l @ l o a d d o e v a l @ l o
0054420 a d d o n t e v a l @ l o a d
0054440 ) \r
0054460 n i l ) \r
0054500
0054520 ( ( e v a l @ l o a
0054540 d w h e n ) \r
0054560 (
0054600 c l : p o p t a i l ) ) \r
0054620
0054640 ( ( e v a l @ c o m p
0054660 i l e d o e v a l @ c o m p i
0054700 l e ) \r
0054720 ( s e t
0054740 q e v a l @ c o m p i l e t
0054760 ) ) \r
0055000 ( ( d o n t
0055020 e v a l @ c o m p i l e ) \r
0055040
0055060 ( s e t q e v a l
0055100 @ c o m p i l e n i l ) ) \r
0055120
0055140 ( ( e v a l @ c o m
0055160 p i l e w h e n ) \r
0055200
0055220 ( s e t q e v a l @ c o m
0055240 p i l e ( e v a l ( c a r
0055260 ( s e t q t a i l ( c d r
0055300 t a i l ) ) ) ) ) ) \r
0055320
0055340 ( ( c o p y d o c o p y )
0055360 \r
0055400 ( s e t q d
0055420 o c o p y t ) ) \r
0055440
0055460 ( ( d o n t c o p y ) \r
0055500
0055520 ( s e t q d o c o p
0055540 y n i l ) ) \r
0055560 (
0055600 ( c o p y w h e n ) \r
0055620
0055640 ( s e t q d o c o p y
0055660 ( e v a l ( c a r ( s e t q
0055700 t a i l ( c d r t a i l )
0055720 ) ) ) ) ) \r
0055740 ( ( f
0055760 i r s t ) \r
0056000 ( c
0056020 l : f o r m a t c o u t f i l
0056040 e \r
0056060 " W
0056100 a r n i n g : ( D E C L A R E
0056120 : - - F I R S T - - - -
0056140 ) n o t i m p l e m e n t e
0056160 d i n C O M P I L E - F I L
0056200 E : ~ S ~ % " \r
0056220
0056240 ( c a d r t a
0056260 i l ) ) ) \r
0056300 ( ( n
0056320 o t f i r s t c o m p i l e r
0056340 v a r s ) ) \r
0056360 ( c
0056400 l : o t h e r w i s e ( c l :
0056420 f o r m a t c o u t f i l e
0056440 \r
0056460
0056500 " W a
0056520 r n i n g : I g n o r i n g
0056540 u n r e c o g n i z e d D E C
0056560 L A R E : t a g : ~ S ~ % "
0056600 \r
0056620
0056640 ( c a
0056660 r t a i l ) ) ) ) \r
0056700 ( c o n
0056720 d \r
0056740 ( ( e q ' d e c l
0056760 a r e \ : ( c a r ( c a r
0057000 t a i l ) ) ) \r
0057020 ( c o
0057040 m p i l e - f i l e - d e c l a
0057060 r e \ : ( c a r t a i l ) \r
0057100
0057120 c o m p
0057140 i l e d . f i l e e v a l @ c
0057160 o m p i l e d o c o p y d e
0057200 f e r ) ) \r
0057220 ( t ( c l
0057240 : w h e n e v a l @ c o m p i
0057260 l e ( e v a l ( c a r t a
0057300 i l ) ) ) \r
0057320 ( c l
0057340 : w h e n d o c o p y ( c o
0057360 m p i l e - f i l e - e x p r e
0057400 s s i o n ( c a r t a i l )
0057420 \r
0057440
0057460 c
0057500 o m p i l e d . f i l e e v a
0057520 l @ c o m p i l e d e f e r )
0057540 ) ) ) ) ) ) \r \r ( d e f i n e q
0057560 \r \r ( 006 004 n e w d e f c 006 001 \r
0057600 ( l a m b d a ( n m d f )
0057620 006 003 006 001
0057640
*
0057700 006 003 ( * | b v m : | " 3 0 -
0057720 S e p - 8 6 2 3 : 1 2 " ) 006 001
0057740 \r ( c o n d \r
0057760 ( ( e q s v f l g ' d e
0060000 f e r ) \r ( | p
0060020 u s h | c o m p i l e . f i l
0060040 e . a f t e r ( l i s t ( f
0060060 u n c t i o n n e w d e f c )
0060100 \r
0060120
0060140 ( k w o t e
0060160 n m ) \r
0060200
0060220 ( k
0060240 w o t e d f ) \r
0060260
*
0060320 t ) ) ) \r ( (
0060340 o r ( n u l l d f n f l g )
0060360 \r ( e q
0060400 d f n f l g t ) ) \r
0060420 ( c o n d \r
0060440 ( ( g e t d n m ) \r
0060460 ( v i r
0060500 g i n f n n m t ) \r
0060520 ( c o n d \r
0060540 ( ( n
0060560 u l l d f n f l g ) \r
0060600 ( c l :
0060620 f o r m a t * e r r o r - o u
0060640 t p u t * " ~ & ( ~ S r e d
0060660 e f i n e d ) ~ % " n m ) \r
0060700 (
0060720 s a v e d e f n m ) ) ) ) ) \r
0060740 ( / p u t d n
0060760 m d f t ) ) \r
0061000 ( t 006 003 006 001
0061020
0061040 006
0061060 003 ( * | ; ; | " S a v e o
0061100 n C O D E p r o p . B e
0061120 n i c e a n d c h a n g e
0061140 i t f r o m a r c h a i c
0061160 C C O D E P o b j e c t t
0061200 o m o d e r n c o m p i l e
0061220 d c o d e o b j e c t . " )
0061240 006 001 \r ( / p
0061260 u t p r o p n m ' c o d e
0061300 ( | i f | ( a r r a y p d f
0061320 ) \r
0061340
0061360 | t h e n | \r
0061400
0061420 (
0061440 | c r e a t e | c o m p i l e
0061460 d - c l o s u r e f n h e a d
0061500 e r _ ( | f e t c h | ( a
0061520 r r a y p b a s e ) \r
0061540
*
0061640 | o f |
0061660 d f ) ) \r
0061700
0061720 | e l s e |
0061740 d f ) ) ) ) \r d f ) ) \r
0061760 ) \r ( d e c l a r e \ : d o n
0062000 t e v a l @ l o a d d o c o p
0062020 y \r ( m o v d ' n e w d e f
0062040 c ' d e f c ) \r ) \r \r \r \r 006 004
0062060 ( * \ ; " O p t i m i z e r
0062100 d e f i n i t i o n s a n d
0062120 e n v i r o n m e n t h a c
0062140 k i n g " ) 006 001 \r \r ( d e f - d
0062160 e f i n e - t y p e 006 002 o p t
0062200 i m i z e r s 006 001 " C O M P I
0062220 L E R O P T I M I Z E R S "
0062240 ) \r \r ( d e f m a c r o 006 002 c
0062260 o m p i l e r : o p t i m i z e
0062300 r - l i s t 006 001 ( f n ) ` (
0062320 g e t , f n ' c o m p i l e
0062340 r : o p t i m i z e r - l i s t
0062360 ) ) \r \r ( d e f d e f i n e r
0062400 006 002 d e f o p t i m i z e r 006 001
0062420 \r o p t i m i z e r s (
0062440 n a m e o p t - n a m e & r
0062460 e s t a r g l i s t - b o d y
0062500 & e n v i r o n m e n t e n
0062520 v ) \r " d e f
0062540 i n e a n o p t i m i z e r
0062560 f o r N A M E " \r
0062600 ( c o n d \r
0062620 ( ( n o t a r g l
0062640 i s t - b o d y ) 006 003 006 001
0062660
0062700 006 003 ( *
0062720 \ ; " ( d e f o p t i m i z e
0062740 r n a m e o p t f n ) " ) 006
0062760 001 \r (
0063000 p r o g 1 006 003 006 001
0063020
0063040 006 003 ( * | ; ;
0063060 | " W e p u r p o s e l y
0063100 u s e t h i s c o m b i n a
0063120 t i o n o f P U T P R O P
0063140 a n d U N I O N h e r e i
0063160 n s t e a d o f ` ( P U S H
0063200 N E W ' , O P T - N A M E (
0063220 C O M P I L E R : O P T I M I Z
0063240 E R - L I S T ' , N A M E ) )
0063260 i n o r d e r t o a v o
0063300 i d g e n e r a t i n g a
0063320 L E T * . F i l e s i n
0063340 t h e I N I T c a n ' t u
0063360 s e t h a t f o r m . T
0063400 h i s w i l l a l l b e
0063420 m u c h e a s i e r w h e n
0063440 t h e n e w c o m p i l e
0063460 r w o r k s . . . " ) 006 001 \r
0063500
0063520 ` ( p u t p r o p ' , n
0063540 a m e ' c o m p i l e r : o p
0063560 t i m i z e r - l i s t ( u n
0063600 i o n ( g e t p r o p ' , n
0063620 a m e ' \r
0063640
*
0063740 c o m p i l e r : o p t i m
0063760 i z e r - l i s t ) \r
0064000
*
0064100 ( l i s t ' , o p t - n a m e
0064120 ) ) ) \r
0064140 ( s e t q n a
0064160 m e ( x c l : p a c k ( l i
0064200 s t n a m e " - O P T I M I
0064220 Z E D - B Y - " o p t - n a m
0064240 e ) \r
0064260
0064300 ( c l : s y m
0064320 b o l - p a c k a g e o p t -
0064340 n a m e ) ) ) 006 003 006 001 \r
0064360
*
0064440 006 003 ( * \ ;
0064460 " o p t i m i z e r n a m
0064500 e i s g e n e r a t e d " )
0064520 006 001 \r
0064540 ) ) \r
0064560 ( t ( l e t * (
0064600 ( f o r m - n a m e n a m e )
0064620 \r
0064640 ( a r g - l i s t
0064660 o p t - n a m e ) \r
0064700
0064720 ( o p t - f n - n a m e ( |
0064740 i f | ( a n d o p t - n a m
0064760 e ( c l : s y m b o l p o p
0065000 t - n a m e ) \r
0065020
*
0065060 ( c d r a r g l i
0065100 s t - b o d y ) ) \r
0065120
*
0065160 | t h e n | 006 003 006 001
0065200 006 003 ( * \ ; \r 006 001
0065220
*
0065260 006 003 "
0065300 ( d e f o p t i m i z e r f o
0065320 r m - n a m e o p t - n a m e
0065340 a r g l i s t . b o d y )
0065360 " ) 006 001 \r
0065400
0065420 ( s
0065440 e t q n a m e o p t - n a m
0065460 e ) 006 003 006 001 006 003 ( * \ ; " o
0065500 p t i m i z e r n a m e i s
0065520 o p t - n a m e " ) 006 001 \r
0065540
*
0065600 ( p r o g 1 o p
0065620 t - n a m e ( s e t q a r g
0065640 - l i s t ( p o p a r g l i
0065660 s t - b o d y ) ) ) \r
0065700
*
0065740 | e l s e | 006 003 006 001
0065760 006 003 ( * \ ; \r 006 001
0066000
0066020 006 003 " (
0066040 d e f o p t i m i z e r f o r
0066060 m - n a m e a r g l i s t .
0066100 b o d y ) o p t i m i z e r
0066120 n a m e i s f o r m n a
0066140 m e " ) 006 001 \r
0066160
*
0066220 ( x c l : p a c k ( l i s t
0066240 " o p t i m i z e - " f o r m
0066260 - n a m e ) \r
0066300
*
0066340 ( c l : s y m b o
0066360 l - p a c k a g e f o r m - n
0066400 a m e ) ) ) ) ) \r
0066420 ( c
0066440 l : m u l t i p l e - v a l u e
0066460 - b i n d ( b o d y d e c l
0066500 s d o c ) \r
0066520
0066540 ( p a r s e - d e f m a c
0066560 r o a r g - l i s t ' $ $ w
0066600 h o l e a r g l i s t - b o d
0066620 y n a m e e n v : e n v i
0066640 r o n m e n t \r
0066660
0066700 ' $ $ e n
0066720 v : c o n t e x t ' $ $ c t
0066740 x ) \r
0066760 `
0067000 ( p r o g n ( c l : d e f u n
0067020 ( 006 002 \ \ \ , 006 001 o p t - f
0067040 n - n a m e ) ( $ $ w h o l e
0067060 $ $ e n v $ $ c t x ) , @
0067100 d e c l s \r
0067120
*
0067220 , b o
0067240 d y ) \r \r
0067260
0067300 ( p u t p r o
0067320 p ' , f o r m - n a m e ' c
0067340 o m p i l e r : o p t i m i z e
0067360 r - l i s t \r
0067400
*
0067440 ( u n i o n ( g e t p r o
0067460 p ' , f o r m - n a m e ' c
0067500 o m p i l e r : o p t i m i z e
0067520 r - l i s t ) \r
0067540
*
0067600 ( l i s t
0067620 ' , o p t - f n - n a m e ) ) )
0067640 ) ) ) ) ) ) \r \r ( c l : d e f s
0067660 t r u c t ( 006 002 c o m p i l e
0067700 r : : e n v 006 001 ( : c o n s t
0067720 r u c t o r c o m p i l e r :
0067740 : m a k e - e n v ) \r
0067760
0070000 ( : c o p i e r
0070020 c o m p i l e r : : c o p y -
0070040 e n v ) \r
0070060
0070100 ( : p r e d i c a t e c o
0070120 m p i l e r : : e n v - p ) )
0070140 ( v e n v n i l ) ( f e n v
0070160 n i l ) ) \r \r ( c l : d e f s
0070200 t r u c t ( 006 002 c o m p i l e
0070220 r : c o n t e x t 006 001 ( : c o
0070240 n s t r u c t o r c o m p i l
0070260 e r : m a k e - c o n t e x t )
0070300 \r
0070320
0070340 ( : c o p i e r c o m p i l
0070360 e r : : c o p y - c o n t e x t
0070400 ) \r
0070420
0070440 ( : p r e d i c a t e c o
0070460 m p i l e r : : c o n t e x t -
0070500 p ) ) ( t o p - l e v e l - p
0070520 n i l ) ( v a l u e s - u s
0070540 e d \r
0070560
*
0070660 : u n k n o w n
0070700 ) \r
0070720
*
0071020 ( p r e d i c a t e
0071040 - p \r
0071060
*
0071160 n i l ) ) \r \r (
0071200 d e f i n e q \r \r ( 006 004 c o m p
0071220 i l e r : c o p y - e n v - w i
0071240 t h - f u n c t i o n 006 001 \r
0071260 ( c l : l a m b d a ( e n v
0071300 f n & o p t i o n a l ( k i
0071320 n d : f u n c t i o n ) \r
0071340
0071360 e x p - f n ) 006 003 006 001
0071400
0071420 006
0071440 003 ( * " P a v e l " " 2 6 -
0071460 A p r - 8 6 1 5 : 1 3 " ) 006 001
0071500 006 003 006 001 \r
0071520
*
0071600 006 003 ( * " P a v e l " "
0071620 2 5 - A p r - 8 6 1 8 : 5 3 "
0071640 ) 006 001 \r ( l e
0071660 t ( ( n e w - e n v ( c l :
0071700 i f e n v ( c o m p i l e r
0071720 : : c o p y - e n v e n v ) \r
0071740
0071760 (
0072000 006 002 c o m p i l e r : m a k e -
0072020 e m p t y - e n v 006 001 ) ) ) ) \r
0072040 ( c
0072060 l : p u s h ( l i s t f n
0072100 k i n d e x p - f n ) \r
0072120
0072140 ( c o m p i l e r : : e n v
0072160 - f e n v n e w - e n v ) ) \r
0072200 n e
0072220 w - e n v ) ) ) \r \r ( 006 004 c o m
0072240 p i l e r : c o p y - e n v - w
0072260 i t h - v a r i a b l e 006 001 \r
0072300 ( c l : l a m b d a ( e n v
0072320 v a r & o p t i o n a l (
0072340 k i n d : l e x i c a l ) ) 006
0072360 003 006 001
0072400 006 003 ( * " P a v e l " " 2 6
0072420 - A p r - 8 6 1 5 : 1 2 " ) 006
0072440 001 006 003 006 001 \r
0072460
*
0072540 006 003 ( * " P a v e l "
0072560 " 2 5 - A p r - 8 6 1 8 : 5 4
0072600 " ) 006 001 \r ( l
0072620 e t ( ( n e w - e n v ( c l
0072640 : i f e n v ( c o m p i l e
0072660 r : : c o p y - e n v e n v )
0072700 \r
0072720
0072740 ( 006 002 c o m p i l e r : m a k e
0072760 - e m p t y - e n v 006 001 ) ) ) )
0073000 \r (
0073020 c l : p u s h ( c o n s v a
0073040 r k i n d ) \r
0073060 ( c o
0073100 m p i l e r : : e n v - v e n v
0073120 n e w - e n v ) ) \r
0073140 n e w - e n v
0073160 ) ) ) \r \r ( 006 004 c o m p i l e r
0073200 : e n v - b o u n d p 006 001 \r
0073220 ( c l : l a m b d a ( c o m p
0073240 i l e r : : e n v c o m p i l
0073260 e r : : n a m e ) \r
0073300 ( c l : b l o c k c o m
0073320 p i l e r : e n v - b o u n d p
0073340 \r
0073360 ( l e t ( ( c o m p i l e r
0073400 : : l o o k u p ( c l : a s s
0073420 o c c o m p i l e r : : n a m
0073440 e ( c o m p i l e r : : e n v
0073460 - v e n v c o m p i l e r : :
0073500 e n v ) ) ) \r
0073520 ) \r
0073540
0073560 ( c o n d \r
0073600
0073620 ( c o m p i l e r : : l o o
0073640 k u p ( c l : v a l u e s - l
0073660 i s t ( c d r c o m p i l e
0073700 r : : l o o k u p ) ) ) \r
0073720
0073740 ( ( c o m p i l e r :
0073760 : e n v - p r o c l a i m e d -
0074000 s p e c i a l - p c o m p i l
0074020 e r : : e n v c o m p i l e r
0074040 : : n a m e ) \r
0074060
0074100 ( c o m p i l e r : : e n v -
0074120 b i n d - v a r i a b l e c o
0074140 m p i l e r : : e n v c o m p
0074160 i l e r : : n a m e : s p e c
0074200 i a l \r
0074220
0074240 ( c o m p i l e r : : m
0074260 a k e - v a r i a b l e : s c
0074300 o p e : s p e c i a l : k i
0074320 n d : v a r i a b l e : n a
0074340 m e \r
0074360
0074400 c o m p i
0074420 l e r : : n a m e ) ) ) \r
0074440
0074460 ( t ( l e t ( ( c
0074500 o m p i l e r : : p a r e n t
0074520 ( c o m p i l e r : : e n v - p
0074540 a r e n t c o m p i l e r : :
0074560 e n v ) ) ) \r
0074600
0074620 ( c o n d \r
0074640
*
0074700 ( ( e q c o m p i l e r : : p
0074720 a r e n t t ) \r
0074740
0074760 ( c o
0075000 n d \r
0075020
0075040 ( ( v a r i
0075060 a b l e - g l o b a l l y - s p
0075100 e c i a l - p c o m p i l e r
0075120 : : n a m e ) \r
0075140
*
0075200 ( c o m p i l e r : : e n v - b
0075220 i n d - v a r i a b l e c o m
0075240 p i l e r : : e n v c o m p i
0075260 l e r : : n a m e \r
0075300
*
0075340 : s p e c i
0075360 a l ( c o m p i l e r : : m a
0075400 k e - v a r i a b l e : s c o
0075420 p e : s p e c i a l \r
0075440
*
0075520 : k i n
0075540 d : v a r i a b l e : n a m
0075560 e c o m p i l e r : : n a m e
0075600 ) ) \r
0075620
0075640 ) \r
0075660
*
0075720 ( ( c l : c o n s t a n
0075740 t p c o m p i l e r : : n a m
0075760 e ) \r
0076000
0076020 ( c o m p
0076040 i l e r : : e n v - b i n d - v
0076060 a r i a b l e c o m p i l e r
0076100 : : e n v c o m p i l e r : :
0076120 n a m e \r
0076140
*
0076200 : c o n s t a n t (
0076220 c l : i f ( f a s l \ : v a l
0076240 u e - d u m p a b l e - p ( \r
0076260
*
0076400 c l : s y m b o l -
0076420 v a l u e \r
0076440
*
0076540 \r
0076560
*
0076700 c o m p i l e r :
0076720 : n a m e \r
0076740
*
0077040 )
0077060 ) \r
0077100
*
0077160 ( c o m p i l e r : : m a k
0077200 e - l i t e r a l : v a l u e
0077220 \r
0077240
*
0077320 ( c l : s y m b
0077340 o l - v a l u e \r
0077360
*
0077460 c o m p i l e r
0077500 : : n a m e ) ) \r
0077520
*
0077600 ( c o m p i l
0077620 e r : : m a k e - v a r i a b l
0077640 e : s c o p e \r
0077660
*
0077760 : g l o b a l : k i n d :
0100000 v a r i a b l e : n a m e \r
0100020
*
0100120 c o m p i l e r :
0100140 : n a m e ) ) ) ) \r
0100160
*
0100220 ( ( g e t c o m p i l e r :
0100240 : n a m e ' g l o b a l v a r
0100260 ) \r
0100300
0100320 ( c o m p i
0100340 l e r : : e n v - b i n d - v a
0100360 r i a b l e c o m p i l e r :
0100400 : e n v c o m p i l e r : : n
0100420 a m e \r
0100440
*
0100500 : g l o b a l ( c o m
0100520 p i l e r : : m a k e - v a r i
0100540 a b l e : s c o p e : g l o
0100560 b a l : k i n d \r
0100600
*
0100660 : v a r i a b
0100700 l e : n a m e c o m p i l e
0100720 r : : n a m e ) ) ) \r
0100740
*
0101000 ( t n i l ) ) ) \r
0101020
0101040 (
0101060 c o m p i l e r : : p a r e n t
0101100 ( 006 002 c o m p i l e r : e n v
0101120 - b o u n d p 006 001 c o m p i l
0101140 e r : : p a r e n t \r
0101160
*
0101240 c o m p i l e r
0101260 : : n a m e ) ) \r
0101300
0101320 ( t n
0101340 i l ) ) ) ) ) ) ) ) ) \r \r ( 006 004
0101360 c o m p i l e r : e n v - f b o
0101400 u n d p 006 001 \r ( c l : l a m
0101420 b d a ( c o m p i l e r : : e
0101440 n v c o m p i l e r : : n a m
0101460 e ) \r ( c l :
0101500 b l o c k c o m p i l e r : e
0101520 n v - f b o u n d p ( l e t
0101540 ( ( c o m p i l e r : : l o o k
0101560 u p ( c l : a s s o c c o m
0101600 p i l e r : : n a m e ( \r
0101620
*
0101740 c o m p i l e r : : e n v - f
0101760 e n v \r
0102000
*
0102100 \r
0102120
*
0102240 c o m p i l e r :
0102260 : e n v \r
0102300
*
0102400 )
0102420 ) ) ) \r
0102440
*
0102500 ( c l : i f c o m p i l e r
0102520 : : l o o k u p ( c l : v a l
0102540 u e s - l i s t ( c d r \r
0102560
*
0102700 c o m p i l e r : : l o
0102720 o k u p \r
0102740
*
0103040 )
0103060 ) \r
0103100
*
0103140 ( l e t ( ( c o m
0103160 p i l e r : : p a r e n t ( c
0103200 o m p i l e r : : e n v - p a r
0103220 e n t \r
0103240
*
0103340 c o m p i l e r : : e n v ) )
0103360 ) \r
0103400
*
0103440 ( c l : i
0103460 f ( a n d c o m p i l e r :
0103500 : p a r e n t \r
0103520
*
0103600 ( n e
0103620 q c o m p i l e r : : p a r e
0103640 n t t ) ) \r
0103660
*
0103740 ( 006 002 c o m p i l
0103760 e r : e n v - f b o u n d p 006 001
0104000 \r
0104020
*
0104100 c o m p i l e
0104120 r : : p a r e n t \r
0104140
*
0104240 c o m p i l e r : : n a m e
0104260 ) \r
0104300
*
0104360 n i l ) ) ) ) ) ) ) \r \r ( 006
0104400 004 c o m p i l e r : m a k e - e
0104420 m p t y - e n v 006 001 \r ( c l
0104440 : l a m b d a n i l ( c o m
0104460 p i l e r : : m a k e - e n v )
0104500 ) ) \r ) \r \r ( p u t p r o p s
0104520 006 002 c m l c o m p i l e f i l
0104540 e t y p e 006 001 c l : c o m p i
0104560 l e - f i l e ) \r ( d e c l a r
0104600 e \ : d o n t e v a l @ l o a
0104620 d d o e v a l @ c o m p i l e
0104640 d o n t c o p y c o m p i l
0104660 e r v a r s \r \r ( a d d t o v
0104700 a r 006 002 n l a m a 006 001 ) \r \r
0104720 ( a d d t o v a r 006 002 n l a m
0104740 l 006 001 ) \r \r ( a d d t o v a r
0104760 006 002 l a m a 006 001 c o m p i l
0105000 e r : m a k e - e m p t y - e n
0105020 v c o m p i l e r : e n v - f
0105040 b o u n d p c o m p i l e r :
0105060 e n v - b o u n d p \r
0105100
0105120 c o m p i l e r : c o p y - e
0105140 n v - w i t h - v a r i a b l e
0105160 c o m p i l e r : c o p y - e
0105200 n v - w i t h - f u n c t i o n
0105220 c l : c o m p i l e - f i l e
0105240 ) \r ) \r ( p u t p r o p s c m
0105260 l c o m p i l e c o p y r i g
0105300 h t ( " X e r o x C o r p o
0105320 r a t i o n " 1 9 8 5 1 9 8
0105340 6 ) ) \r ( d e c l a r e \ : d
0105360 o n t c o p y \r ( f i l e m
0105400 a p ( n i l ( 3 8 7 8 2 2
0105420 0 4 0 ( c l : c o m p i l e -
0105440 f i l e 3 8 8 8 . 9 0 0 0
0105460 ) ( i n t e r l i s p - f o r
0105500 m a t - p 9 0 0 2 . 9 2 2
0105520 7 ) ( \r i n t e r l i s p - n
0105540 l a m b d a - f u n c t i o n -
0105560 p 9 2 2 9 . 9 4 7 2 ) (
0105600 c o m p i l e - f i l e - e x p
0105620 r e s s i o n 9 4 7 4 . 1
0105640 4 2 2 5 ) ( \r c o m p i l e -
0105660 f i l e - w a l k - f u n c t i
0105700 o n 1 4 2 2 7 . 1 4 4 7 4
0105720 ) ( a r g t y p e . s t a t e
0105740 1 4 4 7 6 . 1 4 6 2 6 )
0105760 ( c o m p i l e . c h e c k . a
0106000 r g t y p e 1 4 6 2 8 \r .
0106020 1 6 4 8 8 ) ( c o m p i l e .
0106040 f i l e . d e f i n e q 1 6 4
0106060 9 0 . 1 6 9 7 4 ) ( c o m
0106100 p i l e - f i l e - s e t f - s
0106120 y m b o l - f u n c t i o n 1
0106140 6 9 7 6 . 1 7 5 8 0 ) ( \r
0106160 c o m p i l e - f i l e - e x /
0106200 i m p o r t 1 7 5 8 2 . 1
0106220 7 9 2 7 ) ( c o m p i l e . f
0106240 i l e . a p p l y 1 7 9 2 9
0106260 . 1 8 1 8 3 ) ( c o m p i l
0106300 e . f i l e . r e s e t 1 8 1
0106320 8 5 . \r 1 9 1 4 8 ) ( c o
0106340 m p i l e - i n - c o r e 1 9
0106360 1 5 0 . 2 2 0 3 8 ) ) ( 2
0106400 4 4 2 4 2 5 5 8 5 ( n e w d
0106420 e f c 2 4 4 3 4 . 2 5 5 8
0106440 3 ) ) ( 2 9 3 1 1 3 5 1 4 0
0106460 ( \r c o m p i l e r : c o p y
0106500 - e n v - w i t h - f u n c t i
0106520 o n 2 9 3 2 1 . 2 9 8 4 8
0106540 ) ( c o m p i l e r : c o p y
0106560 - e n v - w i t h - v a r i a b
0106600 l e 2 9 8 5 0 . 3 0 3 2 3
0106620 ) ( \r c o m p i l e r : e n v
0106640 - b o u n d p 3 0 3 2 5 .
0106660 3 3 5 1 5 ) ( c o m p i l e r
0106700 : e n v - f b o u n d p 3 3 5
0106720 1 7 . 3 5 0 6 8 ) ( c o m
0106740 p i l e r : m a k e - e m p t y
0106760 - e n v 3 5 0 7 0 \r . 3 5
0107000 1 3 8 ) ) ) ) ) \r s t o p \r
0107016