$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLCOMPILE.DCOM!18
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " X C
0000040 L " 247 P A C K A G E " I N T
0000060 E R L I S P " ) \r ( f i l e c r
0000100 e a t e d " 3 0 - O c t - 8 6
0000120 1 8 : 5 7 : 2 9 " ( " c o m
0000140 p i l e d o n " { e r i s
0000160 } < l i s p c o r e > s o u r c
0000200 e s > c m l c o m p i l e . \ ;
0000220 1 7 ) \r " 2 1 - O c t - 8 6
0000240 0 4 : 1 3 : 0 1 " " C O M P I
0000260 L E - F I L E d " | i n | "
0000300 X e r o x L i s p 2 1 - O c
0000320 t - 8 6 . . . " | d a t e d
0000340 | " 2 1 - O c t - 8 6 0 4 :
0000360 4 8 : 4 3 " ) \r ( f i l e c r e
0000400 a t e d " 3 0 - O c t - 8 6
0000420 1 8 : 5 7 : 1 0 " { e r i s }
0000440 < l i s p c o r e > s o u r c e
0000460 s > c m l c o m p i l e . \ ; 1
0000500 7 2 4 8 4 1 | c h a n g e s
0000520 | | t o : | ( \r s t r u c t
0000540 u r e s c o m p i l e r : e n
0000560 v c o m p i l e r : c o n t e
0000600 x t ) ( v a r s c m l c o m
0000620 p i l e c o m s ) | p r e v i
0000640 o u s | | d a t e : | \r " 2
0000660 9 - O c t - 8 6 1 9 : 1 4 : 2
0000700 6 " { e r i s } < l i s p c o
0000720 r e > s o u r c e s > c m l c o
0000740 m p i l e . \ ; 1 5 ) \r ( r p a
0000760 q q c m l c o m p i l e c o m
0001000 s ( ( c o m s ( f u n c t i
0001020 o n s c l : c o m p i l e c
0001040 l : d i s a s s e m b l e ) (
0001060 f n s c l : c o m p i l e - f
0001100 i l e \r i n t e r l i s p - f
0001120 o r m a t - p i n t e r l i s
0001140 p - n l a m b d a - f u n c t i
0001160 o n - p c o m p i l e - f i l
0001200 e - e x p r e s s i o n c o m
0001220 p i l e - f i l e - w a l k - f
0001240 u n c t i o n \r a r g t y p e
0001260 . s t a t e c o m p i l e . c
0001300 h e c k . a r g t y p e c o m
0001320 p i l e . f i l e . d e f i n e
0001340 q c o m p i l e - f i l e - s
0001360 e t f - s y m b o l - f u n c t
0001400 i o n \r c o m p i l e - f i l
0001420 e - e x / i m p o r t c o m p
0001440 i l e . f i l e . a p p l y c
0001460 o m p i l e . f i l e . r e s e
0001500 t c o m p i l e - i n - c o r
0001520 e ) ( v a r s a r g t y p e
0001540 . v a r s ) ( \r p r o p c o
0001560 m p i l e - f i l e - e x p r e
0001600 s s i o n d e f i n e q *
0001620 s e t f - s y m b o l - f u n c
0001640 t i o n p r e t t y c o m p r
0001660 i n t ) ( f u n c t i o n s
0001700 \r c o m p i l e - f i l e - d e
0001720 c l a r e \ : ) ) ( c o m s
0001740 ( f n s n e w d e f c ) ( d
0001760 e c l a r e \ : d o n t e v a
0002000 l @ l o a d d o c o p y ( p
0002020 ( m o v d ( q u o t e n e
0002040 w d e f c ) \r ( q u o t e d
0002060 e f c ) ) ) ) ) ( p r o p f
0002100 i l e t y p e c m l c o m p i
0002120 l e ) ( d e c l a r e \ : d
0002140 o n t e v a l @ l o a d d o e
0002160 v a l @ c o m p i l e d o n t
0002200 c o p y \r c o m p i l e r v a
0002220 r s ( a d d v a r s ( n l a
0002240 m a ) ( n l a m l ) ( l a m
0002260 a c l : c o m p i l e - f i l
0002300 e ) ) ) ) ) \r c l : c o m p i l
0002320 e d 1 \r ( l ( 1 l a m b d
0002340 a - e x p r 0 n a m e ) )
0002360 \0 * 001 \0 \0 002 @ 265 005 g \0 \0 021 001 \0 H
0002400 A 265 006 @ \t \0 \0 \n \0 \0 A 232 @ 233 @ g
0002420 \0 \0 A \v \0 \0 277 @ 265 006 H \t \0 \0 020 \0
0002440 ( 3 9 g e t d 3 1 / p u t
0002460 p r o p 1 9 c o m p i l e -
0002500 i n - c o r e 1 6 g e t d )
0002520 \r ( 2 7 e x p r 5 \ \ c l
0002540 c o m p i l e t e m p ) \r ( ) \r
0002560 c l : d i s a s s e m b l e d
0002600 1 \r ( l ( 0 | - a r g s - |
0002620 ) f 1 7 * s t a n d a r d
0002640 - o u t p u t * ) \0 370 021 001 002 \0
0002660 e 021 001 \0 k a 021 361 020 H l 002 273 272 K d
0002700 J 363 262 b 277 h 274 H l 002 276 275 N d M 363
0002720 262 g 277 l \b _ 016 277 H l 002 _ 022 277 _ 020
0002740 277 O 022 d O 020 363 262 c 277 W " _ 024 277 H
0002760 l 002 _ 030 277 _ 026 277 O 030 d O 026 363 262 b
0003000 277 h _ 032 277 H l 002 _ 036 277 _ 034 277 O 036
0003020 d O 034 363 262 b 277 h _ 277 I \t \0 \0 264
0003040 m I 260 w a g \0 \0 360 225 K k 330 a 260 230
0003060 K l 002 324 [ 260 212 a g \0 \0 360 225 N k 330
0003100 a 260 224 N l 002 324 ^ 260 205 a g \0 \0 360 226
0003120 O 022 k 330 a 260 227 O 022 l 002 324 _ 022 260 205
0003140 a g \0 \0 360 226 O 030 k 330 a 260 227 O 030 l
0003160 002 324 _ 030 260 206 a g \0 \0 360 226 O 036 k 330
0003200 a 260 227 O 036 l 002 324 _ 036 260 206 I d 004 l
0003220 004 360 222 \t \0 \0 \n \0 \0 L O 016 O 024 O 032
0003240 O \r 006 \0 \0 020 \0 ( 2 4 5 p r i
0003260 n t c o d e 2 3 2 c l : c o
0003300 m p i l e 2 2 9 c l : s y m
0003320 b o l - f u n c t i o n 1 1 0
0003340 c c o d e p ) \r ( 2 0 1 : m
0003360 a r k e d - p c 1 7 9 : f i
0003400 r s t - b y t e 1 5 7 : o u
0003420 t p u t 1 3 8 : r a d i x
0003440 1 1 9 : l e v e l - p ) \r ( )
0003460 \r c o m p i l e - f i l e a 0 0
0003500 0 1 d 1 \r ( n a m e e r r o
0003520 r s e t p 1 8 d e f e r r
0003540 e d . e x p r e s s i o n s p
0003560 1 7 * p r i n t - b a s e *
0003600 p 1 6 * r e a d - b a s e
0003620 * p 1 5 * r e a d t a b l
0003640 e * p 1 4 * p a c k a g e
0003660 * p 5 l s t f i l p 3
0003700 s p e c v a r s p 2 l o
0003720 c a l v a r s p 1 * r e a
0003740 d - b a s e * p 0 * p a c
0003760 k a g e * f 1 9 r e s e t
0004000 v a r s l s t f 2 0 o u t
0004020 p u t - f i l e f 2 1 f i
0004040 l e n a m e f 2 2 p r o c
0004060 e s s - e n t i r e - f i l e
0004100 f 2 3 r e d e f i n e f
0004120 2 4 l a p f 2 5 n l a m
0004140 l f 2 6 c o m p i l e . e
0004160 x t f 2 7 n l a m a f
0004200 2 8 l a m s f 2 9 l a m
0004220 a f 3 0 c o m p i l e r -
0004240 o u t p u t f 3 1 r e s e
0004260 t y f 3 2 s a v e - e x p
0004300 r s f 3 3 c o u t f i l e
0004320 f 3 4 * i n t e r l i s p
0004340 - p a c k a g e * f 3 5 s
0004360 y s l o c a l v a r s f 3 6
0004400 * c o m m o n - l i s p - r e
0004420 a d - e n v i r o n m e n t *
0004440 f 3 7 p e f p f 3 8 c
0004460 o m p i l e . f i l e . v a l u
0004500 e ) 002 & 023 024 002 \0 g \0 \0 h 032 h h
0004520 032 032 W & 032 c & 277 g \0 \0 d \t \0 \0 032
0004540 g \0 \0 W 2 \n \0 \0 277 W & 032 c & 277 g
0004560 \0 \0 d \t \0 \0 032 g \0 \0 W 6 \n \0 \0 277
0004600 W & 032 c & 277 g \0 \0 d \t \0 \0 032 g \0
0004620 \0 W 8 \n \0 \0 277 W & 032 c & 277 g \0 \0
0004640 d \t \0 \0 032 g \0 \0 W : \n \0 \0 277 W &
0004660 032 c & 277 g \0 \0 d \t \0 \0 032 g \0 \0 \t
0004700 \0 \0 277 W & 032 c & 277 g \0 \0 d \t \0 \0
0004720 032 g \0 \0 W < \n \0 \0 277 W & 032 c & 277
0004740 g \0 \0 d \t \0 \0 032 g \0 \0 W . \n \0 \0
0004760 277 W & 032 c & 277 g \0 \0 d \t \0 \0 032 g
0005000 \0 \0 W @ 264 \t W . 264 005 g \0 \0 \n \0 \0
0005020 277 W & 032 c & 277 g \0 \0 d \t \0 \0 032 g
0005040 \0 \0 W 0 \n \0 \0 277 W & 032 c & 277 W D
0005060 l \n W F i 021 244 \r g \0 \0 W * g \0 \0
0005100 \n \0 \0 \ h 032 032 h h 032 032 W & 032 c &
0005120 277 L g \0 \0 i \v \0 \0 \t \0 \0 _ 022 001 _
0005140 016 277 O 022 002 001 _ 020 277 O 016 d 224 W H 360
0005160 h 360 276 W J 243 N c , 277 W 0 222 W B 275
0005200 L \t \0 \0 c * 277 g \0 \0 W ( 265 024 g \0
0005220 \0 h g \0 \0 W 4 g \0 \0 W * \r 006 \0 \0
0005240 g \0 \0 g \0 \0 o \0 \0 \0 \f \0 \0 c ( L
0005260 W * \t \0 \0 h 032 032 032 032 h h 032 032 W &
0005300 032 c & 277 W ( 262 & g \0 \0 d \t \0 \0 032
0005320 g \0 \0 W ( \n \0 \0 277 W & 032 c & 277 L
0005340 h 032 o \0 \0 \0 O 016 \v \0 \0 277 O 016 006 \0
0005360 \0 _ 032 311 \0 O 032 311 002 O 032 311 004 O 032 311
0005400 004 021 004 021 021 020 022 O 020 W ( h W , \f \0
0005420 \0 277 L \t \0 \0 277 L d \t \0 \0 262 > 277 W
0005440 , 262 ! O $ \t \0 \0 260 027 d 001 _ 026 001 _
0005460 024 277 O 026 002 W ( l 002 O 024 017 016 277 002 003
0005500 265 352 L \t \0 \0 023 h W ( \n \0 \0 023 W (
0005520 \t \0 \0 c L 022 c > i 020 \t \0 \0 _ 030 277
0005540 N 222 O 030 204 O 030 \t \0 \0 _ 020 260 235 \0 (
0005560 5 4 4 c m l t r a n s l a t e
0005600 5 3 1 r e a d 5 2 1 c l
0005620 o s e f 5 1 5 p r i n t 5
0005640 0 8 c l o s e f 4 7 8 r e
0005660 v e r s e 4 6 6 e o f p 4
0005700 6 0 s k i p s e p r c o d e s
0005720 4 5 5 c o m p i l e - f i l
0005740 e - e x p r e s s i o n 4 1 7
0005760 p r i n t - c o m p i l e - h
0006000 e a d e r 3 9 8 s e t t o p
0006020 v a l 3 8 9 g e t t o p v a
0006040 l 3 6 3 r o o t f i l e n a
0006060 m e 3 5 5 o p e n s t r e a
0006100 m 3 4 2 p a c k f i l e n a
0006120 m e . s t r i n g 3 1 4 f u
0006140 l l n a m e 2 7 4 \ \ m v l
0006160 i s t 2 7 1 \ \ p a r s e -
0006200 f i l e - h e a d e r 2 4 9
0006220 o p e n s t r e a m 2 2 1 s
0006240 e t t o p v a l 2 1 2 g e t
0006260 t o p v a l 1 9 8 s e t t o
0006300 p v a l 1 8 0 g e t t o p v
0006320 a l 1 6 6 s e t t o p v a l
0006340 1 5 7 g e t t o p v a l 1
0006360 4 3 s e t t o p v a l 1 3 4
0006400 g e t t o p v a l 1 2 0 s
0006420 e t t o p v a l 1 1 3 g e t
0006440 t o p v a l 9 9 s e t t o p
0006460 v a l 9 0 g e t t o p v a l
0006500 7 6 s e t t o p v a l 6 7
0006520 g e t t o p v a l 5 3 s e
0006540 t t o p v a l 4 4 g e t t o
0006560 p v a l 3 0 s e t t o p v a
0006600 l 2 1 g e t t o p v a l ) \r
0006620 ( 4 2 3 r e a d e r - e n v i
0006640 r o n m e n t 3 9 3 l c f i
0006660 l 3 8 5 l c f i l 3 4 8
0006700 n e w 3 4 5 o u t p u t 3
0006720 3 6 b o d y 3 3 1 e x t e
0006740 n s i o n 3 2 7 v e r s i o
0006760 n 3 2 0 c o m p i l e . f i
0007000 l e . r e s e t 2 6 7 r e t
0007020 u r n 2 4 6 i n p u t 2 4
0007040 1 c l o s e f ? 2 1 6 l a
0007060 p f l g 2 0 8 l a p f l g
0007100 1 9 5 d e f e r 1 8 4 s v
0007120 f l g 1 7 6 s v f l g 1 6
0007140 1 s t r f 1 5 3 s t r f
0007160 1 3 8 c o u t f i l e 1 3 0
0007200 c o u t f i l e 1 1 7 d f
0007220 n f l g 1 0 9 d f n f l g
0007240 9 4 l a m a 8 6 l a m a
0007260 7 1 l a m s 6 3 l a m s
0007300 4 8 n l a m a 4 0 n l a m
0007320 a 2 5 n l a m l 1 7 n l
0007340 a m l 2 r e s e t u n d o )
0007360 \r ( 4 1 2 ( " C O M P I L E
0007400 - F I L E d " ) 3 5 2 ( ( t
0007420 y p e b i n a r y ) ) ) \r c l
0007440 : c o m p i l e - f i l e d 1
0007460 \r ( l ( 0 | - a r g s - | )
0007500 p 2 4 r e s e t y p 2
0007520 3 l i s p x h i s t p 2 2
0007540 c o m p i l e . f i l e . v a
0007560 l u e p 2 1 c o m p i l e
0007600 . f i l e . a f t e r p 2 0
0007620 p r o c e s s - e n t i r e -
0007640 f i l e p 1 7 p e f p p
0007660 1 6 c o m p i l e r - o u t
0007700 p u t p 1 3 s a v e - e x
0007720 p r s p 1 0 o u t p u t -
0007740 f i l e p 7 r e d e f i n
0007760 e p 4 l a p p 1 f i
0010000 l e n a m e f 2 6 l i s p
0010020 x h i s t f 2 7 r e s e t
0010040 v a r s l s t ) 001 b 032 002 002 \0 e
0010060 021 001 \0 k a 021 361 020 021 ` 026 H l 002 273 272
0010100 K d J 363 242 261 \0 235 277 h 274 H l 002 276 275
0010120 N d M 363 242 261 \0 242 277 h _ 016 277 H l 002
0010140 _ 022 277 _ 020 277 O 022 d O 020 363 242 261 \0 237
0010160 277 h _ 024 277 H l 002 _ 030 277 _ 026 277 O 030
0010200 d O 026 363 242 261 \0 237 277 i _ 032 277 H l 002
0010220 _ 036 277 _ 034 277 O 036 d O 034 363 242 261 \0 237
0010240 277 i _ 277 i _ " 277 H l 002 _ & 277 _
0010260 $ 277 O & d O $ 363 242 261 \0 233 277 h _ "
0010300 _ ( 277 h _ * _ , 277 W 4 021 ! 031 W 6
0010320 o \0 \0 \0 g \0 \0 \n \0 \0 242 261 \0 221 h 261
0010340 \0 220 a g \0 \0 360 226 K k 330 a 261 377 ^ K
0010360 l 002 324 [ 261 377 M a g \0 \0 360 226 N k 330
0010400 a 261 377 Y N l 002 324 ^ 261 377 H a g \0 \0
0010420 360 227 O 022 k 330 a 261 377 [ O 022 l 002 324 _
0010440 022 261 377 G a g \0 \0 360 227 O 030 k 330 a 261
0010460 377 [ O 030 l 002 324 _ 030 261 377 G a g \0 \0
0010500 360 227 O 036 k 330 a 261 377 [ O 036 l 002 324 _
0010520 036 261 377 G a g \0 \0 360 227 O & k 330 a 261
0010540 377 a O & l 002 324 _ & 261 377 K g \0 \0 _
0010560 2 \n \0 \0 277 O 2 223 \b \0 \0 277 023 O * \t
0010600 \0 \0 206 d 001 \t \0 \0 277 002 003 265 370 O , 020
0010620 \0 ( 3 4 4 e v a l 3 3 8 r
0010640 e v e r s e 3 3 1 e r r o r
0010660 ! 3 2 4 r e s e t r e s t o
0010700 r e 1 7 0 c o m p i l e - f
0010720 i l e a 0 0 0 1 ) \r ( 3 1 9 e
0010740 r r o r 2 9 6 : p r o c e s
0010760 s - e n t i r e - f i l e 2 7
0011000 2 : c o m p i l e r - o u t p
0011020 u t 2 4 8 : s a v e - e x p
0011040 r s 2 2 4 : o u t p u t - f
0011060 i l e 2 0 3 : r e d e f i n
0011100 e 1 8 2 : l a p 1 6 7 i
0011120 n t e r n a l ) \r ( 1 6 4 (
0011140 c o m p i l e - f i l e a 0 0 0
0011160 1 ) ) \r i n t e r l i s p - f o
0011200 r m a t - p d 1 \r ( i 0 s
0011220 t r e a m ) \0 031 \0 \0 \0 001 @ \t \0
0011240 \0 d l ; 360 221 h 020 d l 006 360 245 d l (
0011260 360 264 366 i 020 \0 ( 3 p e e k c c o
0011300 d e ) \r n i l \r ( ) \r i n t e r
0011320 l i s p - n l a m b d a - f u n
0011340 c t i o n - p d 1 \r ( i 0
0011360 x ) \0 # \0 \0 \0 001 @ 004 l 004 360 264 034
0011400 @ \t \0 \0 d k 360 244 d l 003 360 222 277 i 201
0011420 277 h 264 \b @ \t \0 \0 h 360 020 \0 ( 3 0
0011440 c l : s p e c i a l - f o r m -
0011460 p 1 0 a r g t y p e ) \r n i
0011500 l \r ( ) \r c o m p i l e - f i l
0011520 e - e x p r e s s i o n a 0 0 0
0011540 1 d 1 \r ( l ( 0 x ) ) \0
0011560 \a \0 \0 \0 001 @ d 003 220 001 020 \0 n i l \r
0011600 n i l \r ( ) \r c o m p i l e - f
0011620 i l e - e x p r e s s i o n a 0
0011640 0 0 2 d 1 \r ( l ( 0 x ) )
0011660 \0 \f \0 \0 \0 001 @ 003 264 \b @ 002 001 \t \0
0011700 \0 020 \0 ( 9 c l : e v a l ) \r n
0011720 i l \r ( ) \r c o m p i l e - f i
0011740 l e - e x p r e s s i o n a 0 0
0011760 0 3 a 0 0 0 4 d 1 \r ( l ( 0
0012000 x ) f 0 c o m p i l e d
0012020 . f i l e f 1 c o m p i l
0012040 e . t i m e . t o o f 2 d
0012060 e f e r ) \0 \t \0 003 \0 001 @ P Q R
0012100 \f \0 \0 020 \0 ( 6 c o m p i l e -
0012120 f i l e - e x p r e s s i o n )
0012140 \r n i l \r ( ) \r c o m p i l e -
0012160 f i l e - e x p r e s s i o n a
0012200 0 0 0 3 d 1 \r ( f 0 f o r
0012220 m ) \0 \v \0 001 \0 \0 g \0 \0 P 002 002 \n
0012240 \0 \0 020 \0 ( 8 c l : m a p c ) \r
0012260 ( 2 c o m p i l e - f i l e -
0012300 e x p r e s s i o n a 0 0 0 3 a
0012320 0 0 0 4 ) \r ( ) \r c o m p i l e
0012340 - f i l e - e x p r e s s i o n
0012360 d 1 \r ( p 8 p r o p p
0012400 7 i n n e r - f o r m p 6
0012420 i n n e r - f o r m p 5
0012440 c o m p i l e . s p e c i f i e
0012460 d p 4 l o a d . s p e c i
0012500 f i e d p 3 e v a l . s p
0012520 e c i f i e d p 2 v a l s
0012540 p 1 v a r s p 0 x
0012560 i 3 d e f e r i 2 c o
0012600 m p i l e . t i m e . t o o i
0012620 1 c o m p i l e d . f i l e
0012640 i 0 f o r m ) 001 X \t \0 \0
0012660 004 @ 003 264 003 202 261 001 B @ 001 d g \0 \0 360
0012700 232 277 @ A B i C \r 005 \0 \0 020 d g \0 \0
0012720 360 262 030 277 @ 214 d 001 021 001 \0 H A B C \f
0012740 \0 \0 023 002 003 265 361 h 020 d g \0 \0 360 222 261
0012760 \0 245 d g \0 \0 360 262 g \0 \0 @ 002 001 \n
0013000 \0 \0 g \0 \0 @ 002 001 \n \0 \0 021 002 002 I J
0013020 g \0 \0 \v \0 \0 020 d g \0 \0 360 262 z 277 g
0013040 \0 \0 @ 002 001 034 265 \t g \0 \0 @ 002 001 034 g
*
0013100 \0 \0 @ 002 001 034 265 \t g \0 \0 @ 002 001 034 021
0013120 003 005 L 263 % M 255 B 264 003 202 261 \0 235 K 264
0013140 003 202 261 \0 226 @ 002 211 d 001 021 001 006 N \t \0
0013160 \0 023 002 003 265 364 h 020 @ 002 260 026 d 001 021 001
0013200 \a O 016 A M 265 006 B 264 003 K C \f \0 \0 023
0013220 002 003 265 352 h 020 g \0 \0 360 234 @ A ` \0 \0
0013240 \v \0 \0 @ \t \0 \0 020 @ 001 g \0 \0 \n \0 \0
0013260 265 \n @ 001 g \0 \0 \n \0 \0 021 001 \b O 020 263
0013300 030 @ 001 \t \0 \0 257 @ 001 \t \0 \0 251 @ d \t
0013320 \0 \0 b \0 360 262 034 B 224 @ \t \0 \0 277 O 020
0013340 265 031 @ d g \0 \0 g \0 \0 \v \0 \0 b \0 364
0013360 255 @ A B C \f \0 \0 020 @ C \v \0 \0 020 g
0013400 \0 \0 @ C \v \0 \0 020 \0 ( 3 4 1 c o
0013420 m p i l e . f i l e . a p p l y
0013440 3 3 2 c o m p i l e . f i l
0013460 e . a p p l y 3 2 6 c o m p
0013500 i l e - f i l e - e x p r e s s
0013520 i o n 3 1 5 w a l k - f o r
0013540 m 2 9 9 e v a l 2 8 8 c
0013560 l : m a c r o e x p a n d - 1
0013600 2 8 2 i n t e r l i s p - n l
0013620 a m b d a - f u n c t i o n - p
0013640 2 7 6 c l : s p e c i a l -
0013660 f o r m - p 2 6 4 g e t p r
0013700 o p 2 5 4 g e t p r o p 2
0013720 4 5 e v a l 2 4 1 p r i n
0013740 t 2 2 1 c o m p i l e - f i
0013760 l e - e x p r e s s i o n 1 9
0014000 1 e v a l 1 0 0 \ \ d o .
0014020 p r o g v 8 9 c l : m a p c
0014040 a r 8 0 c l : m a p c a r
0014060 4 8 c o m p i l e - f i l e -
0014100 e x p r e s s i o n 2 5 c o
0014120 m p i l e - f i l e - d e c l a
0014140 r e \ : ) \r ( 3 3 6 p r i n t
0014160 3 1 2 c o m p i l e - f i l
0014200 e - w a l k - f u n c t i o n
0014220 3 0 9 : w a l k - f u n c t i
0014240 o n 2 6 1 c o m p i l e . f
0014260 i l e . e x p r e s s i o n 2
0014300 5 1 c o m p i l e - f i l e -
0014320 e x p r e s s i o n 2 3 8 f
0014340 i l e r d t b l 2 3 1 c l :
0014360 i n - p a c k a g e 1 5 3 c
0014400 l : c o m p i l e 1 4 4 c o
0014420 m p i l e 1 3 7 c l : l o a
0014440 d 1 2 8 l o a d 1 2 1 c
0014460 l : e v a l 1 1 2 e v a l
0014500 1 0 5 c l : e v a l - w h e n
0014520 9 7 c o m p i l e - f i l e
0014540 - e x p r e s s i o n a 0 0 0 3
0014560 8 3 c o m p i l e - f i l e
0014600 - e x p r e s s i o n a 0 0 0 2
0014620 7 4 c o m p i l e - f i l e
0014640 - e x p r e s s i o n a 0 0 0 1
0014660 6 8 c l : c o m p i l e r -
0014700 l e t 5 9 q u o t e 3 0
0014720 p r o g n 1 3 d e c l a r e
0014740 \ : ) \r ( ) \r c o m p i l e - f
0014760 i l e - w a l k - f u n c t i o
0015000 n d 1 \r ( i 0 f o r m )
0015020 \0 017 \0 \0 \0 001 @ d 003 240 020 d 001 \t \0 \0
0015040 \n \0 \0 020 \0 ( 1 2 c l : v a l u
0015060 e s 9 i n t e r l i s p - n
0015100 l a m b d a - f u n c t i o n -
0015120 p ) \r n i l \r ( ) \r a r g t y p
0015140 e . s t a t e d 1 \r ( p 0
0015160 x f 1 a r g t y p e . v a
0015200 r s ) \0 + 001 001 \0 \0 Q 260 $ d 001 021
0015220 001 \0 H i \n \0 \0 277 k i \n \0 \0 277 H 002
0015240 001 \t \0 \0 i \n \0 \0 277 i \t \0 \0 023 002 003
0015260 265 335 h 020 \0 ( 3 4 t e r p r i
0015300 2 9 p r i n 1 2 5 e v a l
0015320 1 8 s p a c e s 1 2 p r
0015340 i n 1 ) \r n i l \r ( ) \r c o m p
0015360 i l e . c h e c k . a r g t y p
0015400 e d 1 \r ( p 2 v a l p
0015420 1 a t y p e p a i r p 0
0015440 b l k f l g i 1 a t i
0015460 0 x f 3 c o u t f i l e
0015500 f 4 a r g t y p e . v a r
0015520 s ) \0 346 003 002 \0 002 A 021 020 \0 @ \t \0
0015540 \0 022 360 222 261 \0 330 T 261 \0 315 d 001 021 001 001
0015560 @ I 002 001 \t \0 \0 034 021 001 002 A I 001 360 262
0015600 D J 262 4 o \0 \0 \0 S \n \0 \0 277 @ S \n
0015620 \0 \0 277 o \0 \0 \0 S \n \0 \0 277 I 002 001 S
0015640 \n \0 \0 277 o \0 \0 \0 S \n \0 \0 277 I 002 002
0015660 001 S \n \0 \0 277 I 002 001 @ I 002 001 \t \0 \0
0015700 032 260 m J 262 n o \0 \0 \0 S \n \0 \0 277 @
0015720 S \n \0 \0 277 o \0 \0 \0 S \n \0 \0 277 g \0
0015740 \0 A T 026 002 002 001 265 006 o \0 \0 \0 g \0 \0
0015760 h 032 032 032 S \n \0 \0 277 o \0 \0 \0 S \n \0
0016000 \0 277 I 002 002 001 S \n \0 \0 277 o \0 \0 \0 S
0016020 \n \0 \0 277 I 002 001 S \n \0 \0 277 S \t \0 \0
0016040 277 I 002 001 @ I 002 001 \t \0 \0 \n \0 \0 \n \0
0016060 \0 277 023 023 002 003 265 003 202 261 377 2 h 020 \0 (
0016100 2 1 5 / s e t t o p v a l 2
0016120 1 2 r e m o v e 2 0 9 g e
0016140 t t o p v a l 1 9 8 t e r p
0016160 r i 1 9 3 p r i n 1 1 8 5
0016200 p r i n 1 1 7 6 p r i n 1
0016220 1 6 7 p r i n 1 1 5 8 p
0016240 r i n 1 1 3 1 p r i n 1 1
0016260 2 2 p r i n 1 1 1 6 p r i
0016300 n 1 1 0 2 g e t t o p v a l
0016320 9 1 p r i n 1 8 2 p r i
0016340 n 1 7 3 p r i n 1 6 5 p
0016360 r i n 1 5 6 p r i n 1 5 0
0016400 p r i n 1 2 9 \ \ e v a l
0016420 v 1 7 c o m p . a r g t y p
0016440 e ) \r ( 1 5 0 | f u n c t i o
0016460 n | 1 3 5 \ a ) \r ( 1 8 1
0016500 " b e c a u s e i t w a
0016520 s i n c o r r e c t l y o n
0016540 " 1 6 3 " w a s a "
0016560 1 4 7 " L A M B D A s p r
0016600 e a d " 1 2 7 " " 1 1 2
0016620 " W a r n i n g : c o m p i
0016640 l e r t h o u g h t " \r 7
0016660 8 " b u t c o m p i l e r
0016700 d o e s n ' t t h i n k i
0016720 t s a " 6 1 " o n "
0016740 4 6 " C o m p i l e r c o
0016760 n f u s e d : " ) \r c o m p i
0017000 l e . f i l e . d e f i n e q
0017020 d 1 \r ( p 1 d e f i 1
0017040 l c f i l i 0 f o r m f
0017060 2 d o n t c o m p i l e f n
0017100 s ) \0 2 002 001 \0 002 @ 002 021 021 001 H 003
0017120 265 004 h 020 001 Y d 001 R 034 263 032 001 I 002 001
0017140 \t \0 \0 \n \0 \0 277 I 001 I 001 I 002 001 \n \0
0017160 \0 \n \0 \0 277 H 002 X 260 327 \0 ( 4 2 b
0017200 y t e c o m p i l e 2 3 9 c
0017220 o m p i l e 1 a 2 8 c o m p
0017240 i l e . c h e c k . a r g t y p
0017260 e 2 5 a r g t y p e ) \r n i
0017300 l \r ( ) \r c o m p i l e - f i l
0017320 e - s e t f - s y m b o l - f u
0017340 n c t i o n d 1 \r ( i 1 l
0017360 c f i l i 0 f o r m ) \0
0017400 K \0 \0 \0 002 @ 002 002 001 003 001 d g \0 \0 360
0017420 245 d g \0 \0 360 222 277 i 201 277 h 262 $ @ d
0017440 002 001 003 001 g \0 \0 360 262 031 d 002 002 001 002 001
0017460 003 236 002 001 002 001 @ 002 002 001 002 001 \n \0 \0 020
0017500 @ g \0 \0 g \0 \0 \v \0 \0 A \n \0 \0 020 \0
0017520 ( 7 2 p r i n t 6 8 w a l
0017540 k - f o r m 5 7 b y t e c o
0017560 m p i l e 2 ) \r ( 6 5 c o m p
0017600 i l e - f i l e - w a l k - f u
0017620 n c t i o n 6 2 : w a l k -
0017640 f u n c t i o n 3 3 q u o t
0017660 e 1 5 c l : f u n c t i o n
0017700 9 f u n c t i o n ) \r ( ) \r
0017720 c o m p i l e - f i l e - e x /
0017740 i m p o r t d 1 \r ( i 2 r
0017760 d t b l i 1 l c f i l i
0020000 0 f o r m ) \0 \f \0 \0 \0 003 @
0020020 A B \v \0 \0 @ \t \0 \0 020 \0 ( 9 e v
0020040 a l 5 p r i n t ) \r n i l \r
0020060 ( ) \r c o m p i l e . f i l e .
0020100 a p p l y d 1 \r ( i 2 d e
0020120 f e r i 1 f o r m i 0
0020140 p r o p f 0 d e f e r r
0020160 e d . e x p r e s s i o n s f
0020200 1 c o m p i l e d . f i l e
0020220 ) \0 023 \0 002 \0 003 B 227 @ A 032 P 032 c
0020240 \0 020 A Q l 002 @ 017 016 020 \0 n i l \r n
0020260 i l \r ( ) \r c o m p i l e . f i
0020300 l e . r e s e t d 1 \r ( i 2
0020320 r o o t n a m e i 1 s o
0020340 u r c e f i l e i 0 c o m
0020360 p i l e d . f i l e f 0 r
0020400 e s e t s t a t e f 1 n o
0020420 t c o m p i l e d f i l e s )
0020440 \0 - \0 002 \0 003 @ 265 035 A 265 024 P 263 # g
0020460 \0 \0 B Q \n \0 \0 \n \0 \0 g \0 \0 020 \t \0
0020500 \0 277 260 352 \t \0 \0 262 342 @ \t \0 \0 277 260 333
0020520 h 020 \0 ( 3 8 c l o s e - a n d
0020540 - m a y b e - d e l e t e 3 2
0020560 o p e n p 2 6 c l o s e f
0020600 ? 1 9 / s e t a t o m v a l
0020620 1 6 r e m o v e ) \r ( 2 2
0020640 | R e m o v e s | 1 1 n o t
0020660 c o m p i l e d f i l e s ) \r (
0020700 ) \r c o m p i l e - i n - c o r
0020720 e a 0 0 0 1 a 0 0 0 2 d 1 \r (
0020740 n a m e e r r o r s e t p
0020760 7 f r e e v a r s p 6 l
0021000 c f i l p 5 l o c a l v a
0021020 r s p 4 s p e c v a r s
0021040 p 3 l s t f i l p 2 s
0021060 v f l g p 1 s t r f p
0021100 0 l a p f l g f 8 | f n
0021120 - e x p r | f 9 | f n - n
0021140 a m e | f 1 0 p r i n t l
0021160 a p f 1 1 b y t e c o m p
0021200 f l g f 1 2 n o s a v e
0021220 f 1 3 n o r e d e f i n e
0021240 f 1 4 | f n - t y p e | f
0021260 1 5 s y s s p e c v a r s
0021300 f 1 6 r e s e t y f 1 7
0021320 f r e e v a r s ) \0 C \b \n 002
0021340 \0 W 024 264 \t W 026 221 i 201 l 002 W 032 h 360
0021360 W 034 g \0 \0 360 223 g \0 \0 203 W 030 h 360 i
0021400 W 036 i 021 026 006 W 022 W 020 i \v \0 \0 c 020
0021420 277 W " 021 001 \a W 022 W 020 \n \0 \0 022 022 c
0021440 i 020 \0 ( 5 9 b y t e c o m p
0021460 i l e 2 4 4 c o m p i l e 1
0021500 a ) \r ( 2 4 s e l e c t o r
0021520 1 9 s e l e c t o r ) \r ( ) \r
0021540 c o m p i l e - i n - c o r e a
0021560 0 0 0 1 d 1 \r ( n a m e e r
0021600 r o r s e t p 2 r e s e t
0021620 z p 1 r e s e t y p 0
0021640 l i s p x h i s t f 3 n
0021660 u l l f i l e f 4 c o u t
0021700 f i l e f 5 l i s p x h i
0021720 s t f 6 r e s e t v a r s
0021740 l s t ) \0 G 003 004 002 \0 g \0 \0 \t \0
0021760 \0 233 S \t \0 \0 226 S \t \0 \0 221 S 212 g \0
0022000 \0 g \0 \0 \n \0 \0 c 006 c \b 277 U 021 ! 002
0022020 V o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0
0022040 \0 Z \n \0 \0 277 J 223 \b \0 \0 200 I 022 h 032
0022060 020 \0 ( 6 3 e r r o r ! 5 7
0022100 r e s e t r e s t o r e 4 7
0022120 c o m p i l e - i n - c o r e a
0022140 0 0 0 1 a 0 0 0 2 2 7 o p e
0022160 n f i l e 1 5 o p e n p 1
0022200 0 s t r e a m p 5 b o u n
0022220 d p ) \r ( 5 3 e r r o r 4 4
0022240 i n t e r n a l 2 4 o u t
0022260 p u t 2 1 { n u l l } 2
0022300 n u l l f i l e ) \r ( 4 1 (
0022320 c o m p i l e - i n - c o r e a
0022340 0 0 0 1 a 0 0 0 2 ) ) \r c o m p
0022360 i l e - i n - c o r e d 1 \r (
0022400 p 4 m a c r o y p 3 m
0022420 a c r o x p 2 p r i n t l
0022440 a p p 1 n o r e d e f i n
0022460 e p 0 d o n t - t r a n s
0022500 f e r - p u t d i 3 n o s
0022520 a v e i 2 | f n - t y p e
0022540 | i 1 | f n - e x p r |
0022560 i 0 | f n - n a m e | f
0022600 5 r e s e t v a r s l s t f
0022620 6 n l a m a f 7 n l a
0022640 m l f 8 l a m s f 9
0022660 l a m a f 1 0 n o f i x f
0022700 n s l s t f 1 1 n o f i x
0022720 v a r s l s t f 1 2 c o u
0022740 t f i l e ) \0 233 005 \b \0 004 i 021 A
0022760 004 g \0 \0 V 032 g \0 \0 W 016 032 g \0 \0 W
0023000 020 032 g \0 \0 W 022 032 g \0 \0 W 024 032 g \0
0023020 \0 W 026 032 g \0 \0 W 030 032 U 032 032 032 032 032
0023040 032 032 c \n [ \ o \0 \0 \0 g \0 \0 \n \0 \0
0023060 K 001 002 c \f 277 K 002 [ 001 002 c 016 277 K 002
0023100 [ 001 002 c 020 277 K 002 [ 001 002 c 022 277 K 002
0023120 [ 001 002 c 024 277 K 002 [ 001 002 c 026 277 K 002
0023140 [ 001 002 c 030 277 L d U 360 225 277 K 002 c \n
0023160 215 U \n \0 \0 231 U k L \v \0 \0 K 002 031 277
0023200 265 005 \b \0 \0 001 020 \0 ( 1 5 1 e r r
0023220 o r ! 1 4 2 n l e f t 1 3
0023240 5 t a i l p 6 6 c o m p i
0023260 l e - i n - c o r e a 0 0 0 1 )
0023300 \r ( 6 3 i n t e r n a l 4 1
0023320 c o u t f i l e 3 5 n o f
0023340 i x v a r s l s t 2 9 n o f
0023360 i x f n s l s t 2 3 l a m a
0023400 1 7 l a m s 1 1 n l a m
0023420 l 6 n l a m a ) \r ( 6 0
0023440 ( c o m p i l e - i n - c o r e
0023460 a 0 0 0 1 ) ) \r ( r p a q q a
0023500 r g t y p e . v a r s ( ( 1
0023520 n l a m l " N L A M B D A s
0023540 p r e a d " ) ( 2 l a m a
0023560 " L A M B D A n o s p r e a d
0023600 " ) ( 0 l a m s " L A M B
0023620 D A s p r e a d " ) ( 3 \r
0023640 n l a m a " N L A M B D A n
0023660 o - s p r e a d " ) ) ) \r ( p u
0023700 t p r o p s d e f i n e q c
0023720 o m p i l e - f i l e - e x p r
0023740 e s s i o n c o m p i l e . f
0023760 i l e . d e f i n e q ) \r ( p u
0024000 t p r o p s * c o m p i l e
0024020 - f i l e - e x p r e s s i o n
0024040 n i l l ) \r ( p u t p r o p s
0024060 s e t f - s y m b o l - f u n
0024100 c t i o n c o m p i l e - f i
0024120 l e - e x p r e s s i o n c o
0024140 m p i l e - f i l e - s e t f -
0024160 s y m b o l - f u n c t i o n )
0024200 \r ( p u t p r o p s p r e t t
0024220 y c o m p r i n t c o m p i l
0024240 e - f i l e - e x p r e s s i o
0024260 n n i l l ) \r c o m p i l e -
0024300 f i l e - d e c l a r e \ : d
0024320 1 \r ( l ( 4 d e f e r 3
0024340 d o c o p y 2 e v a l @ c o
0024360 m p i l e 1 c o m p i l e d
0024400 . f i l e 0 f o r m ) f
0024420 2 c o u t f i l e ) \0 370 002 001
0024440 \0 005 @ 002 021 021 001 H d \t \0 \0 221 h 020 001
0024460 004 l 004 360 242 261 \0 267 H 001 Y g \0 \0 360 222
0024500 261 \0 323 I g \0 \0 360 222 261 \0 312 I d g \0
0024520 \0 360 222 261 \0 277 d g \0 \0 360 226 277 H 002 X
0024540 261 \0 262 g \0 \0 360 247 I d g \0 \0 360 226 277
0024560 i b 004 261 \0 237 g \0 \0 360 225 h b 004 261 \0
0024600 224 I d g \0 \0 360 234 277 H 002 X 001 \t \0 \0
0024620 b 004 261 \0 200 g \0 \0 360 247 I d g \0 \0 360
0024640 225 277 i b 006 260 m g \0 \0 360 224 h b 006 260
0024660 c I d g \0 \0 360 233 277 H 002 X 001 \t \0 \0
0024700 b 006 260 P g \0 \0 360 230 R o \0 \0 \0 H 002
0024720 260 026 I g \0 \0 360 263 < I g \0 \0 360 263 5
0024740 R o \0 \0 \0 H 001 \v \0 \0 260 ( H 001 001 g
0024760 \0 \0 360 233 H 001 A B C D \r 005 \0 \0 260 024
0025000 B 225 H 001 \t \0 \0 277 C 230 H 001 A B D \f
0025020 \0 \0 277 H 002 X 261 377 022 \0 ( 2 3 9 c
0025040 o m p i l e - f i l e - e x p r
0025060 e s s i o n 2 2 8 e v a l
0025100 2 1 9 c o m p i l e - f i l e
0025120 - d e c l a r e \ : 1 9 9 c
0025140 l : f o r m a t 1 5 7 e v a
0025160 l 1 0 9 e v a l 9 c l :
0025200 e n d p ) \r ( 2 0 7 d e c l a
0025220 r e \ : 1 8 6 c o m p i l e
0025240 r v a r s 1 7 9 n o t f i r
0025260 s t 1 6 4 f i r s t 1 4 7
0025300 c o p y w h e n 1 3 5 d o
0025320 n t c o p y 1 2 4 d o c o p
0025340 y 1 1 7 c o p y 9 9 e v
0025360 a l @ c o m p i l e w h e n 8
0025400 6 d o n t e v a l @ c o m p i
0025420 l e 7 4 d o e v a l @ c o m
0025440 p i l e 6 7 e v a l @ c o m
0025460 p i l e 5 5 e v a l @ l o a
0025500 d w h e n 4 6 d o n t e v a
0025520 l @ l o a d 3 6 d o e v a l
0025540 @ l o a d 2 7 e v a l @ l o
0025560 a d ) \r ( 1 9 4 " W a r n i
0025600 n g : I g n o r i n g u n r
0025620 e c o g n i z e d D E C L A R
0025640 E : t a g : ~ S ~ % " 1 7
0025660 1 " W a r n i n g : ( D E C
0025700 L A R E : - - F I R S T -
0025720 - - - ) n o t i m p l e m
0025740 e n t e d i n C O M P I L E
0025760 - F I L E : ~ S ~ % " ) \r n e
0026000 w d e f c d 1 \r ( i 1 d f
0026020 i 0 n m f 2 d f n f
0026040 l g f 3 c o m p i l e . f
0026060 i l e . a f t e r f 4 s v
0026100 f l g f 5 * e r r o r - o
0026120 u t p u t * ) \0 212 002 004 \0 002 T g
0026140 \0 \0 360 262 5 g \0 \0 @ d 236 d i 360 252 3
0026160 020 265 \t g \0 \0 @ h 032 032 A d 236 d i 360
0026200 252 3 020 265 \t g \0 \0 A h 032 032 i h 032 032
0026220 032 032 S 032 c 006 260 O R 224 R i 360 262 ' @
0026240 \t \0 \0 262 031 @ i \n \0 \0 277 R 256 U o \0
0026260 \0 \0 @ \v \0 \0 277 @ \t \0 \0 277 @ A i \v
0026300 \0 \0 260 # @ g \0 \0 A d 005 006 262 026 277 l
0026320 \r 037 A 006 \0 \0 311 \0 021 002 001 H d I 024 \0
0026340 277 022 \v \0 \0 A 020 \0 ( 1 3 4 / p u
0026360 t p r o p 9 9 / p u t d 9
0026400 2 s a v e d e f 8 7 c l :
0026420 f o r m a t 7 5 v i r g i n
0026440 f n 6 8 \ \ d e f i n e d p
0026460 ) \r ( 1 1 9 a r r a y p 1 0
0026500 5 c o d e 4 1 q u o t e
0026520 2 3 q u o t e 9 n e w d e
0026540 f c 3 d e f e r ) \r ( 8 3
0026560 " ~ & ( ~ S r e d e f i n e
0026600 d ) ~ % " ) \r ( m o v d ( q u
0026620 o t e n e w d e f c ) ( q u
0026640 o t e d e f c ) ) \r ( p u t p
0026660 r o p s c m l c o m p i l e
0026700 f i l e t y p e c l : c o m p
0026720 i l e - f i l e ) \r ( p u t p r
0026740 o p s c m l c o m p i l e c
0026760 o p y r i g h t ( " X e r o x
0027000 C o r p o r a t i o n " 1 9
0027020 8 5 1 9 8 6 ) ) \r n i l \r
0027036