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