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