$ 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