$ od -c -N 50000 [eris]<LispUsers>EDITHIST.DCOM!1
0000000 ( F I L E C R E A T E D " 9
0000020 - O C T - 8 3 2 2 : 0 8 : 0 1
0000040 " ( " c o m p i l e d o n
0000060 " { P H Y L U M } < L I S P U
0000100 S E R S > E D I T H I S T . ; 2
0000120 ) " 9 - O C T - 8 3 1 2 :
0000140 1 3 : 3 6 " \r b c o m p l ' d
0000160 i n W O R K d a t e d "
0000200 9 - O C T - 8 3 1 2 : 2 3 :
0000220 4 8 " ) \r ( F I L E C R E A T E
0000240 D " 5 - M A Y - 8 3 2 2 :
0000260 0 5 : 3 7 " / l i s p / d d y
0000300 e r / l i s p / i n i t / E D I
0000320 T H I S T . ; 4 1 3 5 0 6 c
0000340 h a n g e s t o : ( V A R S
0000360 \r E D I T H I S T C O M S )
0000400 ( F N S I N I T E D I T H I S
0000420 T ) p r e v i o u s d a t e
0000440 : " 1 8 - F E B - 8 3 1 3 :
0000460 5 4 : 3 2 " / l i s p / d d y
0000500 e r / l i s p / i n i t / E D I
0000520 T H I S T ) \r C H E C K E D I T
0000540 H I S T D 1 \r ( P 0 N A M
0000560 E I T I 2 T Y P E I 1
0000600 N A M E I 0 C O M ) \0
0000620 O 001 \0 \0 003 B d g \0 \0 360 236 277 @ 002 001
0000640 g \0 \0 360 224 @ 002 002 265 031 B @ 001 360 264 023
0000660 @ d 002 001 g \0 \0 360 226 002 002 001 \t \0 \0 200
0000700 002 021 001 \0 A d i 360 226 277 H h 360 h 360 020
0000720 003 225 A H \n \0 \0 020 A 265 004 H 020 H 034 264
0000740 003 i 020 \0 ( 1 0 1 Q I N T E R S
0000760 E C T I O N 5 1 Q G E T T O
0001000 P V A L ) \r ( 4 1 Q * 1 5 Q
0001020 * 4 V A R S ) \r N I L \r D
0001040 E L E D I T H I S T D E F D 1
0001060 \r ( I 1 T Y P E I 0 N
0001100 A M E F 0 E D I T H I S T
0001120 A L I S T ) \0 \r \0 001 \0 002 @ h P
0001140 \v \0 \0 @ A \n \0 \0 020 \0 ( 1 2 Q M
0001160 A R K A S C H A N G E D 5 /
0001200 P U T A S S O C ) \r N I L \r N I
0001220 L \r G E T E D I T H I S T D E F
0001240 D 1 \r ( I 2 O P T I O N S
0001260 I 1 T Y P E I 0 N A
0001300 M E F 0 E D I T H I S T A
0001320 L I S T ) \0 \b \0 001 \0 003 @ P \n \0
0001340 \0 002 020 \0 ( 4 A S S O C ) \r N I
0001360 L \r N I L \r I N I T E D I T H I
0001400 S T D 1 \r ( P 4 O L D P
0001420 P 3 F D P 2 N O A S K
0001440 P 1 A S K P 0 F I L
0001460 E I 0 F I L E F 5 O
0001500 P T I O N S F 6 R E S E T
0001520 V A R S L S T F 7 E D I T
0001540 H I S T A L I S T ) \0 233 005 003 \0
0001560 001 @ \t \0 \0 o \0 \0 \0 o \0 \0 \0 021 # 004
0001600 I U \n \0 \0 262 037 U I \n \0 \0 c \n 277 g
0001620 \0 \0 d \t \0 \0 032 g \0 \0 i \n \0 \0 277 V
0001640 032 c \f 277 J U \n \0 \0 262 ! U J \n \0 \0
0001660 c \n 277 g \0 \0 d \t \0 \0 032 g \0 \0 g \0
0001700 \0 \n \0 \0 277 V 032 c \f 277 i g \0 \0 H \t
0001720 \0 \0 \v \0 \0 \ d 262 035 H W 016 \n \0 \0 263
0001740 * H g \0 \0 033 001 002 [ 264 ! g \0 \0 K \n
0001760 \0 \0 260 027 ` \0 \0 i 360 264 021 H g \0 \0 \n
0002000 \0 \0 g \0 \0 H \v \0 \0 h 020 \0 ( 2 2 7
0002020 Q A D D T O F I L E 2 2 0 Q
0002040 F I L E N A M E F I E L D 2
0002060 0 0 Q L O A D V A R S 1 5 5
0002100 Q F A S S O C 1 4 3 Q I N
0002120 F I L E C O M S ? 1 4 0 Q F
0002140 I L E C O M S 1 2 2 Q S E T
0002160 T O P V A L 1 1 0 Q G E T T
0002200 O P V A L 7 6 Q L D I F F E
0002220 R E N C E 6 7 Q I N T E R S
0002240 E C T I O N 5 4 Q S E T T O
0002260 P V A L 4 4 Q G E T T O P V
0002300 A L 3 2 Q L D I F F E R E N
0002320 C E 2 3 Q I N T E R S E C T
0002340 I O N 3 U - C A S E ) \r ( 2
0002360 2 3 Q E D I T H I S T 2 1 5
0002400 Q N A M E 2 0 5 Q A S K E
0002420 D I T H I S T 1 7 4 Q E D I
0002440 T H I S T A L I S T 1 6 3 Q
0002460 F I L E D A T E S 1 3 4 Q E
0002500 D I T H I S T 1 1 7 Q N O C
0002520 O M M E N T 1 1 4 Q A S K E
0002540 D I T H I S T 1 0 4 Q A S K
0002560 E D I T H I S T 5 0 Q A S K
0002600 E D I T H I S T 4 0 Q A S K
0002620 E D I T H I S T ) \r ( 1 3 Q (
0002640 N O A S K n o a s k N O C O
0002660 M M E N T n o c o m m e n t )
0002700 7 ( A S K a s k C O M M
0002720 E N T c o m m e n t ) ) \r M A
0002740 K E D I T H I S T A 0 0 0 6 D
0002760 1 \r ( N A M E E R R O R S E T
0003000 L ( 2 E R R O R S E T . W
0003020 1 E R R O R S E T . V 0
0003040 E R R O R S E T . U ) P 0
0003060 N A M E F 1 E D I T H I S
0003100 T A L I S T F 2 A F 3
0003120 I N I T I A L S F 4 M A
0003140 C R O Y F 5 U S E R N A M
0003160 E F 6 C H A N G E S ) \0
0003200 h 001 006 \0 003 R 001 \t \0 \0 021 001 \0 H d Q
0003220 \n \0 \0 002 003 \b \0 \0 S 265 003 U \b \0 \0 V
0003240 h 032 032 032 032 ` \0 \0 g \0 \0 360 h 360 264 037
0003260 l \n g \0 \0 o \0 \0 \0 o \0 \0 \0 h d g
0003300 \0 \0 o \0 \0 \0 h 032 032 \r \a \0 \0 \n \0 \0
0003320 h 032 \n \0 \0 \t \0 \0 Q 003 265 \t H h 032 h
0003340 032 c 002 \v \0 \0 023 h c \b i 020 \0 ( 1 4
0003360 0 Q P U T A S S O C 1 2 2 Q
0003400 S H R I N K E D I T H I S T
0003420 1 1 7 Q \ N C O N C 2 1 1 2
0003440 Q \ N C O N C 2 1 0 7 Q A
0003460 S K U S E R 3 1 Q O U T F I
0003500 L E 2 2 Q D A T E 1 5 Q
0003520 F A S S O C 4 U - C A S E )
0003540 \r ( 7 4 Q R E T U R N 5 7 Q
0003560 % ] 4 5 Q N O C O M M E N
0003600 T 4 2 Q A S K E D I T H I S
0003620 T ) \r ( 1 0 0 Q ( C O N D (
0003640 ( E Q U A L A N S W E R ( Q
0003660 U O T E ( % ] ) ) ) N I L )
0003700 ( A N S W E R ) ) 6 7 Q (
0003720 ( % ] " n o n e \r " ) 033 033
0003740 ) 6 3 Q " c o m m e n t s
0003760 : " ) \r M A K E D I T H I S T
0004000 D 1 \r ( P 3 R E S E T S T
0004020 A T E P 2 M A C R O Y P
0004040 0 O L D V A L U E I 0
0004060 A F 4 R E S E T V A R S L
0004100 S T F 5 C H A N G E S )
0004120 \0 \ 004 002 003 001 U 262 B ` \0 \0 262 = h \t
0004140 \0 \0 021 1 003 g \0 \0 H h 032 032 h 032 T 032
0004160 c \b 271 o \0 \0 \0 g \0 \0 \n \0 \0 243 g \0
0004200 \0 273 I 002 c \b 277 g \0 \0 I 001 001 002 \n \0
0004220 \0 277 K 223 \b \0 \0 277 023 g \0 \0 g \0 \0 g
0004240 \0 \0 g \0 \0 @ 032 h 032 032 h 032 032 032 h 032
0004260 020 \0 ( 1 0 0 Q E R R O R ! 7
0004300 2 Q A P P L Y 4 6 Q M A K
0004320 E D I T H I S T A 0 0 0 6 1 3
0004340 Q R A I S E ) \r ( 1 1 6 Q E
0004360 D I T H I S T A L I S T 1 1 3
0004400 Q A L I S T S 1 1 0 Q D O
0004420 N T C O P Y 1 0 5 Q D E C L
0004440 A R E : 6 3 Q R A I S E 5
0004460 2 Q E R R O R 4 3 Q I N T
0004500 E R N A L 2 1 Q R A I S E
0004520 5 A S K E D I T H I S T ) \r (
0004540 4 0 Q ( D U M M Y . F O R . E
0004560 R R O R S E T ) ) \r M E R G E E
0004600 D I T H I S T D 1 \r ( P 2
0004620 T E M P P 1 O L D P 0
0004640 N E W I 1 O L D E R I
0004660 0 N E W E R ) \0 214 003 \0 \0 002
0004700 @ 001 A 001 021 022 002 H d 001 d 003 220 001 I 001
0004720 Z d 003 220 002 032 030 H 002 001 I 002 001 \n \0 \0
0004740 263 035 H 002 H 002 001 d 003 243 d 221 h 032 I 002
0004760 001 d 003 243 d 221 h 032 \n \0 \0 030 277 H 002 002
0005000 H 002 002 001 d 003 220 001 I 002 002 001 Z d 003 220
0005020 002 032 030 H 002 002 002 H 002 002 002 001 d 003 243 d
0005040 221 h 032 I 002 002 002 001 d 003 243 d 221 h 032 \n
0005060 \0 \0 030 H 002 002 002 H 002 002 002 002 I 002 002 002
0005100 002 \n \0 \0 031 @ A 002 031 h 020 \0 ( 2 0 3
0005120 Q \ A P P E N D 2 1 6 1 Q
0005140 U N I O N 7 2 Q U N I O N
0005160 3 7 Q E Q U A L ) \r N I L \r N
0005200 I L \r P U T E D I T H I S T D E
0005220 F D 1 \r ( I 2 D E F I N I
0005240 T I O N I 1 T Y P E I
0005260 0 N A M E F 0 E D I T H
0005300 I S T A L I S T ) \0 \r \0 001 \0 003
0005320 @ B P \v \0 \0 @ A \n \0 \0 020 \0 ( 1 2
0005340 Q M A R K A S C H A N G E D
0005360 5 / P U T A S S O C ) \r N I L
0005400 \r N I L \r S H R I N K E D I T H
0005420 I S T D 1 \r ( P 1 0 Q W Z
0005440 P 7 I P 5 P A S S
0005460 P 3 W L P 2 O L P
0005500 1 H A R D L I M I T P 0
0005520 S O F T L I M I T I 0 E H
0005540 ) \0 352 \t \0 \0 001 ` \0 \0 001 ` \0 \0 002
0005560 021 002 001 H d 005 001 241 005 002 242 261 \0 324 I d
0005600 005 001 241 005 002 242 261 \0 311 @ \t \0 \0 I 361 242
0005620 261 \0 277 @ \t \0 \0 021 021 003 l 002 k 021 002 005
0005640 M L 361 222 261 \0 206 J H \n \0 \0 [ 002 H k
0005660 330 021 022 \b N _ 020 277 O 020 003 262 \ K 001 262
0005700 I O 020 001 002 002 002 002 263 + M l 002 360 263 035
0005720 O 020 001 002 001 d 003 243 d 221 h 032 K 001 002 001
0005740 d 003 243 d 221 h 032 \n \0 \0 227 K O 020 \n \0
0005760 \0 260 026 M l 002 360 233 O 016 I 361 226 K O 020
0006000 \n \0 \0 202 O 020 [ 277 O 020 002 _ 020 277 O 016
0006020 k 330 _ 016 277 260 243 023 J \t \0 \0 I 361 243 M
0006040 k 330 275 M k 330 ] 261 377 z 023 o \0 \0 \0 i
0006060 \n \0 \0 277 J \t \0 \0 i \n \0 \0 277 o \0 \0
0006100 \0 i \n \0 \0 277 i \t \0 \0 J \t \0 \0 020 @
0006120 020 \0 ( 3 4 5 Q D R E V E R S E
0006140 3 4 1 Q T E R P R I 3 3 4
0006160 Q P R I N 1 3 2 3 Q P R I
0006200 N 1 3 1 7 Q F L E N G T H
0006220 3 1 2 Q P R I N 1 2 6 3 Q
0006240 F L E N G T H 2 3 2 Q M E R
0006260 G E E D I T H I S T 2 1 0 Q
0006300 M E R G E E D I T H I S T 2 0
0006320 1 Q I N T E R S E C T I O N
0006340 1 0 3 Q N T H 5 6 Q R E V
0006360 E R S E 4 4 Q F L E N G T H
0006400 ) \r ( 6 L I M I T E D I T H I
0006420 S T 2 L I M I T E D I T H I
0006440 S T ) \r ( 3 3 0 Q " e n t r
0006460 i e s > > " 3 0 6 Q " <
0006500 < e d i t h i s t o r y r
0006520 e d u c e d t o " ) \r ( P R
0006540 I N T ( Q U O T E E D I T H
0006560 I S T C O M S ) T T ) \r ( R
0006600 P A Q Q E D I T H I S T C O M
0006620 S ( ( F I L E P K G C O M S
0006640 E D I T H I S T ) ( A D D V A
0006660 R S ( M A K E F I L E F O R M
0006700 S ( I N I T E D I T H I S T
0006720 F I L E ) ) ) ( F N S \r C H
0006740 E C K E D I T H I S T D E L E
0006760 D I T H I S T D E F G E T E D
0007000 I T H I S T D E F I N I T E D
0007020 I T H I S T M A K E D I T H I
0007040 S T M E R G E E D I T H I S T
0007060 P U T E D I T H I S T D E F
0007100 \r S H R I N K E D I T H I S T )
0007120 ( * E D I T H I S T A L I S
0007140 T i s t h e h o m e o f
0007160 a l l e d i t h i s t o r
0007200 i e s . A S K E D I T H I S T
0007220 c o n t r o l s t h e \r a
0007240 c t i v i t i e s o f t h e
0007260 E D I T H I S T O R Y p a c
0007300 k a g e d u r i n g M A K E
0007320 F I L E . I f A S K E D I T
0007340 H I S T = N I L , n o t h i n
0007360 g i s e v e r a d d e d
0007400 t o \r a n y h i s t o r y
0007420 l i s t . I f A S K E D I T
0007440 H I S T = N O C O M M E N T ,
0007460 A S K U S E R i s n o t c
0007500 a l l e d a n d n o s e s
0007520 s i o n c o m e n t s A R E
0007540 r e c o r d e d , \r b u t
0007560 t h e D A T E , u s e r a
0007600 n d C H A N G E l i s t A
0007620 R E a d d e d t o t h e
0007640 h i s t o r y l i s t . I f
0007660 A S K E D I T H I S T = C O M
0007700 M E N T , A S K U S E R \r w
0007720 i l l b e c a l l e d t o
0007740 g e r a c o m m e n t l
0007760 i n e f r o m t h e u s e
0010000 r , w h i c h w i l l b e
0010020 i n c o r p o r a t e d i n
0010040 t o t h e e d i t h i s t
0010060 o r y . \r F i n a l l y , i
0010100 f A S K E D I T H I S T = T ,
0010120 t h e e d i t h i s t o r
0010140 y l i s t w i l l c r e a
0010160 t e a n e w e d i t h i
0010200 s t o r y f o r a n y F I
0010220 L E t h a t i s \r w r i t
0010240 t e n t h a t D O E S N ' T
0010260 H A V E o n e , a n d w
0010300 i l l o t h e r w i s e b e
0010320 h a v e a s A S K E D I T H
0010340 I S T = C O M M E N T . F i n
0010360 a l l y , i f o p t i o n
0010400 \r " A S K " i s g i v e n
0010420 t o m a k e f i l e , C o m
0010440 m e n t s w i l l b e a s
0010460 k e d f o r , w h a t e v e
0010500 r t h e s e t t i n g o f
0010520 A S K E D I T H I S T ) ( A
0010540 L I S T S ( \r E D I T H I S T
0010560 A L I S T ) ) ( V A R S ( A
0010600 S K E D I T H I S T ( Q U O T
0010620 E N O C O M M E N T ) ) ( L
0010640 I M I T E D I T H I S T ( Q U
0010660 O T E ( 1 0 . 3 0 ) ) ) )
0010700 ( G L O B A L V A R S \r A S
0010720 K E D I T H I S T L I M I T E
0010740 D I T H I S T ) ( * E d i t
0010760 h i s t o r i e s A R E a
0011000 l l m a i n t a i n e d o n
0011020 t h e A L I S T E D I T H
0011040 I S T A L I S T . T h e F O
0011060 R M \r o f t h e i n d i v
0011100 i d u a l A L I S T e n t r
0011120 y i s ( h i s t n a m e (
0011140 D A T E U S E R I D C H A N
0011160 G E L I S T C O M M E N T S L
0011200 I S T ) ( D A T E U S E R I
0011220 D \r C H A N G E L I S T C O
0011240 M M E N T S L I S T ) . . . )
0011260 w h e n t h e r e A R E
0011300 s e v e r a l e d i t h i s t
0011320 o r i e s o n a s i n g l
0011340 e E D I T H I S T c o m m a
0011360 n d , t h e \r f i r s t i
0011400 s r e g a r d e d a s t h
0011420 e c u r r e n t l y a c t i
0011440 v e o n e , t h e o t h e
0011460 r s A R E t r e a t e d a
0011500 s a r c h i v a l a n d A
0011520 R E n o t a d d e d t o \r
0011540 ) ( E D I T H I S T E D I T
0011560 H I S T ) ( D E C L A R E :
0011600 D O N T C O P Y ( R E C O R D
0011620 S * E D I T H I S T R E C O
0011640 R D S ) ) ( D E C L A R E :
0011660 D O N T E V A L @ L O A D \r D
0011700 O E V A L @ C O M P I L E D O
0011720 N T C O P Y C O M P I L E R V
0011740 A R S ( A D D V A R S ( N L
0011760 A M A M A K E D I T H I S T )
0012000 ( N L A M L ) ( L A M A ) )
0012020 ) ) ) \r ( P U T D E F ( Q U O
0012040 T E E D I T H I S T ) ( Q U
0012060 O T E F I L E P K G C O M S )
0012100 ( Q U O T E ( ( C O M M A
0012120 C R O ( X ( C O M S * (
0012140 M A K E D I T H I S T . X )
0012160 ) ) \r C O N T E N T S C H E
0012200 C K E D I T H I S T ) ( T Y P
0012220 E D E S C R I P T I O N " f
0012240 i l e e d i t h i s t o r y
0012260 " G E T D E F G E T E D I T
0012300 H I S T D E F P U T D E F \r
0012320 P U T E D I T H I S T D E F D
0012340 E L D E F D E L E D I T H I S
0012360 T D E F ) ) ) ) \r ( A D D T O V
0012400 A R M A K E F I L E F O R M S
0012420 ( I N I T E D I T H I S T F
0012440 I L E ) ) \r ( A D D T O V A R
0012460 E D I T H I S T A L I S T ) \r (
0012500 R P A Q Q A S K E D I T H I S
0012520 T N O C O M M E N T ) \r ( R P
0012540 A Q Q L I M I T E D I T H I S
0012560 T ( 1 0 . 3 0 ) ) \r N I L
0012600 \r
0012601