$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>layout-sedit!1 0000000 ( D E F I N E - F I L E - I N F 0000020 O 247 R E A D T A B L E " X C 0000040 L " 247 P A C K A G E ( D E F 0000060 P A C K A G E " L A Y O U T - 0000100 S E D I T " ( 247 N I C K N A M 0000120 E S " L - S " ) ) ) \r 006 001 ( i 0000140 l : f i l e c r e a t e d " 0000160 9 - J a n - 8 7 1 9 : 5 5 : 2 0000200 5 " 006 004 i l : { e r i s } < l 0000220 i s p u s e r s > l i s p c o r 0000240 e > l a y o u t - s e d i t . \ 0000260 ; 2 006 001 7 1 9 0 \r \r 0000300 i l : | c h a n g e s | 0000320 i l : | t o : | ( i l : v 0000340 a r i a b l e s u s e r : : * 0000360 l - s - r e g i o n - z e r o * 0000400 u s e r : : * l - s - r e g i 0000420 o n - d e l t a * \r 0000440 0000460 u 0000500 s e r : : * l - s - r e u s e - 0000520 e a r l i e r - r e g i o n s * 0000540 ) \r 0000560 ( 0000600 i l : f u n c t i o n s g e t 0000620 - r e g i o n s a v e - r e g 0000640 i o n u s e r : : u s e - l - 0000660 s - r e g i o n s \r 0000700 0000720 u 0000740 s e r : : s t o p - u s i n g - 0000760 l - s - r e g i o n s ) \r 0001000 0001020 ( i l : v a 0001040 r s i l : l a y o u t - s e d 0001060 i t c o m s ) \r \r i 0001100 l : | p r e v i o u s | i l : 0001120 | d a t e : | " 2 6 - D e c - 0001140 8 6 1 9 : 4 2 : 4 6 " i l : 0001160 { e r i s } < p a v e l > l i s 0001200 p > l a y o u t - s e d i t . \ 0001220 ; 2 ) \r \r \r ; C o p y r i g h 0001240 t ( c ) 1 9 8 6 , 1 9 8 7 0001260 b y P a v e l C u r t i s 0001300 . A l l r i g h t s r e 0001320 s e r v e d . \r \r ( i l : p r e 0001340 t t y c o m p r i n t i l : l 0001360 a y o u t - s e d i t c o m s ) 0001400 \r \r ( i l : r p a q q 006 002 i l 0001420 : l a y o u t - s e d i t c o m 0001440 s 006 001 ( ( i l : f u n c t i o 0001460 n s u s e r : : u s e - l - s 0001500 - r e g i o n s u s e r : : s 0001520 t o p - u s i n g - l - s - r e 0001540 g i o n s ) \r 0001560 0001600 ( i l : v a r i a b 0001620 l e s * r e g i o n - a l i s 0001640 t * u s e r : : * l - s - r e 0001660 g i o n - z e r o * \r 0001700 * 0001740 u s e r : : * l - s - r e g 0001760 i o n - d e l t a * u s e r : 0002000 : * l - s - r e u s e - e a r l 0002020 i e r - r e g i o n s * ) \r 0002040 0002060 ( i l 0002100 : f u n c t i o n s r e g i o 0002120 n - p l u s ) \r 0002140 0002160 ( i l : f u n c t 0002200 i o n s g e t - r e g i o n 0002220 s a v e - r e g i o n ) \r 0002240 0002260 ( i l : 0002300 d e c l a r e \ : i l : d o n 0002320 t e v a l @ l o a d i l : d o 0002340 n t e v a l @ c o m p i l e i 0002360 l : d o c o p y \r 0002400 0002420 ( 0002440 i l : p ( u s e r : : u s e - 0002460 l - s - r e g i o n s ) ) ) \r 0002500 0002520 ( i 0002540 l : * i l : | ; ; | \r 0002560 * 0002620 " A r r a n g e t o u s 0002640 e t h e p r o p e r c o m 0002660 p i l e r a n d m a k e f i 0002700 l e e n v i r o n m e n t " 0002720 ) \r 0002740 0002760 ( i l : p r o p ( i l : f i 0003000 l e t y p e i l : m a k e f i 0003020 l e - e n v i r o n m e n t ) \r 0003040 * 0003100 i l : l a y o u t - 0003120 s e d i t ) ) ) \r \r ( d e f u n 0003140 006 002 u s e r : : u s e - l - s 0003160 - r e g i o n s 006 001 n i l ( 0003200 a s s e r t ( n u l l i l : 0003220 | \ \ \ \ c o n t e x t s | ) \r 0003240 * 0003300 n i l " C l o 0003320 s e a l l o p e n S E d i 0003340 t w i n d o w s " ) \r 0003360 0003400 ( i l 0003420 : s e d i t . r e s e t ) \r 0003440 0003460 ( 0003500 i l : m o v d ' i l : s e d i 0003520 t . g e t . w i n d o w . r e g 0003540 i o n ' o l d - g e t - r e g 0003560 i o n ) \r 0003600 0003620 ( i l : m o v d ' 0003640 i l : s e d i t . s a v e . w i 0003660 n d o w . r e g i o n ' o l d 0003700 - s a v e - r e g i o n ) \r 0003720 0003740 ( 0003760 i l : m o v d ' g e t - r e g 0004000 i o n ' i l : s e d i t . g e 0004020 t . w i n d o w . r e g i o n ) 0004040 \r 0004060 0004100 ( i l : m o v d ' s a v e 0004120 - r e g i o n ' i l : s e d i 0004140 t . s a v e . w i n d o w . r e 0004160 g i o n ) ) \r \r \r ( d e f u n 0004200 006 002 u s e r : : s t o p - u s i 0004220 n g - l - s - r e g i o n s 006 001 0004240 n i l ( a s s e r t ( n u 0004260 l l i l : | \ \ \ \ c o n t e 0004300 x t s | ) \r 0004320 * 0004360 n i l " C l o s e 0004400 a l l o p e n S E d i t w 0004420 i n d o w s " ) \r 0004440 * 0004500 ( i l : s e d i t . r e s e t 0004520 ) \r 0004540 0004560 ( i l : m o 0004600 v d ' o l d - g e t - r e g i 0004620 o n ' i l : s e d i t . g e t 0004640 . w i n d o w . r e g i o n ) \r 0004660 * 0004720 ( i l : m o v d 0004740 ' o l d - s a v e - r e g i o 0004760 n ' i l : s e d i t . s a v e 0005000 . w i n d o w . r e g i o n ) ) 0005020 \r \r \r ( d e f v a r 006 002 * r e 0005040 g i o n - a l i s t * 006 001 n i 0005060 l \r \r 006 003 ( i l : * i l : | 0005100 ; ; ; | " A n A L i s t m 0005120 a p p i n g a r e g i o n 0005140 t o t h e S E d i t c o n 0005160 t e x t t h a t c u r r e n 0005200 t l y o w n s i t . T h 0005220 e a s s o c i a t i o n s o 0005240 f r e g i o n s n o l o n 0005260 g e r i n u s e s h o u l 0005300 d h a v e a C D R o f 0005320 N I L . T h e l i s t i 0005340 s k e p t i n r e v e r s 0005360 e o r d e r , w i t h t h 0005400 e f a r t h e s t r e g i o 0005420 n f r o m * R E G I O N - Z 0005440 E R O * a t t h e f r o n 0005460 t o f t h e l i s t . 0005500 S o a s t o a l l o w e 0005520 x p e r i m e n t a t i o n b 0005540 y u s e r s , w e m a i n 0005560 t a i n t h e i n v a r i a 0005600 n t t h a t t h e f i r s 0005620 t a s s o c i a t i o n o n 0005640 t h e l i s t n e v e r 0005660 h a s a C D R o f N I L 0005700 . T o r e e s t a b l i s 0005720 h t h a t i n v a r i a n t 0005740 , w e s o m e t i m e s P 0005760 O P t h e A L i s t r a t 0006000 h e r t h a n s e t t h e 0006020 C D R t o N I L . " ) 006 001 0006040 \r ) \r \r \r ( d e f v a r 006 002 u 0006060 s e r : : * l - s - r e g i o n 0006100 - z e r o * 006 001 ( i l : c r e 0006120 a t e r e g i o n 2 5 ( - 0006140 ( t r u n c a t e i l : s c r 0006160 e e n h e i g h t 2 ) \r 0006200 * 0006260 1 9 ) \r 0006300 0006320 ( 0006340 t r u n c a t e i l : s c r e 0006360 e n w i d t h 2 ) \r 0006400 * 0006440 ( t r u n c a t e i l : s 0006460 c r e e n h e i g h t 2 ) ) 0006500 \r \r 006 003 ( i l : * i l : | ; ; 0006520 ; | " T h e r e g i o n t 0006540 o b e u s e d b y t h e 0006560 f i r s t S E d i t w i n 0006600 d o w . T h i s w o r k s 0006620 i n c o n j u n c t i o n 0006640 w i t h U S E R : : * L - S - 0006660 R E G I O N - D E L T A * t o 0006700 s p e c i f y t h e r e g 0006720 i o n f o r e a c h n e w 0006740 S E d i t w i n d o w . " ) 0006760 006 001 \r ) \r \r \r ( d e f v a r 0007000 006 002 u s e r : : * l - s - r e g 0007020 i o n - d e l t a * 006 001 ( i l 0007040 : c r e a t e r e g i o n 1 1 0007060 - 4 4 0 0 ) ) \r \r \r ( d 0007100 e f v a r 006 002 u s e r : : * l 0007120 - s - r e u s e - e a r l i e r 0007140 - r e g i o n s * 006 001 n i l 0007160 \r \r 006 003 ( i l : * i l : | ; ; 0007200 ; | " I f n o n - N I L , 0007220 t h e n e a r l i e r r e g 0007240 i o n s ( i . e . , t h o s 0007260 e c l o s e r t o U S E R 0007300 : : * L - S - R E G I O N - Z E 0007320 R O * w i l l g e t r e u 0007340 s e d w h e n f r e e . 0007360 O t h e r w i s e , n e w r 0007400 e g i o n s , f a r t h e r 0007420 f r o m U S E R : : * L - S - 0007440 R E G I O N - Z E R O * t h a 0007460 n a n y c u r r e n t l y 0007500 i n u s e , w i l l b e 0007520 c r e a t e d . " ) 006 001 \r ) \r \r 0007540 \r ( d e f u n 006 002 r e g i o n 0007560 - p l u s 006 001 ( o n e t w o 0007600 ) ( i l : c r e a t e r e g i 0007620 o n ( + ( 006 002 i l : f e t c 0007640 h 006 001 ( i l : r e g i o n i 0007660 l : l e f t ) 006 002 i l : o f 006 0007700 001 o n e ) \r 0007720 * 0007760 ( 006 002 i l : f e 0010000 t c h 006 001 ( i l : r e g i o n 0010020 i l : l e f t ) 006 002 i l : o 0010040 f 006 001 t w o ) ) \r 0010060 0010100 ( + 0010120 ( 006 002 i l : f e t c h 006 001 ( 0010140 i l : r e g i o n i l : b o t 0010160 t o m ) 006 002 i l : o f 006 001 o 0010200 n e ) \r 0010220 0010240 ( 006 002 i l 0010260 : f e t c h 006 001 ( i l : r e g 0010300 i o n i l : b o t t o m ) 006 0010320 002 i l : o f 006 001 t w o ) ) \r 0010340 * 0010400 ( + ( 006 002 i l : f e t c 0010420 h 006 001 ( i l : r e g i o n i 0010440 l : w i d t h ) 006 002 i l : o f 0010460 006 001 o n e ) \r 0010500 0010520 ( 0010540 006 002 i l : f e t c h 006 001 ( i l 0010560 : r e g i o n i l : w i d t h 0010600 ) 006 002 i l : o f 006 001 t w o ) 0010620 ) \r 0010640 0010660 ( + ( 006 002 i l : f 0010700 e t c h 006 001 ( i l : r e g i o 0010720 n i l : h e i g h t ) 006 002 i 0010740 l : o f 006 001 o n e ) \r 0010760 * 0011020 ( 006 002 i l : f e t c h 006 001 0011040 ( i l : r e g i o n i l : h 0011060 e i g h t ) 006 002 i l : o f 006 001 0011100 t w o ) ) ) ) \r \r \r ( d e f u 0011120 n 006 002 g e t - r e g i o n 006 001 0011140 ( c o n t e x t ) ( l e t 0011160 ( ( p a i r ( a n d u s e r 0011200 : : * l - s - r e u s e - e a r 0011220 l i e r - r e g i o n s * ( f 0011240 i n d n i l \r 0011260 * 0011360 * r 0011400 e g i o n - a l i s t * \r 0011420 * 0011540 : k e y \r 0011560 * 0011660 ' c d 0011700 r ) ) ) ) \r 0011720 0011740 ( c o n d \r 0011760 * 0012020 ( ( n u l l p a i r ) \r 0012040 * 0012100 ( c o n d \r 0012120 * 0012160 ( ( n u l l * r e g i o n - 0012200 a l i s t * ) \r 0012220 * 0012260 ( s e t q * r e g i o n - a 0012300 l i s t * ( l i s t ( c o n 0012320 s u s e r : : * l - s - r e g 0012340 i o n - z e r o * \r 0012360 * 0012460 c o n t e x t ) ) ) \r 0012500 * 0012540 u s e r : : * 0012560 l - s - r e g i o n - z e r o * 0012600 ) \r 0012620 0012640 ( t ( l e 0012660 t ( ( n e w - r e g i o n ( 0012700 r e g i o n - p l u s ( c a r 0012720 ( f i r s t * r e g i o n - 0012740 a l i s t * ) \r 0012760 * 0013060 ) \r 0013100 * 0013160 u s e 0013200 r : : * l - s - r e g i o n - d 0013220 e l t a * ) ) ) \r 0013240 * 0013300 ( p u s h ( 0013320 c o n s n e w - r e g i o n 0013340 c o n t e x t ) \r 0013360 * 0013420 * 0013440 r e g i o n - a l i s t * ) \r 0013460 * 0013520 n 0013540 e w - r e g i o n ) ) ) ) \r 0013560 * 0013620 ( t ( s e t f ( c d r 0013640 p a i r ) \r 0013660 * 0013720 c o n t e x t ) \r 0013740 * 0014000 ( c a r p a i r ) ) ) ) 0014020 ) \r \r \r ( d e f u n 006 002 s a v 0014040 e - r e g i o n 006 001 ( c o n t 0014060 e x t ) \r \r 006 003 ( i l : * i 0014100 l : | ; ; ; | " T h e c o n 0014120 t e x t i s d o n e w i t 0014140 h i t s r e g i o n . D 0014160 e a l l o c a t e i t . " ) 006 0014200 001 \r ( l e t ( ( p a i r ( 0014220 f i n d c o n t e x t * r e 0014240 g i o n - a l i s t * : k e y 0014260 ' c d r ) ) ) \r ( 0014300 i f ( n u l l p a i r ) \r 0014320 ( w a r n " 0014340 A n S E d i t c o n t e x t 0014360 i s t r y i n g t o g i 0014400 v e u p a n u n a l l o c 0014420 a t e d r e g i o n . " ) \r 0014440 ( s e t f ( 0014460 c d r p a i r ) \r 0014500 n i l ) ) \r 0014520 ( s e t q * r e g 0014540 i o n - a l i s t * ( m e m b 0014560 e r - i f - n o t ' n u l l 0014600 * r e g i o n - a l i s t * : 0014620 k e y ' c d r ) ) ) ) \r \r ( i 0014640 l : d e c l a r e \ : i l : d 0014660 o n t e v a l @ l o a d i l : 0014700 d o n t e v a l @ c o m p i l e 0014720 i l : d o c o p y \r ( u s e 0014740 r : : u s e - l - s - r e g i o 0014760 n s ) \r ) \r \r \r \r 006 004 ( i l : * 0015000 i l : | ; ; | " A r r a n g 0015020 e t o u s e t h e p r o 0015040 p e r c o m p i l e r a n d 0015060 m a k e f i l e e n v i r o 0015100 n m e n t " ) 006 001 \r \r \r ( i l 0015120 : p u t p r o p s 006 002 i l : l 0015140 a y o u t - s e d i t i l : f 0015160 i l e t y p e 006 001 c o m p i l 0015200 e - f i l e ) \r \r ( i l : p u t 0015220 p r o p s 006 002 i l : l a y o u 0015240 t - s e d i t i l : m a k e f 0015260 i l e - e n v i r o n m e n t 006 0015300 001 ( : r e a d t a b l e " X 0015320 C L " : p a c k a g e ( x c 0015340 l : d e f p a c k a g e \r 0015360 * 0015460 " L 0015500 A Y O U T - S E D I T " \r 0015520 * 0015620 ( : 0015640 n i c k n a m e s " L - S " ) 0015660 ) ) ) \r ( i l : p u t p r o p s 0015700 i l : l a y o u t - s e d i t 0015720 i l : c o p y r i g h t ( " 0015740 P a v e l C u r t i s " 1 9 0015760 8 6 1 9 8 7 ) ) \r ( i l : d e 0016000 c l a r e \ : i l : d o n t c 0016020 o p y \r ( i l : f i l e m a 0016040 p ( n i l ) ) ) \r i l : s t o 0016060 p \r 0016062