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