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