$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>layout-sedit.lcom!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 ( i l :
0000140 f i l e c r e a t e d " 9 -
0000160 J a n - 8 7 1 9 : 5 5 : 3 6 "
0000200 ( " c o m p i l e d o n "
0000220 i l : { e r i s } < l i s p u
0000240 s e r s > l i s p c o r e > l a
0000260 y o u t - s e d i t . \ ; 2 )
0000300 \r " 9 - J a n - 8 7 1 3 : 1
0000320 8 : 3 8 " " C O M P I L E - F
0000340 I L E d " i l : | i n | " X
0000360 e r o x L i s p 9 - J a n
0000400 - 8 7 . . . " i l : | d a t
0000420 e d | \r " 9 - J a n - 8 7
0000440 1 3 : 4 7 : 5 6 " ) \r ( i l : f
0000460 i l e c r e a t e d " 9 - J
0000500 a n - 8 7 1 9 : 5 5 : 2 5 "
0000520 i l : { e r i s } < l i s p u s
0000540 e r s > l i s p c o r e > l a y
0000560 o u t - s e d i t . \ ; 2 7 1
0000600 9 0 i l : | c h a n g e s |
0000620 \r i l : | t o : | ( i l : v a
0000640 r i a b l e s u s e r : : * l
0000660 - s - r e g i o n - z e r o *
0000700 u s e r : : * l - s - r e g i o
0000720 n - d e l t a * u s e r : : *
0000740 l - s - r e u s e - e a r l i e
0000760 r - r e g i o n s * \r ) ( i l
0001000 : f u n c t i o n s g e t - r
0001020 e g i o n s a v e - r e g i o
0001040 n u s e r : : u s e - l - s -
0001060 r e g i o n s u s e r : : s t
0001100 o p - u s i n g - l - s - r e g
0001120 i o n s ) ( i l : v a r s \r
0001140 i l : l a y o u t - s e d i t c
0001160 o m s ) i l : | p r e v i o u
0001200 s | i l : | d a t e : | " 2
0001220 6 - D e c - 8 6 1 9 : 4 2 : 4
0001240 6 " i l : { e r i s } < p a v
0001260 e l > l i s p > l a y o u t - s
0001300 e d i t . \ ; 2 \r ) \r ( i l : r
0001320 p a q q i l : l a y o u t - s
0001340 e d i t c o m s ( ( i l : f u
0001360 n c t i o n s u s e r : : u s
0001400 e - l - s - r e g i o n s u s
0001420 e r : : s t o p - u s i n g - l
0001440 - s - r e g i o n s ) ( \r i l
0001460 : v a r i a b l e s * r e g i
0001500 o n - a l i s t * u s e r : :
0001520 * l - s - r e g i o n - z e r o
0001540 * u s e r : : * l - s - r e g
0001560 i o n - d e l t a * \r u s e r
0001600 : : * l - s - r e u s e - e a r
0001620 l i e r - r e g i o n s * ) (
0001640 i l : f u n c t i o n s r e g
0001660 i o n - p l u s ) ( i l : f u
0001700 n c t i o n s g e t - r e g i
0001720 o n s a v e - r e g i o n )
0001740 ( \r i l : d e c l a r e \ : i
0001760 l : d o n t e v a l @ l o a d
0002000 i l : d o n t e v a l @ c o m p
0002020 i l e i l : d o c o p y ( i
0002040 l : p ( u s e r : : u s e - l
0002060 - s - r e g i o n s ) ) ) ( i
0002100 l : * \r i l : | ; ; | " A r
0002120 r a n g e t o u s e t h e
0002140 p r o p e r c o m p i l e r
0002160 a n d m a k e f i l e e n
0002200 v i r o n m e n t " ) ( i l
0002220 : p r o p ( i l : f i l e t y
0002240 p e \r i l : m a k e f i l e -
0002260 e n v i r o n m e n t ) i l :
0002300 l a y o u t - s e d i t ) ) ) \r
0002320 u s e r : : u s e - l - s - r e
0002340 g i o n s : d 4 \r ( i l : f
0002360 0 i l : | \ \ \ \ c o n t e x
0002400 t s | ) \0 5 \0 001 \0 \0 P 231 o \0 \0
0002420 \0 \t \0 \0 277 260 366 \b \0 \0 g \0 \0 g \0 \0
0002440 \n \0 \0 g \0 \0 g \0 \0 \n \0 \0 g \0 \0 g
0002460 \0 \0 \n \0 \0 g \0 \0 g \0 \0 \n \0 \0 020 \0
0002500 ( 5 0 i l : m o v d 4 1 i
0002520 l : m o v d 3 2 i l : m o v
0002540 d 2 3 i l : m o v d 1 4
0002560 i l : s e d i t . r e s e t 8
0002600 i l : a s s e r t - f a i l )
0002620 \r ( 4 7 i l : s e d i t . s a
0002640 v e . w i n d o w . r e g i o n
0002660 4 4 s a v e - r e g i o n
0002700 3 8 i l : s e d i t . g e t .
0002720 w i n d o w . r e g i o n 3 5
0002740 g e t - r e g i o n 2 9 o
0002760 l d - s a v e - r e g i o n 2
0003000 6 i l : s e d i t . s a v e .
0003020 w i n d o w . r e g i o n 2 0
0003040 o l d - g e t - r e g i o n
0003060 1 7 i l : s e d i t . g e t .
0003100 w i n d o w . r e g i o n ) \r (
0003120 5 " C l o s e a l l o p
0003140 e n S E d i t w i n d o w s
0003160 " ) \r u s e r : : s t o p - u s
0003200 i n g - l - s - r e g i o n s
0003220 : d 4 \r ( i l : f 0 i l : |
0003240 \ \ \ \ c o n t e x t s | ) \0
0003260 # \0 001 \0 \0 P 231 o \0 \0 \0 \t \0 \0 277 260
0003300 366 \b \0 \0 g \0 \0 g \0 \0 \n \0 \0 g \0 \0
0003320 g \0 \0 \n \0 \0 020 \0 ( 3 2 i l : m
0003340 o v d 2 3 i l : m o v d 1
0003360 4 i l : s e d i t . r e s e t
0003400 8 i l : a s s e r t - f a i
0003420 l ) \r ( 2 9 i l : s e d i t .
0003440 s a v e . w i n d o w . r e g i
0003460 o n 2 6 o l d - s a v e - r
0003500 e g i o n 2 0 i l : s e d i
0003520 t . g e t . w i n d o w . r e g
0003540 i o n 1 7 o l d - g e t - r
0003560 e g i o n ) \r ( 5 " C l o s
0003600 e a l l o p e n S E d i t
0003620 w i n d o w s " ) \r ( p r o c
0003640 l a i m ( q u o t e ( s p e
0003660 c i a l * r e g i o n - a l i
0003700 s t * ) ) ) \r ( o r ( b o u n
0003720 d p ( q u o t e * r e g i o
0003740 n - a l i s t * ) ) ( i l : s
0003760 e t q * r e g i o n - a l i s
0004000 t * n i l ) ) \r ( p r o c l a
0004020 i m ( q u o t e ( s p e c i
0004040 a l u s e r : : * l - s - r e
0004060 g i o n - z e r o * ) ) ) \r ( o
0004100 r ( b o u n d p ( q u o t e
0004120 u s e r : : * l - s - r e g i
0004140 o n - z e r o * ) ) ( i l : s
0004160 e t q u s e r : : * l - s - r
0004200 e g i o n - z e r o * ( i l :
0004220 c r e a t e r e g i o n 2 5
0004240 ( - ( \r t r u n c a t e i l
0004260 : s c r e e n h e i g h t 2 )
0004300 1 9 ) ( t r u n c a t e i
0004320 l : s c r e e n w i d t h 2 )
0004340 ( t r u n c a t e i l : s c
0004360 r e e n h e i g h t 2 ) ) ) )
0004400 \r ( p r o c l a i m ( q u o t
0004420 e ( s p e c i a l u s e r :
0004440 : * l - s - r e g i o n - d e l
0004460 t a * ) ) ) \r ( o r ( b o u n
0004500 d p ( q u o t e u s e r : :
0004520 * l - s - r e g i o n - d e l t
0004540 a * ) ) ( i l : s e t q u s
0004560 e r : : * l - s - r e g i o n -
0004600 d e l t a * ( i l : c r e a t
0004620 e r e g i o n 1 1 \r - 4 4
0004640 0 0 ) ) ) \r ( p r o c l a i m
0004660 ( q u o t e ( s p e c i a l
0004700 u s e r : : * l - s - r e u s
0004720 e - e a r l i e r - r e g i o n
0004740 s * ) ) ) \r ( o r ( b o u n d
0004760 p ( q u o t e u s e r : : *
0005000 l - s - r e u s e - e a r l i e
0005020 r - r e g i o n s * ) ) ( i l
0005040 : s e t q u s e r : : * l - s
0005060 - r e u s e - e a r l i e r - r
0005100 e g i o n s * n i l ) \r ) \r r
0005120 e g i o n - p l u s : d 4 \r (
0005140 i l : l ( 1 t w o 0 o n
0005160 e ) ) \0 % \0 \0 \0 002 @ 001 A 001 324 @
0005200 002 001 A 002 001 324 @ 002 002 001 A 002 002 001 324 @
0005220 002 002 002 001 A 002 002 002 001 324 \f \0 \0 020 \0 (
0005240 3 4 i l : c r e a t e r e g i
0005260 o n ) \r n i l \r ( ) \r g e t - r
0005300 e g i o n : d 4 \r ( i l : l
0005320 ( 0 c o n t e x t ) i l : f
0005340 4 * r e g i o n - a l i s t
0005360 * i l : f 5 u s e r : : *
0005400 l - s - r e g i o n - z e r o *
0005420 i l : f 6 u s e r : : * l
0005440 - s - r e u s e - e a r l i e r
0005460 - r e g i o n s * i l : f 7
0005500 u s e r : : * l - s - r e g i
0005520 o n - d e l t a * ) \0 ; 004 004 \0
0005540 001 V 264 \r h T g \0 \0 g \0 \0 \f \0 \0 021
0005560 1 003 H 265 036 T 265 \v U @ 032 h 032 c \b U
0005600 020 001 001 W 016 \n \0 \0 Y @ 032 T 032 c \b I
0005620 020 273 @ 272 K J 031 277 H 001 020 \0 ( 3 8
0005640 r e g i o n - p l u s 1 3 f
0005660 i n d ) \r ( 1 0 c d r 7 :
0005700 k e y ) \r ( ) \r s a v e - r e g
0005720 i o n : d 4 \r ( i l : l ( 0
0005740 c o n t e x t ) i l : f 0
0005760 * r e g i o n - a l i s t * )
0006000 \0 ) \0 001 \0 001 @ P g \0 \0 g \0 \0 \f
0006020 \0 \0 265 \n o \0 \0 \0 \t \0 \0 201 h 031 277 g
0006040 \0 \0 P g \0 \0 g \0 \0 \f \0 \0 c \0 020 \0
0006060 ( 3 6 m e m b e r - i f - n o
0006100 t 1 9 w a r n 1 0 f i n
0006120 d ) \r ( 3 3 c d r 3 0 : k
0006140 e y 2 6 n u l l 7 c d r
0006160 4 : k e y ) \r ( 1 6 " A
0006200 n S E d i t c o n t e x t
0006220 i s t r y i n g t o g i v
0006240 e u p a n u n a l l o c a
0006260 t e d r e g i o n . " ) \r ( u
0006300 s e r : : u s e - l - s - r e g
0006320 i o n s ) \r ( i l : p u t p r o
0006340 p s i l : l a y o u t - s e d
0006360 i t i l : f i l e t y p e c
0006400 o m p i l e - f i l e ) \r ( i l
0006420 : p u t p r o p s i l : l a y
0006440 o u t - s e d i t i l : m a k
0006460 e f i l e - e n v i r o n m e n
0006500 t ( : r e a d t a b l e " X
0006520 C L " : p a c k a g e ( x c
0006540 l : d e f p a c k a g e \r " L
0006560 A Y O U T - S E D I T " ( : n
0006600 i c k n a m e s " L - S " ) )
0006620 ) ) \r ( i l : p u t p r o p s
0006640 i l : l a y o u t - s e d i t
0006660 i l : c o p y r i g h t ( " P
0006700 a v e l C u r t i s " 1 9 8
0006720 6 1 9 8 7 ) ) \r n i l \r
0006735