$ od -c -N 50000 [phylum]<LISP>KOTO>Library>ChapCONTROLFNS.txt!1 0000000 \r 9 . \t C O N D I T I O N A 0000020 L S A N D I T E R A T I V E 0000040 S T A T E M E N T S \r \r \r I 0000060 n o r d e r t o d o a n 0000100 y b u t t h e s i m p l e 0000120 s t c o m p u t a t i o n s , 0000140 i t i s n e c e s s a r y 0000160 t o t e s t v a l u e s 0000200 a n d e x e c u t e e x p r 0000220 e s s i o n s c o n d i t i o 0000240 n a l l y , a n d t o e x 0000260 e c u t e a s e r i e s o 0000300 f e x p r e s s i o n s . 0000320 I n t e r l i s p s u p p l i 0000340 e s a l a r g e n u m b e 0000360 r o f p r e d i c a t e s , 0000400 c o n d i t i o n a l f u n 0000420 c t i o n s , a n d c o n t 0000440 r o l f u n c t i o n s . 0000460 A l s o , t h e r e i s a 0000500 c o m p l e x " i t e r a t 0000520 i v e s t a t e m e n t " f 0000540 a c i l i t y w h i c h a l 0000560 l o w s t h e u s e r t o 0000600 e a s i l y c r e a t e c 0000620 o m p l e x l o o p s a n d 0000640 i t e r a t i v e c o n s t 0000660 r u c t s ( p a g e X . X X 0000700 ) . \r \r 9 . 1 \t D a t a T 0000720 y p e P r e d i c a t e s \r \r 0000740 I n t e r l i s p p r o v i d 0000760 e s s e p a r a t e f u n c 0001000 t i o n s f o r t e s t i n 0001020 g w h e t h e r o b j e c t 0001040 s a r e o f c e r t a i n 0001060 c o m m o n l y - u s e d t 0001100 y p e s : \r ( L I T A T O M X 0001120 ) \t [ F u n c t i o n ] \r R 0001140 e t u r n s T i f X i s 0001160 a l i t a t o m ( s e e 0001200 p a g e X . X X ) N I L o 0001220 t h e r w i s e . N o t e 0001240 t h a t a n u m b e r i s 0001260 n o t a l i t a t o m . 0001300 \r \r ( S M A L L P X ) \t [ 0001320 F u n c t i o n ] \r R e t u r n 0001340 s X i f X i s a s m 0001360 a l l i n t e g e r ; N I L 0001400 o t h e r w i s e . ( N o 0001420 t e t h a t t h e r a n g 0001440 e o f s m a l l i n t e g 0001460 e r s i s i m p l e m e n t 0001500 a t i o n - d e p e n d e n t . 0001520 S e e p a g e X . X X . 0001540 ) \r \r ( F I X P X ) \t [ F 0001560 u n c t i o n ] \r R e t u r n s 0001600 X i f X i s a s m a 0001620 l l o r l a r g e i n t e 0001640 g e r ; N I L o t h e r w i 0001660 s e . \r \r ( F L O A T P X ) 0001700 \t [ F u n c t i o n ] \r R e t 0001720 u r n s X i f X i s a 0001740 f l o a t i n g p o i n t 0001760 n u m b e r ; N I L o t h e 0002000 r w i s e . \r \r ( N U M B E R P 0002020 X ) \t [ F u n c t i o n ] 0002040 \r R e t u r n s X i f X 0002060 i s a n u m b e r o f a 0002100 n y t y p e ( F I X P o r 0002120 F L O A T P ) , N I L o t 0002140 h e r w i s e . \r \r ( A T O M 0002160 X ) \t [ F u n c t i o n ] \r 0002200 R e t u r n s T i f X i 0002220 s a n a t o m ( i . e . 0002240 a l i t a t o m o r a n 0002260 u m b e r ) ; N I L o t h e 0002300 r w i s e . \r W a r n i n g : 0002320 ( A T O M X ) i s N I L 0002340 i f X i s a n a r r a 0002360 y , s t r i n g , e t c . 0002400 I n m a n y d i a l e c t 0002420 s o f L i s p , t h e f 0002440 u n c t i o n A T O M i s 0002460 d e f i n e d e q u i v a l e 0002500 n t t o t h e I n t e r l 0002520 i s p f u n c t i o n N L I 0002540 S T P . \r \r ( L I S T P X ) 0002560 \t [ F u n c t i o n ] \r R e t 0002600 u r n s X i f X i s a 0002620 l i s t c e l l , e . g . 0002640 , s o m e t h i n g c r e a 0002660 t e d b y C O N S ; N I L 0002700 o t h e r w i s e . \r \r ( N L 0002720 I S T P X ) \t [ F u n c t 0002740 i o n ] \r ( N O T ( L I S T P 0002760 X ) ) . R e t u r n s T 0003000 i f X i s n o t a l 0003020 i s t c e l l , N I L o t 0003040 h e r w i s e . \r \r ( S T R I N 0003060 G P X ) \t [ F u n c t i o 0003100 n ] \r R e t u r n s X i f 0003120 X i s a s t r i n g , N 0003140 I L o t h e r w i s e . \r \r ( 0003160 A R R A Y P X ) \t [ F u n 0003200 c t i o n ] \r R e t u r n s X 0003220 i f X i s a n a r r a 0003240 y , N I L o t h e r w i s e 0003260 . \r N o t e : I n s o m e 0003300 i m p l e m e n t a t i o n s 0003320 o f I n t e r l i s p ( b 0003340 u t n o t I n t e r l i s p 0003360 - D ) , A R R A Y P m a y 0003400 a l s o r e t u r n X i f 0003420 i t i s o f t y p e C 0003440 C O D E P o r H A R R A Y P 0003460 . \r \r ( H A R R A Y P X ) 0003500 \t [ F u n c t i o n ] \r R e t u 0003520 r n s X i f i t i s a 0003540 h a s h a r r a y o b j e 0003560 c t ; o t h e r w i s e N I 0003600 L . \r N o t e t h a t H A R 0003620 R A Y P r e t u r n s N I L 0003640 i f X i s a l i s t 0003660 w h o s e C A R i s a n 0003700 H A R R A Y P , e v e n t h 0003720 o u g h t h i s i s a c c 0003740 e p t e d b y t h e h a s 0003760 h a r r a y f u n c t i o n 0004000 s . \r \r N o t e : T h e e 0004020 m p t y l i s t , ( ) o r 0004040 N I L , i s c o n s i d e 0004060 r e d t o b e a l i t a 0004100 t o m , r a t h e r t h a n 0004120 a l i s t . T h e r e f 0004140 o r e , ( L I T A T O M N I 0004160 L ) = ( A T O M N I L ) 0004200 = T a n d ( L I S T P N 0004220 I L ) = N I L . C a r e 0004240 s h o u l d b e t a k e n 0004260 w h e n u s i n g t h e s 0004300 e f u n c t i o n s i f t 0004320 h e o b j e c t m a y b e 0004340 t h e e m p t y l i s t 0004360 N I L . \r \r 9 . 2 \t E q u a 0004400 l i t y P r e d i c a t e s \r 0004420 \r A c o m m o n o p e r a t 0004440 i o n w h e n d e a l i n g 0004460 w i t h d a t a o b j e c 0004500 t s i s t o t e s t w h 0004520 e t h e r t w o o b j e c t 0004540 s a r e e q u a l . I n 0004560 s o m e c a s e s , s u c 0004600 h a s w h e n c o m p a r 0004620 i n g t w o s m a l l i n 0004640 t e g e r s , e q u a l i t y 0004660 c a n b e e a s i l y d 0004700 e t e r m i n e d . H o w e 0004720 v e r , s o m e t i m e s t 0004740 h e r e i s m o r e t h a 0004760 n o n e t y p e o f e q 0005000 u a l i t y . F o r i n s 0005020 t a n c e , g i v e n t w o 0005040 l i s t s , o n e c a n 0005060 a s k w h e t h e r t h e y 0005100 a r e e x a c t l y t h e 0005120 s a m e o b j e c t , o r 0005140 w h e t h e r t h e y a r 0005160 e t w o d i s t i n c t l 0005200 i s t s w h i c h c o n t a 0005220 i n t h e s a m e e l e m 0005240 e n t s . C o n f u s i o n 0005260 b e t w e e n t h e s e t 0005300 w o t y p e s o f e q u a 0005320 l i t y i s o f t e n t h 0005340 e s o u r c e o f p r o g 0005360 r a m e r r o r s . I n t 0005400 e r l i s p s u p p l i e s 0005420 a n e x t e n s i v e s e t 0005440 o f f u n c t i o n s f o 0005460 r t e s t i n g e q u a l i 0005500 t y : \r ( E Q X Y ) \t [ 0005520 F u n c t i o n ] \r R e t u r n 0005540 s T i f X a n d Y a 0005560 r e i d e n t i c a l p o i 0005600 n t e r s ; N I L o t h e r 0005620 w i s e . E Q s h o u l d 0005640 n o t b e u s e d t o 0005660 c o m p a r e t w o n u m b 0005700 e r s , u n l e s s t h e y 0005720 a r e s m a l l i n t e g 0005740 e r s ; u s e E Q P i n s 0005760 t e a d . \r \r ( N E Q X Y ) 0006000 \t [ F u n c t i o n ] \r ( N 0006020 O T ( E Q X Y ) ) \r \r ( N 0006040 U L L X ) \t [ F u n c t i 0006060 o n ] \r ( N O T X ) \t [ F 0006100 u n c t i o n ] \r ( E Q X N 0006120 I L ) \r \r ( E Q P X Y ) 0006140 \t [ F u n c t i o n ] \r R e t u 0006160 r n s T i f X a n d Y 0006200 a r e E Q , o r i f X 0006220 a n d Y a r e n u m b e 0006240 r s a n d a r e e q u a l 0006260 i n v a l u e ; N I L o 0006300 t h e r w i s e . F o r m 0006320 o r e d i s c u s s i o n o 0006340 f E Q P a n d o t h e r 0006360 n u m b e r f u n c t i o n s 0006400 , s e e p a g e X . X X . 0006420 \r N o t e : E Q P a l s o 0006440 c a n b e u s e d t o 0006460 c o m p a r e s t a c k p o 0006500 i n t e r s ( p a g e X . X 0006520 X ) a n d c o m p i l e d 0006540 c o d e ( p a g e X . X X ) 0006560 . \r \r ( E Q U A L X Y ) 0006600 \t [ F u n c t i o n ] \r E Q U A 0006620 L r e t u r n s T i f X 0006640 a n d Y a r e ( 1 ) E 0006660 Q ; o r ( 2 ) E Q P , i 0006700 . e . , n u m b e r s w i t 0006720 h e q u a l v a l u e ; o 0006740 r ( 3 ) S T R E Q U A L , 0006760 i . e . , s t r i n g s c o 0007000 n t a i n i n g t h e s a m 0007020 e s e q u e n c e o f c h 0007040 a r a c t e r s ; o r ( 4 ) 0007060 l i s t s a n d C A R o 0007100 f X i s E Q U A L t o 0007120 C A R o f Y , a n d C D 0007140 R o f X i s E Q U A L 0007160 t o C D R o f Y . E Q 0007200 U A L r e t u r n s N I L 0007220 o t h e r w i s e . N o t e 0007240 t h a t E Q U A L c a n 0007260 b e s i g n i f i c a n t l y 0007300 s l o w e r t h a n E Q . 0007320 \r A l o o s e d e s c r i p 0007340 t i o n o f E Q U A L m i 0007360 g h t b e t o s a y t h 0007400 a t X a n d Y a r e E 0007420 Q U A L i f t h e y p r i 0007440 n t o u t t h e s a m e 0007460 w a y . \r \r ( E Q U A L A L L 0007500 X Y ) \t [ F u n c t i o n 0007520 ] \r L i k e E Q U A L , e x 0007540 c e p t i t d e s c e n d s 0007560 i n t o t h e c o n t e n 0007600 t s o f a r r a y s , h a 0007620 s h a r r a y s , u s e r 0007640 d a t a t y p e s , e t c . 0007660 T w o n o n - E Q a r r 0007700 a y s m a y b e E Q U A L 0007720 A L L i f t h e i r r e s 0007740 p e c t i v e c o m p o n a n 0007760 t s a r e E Q U A L A L L . 0010000 \r \r \r 9 . 3 \t L o g i c a l 0010020 P r e d i c a t e s \r \r ( A N 0010040 D X 1 X 2 . . . X N ) 0010060 \t [ N L a m b d a N o S p r 0010100 e a d F u n c t i o n ] \r T a 0010120 k e s a n i n d e f i n i t 0010140 e n u m b e r o f a r g u 0010160 m e n t s ( i n c l u d i n g 0010200 z e r o ) , t h a t a r e 0010220 e v a l u a t e d i n o r 0010240 d e r . I f a n y a r g 0010260 u m e n t e v a l u a t e s 0010300 t o N I L , A N D i m m e 0010320 d i a t e l y r e t u r n s 0010340 N I L ( w i t h o u t e v a 0010360 l u a t i n g t h e r e m a 0010400 i n i n g a r g u m e n t s ) 0010420 . I f a l l o f t h e 0010440 a r g u m e n t s e v a l u 0010460 a t e t o n o n - N I L , 0010500 t h e v a l u e o f t h e 0010520 l a s t a r g u m e n t i 0010540 s r e t u r n e d . ( A N 0010560 D ) = > T . \r \r ( O R 0010600 X 1 X 2 . . . X N ) \t 0010620 [ N L a m b d a N o S p r e a 0010640 d F u n c t i o n ] \r T a k e 0010660 s a n i n d e f i n i t e 0010700 n u m b e r o f a r g u m e 0010720 n t s ( i n c l u d i n g z 0010740 e r o ) , t h a t a r e e 0010760 v a l u a t e d i n o r d e 0011000 r . I f a n y a r g u m 0011020 e n t i s n o n - N I L , 0011040 t h e v a l u e o f t h a 0011060 t a r g u m e n t i s r e 0011100 t u r n e d b y O R ( w i 0011120 t h o u t e v a l u a t i n g 0011140 t h e r e m a i n i n g a 0011160 r g u m e n t s ) . I f a 0011200 l l o f t h e a r g u m e 0011220 n t s e v a l u a t e t o 0011240 N I L , N I L i s r e t u 0011260 r n e d . ( O R ) = > 0011300 N I L . \r \r A N D a n d O 0011320 R c a n b e u s e d a s 0011340 s i m p l e l o g i c a l 0011360 c o n n e c t i v e s , b u t 0011400 n o t e t h a t t h e y 0011420 m a y n o t e v a l u a t e 0011440 a l l o f t h e i r a r 0011460 g u m e n t s . T h i s m 0011500 a k e s a d i f f e r e n c 0011520 e i f t h e e v a l u a t 0011540 i o n o f s o m e o f t 0011560 h e a r g u m e n t s c a u 0011600 s e s s i d e - e f f e c t s 0011620 . A n o t h e r r e s u l 0011640 t o f t h i s i m p l e m 0011660 e n t a t i o n o f A N D 0011700 a n d O R i s t h a t t 0011720 h e y c a n b e u s e d 0011740 a s s i m p l e c o n d i t 0011760 i o n a l s t a t e m e n t s 0012000 . F o r e x a m p l e : 0012020 ( A N D ( L I S T P X ) ( 0012040 C D R X ) ) r e t u r n s 0012060 t h e v a l u e o f ( C D 0012100 R X ) i f X i s a l 0012120 i s t c e l l , o t h e r w 0012140 i s e i t r e t u r n s N 0012160 I L w i t h o u t e v a l u 0012200 a t i n g ( C D R X ) . 0012220 I n g e n e r a l , t h i s 0012240 u s e o f A N D a n d 0012260 O R s h o u l d b e a v o 0012300 i d e d i n f a v o r o f 0012320 m o r e e x p l i c i t c 0012340 o n d i t i o n a l s t a t e 0012360 m e n t s i n o r d e r t 0012400 o m a k e p r o g r a m s 0012420 m o r e r e a d a b l e . \r \r 0012440 9 . 4 \t T h e C O N D C 0012460 o n d i t i o n a l F u n c t 0012500 i o n \r \r ( C O N D C L A U S 0012520 E 1 C L A U S E 2 . . . C 0012540 L A U S E K ) \t [ N L a m b 0012560 d a N o S p r e a d F u n c 0012600 t i o n ] \r T h e c o n d i t 0012620 i o n a l f u n c t i o n o 0012640 f I n t e r l i s p , C O N 0012660 D , t a k e s a n i n d e 0012700 f i n i t e n u m b e r o f 0012720 a r g u m e n t s , c a l l 0012740 e d c l a u s e s . E a c 0012760 h C L A U S E i i s a l 0013000 i s t o f t h e f o r m 0013020 ( P i C i 1 . . . C i N ) 0013040 , w h e r e P i i s t h 0013060 e p r e d i c a t e , a n d 0013100 C i 1 . . . C i N a r e 0013120 t h e c o n s e q u e n t s 0013140 . T h e o p e r a t i o n 0013160 o f C O N D c a n b e 0013200 p a r a p h r a s e d a s : \r 0013220 I F P 1 T H E N C 1 1 . 0013240 . . C 1 N E L S E I F P 2 0013260 T H E N C 2 1 . . . C 2 0013300 N E L S E I F P 3 . . . \r 0013320 T h e c l a u s e s a r e 0013340 c o n s i d e r e d i n s e 0013360 q u e n c e a s f o l l o w 0013400 s : t h e p r e d i c a t e 0013420 P 1 o f t h e c l a u s 0013440 e C L A U S E i i s e v a 0013460 l u a t e d . I f t h e 0013500 v a l u e o f P 1 i s " 0013520 t r u e " ( n o n - N I L ) , 0013540 t h e c o n s e q u e n t s 0013560 C i 1 . . . C i N a r e 0013600 e v a l u a t e d i n o r 0013620 d e r , a n d t h e v a l 0013640 u e o f t h e C O N D i 0013660 s t h e v a l u e o f C 0013700 i N , t h e l a s t e x p 0013720 r e s s i o n i n t h e c 0013740 l a u s e . I f P 1 i s 0013760 " f a l s e " ( E Q t o 0014000 N I L ) , t h e n t h e r 0014020 e m a i n d e r o f C L A U 0014040 S E i i s i g n o r e d , 0014060 a n d t h e n e x t c l a 0014100 u s e , C L A U S E i + 1 , 0014120 i s c o n s i d e r e d . 0014140 I f n o P i i s t r u e 0014160 f o r a n y c l a u s e , 0014200 t h e v a l u e o f t h 0014220 e C O N D i s N I L . \r N 0014240 o t e : I f a c l a u s 0014260 e h a s n o c o n s e q u 0014300 e n t s , a n d h a s t h 0014320 e f o r m ( P i ) , t h e 0014340 n i f P i e v a l u a t e 0014360 s t o n o n - N I L , i t 0014400 i s r e t u r n e d a s 0014420 t h e v a l u e o f t h e 0014440 C O N D . I t i s o n 0014460 l y e v a l u a t e d o n c 0014500 e . \r E x a m p l e : \r _ ( D 0014520 E F I N E Q ( D O U B L E ( 0014540 X ) \r 0014560 ( C O N D ( ( N U M B E R 0014600 P X ) ( P L U S X X ) ) 0014620 \r 0014640 ( ( S T R I N G P 0014660 X ) ( C O N C A T X X ) ) 0014700 \r 0014720 ( ( A T O M X ) 0014740 ( P A C K * X X ) ) \r 0014760 0015000 ( T ( P R I N T " u n k 0015020 n o w n " ) X ) \r 0015040 ( 0015060 ( H O R R I B L E - E R R O R ) 0015100 ) ] \r ( D O U B L E ) \r _ ( D 0015120 O U B L E 5 ) \r 1 0 \r _ ( D 0015140 O U B L E " F O O " ) \r " F O 0015160 O F O O " \r _ ( D O U B L E 0015200 ' B A R ) \r B A R B A R \r _ ( 0015220 D O U B L E ' ( A B C ) ) 0015240 \r " u n k n o w n " \r ( A B 0015260 C ) \r A f e w p o i n t s 0015300 a b o u t t h i s e x a m p 0015320 l e : N o t i c e t h a t 0015340 5 i s b o t h a n u m 0015360 b e r a n d a n a t o m , 0015400 b u t i t i s " c a u g 0015420 h t " b y t h e N U M B E 0015440 R P c l a u s e b e f o r e 0015460 t h e A T O M c l a u s e 0015500 . A l s o n o t i c e t 0015520 h e p r e d i c a t e T , 0015540 w h i c h i s a l w a y s 0015560 t r u e . T h i s i s t 0015600 h e n o r m a l w a y t o 0015620 i n d i c a t e a C O N D 0015640 c l a u s e w h i c h w i 0015660 l l a l w a y s b e e x e 0015700 c u t e d ( i f n o n e o 0015720 f t h e p r e c e e d i n g 0015740 c l a u s e s a r e t r u 0015760 e ) . ( H O R R I B L E - E 0016000 R R O R ) w i l l n e v e r 0016020 b e e x e c u t e d . \r \r \r 0016040 9 . 5 \t T h e I F S t a 0016060 t e m e n t \r \r T h e I F s 0016100 t a t e m e n t p r o v i d e 0016120 s a w a y o f w a y o 0016140 f s p e c i f y i n g c o n 0016160 d i t i o n a l e x p r e s s 0016200 i o n s t h a t i s m u c 0016220 h e a s i e r a n d r e a 0016240 d a b l e t h a n u s i n g 0016260 t h e C O N D f u n c t i 0016300 o n d i r e c t l y ( p a g 0016320 e X . X X ) . C L I S P 0016340 t r a n s l a t e s e x p r e 0016360 s s i o n s e m p l o y i n g 0016400 I F , T H E N , E L S E I 0016420 F , o r E L S E ( o r t 0016440 h e i r l o w e r c a s e v 0016460 e r s i o n s ) i n t o e q 0016500 u i v a l e n t C O N D e x 0016520 p r e s s i o n s . I n g 0016540 e n e r a l , s t a t e m e n 0016560 t s o f t h e f o r m : \r 0016600 ( i f A A A t h e n B B B 0016620 e l s e i f C C C t h e n 0016640 D D D e l s e E E E ) \r a 0016660 r e t r a n s l a t e d t o 0016700 : \r ( C O N D ( A A A B B B 0016720 ) \r ( C C C D D D 0016740 ) \r ( T E E E ) 0016760 ) \r T h e s e g m e n t b e 0017000 t w e e n I F o r E L S E 0017020 I F a n d t h e n e x t 0017040 T H E N c o r r e s p o n d s 0017060 t o t h e p r e d i c a t 0017100 e o f a C O N D c l a u 0017120 s e , a n d t h e s e g m 0017140 e n t b e t w e e n T H E N 0017160 a n d t h e n e x t E L 0017200 S E o r E L S E I F a s 0017220 t h e c o n s e q u e n t ( s 0017240 ) . E L S E i s t h e 0017260 s a m e a s E L S E I F T 0017300 T H E N . T h e s e w o 0017320 r d s a r e s p e l l i n g 0017340 c o r r e c t e d u s i n g 0017360 t h e s p e l l i n g l i 0017400 s t C L I S P I F W O R D S P 0017420 L S T . L o w e r c a s e 0017440 v e r s i o n s ( i f , t 0017460 h e n , e l s e i f , e l s 0017500 e ) m a y a l s o b e u 0017520 s e d . \r I f t h e r e i s 0017540 n o t h i n g f o l l o w i 0017560 n g a T H E N , o r T H 0017600 E N i s o m i t t e d e n 0017620 t i r e l y , t h e n t h e 0017640 r e s u l t i n g C O N D 0017660 c l a u s e h a s a p r e 0017700 d i c a t e b u t n o c o 0017720 n s e q u e n t . F o r e 0017740 x a m p l e , ( i f X t h 0017760 e n e l s e i f . . . ) a 0020000 n d ( i f X e l s e i f 0020020 . . . ) b o t h t r a n s l 0020040 a t e t o ( C O N D ( X ) 0020060 . . . ) , w h i c h m e a 0020100 n s t h a t i f X i s 0020120 n o t N I L , i t i s r 0020140 e t u r n e d a s t h e v 0020160 a l u e o f t h e C O N D 0020200 . \r N o t e t h a t o n l y 0020220 o n e e x p r e s s i o n 0020240 i s a l l o w e d a s t h 0020260 e p r e d i c a t e , b u t 0020300 m u l t i p l e e x p r e s 0020320 s i o n s a r e a l l o w e 0020340 d a s t h e c o n s e q u 0020360 e n t s a f t e r T H E N 0020400 o r E L S E . M u l t i p 0020420 l e c o n s e q u e n t e x 0020440 p r e s s i o n s a r e i m 0020460 p l i c i t e l y w r a p p e 0020500 d i n a P R O G N , a n 0020520 d t h e v a l u e o f t 0020540 h e l a s t o n e i s r 0020560 e t u r n e d a s t h e v 0020600 a l u e o f t h e c o n s 0020620 e q u e n t . F o r e x a 0020640 m p l e : \r ( i f X t h e n 0020660 ( P R I N T " F O O " ) ( 0020700 P R I N T " B A R " ) e l s 0020720 e i f Y t h e n ( P R I N 0020740 T " B A Z " ) ) \r C L I S P 0020760 c o n s i d e r s I F , T H 0021000 E N , E L S E , a n d E L 0021020 S E I F t o h a v e l o w 0021040 e r p r e c e d e n c e t h 0021060 a n a l l i n f i x a n d 0021100 p r e f i x o p e r a t o r 0021120 s , a s w e l l a s I n 0021140 t e r l i s p f o r m s , s 0021160 o i t i s s o m e t i m e 0021200 s p o s s i b l e t o o m 0021220 i t p a r e n t h e s e s a 0021240 r o u n d p r e d i c a t e 0021260 o r c o n s e q u e n t f o 0021300 r m s . F o r e x a m p l 0021320 e , ( i f F O O X Y t 0021340 h e n . . . ) i s e q u i 0021360 v a l e n t t o ( i f ( F 0021400 O O X Y ) t h e n . . . 0021420 ) , a n d ( i f X t h e 0021440 n F O O X Y e l s e . 0021460 . . ) a s e q u i v a l e n 0021500 t t o ( i f X t h e n 0021520 ( F O O X Y ) e l s e . 0021540 . . ) . E s s e n t i a l l 0021560 y , C L I S P d e t e r m i 0021600 n e s w h e t h e r t h e 0021620 s e g m e n t b e t w e e n 0021640 T H E N a n d t h e n e x 0021660 t E L S E o r E L S E I F 0021700 c o r r e s p o n d s t o 0021720 o n e f o r m o r s e v e 0021740 r a l a n d a c t s a c c 0021760 o r d i n g l y , o c c a s i 0022000 o n a l l y i n t e r a c t i 0022020 n g w i t h t h e u s e r 0022040 t o r e s o l v e a m b i 0022060 g u o u s c a s e s . N o 0022100 t e t h a t i f F O O i 0022120 s b o u n d a s a v a r 0022140 i a b l e , ( i f F O O t 0022160 h e n . . . ) i s t r a n 0022200 s l a t e d a s ( C O N D 0022220 ( F O O . . . ) ) , s o i 0022240 f a c a l l t o t h e 0022260 f u n c t i o n F O O i s 0022300 d e s i r e d , u s e ( i f 0022320 ( F O O ) t h e n . . . ) 0022340 . \r \r 9 . 6 \t S e l e c t i 0022360 o n F u n c t i o n s \r \r ( S 0022400 E L E C T Q X C L A U S E 1 0022420 C L A U S E 2 . . . C L A 0022440 U S E K D E F A U L T ) \t 0022460 [ N L a m b d a N o S p r e a 0022500 d F u n c t i o n ] \r S e l e 0022520 c t s a f o r m o r s e 0022540 q u e n c e o f f o r m s 0022560 b a s e d o n t h e v a l 0022600 u e o f X . E a c h c 0022620 l a u s e C L A U S E i i s 0022640 a l i s t o f t h e f 0022660 o r m ( S i C i 1 . . . 0022700 C i N ) w h e r e S i i s 0022720 t h e s e l e c t i o n k 0022740 e y . T h e o p e r a t i 0022760 o n o f S E L E C T Q c a 0023000 n b e p a r a p h r a s e d 0023020 a s : \r I F X = S 1 T 0023040 H E N C 1 1 . . . C 1 N 0023060 E L S E I F X = S 2 T H 0023100 E N . . . E L S E D E F A 0023120 U L T . \r I f S i i s a n 0023140 a t o m , t h e v a l u e 0023160 o f X i s t e s t e d 0023200 t o s e e i f i t i s 0023220 E Q t o S i ( w h i c h 0023240 i s n o t e v a l u a t e d 0023260 ) . I f s o , t h e e 0023300 x p r e s s i o n s C i 1 . 0023320 . . C i N a r e e v a l u 0023340 a t e d i n s e q u e n c e 0023360 , a n d t h e v a l u e 0023400 o f t h e S E L E C T Q i 0023420 s t h e v a l u e o f t 0023440 h e l a s t e x p r e s s i 0023460 o n e v a l u a t e d , i . 0023500 e . , C i N . \r I f S i i 0023520 s a l i s t , t h e v a 0023540 l u e o f X i s c o m p 0023560 a r e d w i t h e a c h e 0023600 l e m e n t ( n o t e v a l 0023620 u a t e d ) o f S i , a n 0023640 d i f X i s E Q t o 0023660 a n y o n e o f t h e m , 0023700 t h e n C i 1 . . . C i 0023720 N a r e e v a l u a t e d 0023740 a s a b o v e . \r I f C L A 0023760 U S E i i s n o t s e l e 0024000 c t e d i n o n e o f t 0024020 h e t w o w a y s d e s c 0024040 r i b e d , C L A U S E i + 1 0024060 i s t e s t e d , e t c . 0024100 , u n t i l a l l t h e 0024120 c l a u s e s h a v e b e e 0024140 n t e s t e d . I f n o 0024160 n e i s s e l e c t e d , 0024200 D E F A U L T i s e v a l u 0024220 a t e d , a n d i t s v a 0024240 l u e i s r e t u r n e d 0024260 a s t h e v a l u e o f 0024300 t h e S E L E C T Q . D E 0024320 F A U L T m u s t b e p r 0024340 e s e n t . \r A n e x a m p l 0024360 e o f t h e f o r m o f 0024400 a S E L E C T Q i s : \r [ 0024420 S E L E C T Q M O N T H \r 0024440 ( F E B R U A R Y ( i f ( 0024460 L E A P Y E A R P ) t h e n 0024500 2 9 e l s e 2 8 ) ) \r 0024520 ( ( A P R I L J U N E S E P 0024540 T E M B E R N O V E M B E R ) 0024560 3 0 ) \r 3 1 ] \r I f t 0024600 h e v a l u e o f M O N T 0024620 H i s t h e l i t a t o m 0024640 F E B R U A R Y , t h e S 0024660 E L E C T Q r e t u r n s 2 0024700 8 o r 2 9 ( d e p e n d i 0024720 n g o n ( L E A P Y E A R P 0024740 ) ) ; o t h e r w i s e i 0024760 f M O N T H i s A P R I L 0025000 , J U N E , S E P T E M B E 0025020 R , o r N O V E M B E R , 0025040 t h e S E L E C T Q r e t u 0025060 r n s 3 0 ; o t h e r w i 0025100 s e i t r e t u r n s 3 1 0025120 . \r S E L E C T Q c o m p i l 0025140 e s o p e n , a n d i s 0025160 t h e r e f o r e v e r y f 0025200 a s t ; h o w e v e r , i t 0025220 w i l l n o t w o r k i 0025240 f t h e v a l u e o f X 0025260 i s a l i s t , a l a 0025300 r g e i n t e g e r , o r 0025320 f l o a t i n g p o i n t n 0025340 u m b e r , s i n c e S E L 0025360 E C T Q u s e s E Q f o r 0025400 a l l c o m p a r i s o n s 0025420 . \r \r N o t e : S E L C H A 0025440 R Q ( p a g e X . X X ) i 0025460 s a v e r s i o n o f S 0025500 E L E C T Q t h a t r e c o 0025520 g n i z e s C H A R C O D E 0025540 l i t a t o m s . \r ( S E L E C 0025560 T C X C L A U S E 1 C L A 0025600 U S E 2 . . . C L A U S E K 0025620 D E F A U L T ) \t [ N L a 0025640 m b d a N o S p r e a d F u 0025660 n c t i o n ] \r " S E L E C T Q 0025700 - o n - C o n s t a n t . " 0025720 S i m i l a r t o S E L E C 0025740 T Q e x c e p t t h a t t 0025760 h e s e l e c t i o n k e y 0026000 s a r e e v a l u a t e d , 0026020 a n d t h e r e s u l t 0026040 u s e d a s a S E L E C T 0026060 Q - s t y l e s e l e c t i o 0026100 n k e y . \r S E L E C T C i 0026120 s c o m p i l e d a s a 0026140 S E L E C T Q , w i t h t h 0026160 e s e l e c t i o n k e y s 0026200 e v a l u a t e d a t c o 0026220 m p i l e - t i m e . T h e 0026240 r e f o r e , t h e s e l e 0026260 c t i o n k e y s a c t l 0026300 i k e c o m p i l e - t i m e 0026320 c o n s t a n t s ( s e e 0026340 p a g e X . X X ) . F o r 0026360 e x a m p l e : \r [ S E L E C 0026400 T C N U M \r ( ( f o r 0026420 X f r o m 1 t o 9 c 0026440 o l l e c t ( T I M E S X 0026460 X ) ) " S Q U A R E " ) \r 0026500 " H I P " ] \r c o m p i l e 0026520 s a s : \r [ S E L E C T Q N 0026540 U M \r ( ( 1 4 9 1 0026560 6 2 5 3 6 4 9 6 4 8 1 0026600 ) " S Q U A R E " ) \r 0026620 " H I P " ] \r \r \r 9 . 7 \t P 0026640 R O G a n d A s s o c i a t 0026660 e d C o n t r o l F u n c t 0026700 i o n s \r \r ( P R O G 1 X 1 0026720 X 2 . . . X N ) \t [ N L 0026740 a m b d a N o S p r e a d F 0026760 u n c t i o n ] \r E v a l u a t 0027000 e s i t s a r g u m e n t s 0027020 i n o r d e r , a n d r 0027040 e t u r n s t h e v a l u e 0027060 o f i t s f i r s t a r 0027100 g u m e n t X 1 . F o r 0027120 e x a m p l e , ( P R O G 1 0027140 X ( S E T Q X Y ) ) s e 0027160 t s X t o Y , a n d r 0027200 e t u r n s X ' s o r i g i 0027220 n a l v a l u e . \r \r ( P R O 0027240 G 2 X 1 X 2 . . . X N ) 0027260 \t [ N o S p r e a d F u n 0027300 c t i o n ] \r S i m i l a r t 0027320 o P R O G 1 . E v a l u a 0027340 t e s i t s a r g u m e n t 0027360 s i n o r d e r , a n d 0027400 r e t u r n s t h e v a l u 0027420 e o f i t s s e c o n d 0027440 a r g u m e n t X 2 . \r \r ( P 0027460 R O G N X 1 X 2 . . . X 0027500 N ) \t [ N L a m b d a N o 0027520 S p r e a d F u n c t i o n ] 0027540 \r P R O G N e v a l u a t e s 0027560 e a c h o f i t s a r g 0027600 u m e n t s i n o r d e r , 0027620 a n d r e t u r n s t h e 0027640 v a l u e o f i t s l a 0027660 s t a r g u m e n t . P R 0027700 O G N i s u s e d t o s 0027720 p e c i f y m o r e t h a n 0027740 o n e c o m p u t a t i o n 0027760 w h e r e t h e s y n t a 0030000 x a l l o w s o n l y o n 0030020 e , e . g . , ( S E L E C T 0030040 Q . . . ( P R O G N . . . 0030060 ) ) a l l o w s e v a l u a 0030100 t i o n o f s e v e r a l 0030120 e x p r e s s i o n s a s t 0030140 h e d e f a u l t c o n d i 0030160 t i o n f o r a S E L E C 0030200 T Q . \r \r ( P R O G V A R L S 0030220 T E 1 E 2 . . . E N ) 0030240 \t [ N L a m b d a N o S p r 0030260 e a d F u n c t i o n ] \r T h 0030300 i s f u n c t i o n a l l o 0030320 w s t h e u s e r t o w 0030340 r i t e a n A L G O L - l i 0030360 k e p r o g r a m c o n t a 0030400 i n i n g I n t e r l i s p 0030420 e x p r e s s i o n s ( f o r 0030440 m s ) t o b e e x e c u t 0030460 e d . T h e f i r s t a 0030500 r g u m e n t , V A R L S T , 0030520 i s a l i s t o f l o 0030540 c a l v a r i a b l e s ( m 0030560 u s t b e N I L i f n o 0030600 v a r i a b l e s a r e u 0030620 s e d ) . E a c h a t o m 0030640 i n V A R L S T i s t r 0030660 e a t e d a s t h e n a m 0030700 e o f a l o c a l v a r 0030720 i a b l e a n d b o u n d 0030740 t o N I L . V A R L S T 0030760 c a n a l s o c o n t a i n 0031000 l i s t s o f t h e f 0031020 o r m ( L I T A T O M F O R 0031040 M ) . I n t h i s c a s 0031060 e , L I T A T O M i s t h 0031100 e n a m e o f t h e v a 0031120 r i a b l e a n d i s b o 0031140 u n d t o t h e v a l u e 0031160 o f F O R M . T h e e 0031200 v a l u a t i o n t a k e s 0031220 p l a c e b e f o r e a n y 0031240 o f t h e b i n d i n g s 0031260 a r e p e r f o r m e d , 0031300 e . g . , ( P R O G ( ( X 0031320 Y ) ( Y X ) ) . . . ) w 0031340 i l l b i n d l o c a l v 0031360 a r i a b l e X t o t h e 0031400 v a l u e o f Y ( e v a 0031420 l u a t e d o u t s i d e t 0031440 h e P R O G ) a n d l o c 0031460 a l v a r i a b l e Y t o 0031500 t h e v a l u e o f X 0031520 ( o u t s i d e t h e P R O 0031540 G ) . A n a t t e m p t 0031560 t o u s e a n y t h i n g 0031600 o t h e r t h a n a l i t 0031620 a t o m a s a P R O G v 0031640 a r i a b l e w i l l c a u 0031660 s e a n e r r o r , A R G 0031700 N O T L I T A T O M . A 0031720 n a t t e m p t t o u s e 0031740 N I L o r T a s a P 0031760 R O G v a r i a b l e w i l 0032000 l c a u s e a n e r r o r 0032020 , A T T E M P T T O B I N 0032040 D N I L O R T . \r T h e 0032060 r e s t o f t h e P R O G 0032100 i s a s e q u e n c e o 0032120 f n o n - a t o m i c s t a 0032140 t e m e n t s ( f o r m s ) 0032160 a n d l i t a t o m s ( l a 0032200 b e l s ) . T h e f o r m 0032220 s a r e e v a l u a t e d 0032240 s e q u e n t i a l l y ; t h 0032260 e l a b e l s s e r v e o 0032300 n l y a s m a r k e r s . 0032320 T h e t w o s p e c i a l 0032340 f u n c t i o n s G O a n 0032360 d R E T U R N a l t e r t 0032400 h i s f l o w o f c o n t 0032420 r o l a s d e s c r i b e d 0032440 b e l o w . T h e v a l 0032460 u e o f t h e P R O G i 0032500 s u s u a l l y s p e c i f 0032520 i e d b y t h e f u n c t 0032540 i o n R E T U R N . I f 0032560 n o R E T U R N i s e x e 0032600 c u t e d b e f o r e t h e 0032620 P R O G " f a l l s o f f 0032640 t h e e n d , " t h e v 0032660 a l u e o f t h e P R O G 0032700 i s N I L . \r \r ( G O U ) 0032720 \t [ N L a m b d a N o S p 0032740 r e a d F u n c t i o n ] \r G 0032760 O i s u s e d t o c a u 0033000 s e a t r a n s f e r i n 0033020 a P R O G . ( G O L ) 0033040 w i l l c a u s e t h e 0033060 P R O G t o e v a l u a t e 0033100 f o r m s s t a r t i n g 0033120 a t t h e l a b e l L ( 0033140 G O d o e s n o t e v a l 0033160 u a t e i t s a r g u m e n 0033200 t ) . A G O c a n b e 0033220 u s e d a t a n y l e v 0033240 e l i n a P R O G . I 0033260 f t h e l a b e l i s n 0033300 o t f o u n d , G O w i l 0033320 l s e a r c h h i g h e r 0033340 p r o g s w i t h i n t h e 0033360 s a m e f u n c t i o n , 0033400 e . g . , ( P R O G . . . 0033420 A . . . ( P R O G . . . 0033440 ( G O A ) ) ) . I f t h e 0033460 l a b e l i s n o t f o 0033500 u n d i n t h e f u n c t 0033520 i o n i n w h i c h t h e 0033540 P R O G a p p e a r s , a 0033560 n e r r o r i s g e n e r 0033600 a t e d , U N D E F I N E D 0033620 O R I L L E G A L G O . \r \r 0033640 ( R E T U R N X ) \t [ F u 0033660 n c t i o n ] \r A R E T U R N 0033700 i s t h e n o r m a l e 0033720 x i t f o r a P R O G . 0033740 I t s a r g u m e n t i s 0033760 e v a l u a t e d a n d i s 0034000 i m m e d i a t e l y r e t 0034020 u r n e d t h e v a l u e 0034040 o f t h e P R O G i n w 0034060 h i c h i t a p p e a r s . 0034100 \r \r N o t e : I f a G O 0034120 o r R E T U R N i s e x 0034140 e c u t e d i n a n i n t 0034160 e r p r e t e d f u n c t i o 0034200 n w h i c h i s n o t a 0034220 P R O G , t h e G O o r 0034240 R E T U R N w i l l b e 0034260 e x e c u t e d i n t h e 0034300 l a s t i n t e r p r e t e d 0034320 P R O G e n t e r e d i f 0034340 a n y , o t h e r w i s e 0034360 c a u s e a n e r r o r . \r 0034400 G O o r R E T U R N i n s 0034420 i d e o f a c o m p i l e 0034440 d f u n c t i o n t h a t 0034460 i s n o t a P R O G i s 0034500 n o t a l l o w e d , a n 0034520 d w i l l c a u s e a n 0034540 e r r o r a t c o m p i l e 0034560 t i m e . \r A s a c o r o 0034600 l l a r y , G O o r R E T 0034620 U R N i n a f u n c t i o 0034640 n a l a r g u m e n t , e . 0034660 g . , t o S O R T , w i l 0034700 l n o t w o r k c o m p i 0034720 l e d . A l s o , s i n c 0034740 e N L S E T Q ' s a n d E 0034760 R S E T Q ' s c o m p i l e 0035000 a s s e p a r a t e f u n c 0035020 t i o n s , a G O o r R 0035040 E T U R N c a n n o t b e 0035060 u s e d i n s i d e o f a 0035100 c o m p i l e d N L S E T Q 0035120 o r E R S E T Q i f t h 0035140 e c o r r e s p o n d i n g 0035160 P R O G i s o u t s i d e , 0035200 i . e . , a b o v e , t h 0035220 e N L S E T Q o r E R S E 0035240 T Q . \r ( L E T V A R L S T 0035260 E 1 E 2 . . . E N ) \t 0035300 [ M a c r o ] \r L E T i s e 0035320 s s e n t i a l l y a P R O 0035340 G t h a t c a n ' t c o n 0035360 t a i n G O ' s o r R E T 0035400 U R N ' s , a n d w h o s e 0035420 l a s t f o r m i s t h 0035440 e r e t u r n e d v a l u e 0035460 . \r \r ( L E T * V A R L S T 0035500 E 1 E 2 . . . E N ) \t 0035520 [ M a c r o ] \r ( P R O G * V 0035540 A R L S T E 1 E 2 . . . 0035560 E N ) \t [ M a c r o ] \r L E 0035600 T * a n d P R O G * d i f 0035620 f e r f r o m L E T a n d 0035640 P R O G o n l y i n t h 0035660 a t t h e b i n d i n g o 0035700 f t h e b o u n d v a r i 0035720 a b l e s i s d o n e " s 0035740 e q u e n t i a l l y . " T 0035760 h u s \r ( L E T * ( ( A ( L 0036000 I S T 5 ) ) \r ( B 0036020 ( L I S T A A ) ) ) \r 0036040 ( E Q A ( C A D R B ) ) 0036060 ) \r w o u l d e v a l u a t e 0036100 t o T ; w h e r e a s t 0036120 h e s a m e f o r m w i t 0036140 h L E T m i g h t e v e n 0036160 f i n d A a n u n b o u 0036200 n d v a r i a b l e w h e n 0036220 e v a l u a t i n g ( L I S 0036240 T A A ) . \r \r \r 9 . 8 \t 0036260 T h e I t e r a t i v e S t 0036300 a t e m e n t \r \r T h e i t e 0036320 r a t i v e s t a t e m e n t 0036340 ( i . s . ) i n i t s v 0036360 a r i o u s f o r m s p e r 0036400 m i t s t h e u s e r t o 0036420 s p e c i f y c o m p l i c 0036440 a t e d i t e r a t i v e s 0036460 t a t e m e n t s i n a s 0036500 t r a i g h t f o r w a r d a 0036520 n d v i s i b l e m a n n e 0036540 r . R a t h e r t h a n 0036560 t h e u s e r h a v i n g 0036600 t o p e r f o r m t h e m 0036620 e n t a l t r a n s f o r m a 0036640 t i o n s t o a n e q u i 0036660 v a l e n t I n t e r l i s p 0036700 f o r m u s i n g P R O G 0036720 , M A P C , M A P C A R , 0036740 e t c . , t h e s y s t e m 0036760 d o e s i t f o r h i m 0037000 . T h e g o a l w a s 0037020 t o p r o v i d e a r o b 0037040 u s t a n d t o l e r a n t 0037060 f a c i l i t y w h i c h 0037100 c o u l d " m a k e s e n s 0037120 e " o u t o f a w i d e 0037140 c l a s s o f i t e r a t 0037160 i v e s t a t e m e n t s . 0037200 A c c o r d i n g l y , t h 0037220 e u s e r s h o u l d n o 0037240 t f e e l o b l i g e d t 0037260 o r e a d a n d u n d e r 0037300 s t a n d i n d e t a i l 0037320 t h e d e s c r i p t i o n 0037340 o f e a c h o p e r a t o r 0037360 g i v e n b e l o w i n 0037400 o r d e r t o u s e i t e 0037420 r a t i v e s t a t e m e n t 0037440 s . \r A n i t e r a t i v e 0037460 s t a t e m e n t i s a f 0037500 o r m c o n s i s t i n g o 0037520 f a n u m b e r o f s p 0037540 e c i a l w o r d s ( k n o 0037560 w n a s i . s . o p e r a 0037600 t o r s o r i . s . o p r s 0037620 ) , f o l l o w e d b y o 0037640 p e r a n d s . M a n y i 0037660 . s . o p r s ( F O R , D O 0037700 , W H I L E , e t c . ) a 0037720 r e s i m i l a r t o i t 0037740 e r a t i v e s t a t e m e n 0037760 t s i n o t h e r p r o g 0040000 r a m m i n g l a n g u a g e 0040020 s ; o t h e r i . s . o p 0040040 r s ( C O L L E C T , J O I 0040060 N , I N , e t c . ) s p e 0040100 c i f y u s e f u l o p e r 0040120 a t i o n s i n a L i s p 0040140 e n v i r o n m e n t . L 0040160 o w e r c a s e v e r s i o 0040200 n s o f i . s . o p r s ( 0040220 d o , c o l l e c t , e t c 0040240 . ) c a n a l s o b e u 0040260 s e d . H e r e a r e s 0040300 o m e e x a m p l e s o f 0040320 i t e r a t i v e s t a t e m 0040340 e n t s : \r _ ( f o r X f 0040360 r o m 1 t o 5 d o ( P 0040400 R I N T ' F O O ) ) \r F O O \r 0040420 F O O \r F O O \r F O O \r F O O \r 0040440 N I L \r _ ( f o r X f r o 0040460 m 2 t o 1 0 b y 2 c 0040500 o l l e c t ( T I M E S X 0040520 X ) ) \r ( 4 1 6 3 6 6 4 0040540 1 0 0 ) \r _ ( f o r X i n 0040560 ' ( A B 1 C 6 . 5 N 0040600 I L ( 4 5 ) ) c o u n t ( 0040620 N U M B E R P X ) ) \r 2 \r I t 0040640 e r a t i v e s t a t e m e n 0040660 t s a r e i m p l e m e n t 0040700 e d t h r o u g h C L I S P 0040720 , w h i c h t r a n s l a t 0040740 e s t h e f o r m i n t o 0040760 t h e a p p r o p r i a t e 0041000 P R O G , M A P C A R , e 0041020 t c . I t e r a t i v e s 0041040 t a t e m e n t f o r m s a 0041060 r e t r a n s l a t e d u s 0041100 i n g a l l C L I S P d e 0041120 c l a r a t i o n s i n e f 0041140 f e c t ( s t a n d a r d / f 0041160 a s t / u n d o a b l e / e t 0041200 c . ) ; s e e p a g e X . 0041220 X X . M i s s p e l l e d 0041240 i . s . o p r s a r e r e c 0041260 o g n i z e d a n d c o r r 0041300 e c t e d u s i n g t h e 0041320 s p e l l i n g l i s t C L 0041340 I S P F O R W O R D S P L S T . 0041360 T h e o r d e r o f a 0041400 p p e a r a n c e o f o p e 0041420 r a t o r s i s n e v e r 0041440 i m p o r t a n t ; C L I S P 0041460 s c a n s t h e e n t i r 0041500 e s t a t e m e n t b e f o 0041520 r e i t b e g i n s t o 0041540 c o n s t r u c t t h e e q 0041560 u i v a l e n t I n t e r l i 0041600 s p f o r m . N e w i . 0041620 s . o p r s c a n b e d e 0041640 f i n e d a s d e s c r i b 0041660 e d o n p a g e X . X X . 0041700 \r I f t h e u s e r d e f 0041720 i n e s a f u n c t i o n 0041740 b y t h e s a m e n a m e 0041760 a s a n i . s . o p r ( 0042000 W H I L E , T O , e t c . ) 0042020 , t h e i . s . o p r w i 0042040 l l n o l o n g e r h a v 0042060 e t h e C L I S P i n t e 0042100 r p r e t a t i o n w h e n 0042120 i t a p p e a r s a s C A 0042140 R o f a f o r m , a l t 0042160 h o u g h i t w i l l c o 0042200 n t i n u e t o b e t r e 0042220 a t e d a s a n i . s . o 0042240 p r i f i t a p p e a r s 0042260 i n t h e i n t e r i o r 0042300 o f a n i t e r a t i v e 0042320 s t a t e m e n t . T o 0042340 a l e r t t h e u s e r , 0042360 a w a r n i n g m e s s a g 0042400 e i s p r i n t e d , e . 0042420 g . , ( W H I L E D E F I N 0042440 E D , T H E R E F O R E D I 0042460 S A B L E D I N C L I S P ) 0042500 . \r 9 . 8 . 1 \t I . s . t y 0042520 p e s \r \r T h e f o l l o w i 0042540 n g i . s . o p r s a r e 0042560 e x a m p l e s o f a c e 0042600 r t a i n k i n d o f i t 0042620 e r a t i v e s t a t e m e n 0042640 t o p e r a t o r c a l l e 0042660 d a n i . s . t y p e . 0042700 T h e i . s . t y p e s p e 0042720 c i f i e s w h a t i s t 0042740 o b e d o n e a t e a c 0042760 h i t e r a t i o n . I t 0043000 s o p e r a n d i s c a l 0043020 l e d t h e " b o d y " o 0043040 f t h e i t e r a t i v e 0043060 s t a t e m e n t . E a c h 0043100 i t e r a t i v e s t a t e 0043120 m e n t m u s t h a v e o 0043140 n e a n d o n l y o n e 0043160 i . s . t y p e . \r D O F O R 0043200 M \t [ I . S . O p e r a t 0043220 o r ] \r S p e c i f i e s w h 0043240 a t i s t o b e d o n e 0043260 a t e a c h i t e r a t i 0043300 o n . D O w i t h n o 0043320 o t h e r o p e r a t o r s 0043340 p e c i f i e s a n i n f i 0043360 n i t e l o o p . I f s 0043400 o m e e x p l i c i t o r 0043420 i m p l i c i t t e r m i n a 0043440 t i n g c o n d i t i o n i 0043460 s s p e c i f i e d , t h e 0043500 v a l u e o f t h e i . 0043520 s . i s N I L . T r a n 0043540 s l a t e s t o M A P C o 0043560 r M A P w h e n e v e r p 0043600 o s s i b l e . \r \r C O L L E C 0043620 T F O R M \t [ I . S . O 0043640 p e r a t o r ] \r S p e c i f i 0043660 e s t h a t t h e v a l u 0043700 e o f F O R M a t e a c 0043720 h i t e r a t i o n i s t 0043740 o b e c o l l e c t e d i 0043760 n a l i s t , w h i c h 0044000 i s r e t u r n e d a s t 0044020 h e v a l u e o f t h e 0044040 i . s . w h e n i t t e r 0044060 m i n a t e s . T r a n s l 0044100 a t e s t o M A P C A R , 0044120 M A P L I S T o r S U B S E 0044140 T w h e n e v e r p o s s i 0044160 b l e . \r W h e n C O L L E C 0044200 T t r a n s l a t e s t o 0044220 a P R O G ( e . g . , i f 0044240 U N T I L , W H I L E , e 0044260 t c . a p p e a r i n t h 0044300 e i . s . ) , t h e t r a 0044320 n s l a t i o n e m p l o y s 0044340 a n o p e n T C O N C u 0044360 s i n g t w o p o i n t e r 0044400 s s i m i l a r t o t h a 0044420 t u s e d b y t h e c o 0044440 m p i l e r f o r c o m p i 0044460 l i n g M A P C A R . T o 0044500 d i s a b l e t h i s t r 0044520 a n s l a t i o n , p e r f o 0044540 r m ( C L D I S A B L E ' F 0044560 C O L L E C T ) ( s e e p a 0044600 g e X . X X ) . \r \r J O I N 0044620 F O R M \t [ I . S . O p e 0044640 r a t o r ] \r S i m i l a r t 0044660 o C O L L E C T , e x c e p 0044700 t t h a t t h e v a l u e 0044720 s o f F O R M a t e a c 0044740 h i t e r a t i o n a r e 0044760 N C O N C e d . T r a n s l 0045000 a t e s t o M A P C O N C 0045020 o r M A P C O N w h e n e v 0045040 e r p o s s i b l e . / N 0045060 C O N C , / M A P C O N C , 0045100 a n d / M A P C O N a r e 0045120 u s e d w h e n t h e C L 0045140 I S P d e c l a r a t i o n 0045160 U N D O A B L E i s i n e 0045200 f f e c t . \r \r S U M F O R M 0045220 \t [ I . S . O p e r a t o 0045240 r ] \r S p e c i f i e s t h a 0045260 t t h e v a l u e s o f 0045300 F O R M a t e a c h i t e 0045320 r a t i o n b e a d d e d 0045340 t o g e t h e r a n d r e t 0045360 u r n e d a s t h e v a l 0045400 u e o f t h e i . s . , 0045420 e . g . , ( f o r I f r o 0045440 m 1 t o 5 s u m ( T I 0045460 M E S I I ) ) r e t u r n 0045500 s 1 + 4 + 9 + 1 6 + 2 5 = 0045520 5 5 . I P L U S , F P L U 0045540 S , o r P L U S w i l l 0045560 b e u s e d i n t h e t 0045600 r a n s l a t i o n d e p e n 0045620 d i n g o n t h e C L I S 0045640 P d e c l a r a t i o n s i 0045660 n e f f e c t . \r \r C O U N T 0045700 F O R M \t [ I . S . O p 0045720 e r a t o r ] \r C o u n t s t 0045740 h e n u m b e r o f t i m 0045760 e s t h a t F O R M i s 0046000 t r u e , a n d r e t u r n 0046020 s t h a t c o u n t a s 0046040 i t s v a l u e . \r \r A L W A 0046060 Y S F O R M \t [ I . S . 0046100 O p e r a t o r ] \r R e t u r n 0046120 s T i f t h e v a l u e 0046140 o f F O R M i s n o n - 0046160 N I L f o r a l l i t e r 0046200 a t i o n s . ( N o t e : 0046220 r e t u r n s N I L a s s 0046240 o o n a s t h e v a l u e 0046260 o f F O R M i s N I L ) 0046300 . \r \r N E V E R F O R M \t 0046320 [ I . S . O p e r a t o r ] \r 0046340 S i m i l a r t o A L W A Y 0046360 S , e x c e p t r e t u r n 0046400 s T i f t h e v a l u e 0046420 o f F O R M i s n e v e 0046440 r t r u e . ( N o t e : 0046460 r e t u r n s N I L a s s 0046500 o o n a s t h e v a l u e 0046520 o f F O R M i s n o n - 0046540 N I L ) . \r \r T h e f o l l o 0046560 w i n g i . s . t y p e s e 0046600 x p l i c i t l y r e f e r 0046620 t o t h e i t e r a t i o n 0046640 v a r i a b l e ( i . v . ) 0046660 o f t h e i t e r a t i v 0046700 e s t a t e m e n t , w h i 0046720 c h i s a v a r i a b l e 0046740 s e t a t e a c h i t e 0046760 r a t i o n . T h i s i s 0047000 e x p l a i n e d b e l o w 0047020 u n d e r F O R . \r T H E R 0047040 E I S F O R M \t [ I . S . 0047060 O p e r a t o r ] \r R e t u r 0047100 n s t h e f i r s t v a l 0047120 u e o f t h e i . v . f 0047140 o r w h i c h F O R M i s 0047160 n o n - N I L , e . g . , 0047200 ( f o r X i n Y t h e r 0047220 e i s ( N U M B E R P X ) ) 0047240 r e t u r n s t h e f i r 0047260 s t n u m b e r i n Y . 0047300 ( N o t e : r e t u r n s 0047320 t h e v a l u e o f t h e 0047340 i . v . a s s o o n a s 0047360 t h e v a l u e o f F O 0047400 R M i s n o n - N I L ) . \r 0047420 \r L A R G E S T F O R M \t 0047440 [ I . S . O p e r a t o r ] \r 0047460 S M A L L E S T F O R M \t 0047500 [ I . S . O p e r a t o r ] \r 0047520 R e t u r n s t h e v a l u 0047540 e o f t h e i . v . t h 0047560 a t p r o v i d e s t h e 0047600 l a r g e s t / s m a l l e s t 0047620 v a l u e o f F O R M . 0047640 $ $ E X T R E M E i s a 0047660 l w a y s b o u n d t o t 0047700 h e c u r r e n t g r e a t 0047720 e s t / s m a l l e s t v a l 0047740 u e , $ $ V A L t o t h e 0047760 v a l u e o f t h e i . 0050000 v . f r o m w h i c h i t 0050020 c a m e . \r \r 9 . 8 . 2 \t 0050040 I t e r a t i o n V a r i a b 0050060 l e I . s . o p r s \r \r F O R 0050100 V A R \t [ I . S . O p e 0050120 r a t o r ] \r S p e c i f i e s 0050140 t h e i t e r a t i o n v 0050160 a r i a b l e ( i . v . ) w 0050200 h i c h i s u s e d i n 0050220 c o n j u n c t i o n w i t h 0050240 I N , O N , F R O M , T 0050260 O , a n d B Y . T h e 0050300 v a r i a b l e i s r e b o 0050320 u n d w i t h i n t h e i 0050340 . s . , s o t h e v a l u 0050360 e o f t h e v a r i a b l 0050400 e o u t s i d e t h e i . 0050420 s . i s n o t e f f e c t 0050440 e d . E x a m p l e : \r _ 0050460 ( S E T Q X 5 5 ) \r 5 5 \r _ 0050500 ( f o r X f r o m 1 t 0050520 o 5 c o l l e c t ( T I M 0050540 E S X X ) ) \r ( 1 4 9 0050560 1 6 2 5 ) \r _ X \r 5 5 \r \r F 0050600 O R V A R S \t [ I . S . 0050620 O p e r a t o r ] \r V A R S a 0050640 l i s t o f v a r i a b l 0050660 e s , e . g . , ( f o r ( 0050700 X Y Z ) i n . . . ) . 0050720 T h e f i r s t v a r i a 0050740 b l e i s t h e i . v . , 0050760 t h e r e s t a r e d u 0051000 m m y v a r i a b l e s . 0051020 S e e B I N D b e l o w . \r 0051040 \r F O R O L D V A R \t [ 0051060 I . S . O p e r a t o r ] \r S 0051100 i m i l a r t o F O R , e 0051120 x c e p t t h a t V A R i 0051140 s n o t r e b o u n d w i 0051160 t h i n t h e i . s . , s 0051200 o t h e v a l u e o f t 0051220 h e i . v . o u t s i d e 0051240 o f t h e i . s . i s c 0051260 h a n g e d . E x a m p l 0051300 e : \r _ ( S E T Q X 5 5 ) 0051320 \r 5 5 \r _ ( f o r o l d X 0051340 f r o m 1 t o 5 c o l 0051360 l e c t ( T I M E S X X ) 0051400 ) \r ( 1 4 9 1 6 2 5 ) \r 0051420 _ X \r 6 \r \r B I N D V A R 0051440 \t [ I . S . O p e r a t o r 0051460 ] \r B I N D V A R S \t [ I 0051500 . S . O p e r a t o r ] \r U s 0051520 e d t o s p e c i f y d u 0051540 m m y v a r i a b l e s , w 0051560 h i c h a r e b o u n d l 0051600 o c a l l y w i t h i n t h 0051620 e i . s . \r \r N o t e : F 0051640 O R , F O R O L D , a n d 0051660 B I N D v a r i a b l e s 0051700 c a n b e i n i t i a l i z 0051720 e d b y u s i n g t h e 0051740 f o r m V A R _ F O R M : \r ( 0051760 f o r o l d ( X _ F O R M ) 0052000 b i n d ( Y _ F O R M ) . 0052020 . . ) \r I N F O R M \t [ I 0052040 . S . O p e r a t o r ] \r S p 0052060 e c i f i e s t h a t t h e 0052100 i . s . i s t o i t e r 0052120 a t e d o w n a l i s t 0052140 w i t h t h e i . v . b e 0052160 i n g r e s e t t o t h e 0052200 c o r r e s p o n d i n g e 0052220 l e m e n t a t e a c h i 0052240 t e r a t i o n . F o r e 0052260 x a m p l e , ( f o r X i 0052300 n Y d o . . . ) c o r r 0052320 e s p o n d s t o ( M A P C 0052340 Y ( F U N C T I O N ( L A 0052360 M B D A ( X ) . . . ) ) ) . 0052400 I f n o i . v . h a s 0052420 b e e n s p e c i f i e d , 0052440 a d u m m y i s s u p p 0052460 l i e d , e . g . , ( i n 0052500 Y c o l l e c t C A D R ) 0052520 i s e q u i v a l e n t t o 0052540 ( M A P C A R Y ( F U N C 0052560 T I O N C A D R ) ) . \r \r O N 0052600 F O R M \t [ I . S . O p 0052620 e r a t o r ] \r S a m e a s 0052640 I N e x c e p t t h a t t 0052660 h e i . v . i s r e s e t 0052700 t o t h e c o r r e s p o 0052720 n d i n g t a i l a t e a 0052740 c h i t e r a t i o n . T 0052760 h u s I N c o r r e s p o n 0053000 d s t o M A P C , M A P C 0053020 A R , a n d M A P C O N C , 0053040 w h i l e O N c o r r e s 0053060 p o n d s t o M A P , M A 0053100 P L I S T , a n d M A P C O 0053120 N . \r \r N o t e : f o r b 0053140 o t h I N a n d O N , F 0053160 O R M i s e v a l u a t e d 0053200 b e f o r e t h e m a i n 0053220 p a r t o f t h e i . s 0053240 . i s e n t e r e d , i . 0053260 e . o u t s i d e o f t h 0053300 e s c o p e o f a n y o 0053320 f t h e b o u n d v a r i 0053340 a b l e s o f t h e i . s 0053360 . F o r e x a m p l e , 0053400 ( f o r X b i n d ( Y _ ' 0053420 ( 1 2 3 ) ) i n Y . . 0053440 . ) w i l l m a p d o w n 0053460 t h e l i s t w h i c h 0053500 i s t h e v a l u e o f 0053520 Y e v a l u a t e d o u t s 0053540 i d e o f t h e i . s . , 0053560 n o t ( 1 2 3 ) . \r I N 0053600 O L D V A R \t [ I . S . 0053620 O p e r a t o r ] \r S p e c i 0053640 f i e s t h a t t h e i . 0053660 s . i s t o i t e r a t e 0053700 d o w n V A R , w i t h 0053720 V A R i t s e l f b e i n g 0053740 r e s e t t o t h e c o 0053760 r r e s p o n d i n g t a i l 0054000 a t e a c h i t e r a t i 0054020 o n , e . g . , a f t e r 0054040 ( f o r X i n o l d L 0054060 d o . . . u n t i l . . . 0054100 ) f i n i s h e s , L w i 0054120 l l b e s o m e t a i l 0054140 o f i t s o r i g i n a l 0054160 v a l u e . \r \r I N O L D ( 0054200 V A R _ F O R M ) \t [ I . S 0054220 . O p e r a t o r ] \r S a m e 0054240 a s I N O L D V A R , 0054260 e x c e p t V A R i s f i 0054300 r s t s e t t o v a l u e 0054320 o f F O R M . \r \r O N O L 0054340 D V A R \t [ I . S . O p 0054360 e r a t o r ] \r S a m e a s 0054400 I N O L D V A R e x c e p 0054420 t t h e i . v . i s r e 0054440 s e t t o t h e c u r r e 0054460 n t v a l u e o f V A R 0054500 a t e a c h i t e r a t i o 0054520 n , i n s t e a d o f t o 0054540 ( C A R V A R ) . \r \r O N 0054560 O L D ( V A R _ F O R M ) 0054600 \t [ I . S . O p e r a t o r ] 0054620 \r S a m e a s O N O L D 0054640 V A R , e x c e p t V A R 0054660 i s f i r s t s e t t o 0054700 v a l u e o f F O R M . \r \r 0054720 I N S I D E F O R M \t [ I 0054740 . S . O p e r a t o r ] \r S i 0054760 m i l a r t o I N , e x c 0055000 e p t t r e a t s f i r s t 0055020 n o n - l i s t , n o n - N 0055040 I L t a i l a s t h e l 0055060 a s t e l e m e n t o f t 0055100 h e i t e r a t i o n , e . 0055120 g . , I N S I D E ' ( A B 0055140 C D . E ) i t e r a t 0055160 e s f i v e t i m e s w i 0055200 t h t h e i . v . s e t 0055220 t o E o n t h e l a s t 0055240 i t e r a t i o n . I N S 0055260 I D E ' A i s e q u i v a 0055300 l e n t t o I N S I D E ' 0055320 ( A ) , w h i c h w i l l 0055340 i t e r a t e o n c e . \r \r F 0055360 R O M F O R M \t [ I . S . 0055400 O p e r a t o r ] \r U s e d 0055420 t o s p e c i f y a n i n 0055440 i t i a l v a l u e f o r 0055460 a n u m e r i c a l i . v . 0055500 T h e i . v . i s a u 0055520 t o m a t i c a l l y i n c r 0055540 e m e n t e d b y 1 a f t 0055560 e r e a c h i t e r a t i o 0055600 n ( u n l e s s B Y i s 0055620 s p e c i f i e d ) . I f 0055640 n o i . v . h a s b e e n 0055660 s p e c i f i e d , a d u 0055700 m m y i . v . i s s u p p 0055720 l i e d a n d i n i t i a l 0055740 i z e d , e . g . , ( f r o 0055760 m 2 t o 5 c o l l e c t 0056000 S Q R T ) r e t u r n s ( 0056020 1 . 4 1 4 1 . 7 3 2 2 . 0 0056040 2 . 2 3 6 ) . \r \r T O F O R M 0056060 \t [ I . S . O p e r a t o 0056100 r ] \r U s e d t o s p e c i 0056120 f y t h e f i n a l v a l 0056140 u e f o r a n u m e r i c 0056160 a l i . v . I f F R O M 0056200 i s n o t s p e c i f i e 0056220 d , t h e i . v . i s i 0056240 n i t i a l i z e d t o 1 . 0056260 I f n o i . v . h a s 0056300 b e e n s p e c i f i e d , 0056320 a d u m m y i . v . i s 0056340 s u p p l i e d a n d i n 0056360 i t i a l i z e d . I f B 0056400 Y i s n o t s p e c i f i 0056420 e d , t h e i . v . i s 0056440 a u t o m a t i c a l l y i n 0056460 c r e m e n t e d b y 1 a 0056500 f t e r e a c h i t e r a t 0056520 i o n . W h e n t h e i 0056540 . v . i s d e f i n i t e l 0056560 y b e i n g i n c r e m e n 0056600 t e d , i . e . , e i t h e 0056620 r B Y i s n o t s p e c 0056640 i f i e d , o r i t s o p 0056660 e r a n d i s a p o s i t 0056700 i v e n u m b e r , t h e 0056720 i . s . t e r m i n a t e s 0056740 w h e n t h e i . v . e x 0056760 c e e d s t h e v a l u e 0057000 o f F O R M . S i m i l a 0057020 r l y , w h e n t h e i . 0057040 v . i s d e f i n i t e l y 0057060 b e i n g d e c r e m e n t 0057100 e d t h e i . s . t e r m 0057120 i n a t e s w h e n t h e 0057140 i . v . b e c o m e s l e s 0057160 s t h a n t h e v a l u e 0057200 o f F O R M ( s e e d e 0057220 s c r i p t i o n o f B Y ) 0057240 . \r N o t e : F O R M i s 0057260 e v a l u a t e d o n l y 0057300 o n c e , w h e n t h e i 0057320 . s . i s f i r s t e n t 0057340 e r e d , a n d i t s v a 0057360 l u e b o u n d t o a t 0057400 e m p o r a r y v a r i a b l 0057420 e a g a i n s t w h i c h 0057440 t h e i . v . i s c h e c 0057460 k e d e a c h i n t e r a t 0057500 i o n . I f t h e u s e 0057520 r w i s h e s t o s p e c 0057540 i f y a n i . s . i n w 0057560 h i c h t h e v a l u e o 0057600 f t h e b o u n d a r y c 0057620 o n d i t i o n i s r e c o 0057640 m p u t e d e a c h i t e r 0057660 a t i o n , h e s h o u l d 0057700 u s e W H I L E o r U N 0057720 T I L i n s t e a d o f T 0057740 O . \r \r N o t e : W h e n 0057760 b o t h t h e o p e r a n d 0060000 s t o T O a n d F R O M 0060020 a r e n u m b e r s , a n 0060040 d T O ' s o p e r a n d i 0060060 s l e s s t h a n F R O M 0060100 ' s o p e r a n d , t h e 0060120 i . v . i s d e c r e m e n 0060140 t e d b y 1 a f t e r e 0060160 a c h i t e r a t i o n . 0060200 I n t h i s c a s e , t h 0060220 e i . s . t e r m i n a t e 0060240 s w h e n t h e i . v . 0060260 b e c o m e s l e s s t h a 0060300 n t h e v a l u e o f F 0060320 O R M . F o r e x a m p l 0060340 e , ( f r o m 1 0 t o 1 0060360 d o P R I N T ) p r i n t 0060400 s t h e n u m b e r s f r 0060420 o m 1 0 d o w n t o 1 . 0060440 \r B Y F O R M ( w i t h I 0060460 N / O N ) \t [ I . S . O p 0060500 e r a t o r ] \r I f I N o r 0060520 O N h a v e b e e n s p 0060540 e c i f i e d , t h e v a l 0060560 u e o f F O R M d e t e r 0060600 m i n e s t h e t a i l f 0060620 o r t h e n e x t i t e r 0060640 a t i o n , w h i c h i n 0060660 t u r n d e t e r m i n e s 0060700 t h e v a l u e f o r t h 0060720 e i . v . a s d e s c r i 0060740 b e d e a r l i e r , i . e 0060760 . , t h e n e w i . v . 0061000 i s C A R o f t h e t a 0061020 i l f o r I N , t h e t 0061040 a i l i t s e l f f o r O 0061060 N . I n c o n j u n c t i 0061100 o n w i t h I N , t h e 0061120 u s e r c a n r e f e r t 0061140 o t h e c u r r e n t t a 0061160 i l w i t h i n F O R M b 0061200 y u s i n g t h e i . v . 0061220 o r t h e o p e r a n d 0061240 f o r I N / O N , e . g . , 0061260 ( f o r Z i n L b y 0061300 ( C D D R Z ) . . . ) o r 0061320 ( f o r Z i n L b y 0061340 ( C D D R L ) . . . ) . A 0061360 t t r a n s l a t i o n t i 0061400 m e , t h e n a m e o f 0061420 t h e i n t e r n a l v a r 0061440 i a b l e w h i c h h o l d 0061460 s t h e v a l u e o f t 0061500 h e c u r r e n t t a i l 0061520 i s s u b s t i t u t e d f 0061540 o r t h e i . v . t h r o 0061560 u g h o u t F O R M . F o r 0061600 e x a m p l e , ( f o r X 0061620 i n Y b y ( C D R ( M 0061640 E M B ' F O O ( C D R X ) 0061660 ) ) c o l l e c t X ) s p 0061700 e c i f i e s t h a t a f t 0061720 e r e a c h i t e r a t i o 0061740 n , C D R o f t h e c u 0061760 r r e n t t a i l i s t o 0062000 b e s e a r c h e d f o r 0062020 t h e a t o m F O O , a 0062040 n d ( C D R o f ) t h i s 0062060 l a t t e r t a i l t o 0062100 b e u s e d f o r t h e 0062120 n e x t i t e r a t i o n . \r 0062140 \r B Y F O R M ( w i t h o u 0062160 t I N / O N ) \t [ I . S . 0062200 O p e r a t o r ] \r I f I N 0062220 o r O N h a v e n o t 0062240 b e e n u s e d , B Y s p 0062260 e c i f i e s h o w t h e 0062300 i . v . i t s e l f i s r 0062320 e s e t a t e a c h i t e 0062340 r a t i o n . I f F R O M 0062360 o r T O h a v e b e e n 0062400 s p e c i f i e d , t h e 0062420 i . v . i s k n o w n t o 0062440 b e n u m e r i c a l , s 0062460 o t h e n e w i . v . i 0062500 s c o m p u t e d b y a d 0062520 d i n g t h e v a l u e o 0062540 f F O R M ( w h i c h i s 0062560 r e e v a l u a t e d e a c 0062600 h i t e r a t i o n ) t o 0062620 t h e c u r r e n t v a l u 0062640 e o f t h e i . v . , e 0062660 . g . , ( f o r N f r o m 0062700 1 t o 1 0 b y 2 c o 0062720 l l e c t N ) m a k e s a 0062740 l i s t o f t h e f i r 0062760 s t f i v e o d d n u m b 0063000 e r s . \r I f F O R M i s 0063020 a p o s i t i v e n u m b e 0063040 r ( F O R M i t s e l f , 0063060 n o t i t s v a l u e , w 0063100 h i c h i n g e n e r a l 0063120 C L I S P w o u l d h a v e 0063140 n o w a y o f k n o w i 0063160 n g i n a d v a n c e ) , 0063200 t h e i . s . t e r m i n a 0063220 t e s w h e n t h e v a l 0063240 u e o f t h e i . v . e 0063260 x c e e d s t h e v a l u e 0063300 o f T O ' s o p e r a n d 0063320 . I f F O R M i s a 0063340 n e g a t i v e n u m b e r , 0063360 t h e i . s . t e r m i n 0063400 a t e s w h e n t h e v a 0063420 l u e o f t h e i . v . 0063440 b e c o m e s l e s s t h a 0063460 n T O ' s o p e r a n d , 0063500 e . g . , ( f o r I f r o 0063520 m N t o M b y - 2 u 0063540 n t i l ( L E S S P I M ) 0063560 . . . ) . O t h e r w i s e 0063600 , t h e t e r m i n a t i n 0063620 g c o n d i t i o n f o r 0063640 e a c h i t e r a t i o n d 0063660 e p e n d s o n t h e v a 0063700 l u e o f F O R M f o r 0063720 t h a t i t e r a t i o n : 0063740 i f F O R M < 0 , t h e t 0063760 e s t i s w h e t h e r t 0064000 h e i . v . i s l e s s 0064020 t h a n T O ' s o p e r a n 0064040 d , i f F O R M > 0 t h e 0064060 t e s t i s w h e t h e r 0064100 t h e i . v . e x c e e d 0064120 s T O ' s o p e r a n d , 0064140 o t h e r w i s e i f F O R 0064160 M = 0 , t h e i . s . t e 0064200 r m i n a t e s u n c o n d i 0064220 t i o n a l l y . \r I f F R O 0064240 M o r T O h a v e n o t 0064260 b e e n s p e c i f i e d 0064300 a n d F O R M i s n o t 0064320 a n u m b e r , t h e i . 0064340 v . i s s i m p l y r e s 0064360 e t t o t h e v a l u e 0064400 o f F O R M a f t e r e a 0064420 c h i t e r a t i o n , e . 0064440 g . , ( f o r I f r o m 0064460 N b y M . . . ) i s e 0064500 q u i v a l e n t t o ( f o 0064520 r I _ N b y ( P L U S I 0064540 M ) . . . ) . \r \r A S V A 0064560 R \t [ I . S . O p e r a t 0064600 o r ] \r U s e d t o s p e c 0064620 i f y a n i t e r a t i v e 0064640 s t a t e m e n t i n v o l 0064660 v i n g m o r e t h a n o 0064700 n e i t e r a t i v e v a r 0064720 i a b l e , e . g . , ( f o 0064740 r X i n Y a s U i n 0064760 V d o . . . ) c o r r e 0065000 s p o n d s t o M A P 2 C 0065020 ( p a g e X . X X ) . T h 0065040 e i . s . t e r m i n a t e 0065060 s w h e n a n y o f t h 0065100 e t e r m i n a t i n g c o 0065120 n d i t i o n s a r e m e t 0065140 , e . g . , ( f o r X i 0065160 n Y a s I f r o m 1 0065200 t o 1 0 c o l l e c t X ) 0065220 m a k e s a l i s t o f 0065240 t h e f i r s t t e n e 0065260 l e m e n t s o f Y , o r 0065300 h o w e v e r m a n y e l 0065320 e m e n t s t h e r e a r e 0065340 o n Y i f l e s s t h 0065360 a n 1 0 . \r T h e o p e r a 0065400 n d t o A S , V A R , s 0065420 p e c i f i e s t h e n e w 0065440 i . v . F o r t h e r e 0065460 m a i n d e r o f t h e i 0065500 . s . , o r u n t i l a n 0065520 o t h e r A S i s e n c o 0065540 u n t e r e d , a l l o p e 0065560 r a t o r s r e f e r t o 0065600 t h e n e w i . v . F o 0065620 r e x a m p l e , ( f o r 0065640 I f r o m 1 t o N 1 a 0065660 s J f r o m 1 t o N 2 0065700 b y 2 a s K f r o m 0065720 N 3 t o 1 b y - 1 . . 0065740 . ) t e r m i n a t e s w h 0065760 e n I e x c e e d s N 1 , 0066000 o r J e x c e e d s N 2 0066020 , o r K b e c o m e s l 0066040 e s s t h a n 1 . A f t 0066060 e r e a c h i t e r a t i o 0066100 n , I i s i n c r e m e n 0066120 t e d b y 1 , J b y 2 0066140 , a n d K b y - 1 . \r \r 0066160 O U T O F F O R M \t [ I . 0066200 S . O p e r a t o r ] \r F o r 0066220 u s e w i t h g e n e r a 0066240 t o r s ( p a g e X . X X ) 0066260 . O n e a c h i t e r a 0066300 t i o n , t h e i . v . i 0066320 s s e t t o s u c c e s s 0066340 i v e v a l u e s r e t u r 0066360 n e d b y t h e g e n e r 0066400 a t o r . T h e i . s . 0066420 t e r m i n a t e s w h e n 0066440 t h e g e n e r a t o r r u 0066460 n s o u t . \r \r 9 . 8 . 3 0066500 \t C o n d i t i o n I . s . o 0066520 p r s \r \r W H E N F O R M 0066540 \t [ I . S . O p e r a t o r ] 0066560 \r P r o v i d e s a w a y 0066600 o f e x c e p t i n g c e r 0066620 t a i n i t e r a t i o n s . 0066640 F o r e x a m p l e , ( 0066660 f o r X i n Y c o l l e 0066700 c t X w h e n ( N U M B E 0066720 R P X ) ) c o l l e c t s 0066740 o n l y t h e e l e m e n t 0066760 s o f Y t h a t a r e 0067000 n u m b e r s . \r \r U N L E S S 0067020 F O R M \t [ I . S . O p 0067040 e r a t o r ] \r S a m e a s 0067060 W H E N e x c e p t f o r 0067100 t h e d i f f e r e n c e i 0067120 n s i g n , i . e . , W H 0067140 E N Z i s t h e s a m e 0067160 a s U N L E S S ( N O T 0067200 Z ) . \r \r W H I L E F O R M 0067220 \t [ I . S . O p e r a t o r 0067240 ] \r P r o v i d e s a w a y 0067260 o f t e r m i n a t i n g 0067300 t h e i . s . W H I L E 0067320 F O R M e v a l u a t e s F 0067340 O R M b e f o r e e a c h 0067360 i t e r a t i o n , a n d i 0067400 f t h e v a l u e i s N 0067420 I L , e x i t s . \r \r U N T I 0067440 L F O R M \t [ I . S . O 0067460 p e r a t o r ] \r S a m e a s 0067500 W H I L E e x c e p t f o 0067520 r d i f f e r e n c e i n 0067540 s i g n , i . e . , W H I L 0067560 E X i s e q u i v a l e n 0067600 t t o U N T I L ( N O T 0067620 X ) . \r \r U N T I L N ( N 0067640 a n u m b e r ) \t [ I . S 0067660 . O p e r a t o r ] \r E q u i 0067700 v a l e n t t o U N T I L 0067720 I . V . > N . \r \r R E P E A 0067740 T W H I L E F O R M \t [ I 0067760 . S . O p e r a t o r ] \r S a 0070000 m e a s W H I L E e x c e 0070020 p t t h e t e s t i s p 0070040 e r f o r m e d a f t e r t 0070060 h e e v a l u t i o n o f 0070100 t h e b o d y , b u t b e 0070120 f o r e t h e i . v . i s 0070140 r e s e t f o r t h e n 0070160 e x t i t e r a t i o n . \r \r 0070200 R E P E A T U N T I L F O R M 0070220 \t [ I . S . O p e r a t o 0070240 r ] \r S a m e a s U N T I L 0070260 , e x c e p t t h e t e s 0070300 t i s p e r f o r m e d a 0070320 f t e r t h e e v a l u a t 0070340 i o n o f t h e b o d y . 0070360 \r \r R E P E A T U N T I L N 0070400 ( N a n u m b e r ) \t [ 0070420 I . S . O p e r a t o r ] \r E 0070440 q u i v a l e n t t o R E P 0070460 E A T U N T I L I . V . > 0070500 N . \r \r 9 . 8 . 4 \t O t h e 0070520 r I . s . o p r s \r \r F I R S 0070540 T F O R M \t [ I . S . O 0070560 p e r a t o r ] \r F O R M i s 0070600 e v a l u a t e d o n c e 0070620 b e f o r e t h e f i r s t 0070640 i t e r a t i o n , e . g . 0070660 , ( f o r X Y Z i n 0070700 L f i r s t ( F O O Y Z 0070720 ) . . . ) , a n d F O O 0070740 c o u l d b e u s e d t o 0070760 i n i t i a l i z e Y a n 0071000 d Z . \r \r F I N A L L Y F O 0071020 R M \t [ I . S . O p e r a 0071040 t o r ] \r F O R M i s e v a 0071060 l u a t e d a f t e r t h e 0071100 i . s . t e r m i n a t e s 0071120 . F o r e x a m p l e , 0071140 ( f o r X i n L b i n d 0071160 Y _ 0 d o ( i f ( A T O 0071200 M X ) t h e n ( S E T Q 0071220 Y ( P L U S Y 1 ) ) ) f 0071240 i n a l l y ( R E T U R N Y 0071260 ) ) w i l l r e t u r n t 0071300 h e n u m b e r o f a t o 0071320 m s i n L . \r \r E A C H T I 0071340 M E F O R M \t [ I . S . 0071360 O p e r a t o r ] \r F O R M i 0071400 s e v a l u a t e d a t t 0071420 h e b e g i n n i n g o f 0071440 e a c h i t e r a t i o n b 0071460 e f o r e , a n d r e g a r 0071500 d l e s s o f , a n y t e 0071520 s t i n g . F o r e x a m 0071540 p l e , c o n s i d e r , \r ( 0071560 f o r I f r o m 1 t o 0071600 N \r d o ( . . . ( F 0071620 O O I ) . . . ) \r u 0071640 n l e s s ( . . . ( F O O 0071660 I ) . . . ) \r u n t i 0071700 l ( . . . ( F O O I ) . 0071720 . . ) ) \r T h e u s e r m i 0071740 g h t w a n t t o s e t 0071760 a t e m p o r a r y v a r i 0072000 a b l e t o t h e v a l u 0072020 e o f ( F O O I ) i n 0072040 o r d e r t o a v o i d c 0072060 o m p u t i n g i t t h r e 0072100 e t i m e s e a c h i t e 0072120 r a t i o n . H o w e v e r 0072140 , w i t h o u t k n o w i n 0072160 g t h e t r a n s l a t i o 0072200 n , h e w o u l d n o t 0072220 k n o w w h e t h e r t o 0072240 p u t t h e a s s i g n m e 0072260 n t i n t h e o p e r a n 0072300 d t o D O , U N L E S S , 0072320 o r U N T I L , i . e . , 0072340 w h i c h o n e w o u l d 0072360 b e e x e c u t e d f i r 0072400 s t . H e c a n a v o i 0072420 d t h i s p r o b l e m b 0072440 y s i m p l y w r i t i n g 0072460 E A C H T I M E ( S E T Q 0072500 J ( F O O I ) ) . \r \r D E C 0072520 L A R E : D E C L \t [ I . 0072540 S . O p e r a t o r ] \r I n s 0072560 e r t s t h e f o r m ( D 0072600 E C L A R E D E C L ) i m m 0072620 e d i a t e l y f o l l o w i 0072640 n g t h e P R O G v a r i 0072660 a b l e l i s t i n t h e 0072700 t r a n s l a t i o n , o r 0072720 , i n t h e c a s e t h 0072740 a t t h e t r a n s l a t i 0072760 o n i s a m a p p i n g 0073000 f u n c t i o n r a t h e r 0073020 t h a n a P R O G , i m m 0073040 e d i a t e l y f o l l o w i 0073060 n g t h e a r g u m e n t 0073100 l i s t o f t h e l a m b 0073120 d a e x p r e s s i o n i n 0073140 t h e t r a n s l a t i o n 0073160 . T h i s c a n b e u 0073200 s e d t o d e c l a r e v 0073220 a r i a b l e s b o u n d i 0073240 n t h e i t e r a t i v e 0073260 s t a t e m e n t t o b e 0073300 c o m p i l e d a s l o c a 0073320 l o r s p e c i a l v a r 0073340 i a b l e s ( s e e p a g e 0073360 X . X X ) . F o r e x a 0073400 m p l e ( f o r X i n Y 0073420 d e c l a r e : ( L O C A L 0073440 V A R S X ) . . . ) . S 0073460 e v e r a l D E C L A R E : s 0073500 c a n a p p p e a r i n 0073520 t h e s a m e i . s . ; t 0073540 h e d e c l a r a t i o n s 0073560 a r e i n s e r t e d i n 0073600 t h e o r d e r t h e y a 0073620 p p e a r . \r \r D E C L A R E 0073640 D E C L \t [ I . S . O p e 0073660 r a t o r ] \r S a m e a s D 0073700 E C L A R E : . \r N o t e t h 0073720 a t s i n c e D E C L A R E 0073740 i s a l s o t h e n a m 0073760 e o f a f u n c t i o n , 0074000 D E C L A R E c a n n o t 0074020 b e u s e d a s a n i . 0074040 s . o p e r a t o r w h e n 0074060 i t a p p e a r s a s C 0074100 A R o f a f o r m , i . 0074120 e . a s t h e f i r s t 0074140 i . s . o p e r a t o r i n 0074160 a n i t e r a t i v e s t 0074200 a t e m e n t . H o w e v e 0074220 r , d e c l a r e ( l o w e 0074240 r - c a s e v e r s i o n ) 0074260 c a n b e t h e f i r s t 0074300 i . s . o p e r a t o r . \r 0074320 \r O R I G I N A L I . S . O P 0074340 R O P E R A N D \t [ I . S 0074360 . O p e r a t o r ] \r I . S . 0074400 O P R w i l l b e t r a n 0074420 s l a t e d u s i n g i t s 0074440 o r i g i n a l , b u i l t 0074460 - i n i n t e r p r e t a t i 0074500 o n , i n d e p e n d e n t 0074520 o f a n y u s e r d e f i 0074540 n e d i . s . o p e r a t o 0074560 r s . S e e p a g e X . 0074600 X X . \r \r T h e r e a r e a 0074620 l s o a n u m b e r o f 0074640 i . s . o p r s t h a t m a 0074660 k e i t e a s i e r t o 0074700 c r e a t e i t e r a t i v e 0074720 s t a t e m e n t s t h a t 0074740 u s e t h e c l o c k , 0074760 l o o p i n g f o r a g i 0075000 v e n p e r i o d o f t i 0075020 m e . S e e t i m e r s , 0075040 p a g e X . X X . \r 9 . 8 . 0075060 5 \t M i s c e l l a n e o u 0075100 s H i n t s o n I . S . O 0075120 p r s \r \r \t 267 \t L o w e r c a s 0075140 e v e r s i o n s o f a l 0075160 l i . s . o p e r a t o r s 0075200 a r e e q u i v a l e n t 0075220 t o t h e u p p e r c a s e 0075240 , e . g . , ( f o r X i 0075260 n Y . . . ) i s e q u i 0075300 v a l e n t t o ( F O R X 0075320 I N Y . . . ) . \r \t 267 \t E 0075340 a c h i . s . o p e r a t o 0075360 r i s o f l o w e r p r 0075400 e c e d e n c e t h a n a l 0075420 l I n t e r l i s p f o r m 0075440 s , s o p a r e n t h e s e 0075460 s a r o u n d t h e o p e 0075500 r a n d s c a n b e o m i 0075520 t t e d , a n d w i l l b 0075540 e s u p p l i e d w h e r e 0075560 n e c e s s a r y , e . g . 0075600 , B I N D ( X Y Z ) c 0075620 a n b e w r i t t e n B I 0075640 N D X Y Z , O L D ( X 0075660 _ F O R M ) a s O L D X _ 0075700 F O R M , W H E N ( N U M B 0075720 E R P X ) a s W H E N N 0075740 U M B E R P X , e t c . \r \t 0075760 267 \t R E T U R N o r G O m 0076000 a y b e u s e d i n a n 0076020 y o p e r a n d . ( I n 0076040 t h i s c a s e , t h e t 0076060 r a n s l a t i o n o f t h 0076100 e i t e r a t i v e s t a t 0076120 e m e n t w i l l a l w a y 0076140 s b e i n t h e f o r m 0076160 o f a P R O G , n e v e 0076200 r a m a p p i n g f u n c 0076220 t i o n . ) R E T U R N m 0076240 e a n s r e t u r n f r o m 0076260 t h e i . s . ( w i t h 0076300 t h e i n d i c a t e d v a 0076320 l u e ) , n o t f r o m t 0076340 h e f u n c t i o n i n w 0076360 h i c h t h e i . s a p p 0076400 e a r s . G O r e f e r s 0076420 t o a l a b e l e l s e 0076440 w h e r e i n t h e f u n 0076460 c t i o n i n w h i c h t 0076500 h e i . s . a p p e a r s , 0076520 e x c e p t f o r t h e 0076540 l a b e l s $ $ L P , $ $ I 0076560 T E R A T E , a n d $ $ O U 0076600 T w h i c h a r e r e s e 0076620 r v e d , a s d e s c r i b 0076640 e d b e l o w . \r \t 267 \t I n 0076660 t h e c a s e o f F I R S 0076700 T , F I N A L L Y , E A C H 0076720 T I M E , D E C L A R E : o 0076740 r o n e o f t h e i . s 0076760 . t y p e s , e . g . , D O 0077000 , C O L L E C T , S U M , 0077020 e t c . , t h e o p e r a n 0077040 d c a n c o n s i s t o f 0077060 m o r e t h a n o n e f 0077100 o r m , e . g . , C O L L E 0077120 C T ( P R I N T ( C A R X 0077140 ) ) ( C D R X ) , i n w 0077160 h i c h c a s e a P R O G 0077200 N i s s u p p l i e d . \r \t 0077220 267 \t E a c h o p e r a n d c 0077240 a n b e t h e n a m e o 0077260 f a f u n c t i o n , i n 0077300 w h i c h c a s e i t i 0077320 s a p p l i e d t o t h e 0077340 ( l a s t ) i . v . , e . 0077360 g . , ( f o r X i n Y 0077400 d o P R I N T w h e n N U 0077420 M B E R P ) i s t h e s a 0077440 m e a s ( f o r X i n 0077460 Y d o ( P R I N T X ) w 0077500 h e n ( N U M B E R P X ) ) 0077520 . N o t e t h a t t h e 0077540 i . v . n e e d n o t b 0077560 e e x p l i c i t l y s p e 0077600 c i f i e d , e . g . , ( i 0077620 n Y d o P R I N T w h e 0077640 n N U M B E R P ) w i l l 0077660 w o r k . \r F o r i . s . t y 0077700 p e s , e . g . , D O , C 0077720 O L L E C T , J O I N , t h 0077740 e f u n c t i o n i s a l 0077760 w a y s a p p l i e d t o 0100000 t h e f i r s t i . v . i 0100020 n t h e i . s . , w h e t 0100040 h e r e x p l i c i t y n a 0100060 m e d o r n o t . F o r 0100100 e x a m p l e , ( i n Y 0100120 a s I f r o m 1 t o 1 0100140 0 d o P R I N T ) p r i n 0100160 t s e l e m e n t s o n Y 0100200 , n o t i n t e g e r s b 0100220 e t w e e n 1 a n d 1 0 . 0100240 \r N o t e t h a t t h i s 0100260 f e a t u r e d o e s n o t 0100300 m a k e m u c h s e n s e 0100320 f o r F O R , O L D , B 0100340 I N D , I N , o r O N , 0100360 s i n c e t h e y " o p e r 0100400 a t e " b e f o r e t h e 0100420 l o o p s t a r t s , w h e 0100440 n t h e i . v . m a y n 0100460 o t e v e n b e b o u n d 0100500 . \r I n t h e c a s e o f 0100520 B Y i n c o n j u n c t i 0100540 o n w i t h I N , t h e 0100560 f u n c t i o n i s a p p l 0100600 i e d t o t h e c u r r e 0100620 n t t a i l e . g . , ( f 0100640 o r X i n Y b y C D D 0100660 R . . . ) i s t h e s a 0100700 m e a s ( f o r X i n 0100720 Y b y ( C D D R X ) . . 0100740 . ) . \r \t 267 \t W h i l e t h e 0100760 e x a c t f o r m o f t 0101000 h e t r a n s l a t i o n o 0101020 f a n i t e r a t i v e s 0101040 t a t e m e n t d e p e n d s 0101060 o n w h i c h o p e r a t 0101100 o r s a r e p r e s e n t , 0101120 a P R O G w i l l a l w 0101140 a y s b e u s e d w h e n 0101160 e v e r t h e i . s . s p 0101200 e c i f i e s d u m m y v a 0101220 r i a b l e s , i . e . , i 0101240 f a B I N D o p e r a t o 0101260 r a p p e a r s , o r t h 0101300 e r e i s m o r e t h a n 0101320 o n e v a r i a b l e s p 0101340 e c i f i e d b y a F O R 0101360 o p e r a t o r , o r a 0101400 G O , R E T U R N , o r a 0101420 r e f e r e n c e t o t h 0101440 e v a r i a b l e $ $ V A L 0101460 a p p e a r s i n a n y 0101500 o f t h e o p e r a n d s 0101520 . W h e n a P R O G i s 0101540 u s e d , t h e f o r m 0101560 o f t h e t r a n s l a t i 0101600 o n i s : \r ( P R O G V A R 0101620 I A B L E S \r { i n 0101640 i t i a l i z e } \r $ $ L P 0101660 { e a c h t i m e } \r 0101700 { t e s t } \r { b 0101720 o d y } \r $ $ I T E R A T E \r 0101740 { a f t e r t e s t } 0101760 \r { u p d a t e } \r 0102000 ( G O $ $ L P ) \r 0102020 $ $ O U T { f i n a l i z e } 0102040 \r ( R E T U R N $ 0102060 $ V A L ) ) \r w h e r e { t e 0102100 s t } c o r r e s p o n d s 0102120 t o t h a t p o r t i o n 0102140 o f t h e l o o p t h a t 0102160 t e s t s f o r t e r m i 0102200 n a t i o n a n d a l s o 0102220 f o r t h o s e i t e r a t 0102240 i o n s f o r w h i c h { 0102260 b o d y } i s n o t g o i 0102300 n g t o b e e x e c u t e 0102320 d , ( a s i n d i c a t e d 0102340 b y a W H E N o r U N 0102360 L E S S ) ; { b o d y } c o 0102400 r r e s p o n d s t o t h e 0102420 o p e r a n d o f t h e 0102440 i . s . t y p e , e . g . , 0102460 D O , C O L L E C T , e t c 0102500 . ; { a f t e r t e s t } c 0102520 o r r e s p o n d s t o t h 0102540 o s e t e s t s f o r t e 0102560 r m i n a t i o n s p e c i f 0102600 i e d b y R E P E A T W H I 0102620 L E o r R E P E A T U N T I 0102640 L ; a n d { u p d a t e } 0102660 c o r r e s p o n d s t o t 0102700 h a t p a r t t h a t r e 0102720 s e t s t h e t a i l , i 0102740 n c r e m e n t s t h e c o 0102760 u n t e r , e t c . i n p 0103000 r e p a r a t i o n f o r t 0103020 h e n e x t i t e r a t i o 0103040 n . { i n i t i a l i z e } 0103060 , { f i n a l i z e } , a n 0103100 d { e a c h t i m e } c o r 0103120 r e s p o n d t o t h e o 0103140 p e r a n d s o f F I R S T 0103160 , F I N A L L Y , a n d E 0103200 A C H T I M E , i f a n y . 0103220 \r N o t e t h a t s i n c e 0103240 { b o d y } a l w a y s a 0103260 p p e a r s a t t h e t o 0103300 p l e v e l o f t h e P 0103320 R O G , t h e u s e r c a 0103340 n i n s e r t l a b e l s 0103360 i n { b o d y } , a n d G 0103400 O t o t h e m f r o m w 0103420 i t h i n { b o d y } o r 0103440 f r o m o t h e r i . s . 0103460 o p e r a n d s , e . g . , 0103500 ( f o r X i n Y f i r s 0103520 t ( G O A ) d o ( F O O 0103540 ) A ( F I E ) ) . H o w 0103560 e v e r , s i n c e { b o d 0103600 y } i s d w i m i f i e d 0103620 a s a l i s t o f f o r 0103640 m s , t h e l a b e l ( s ) 0103660 s h o u l d b e a d d e d 0103700 t o t h e d u m m y v a 0103720 r i a b l e s f o r t h e 0103740 i t e r a t i v e s t a t e m 0103760 e n t i n o r d e r t o 0104000 p r e v e n t t h e i r b e 0104020 i n g d w i m i f i e d a n 0104040 d p o s s i b l y " c o r r 0104060 e c t e d " , e . g . , ( f 0104100 o r X i n Y b i n d A 0104120 f i r s t ( G O A ) d o 0104140 ( F O O ) A ( F I E ) ) . 0104160 T h e u s e r c a n a 0104200 l s o G O t o $ $ L P , 0104220 $ $ I T E R A T E , o r $ $ 0104240 O U T , o r e x p l i c i t 0104260 l y s e t $ $ V A L . \r 9 . 0104300 8 . 6 \t E r r o r s i n 0104320 I t e r a t i v e S t a t e m 0104340 e n t s \r \r A n e r r o r w 0104360 i l l b e g e n e r a t e d 0104400 a n d a n a p p r o p r i 0104420 a t e d i a g n o s t i c p 0104440 r i n t e d i f a n y o f 0104460 t h e f o l l o w i n g c 0104500 o n d i t i o n s h o l d : \r 0104520 ( 1 ) O p e r a t o r w i 0104540 t h n u l l o p e r a n d , 0104560 i . e . , t w o a d j a c 0104600 e n t o p e r a t o r s , a 0104620 s i n ( f o r X i n Y 0104640 u n t i l d o . . . ) \r ( 0104660 2 ) O p e r a n d c o n s 0104700 i s t i n g o f m o r e t 0104720 h a n o n e f o r m ( e x 0104740 c e p t a s o p e r a n d 0104760 t o F I R S T , F I N A L L 0105000 Y , o r o n e o f t h e 0105020 i . s . t y p e s ) , e . g 0105040 . , ( f o r X i n Y ( 0105060 P R I N T X ) c o l l e c t 0105100 . . . ) . \r ( 3 ) I N , 0105120 O N , F R O M , T O , o r 0105140 B Y a p p e a r t w i c e 0105160 i n s a m e i . s . \r ( 4 0105200 ) B o t h I N a n d O 0105220 N u s e d o n s a m e i 0105240 . v . \r ( 5 ) F R O M o r 0105260 T O u s e d w i t h I N 0105300 o r O N o n s a m e i 0105320 . v . \r ( 6 ) M o r e t h 0105340 a n o n e i . s . t y p e , 0105360 e . g . , a D O a n d 0105400 a S U M . \r I n 3 , 4 , 0105420 o r 5 , a n e r r o r i 0105440 s n o t g e n e r a t e d 0105460 i f a n i n t e r v e n i n 0105500 g A S o c c u r s . \r I f 0105520 a n e r r o r o c c u r s , 0105540 t h e i . s . i s l e f 0105560 t u n c h a n g e d . \r I f 0105600 n o D O , C O L L E C T , 0105620 J O I N o r a n y o f t 0105640 h e o t h e r i . s . t y p 0105660 e s a r e s p e c i f i e d 0105700 , C L I S P w i l l f i r 0105720 s t a t t e m p t t o f i 0105740 n d a n o p e r a n d c o 0105760 n s i s t i n g o f m o r e 0106000 t h a n o n e f o r m , 0106020 e . g . , ( f o r X i n 0106040 Y ( P R I N T X ) w h e n 0106060 A T O M X . . . ) , a n 0106100 d i n t h i s c a s e w 0106120 i l l i n s e r t a D O 0106140 a f t e r t h e f i r s t 0106160 f o r m . ( I n t h i s 0106200 c a s e , c o n d i t i o n 0106220 2 i s n o t c o n s i d e 0106240 r e d t o b e m e t , a 0106260 n d a n e r r o r i s n 0106300 o t g e n e r a t e d . ) 0106320 I f C L I S P c a n n o t 0106340 f i n d s u c h a n o p e 0106360 r a n d , a n d n o W H I 0106400 L E o r U N T I L a p p e 0106420 a r s i n t h e i . s . , 0106440 a w a r n i n g m e s s a 0106460 g e i s p r i n t e d : N 0106500 O D O , C O L L E C T , O 0106520 R J O I N : f o l l o w e d 0106540 b y t h e i . s . \r S i m 0106560 i l a r l y , i f n o t e 0106600 r m i n a t i n g c o n d i t 0106620 i o n i s d e t e c t e d , 0106640 i . e . , n o I N , O N 0106660 , W H I L E , U N T I L , 0106700 T O , o r a R E T U R N 0106720 o r G O , a w a r n i n g 0106740 m e s s a g e i s p r i n 0106760 t e d : P O S S I B L E N O 0107000 N - T E R M I N A T I N G I T 0107020 E R A T I V E S T A T E M E N 0107040 T : f o l l o w e d b y t 0107060 h e i t e r a t i v e s t a 0107100 t e m e n t . H o w e v e r 0107120 , s i n c e t h e u s e r 0107140 m a y b e p l a n n i n g 0107160 t o t e r m i n a t e t h 0107200 e i . s . v i a a n e r 0107220 r o r , c o n t r o l - E , 0107240 o r a R E T F R O M f r o 0107260 m a l o w e r f u n c t i 0107300 o n , t h e i . s . i s 0107320 s t i l l t r a n s l a t e d 0107340 . N o t e : T h e e r 0107360 r o r m e s s a g e i s n 0107400 o t p r i n t e d i f t h 0107420 e v a l u e o f C L I S P 0107440 I . S . G A G i s T ( i n 0107460 i t i a l l y N I L ) . \r 9 . 0107500 8 . 7 \t D e f i n i n g N 0107520 e w I t e r a t i v e S t a 0107540 t e m e n t O p e r a t o r s 0107560 \r \r T h e f o l l o w i n g 0107600 f u n c t i o n i s a v a i 0107620 l a b l e f o r d e f i n i 0107640 n g n e w o r r e d e f i 0107660 n i n g e x i s t i n g i t 0107700 e r a t i v e s t a t e m e n 0107720 t o p e r a t o r s : \r ( I . 0107740 S . O P R N A M E F O R M 0107760 O T H E R S E V A L F L G ) 0110000 \t [ F u n c t i o n ] \r N A M 0110020 E i s t h e n a m e o f 0110040 t h e n e w i . s . o p r 0110060 . I f F O R M i s a 0110100 l i s t , N A M E w i l l 0110120 b e a n e w i . s . t y p 0110140 e ( s e e p a g e X . X X 0110160 ) , a n d F O R M i t s 0110200 b o d y . \r O T H E R S i s 0110220 a n ( o p t i o n a l ) l i 0110240 s t o f a d d i t i o n a l 0110260 i . s . o p e r a t o r s 0110300 a n d o p e r a n d s w h i 0110320 c h w i l l b e a d d e d 0110340 t o t h e i . s . a t 0110360 t h e p l a c e w h e r e 0110400 N A M E a p p e a r s . I 0110420 f F O R M i s N I L , N 0110440 A M E i s a n e w i . s 0110460 . o p r d e f i n e d e n t 0110500 i r e l y b y O T H E R S . 0110520 \r I n b o t h F O R M a n 0110540 d O T H E R S , t h e a t 0110560 o m $ $ V A L c a n b e 0110600 u s e d t o r e f e r e n c 0110620 e t h e v a l u e t o b 0110640 e r e t u r n e d b y t h 0110660 e i . s . , I . V . t o 0110700 r e f e r e n c e t h e c u 0110720 r r e n t i . v . , a n d 0110740 B O D Y t o r e f e r e n c 0110760 e N A M E ' s o p e r a n d 0111000 . I n o t h e r w o r d 0111020 s , t h e c u r r e n t i 0111040 . v . w i l l b e s u b s 0111060 t i t u t e d f o r a l l 0111100 i n s t a n c e s o f I . V 0111120 . a n d N A M E ' s o p e 0111140 r a n d w i l l b e s u b 0111160 s t i t u t e d f o r a l l 0111200 i n s t a n c e s o f B O 0111220 D Y t h r o u g h o u t F O 0111240 R M a n d O T H E R S . \r I 0111260 f E V A L F L G i s T , 0111300 F O R M a n d O T H E R S 0111320 a r e e v a l u a t e d a t 0111340 t r a n s l a t i o n t i m 0111360 e , a n d t h e i r v a l 0111400 u e s u s e d a s d e s c 0111420 r i b e d a b o v e . A 0111440 d u m m y v a r i a b l e f 0111460 o r u s e i n t r a n s l 0111500 a t i o n t h a t d o e s 0111520 n o t c l a s h w i t h a 0111540 d u m m y v a r i a b l e 0111560 a l r e a d y u s e d b y 0111600 s o m e o t h e r i . s . 0111620 o p e r a t o r s c a n b e 0111640 o b t a i n e d b y c a l 0111660 l i n g ( G E T D U M M Y V A 0111700 R ) . ( G E T D U M M Y V A R 0111720 T ) w i l l r e t u r n 0111740 a d u m m y v a r i a b l e 0111760 a n d a l s o i n s u r e 0112000 t h a t i t i s b o u n 0112020 d a s a P R O G v a r i 0112040 a b l e i n t h e t r a n 0112060 s l a t i o n . \r I f N A M E 0112100 w a s p r e v i o u s l y 0112120 a n i . s . o p r a n d i 0112140 s b e i n g r e d e f i n e 0112160 d , t h e m e s s a g e ( 0112200 N A M E R E D E F I N E D ) 0112220 w i l l b e p r i n t e d 0112240 ( u n l e s s D F N F L G = T 0112260 ) , a n d a l l e x p r e 0112300 s s i o n s u s i n g t h e 0112320 i . s . o p r N A M E t h 0112340 a t h a v e b e e n t r a 0112360 n s l a t e d w i l l h a v 0112400 e t h e i r t r a n s l a t 0112420 i o n s d i s c a r d e d . \r 0112440 \r T h e f o l l o w i n g a 0112460 r e s o m e e x a m p l e s 0112500 o f h o w I . S . O P R 0112520 c o u l d b e c a l l e d 0112540 t o d e f i n e s o m e e 0112560 x i s t i n g i . s . o p r s 0112600 , a n d c r e a t e s o m 0112620 e n e w o n e s : \r \t C O L 0112640 L E C T \t \r ( I . S . O P R ' 0112660 C O L L E C T \r 0112700 ' ( S E T Q $ $ V A L ( N 0112720 C O N C 1 $ $ V A L B O D Y 0112740 ) ) ) \r \t S U M \t \r ( I . S . O 0112760 P R ' S U M \r 0113000 ' ( $ $ V A L _ $ $ V A L + B 0113020 O D Y ) \r ' ( 0113040 F I R S T $ $ V A L _ 0 ) ) \r 0113060 N o t e : $ $ V A L + B O D 0113100 Y i s u s e d i n s t e a 0113120 d o f ( I P L U S $ $ V A 0113140 L B O D Y ) s o t h a t 0113160 t h e c h o i c e o f f u 0113200 n c t i o n u s e d i n t 0113220 h e t r a n s l a t i o n , 0113240 i . e . , I P L U S , F P L 0113260 U S , o r P L U S , w i l 0113300 l b e d e t e r m i n e d 0113320 b y t h e d e c l a r a t i 0113340 o n s t h e n i n e f f e 0113360 c t . \r \t N E V E R \t \r ( I . S 0113400 . O P R ' N E V E R \r 0113420 ' ( i f B O D Y t 0113440 h e n $ $ V A L _ N I L ( G 0113460 O $ $ O U T ) ) ) \r N o t e : 0113500 ( i f B O D Y t h e n 0113520 ( R E T U R N N I L ) ) w o 0113540 u l d e x i t f r o m t h 0113560 e i . s . i m m e d i a t e 0113600 l y a n d t h e r e f o r e 0113620 n o t e x e c u t e t h e 0113640 o p e r a t i o n s s p e c 0113660 i f i e d v i a a F I N A 0113700 L L Y ( i f a n y ) . \r \t T 0113720 H E R E I S \t \r ( I . S . O P R 0113740 ' T H E R E I S \r 0113760 ' ( i f B O D Y t h e 0114000 n $ $ V A L _ I . V . ( G O 0114020 $ $ O U T ) ) ) \r \t R C O L L 0114040 E C T \t T o d e f i n e R C 0114060 O L L E C T , a v e r s i o 0114100 n o f C O L L E C T w h i 0114120 c h u s e s C O N S i n s 0114140 t e a d o f N C O N C 1 a 0114160 n d t h e n r e v e r s e s 0114200 t h e l i s t o f v a l 0114220 u e s : \r ( I . S . O P R ' R 0114240 C O L L E C T \r 0114260 ' ( $ $ V A L _ ( C O N S B 0114300 O D Y $ $ V A L ) ) \r 0114320 ' ( F I N A L L Y ( 0114340 R E T U R N ( D R E V E R S E 0114360 $ $ V A L ) ) ) ] \r \t T C O L 0114400 L E C T \t T o d e f i n e T 0114420 C O L L E C T , a v e r s i 0114440 o n o f C O L L E C T w h 0114460 i c h u s e s T C O N C : \r 0114500 ( I . S . O P R ' T C O L L E 0114520 C T \r ' ( T C 0114540 O N C $ $ V A L B O D Y ) \r 0114560 ' ( F I R S T 0114600 $ $ V A L _ ( C O N S ) F I 0114620 N A L L Y ( R E T U R N ( C 0114640 A R $ $ V A L ) ) ) ] \r \t P R 0114660 O D U C T \t \r ( I . S . O P R 0114700 ' P R O D U C T \r 0114720 ' ( $ $ V A L _ $ $ V A L * 0114740 B O D Y ) \r ' 0114760 ( F I R S T $ $ V A L _ 1 ) ] 0115000 \r \t U P T O \t T o d e f i n e 0115020 U P T O , a v e r s i o n 0115040 o f T O w h o s e o p e 0115060 r a n d i s e v a l u a t e 0115100 d o n l y o n c e : \r ( I . 0115120 S . O P R ' U P T O \r 0115140 N I L \r 0115160 ' ( B I N D $ $ F O O _ B 0115200 O D Y T O $ $ F O O ) ] \r \t 0115220 T O \t T o r e d e f i n e T 0115240 O s o t h a t i n s t e a 0115260 d o f r e c o m p u t i n g 0115300 F O R M e a c h i t e r a 0115320 t i o n , a v a r i a b l e 0115340 i s b o u n d t o t h e 0115360 v a l u e o f F O R M , 0115400 a n d t h e n t h a t v a 0115420 r i a b l e i s u s e d : \r 0115440 ( I . S . O P R ' T O \r 0115460 N I L \r 0115500 ' ( B I N D $ $ E N D 0115520 F I R S T $ $ E N D _ B O D Y 0115540 O R I G I N A L T O $ $ E 0115560 N D ) ] \r N o t e t h e u s 0115600 e o f O R I G I N A L t o 0115620 r e d e f i n e T O i n 0115640 t e r m s o f i t s o r i 0115660 g i n a l d e f i n i t i o n 0115700 . O R I G I N A L i s i 0115720 n t e n d e d f o r u s e 0115740 i n r e d e f i n i n g b u 0115760 i l t - i n o p e r a t o r s 0116000 , s i n c e t h e i r d e 0116020 f i n i t i o n s a r e n o 0116040 t a c c e s s i b l e , a n 0116060 d h e n c e n o t d i r e 0116100 c t l y m o d i f i a b l e . 0116120 T h u s i f t h e o p 0116140 e r a t o r h a d b e e n 0116160 d e f i n e d b y t h e u 0116200 s e r v i a I . S . O P R , 0116220 O R I G I N A L w o u l d 0116240 n o t o b t a i n i t s o 0116260 r i g i n a l d e f i n i t i 0116300 o n . I n t h i s c a s 0116320 e , o n e p r e s u m a b l 0116340 y w o u l d s i m p l y m 0116360 o d i f y t h e i . s . o p 0116400 r d e f i n i t i o n . \r I . 0116420 S . O P R c a n a l s o b 0116440 e u s e d t o d e f i n e 0116460 s y n o n y m s f o r a l 0116500 r e a d y d e f i n e d i . 0116520 s . o p e r a t o r s b y 0116540 c a l l i n g I . S . O P R 0116560 w i t h F O R M a n a t o 0116600 m , e . g . , ( I . S . O P 0116620 R ' W H E R E ' W H E N ) 0116640 m a k e s W H E R E b e t 0116660 h e s a m e a s W H E N . 0116700 S i m i l a r l y , f o l 0116720 l o w i n g ( I . S . O P R 0116740 ' I S T H E R E ' T H E R E I 0116760 S ) , o n e c a n w r i t 0117000 e ( I S T H E R E A T O M 0117020 I N Y ) , a n d f o l l o 0117040 w i n g ( I . S . O P R ' F 0117060 I N D ' F O R ) a n d ( I 0117100 . S . O P R ' S U C H T H A T 0117120 ' T H E R E I S ) , o n e 0117140 c a n w r i t e ( f i n d 0117160 X i n Y s u c h t h a t 0117200 X m e m b e r Z ) . I n 0117220 t h e c u r r e n t s y s 0117240 t e m , W H E R E i s s y 0117260 n o n y m o u s w i t h W H 0117300 E N , S U C H T H A T a n d 0117320 I S T H E R E w i t h T H 0117340 E R E I S , F I N D w i t h 0117360 F O R , a n d T H R U w 0117400 i t h T O . \r I f F O R M 0117420 i s t h e a t o m M O D I 0117440 F I E R , t h e n N A M E 0117460 i s d e f i n e d a s a n 0117500 i . s . o p r w h i c h c 0117520 a n i m m e d i a t e l y f 0117540 o l l o w a n o t h e r i . 0117560 s . o p e r a t o r ( i . e 0117600 . , a n e r r o r w i l l 0117620 n o t b e g e n e r a t e 0117640 d , a s d e s c r i b e d 0117660 p r e v i o u s l y ) . N A 0117700 M E w i l l n o t t e r m 0117720 i n a t e t h e s c o p e 0117740 o f t h e p r e v i o u s 0117760 o p e r a t o r , a n d w i 0120000 l l b e s t r i p p e d o 0120020 f f w h e n D W I M I F Y 0120040 i s c a l l e d o n i t s 0120060 o p e r a n d . O L D i 0120100 s a n e x a m p l e o f 0120120 a M O D I F I E R t y p e 0120140 o f o p e r a t o r . T h 0120160 e M O D I F I E R f e a t u 0120200 r e a l l o w s t h e u s 0120220 e r t o d e f i n e i . s 0120240 . o p e r a t o r s s i m i 0120260 l a r t o O L D , f o r 0120300 u s e i n c o n j u n c t i 0120320 o n w i t h s o m e o t h 0120340 e r u s e r d e f i n e d 0120360 i . s . o p r w h i c h w i 0120400 l l p r o d u c e t h e a 0120420 p p r o p r i a t e t r a n s 0120440 l a t i o n . \r T h e f i l e 0120460 p a c k a g e c o m m a n d 0120500 I . S . O P R S ( p a g e 0120520 X . X X ) w i l l d u m p 0120540 t h e d e f i n i t i o n o 0120560 f i . s . o p r s . ( I . 0120600 S . O P R S P R O D U C T U 0120620 P T O ) a s a f i l e p 0120640 a c k a g e c o m m a n d w 0120660 i l l p r i n t s u i t a b 0120700 l e e x p r e s s i o n s s 0120720 o t h a t t h e s e i t e 0120740 r a t i v e s t a t e m e n t 0120760 o p e r a t o r s w i l l 0121000 b e ( r e ) d e f i n e d w 0121020 h e n t h e f i l e i s 0121040 l o a d e d . \r \r C o p y r i g 0121060 h t ( c ) 1 9 8 5 X e r o 0121100 x C o r p o r a t i o n . 0121120 A l l r i g h t s r e s e r 0121140 v e d . \r \r 0121146