$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>tedit-close-on-shrink.lcom!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 036 P A C K A G E " I N T E
0000040 R L I S P " 036 R E A D T A B L
0000060 E " I N T E R L I S P " 036 B
0000100 A S E 1 0 ) \r ( F I L E C R E
0000120 A T E D " 3 0 - N o v - 8 7
0000140 1 5 : 3 2 : 2 2 " ( " c o m p
0000160 i l e d o n " { E R I N Y
0000200 E S } < L I S P U S E R S > L Y
0000220 R I C > T E D I T - C L O S E -
0000240 O N - S H R I N K . ; 3 ) \r "
0000260 2 7 - A p r - 8 7 1 6 : 4 8 :
0000300 4 9 " b c o m p l ' d i n
0000320 " X e r o x L i s p 3 - N
0000340 o v - 8 7 . . . " d a t e d
0000360 " 3 - N o v - 8 7 1 6 : 5
0000400 6 : 4 1 " ) \r ( F I L E C R E A
0000420 T E D " 3 0 - N o v - 8 7 1
0000440 5 : 3 2 : 0 8 " { E R I N Y E
0000460 S } < L I S P U S E R S > L Y R
0000500 I C > T E D I T - C L O S E - O
0000520 N - S H R I N K . ; 3 2 3 3 5
0000540 c h a n g e s t o % : \r (
0000560 V A R S T E D I T - C L O S E
0000600 - O N - S H R I N K C O M S )
0000620 p r e v i o u s d a t e % :
0000640 " 3 0 - N o v - 8 7 1 4 : 5 5
0000660 : 1 8 " \r { E R I N Y E S } <
0000700 L I S P U S E R S > L Y R I C >
0000720 T E D I T - C L O S E - O N - S
0000740 H R I N K . ; 2 ) \r \ T E D I T
0000760 - C L O S E - O N - S H R I N K
0001000 : D 4 \r ( P 1 b a c k i n
0001020 g S t r e a m P 0 t e x t
0001040 O b j I 0 t e d i t W i n
0001060 d o w ) \0 036 002 \0 \0 001 @ \t \0 \0 021
0001100 021 001 H 006 \0 \0 311 , 271 H 312 , \0 j 360 225
0001120 I 223 I \t \0 \0 i 020 \0 ( 2 6 C L O
0001140 S E F ? 3 T E X T O B J ) \r
0001160 ( 1 0 T E X T O B J ) \r ( ) \r
0001200 ( P R E T T Y C O M P R I N T
0001220 T E D I T - C L O S E - O N - S
0001240 H R I N K C O M S ) \r ( R P A Q
0001260 Q T E D I T - C L O S E - O N
0001300 - S H R I N K C O M S ( ( F N
0001320 S \ T E D I T - C L O S E - O
0001340 N - S H R I N K ) ( D E C L A
0001360 R E % : D O N T E V A L @ L O
0001400 A D D O C O P Y ( P ( \r U
0001420 N A D V I S E \ T E D I T . R
0001440 E O P E N . S T R E A M ) ( P
0001460 U T P R O P ( Q U O T E T E
0001500 D I T . C R E A T E W ) ( Q U
0001520 O T E R E A D V I C E ) ( Q
0001540 U O T E ( N I L ( A F T E R
0001560 N I L \r ( i f ( N O T (
0001600 M E M B ( Q U O T E \ T E D
0001620 I T - C L O S E - O N - S H R I
0001640 N K ) ( W I N D O W P R O P
0001660 ! V A L U E ( Q U O T E S H
0001700 R I N K F N ) ) ) ) t h e n
0001720 ( \r W I N D O W A D D P R O P
0001740 ! V A L U E ( Q U O T E S H
0001760 R I N K F N ) ( Q U O T E \
0002000 T E D I T - C L O S E - O N - S
0002020 H R I N K ) ) ) ) ) ) ) ( P U
0002040 T P R O P ( Q U O T E \r \ T
0002060 E D I T . C R E A T E W . F R O
0002100 M . R E G I O N ) ( Q U O T E
0002120 R E A D V I C E ) ( Q U O T
0002140 E ( N I L ( A F T E R N I
0002160 L ( i f ( N O T ( M E M B
0002200 ( Q U O T E \r \ T E D I T -
0002220 C L O S E - O N - S H R I N K )
0002240 ( W I N D O W P R O P ! V A
0002260 L U E ( Q U O T E S H R I N
0002300 K F N ) ) ) ) t h e n ( W I
0002320 N D O W A D D P R O P ! V A L
0002340 U E ( Q U O T E \r S H R I N
0002360 K F N ) ( Q U O T E \ T E D
0002400 I T - C L O S E - O N - S H R I
0002420 N K ) ) ) ) ) ) ) ( R E A D V
0002440 I S E T E D I T . C R E A T E
0002460 W \ T E D I T . C R E A T E W
0002500 . F R O M . R E G I O N ) ( \r
0002520 S E T Q A D V I S E D F N S
0002540 ( L D I F F E R E N C E A D V
0002560 I S E D F N S ( Q U O T E (
0002600 T E D I T . C R E A T E W \ T
0002620 E D I T . C R E A T E W . F R O
0002640 M . R E G I O N \r \ T E D I T
0002660 . R E O P E N . S T R E A M ) )
0002700 ) ) ) ) ) ) \r ( U N A D V I S E
0002720 \ T E D I T . R E O P E N . S
0002740 T R E A M ) \r ( P U T P R O P
0002760 ( Q U O T E T E D I T . C R E
0003000 A T E W ) ( Q U O T E R E A
0003020 D V I C E ) ( Q U O T E ( N
0003040 I L ( A F T E R N I L ( i
0003060 f ( N O T ( M E M B ( Q U
0003100 O T E \r \ T E D I T - C L O S
0003120 E - O N - S H R I N K ) ( W I
0003140 N D O W P R O P ! V A L U E
0003160 ( Q U O T E S H R I N K F N )
0003200 ) ) ) t h e n ( W I N D O W
0003220 A D D P R O P ! V A L U E (
0003240 Q U O T E \r S H R I N K F N )
0003260 ( Q U O T E \ T E D I T - C
0003300 L O S E - O N - S H R I N K ) )
0003320 ) ) ) ) ) \r ( P U T P R O P (
0003340 Q U O T E \ T E D I T . C R E
0003360 A T E W . F R O M . R E G I O N
0003400 ) ( Q U O T E R E A D V I C
0003420 E ) ( Q U O T E ( N I L (
0003440 A F T E R N I L ( i f ( N
0003460 O T ( M E M B ( \r Q U O T E
0003500 \ T E D I T - C L O S E - O N
0003520 - S H R I N K ) ( W I N D O W
0003540 P R O P ! V A L U E ( Q U O
0003560 T E S H R I N K F N ) ) ) )
0003600 t h e n ( W I N D O W A D D P
0003620 R O P ! V A L U E ( Q U O T
0003640 E \r S H R I N K F N ) ( Q U
0003660 O T E \ T E D I T - C L O S E
0003700 - O N - S H R I N K ) ) ) ) ) )
0003720 ) \r ( R E A D V I S E T E D I
0003740 T . C R E A T E W \ T E D I T
0003760 . C R E A T E W . F R O M . R E
0004000 G I O N ) \r ( S E T Q A D V I
0004020 S E D F N S ( L D I F F E R E
0004040 N C E A D V I S E D F N S (
0004060 Q U O T E ( T E D I T . C R E
0004100 A T E W \ T E D I T . C R E A
0004120 T E W . F R O M . R E G I O N
0004140 \r \ T E D I T . R E O P E N . S
0004160 T R E A M ) ) ) ) \r ( P U T P R
0004200 O P S T E D I T - C L O S E -
0004220 O N - S H R I N K C O P Y R I
0004240 G H T ( " X e r o x C o r p
0004260 o r a t i o n " 1 9 8 7 ) ) \r
0004300 N I L \r
0004304