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