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