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