$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>lafiteprivatedl!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D " 1
0000120 9 - J a n - 8 7 2 3 : 5 6 : 5
0000140 1 " 006 004 { E R I S } < L I S P
0000160 U S E R S > L I S P C O R E > L
0000200 A F I T E P R I V A T E D L . ;
0000220 1 006 001 1 0 0 8 0 \r \r
0000240 p r e v i o u s d a t e
0000260 % : " 1 9 - J a n - 8 7 2 3
0000300 : 4 7 : 5 4 " { P H Y L U M }
0000320 < L I S P U S E R S > K O T O >
0000340 L A F I T E P R I V A T E D L .
0000360 ; 2 ) \r \r \r ( * " \r C o p y r
0000400 i g h t ( c ) 1 9 8 6 , 1
0000420 9 8 7 b y X e r o x C o r
0000440 p o r a t i o n . A l l r
0000460 i g h t s r e s e r v e d . \r
0000500 " ) \r \r ( P R E T T Y C O M P R
0000520 I N T L A F I T E P R I V A T
0000540 E D L C O M S ) \r \r ( R P A Q Q
0000560 006 002 L A F I T E P R I V A T E
0000600 D L C O M S 006 001 ( ( * * L
0000620 A F I T E D L . E X T i s t
0000640 h e d e f a u l t e x t e n
0000660 s i o n f o r d l f i l e
0000700 s w h e n n o e x t e n s
0000720 i o n \r
0000740
0000760 i s s p e c i f i e d
0001000 ) \r
0001020 ( *
0001040 * L A F I T E D L D I R E C
0001060 T O R I E S i s a l i s t
0001100 o f d i r e c t o r i e s
0001120 t o b e s e a r c h e d a
0001140 f t e r \r
0001160
0001200 t h e c o n n e c t
0001220 e d d i r e c t o r y a n d
0001240 t h e L A F I T E D E F A U
0001260 L T H O S T & D I R i n o r
0001300 d e r t o \r
0001320
0001340 l o c a t e a
0001360 d l f i l e w h e n n o
0001400 h o s t o r d i r e c t o r
0001420 y i s s p e c i f i e d ) \r
0001440
0001460 ( I N I
0001500 T V A R S ( L A F I T E D L .
0001520 E X T ' D L ) \r
0001540
0001560 ( L A F
0001600 I T E D L D I R E C T O R I E S
0001620 N I L ) ) \r
0001640
0001660 ( * * n o f u n c t
0001700 i o n s a r e u s e r c a
0001720 l l a b l e ) \r
0001740
0001760 ( F N S \ G V . P A R
0002000 S E R E C I P I E N T S 1 \ G
0002020 V . P A R S E . P R I V A T E .
0002040 D I S T R I B U T I O N . L I S
0002060 T ) \r
0002100 (
0002120 * L a f i t e ' s r e a d t
0002140 a b l e f o r p a r s i n g
0002160 a d d r e s s e s n e e d s
0002200 t o h a v e C R a s a
0002220 \r
0002240
0002260 S E P R C H A R s o t h a
0002300 t l i n e s f r o m a t
0002320 e x t f i l e c a n a l l
0002340 b e p a r s e d a t o n
0002360 c e . \r
0002400
0002420 T h i s h a s n o
0002440 e f f e c t o n n o r m a l
0002460 o p e r a t i o n s i n c e
0002500 b e f o r e p r i v a t e
0002520 d l s n o C R \r
0002540
0002560 w a s e v
0002600 e r p a s s e d t o t h e
0002620 p a r s e r ) \r
0002640
0002660 ( P ( S E T S Y N T
0002700 A X ( C H A R C O D E C R )
0002720 \r
0002740
0002760 ' S E P R C H A R
0003000 A D D R E S S P A R S E R R D
0003020 T B L ) ) ) ) \r \f 006 004 ( * *
0003040 L A F I T E D L . E X T i s
0003060 t h e d e f a u l t e x t e
0003100 n s i o n f o r d l f i l
0003120 e s w h e n n o e x t e n
0003140 s i o n i s s p e c i f i e
0003160 d ) 006 001 \r \r \f 006 004 ( * * L A
0003200 F I T E D L D I R E C T O R I E
0003220 S i s a l i s t o f d
0003240 i r e c t o r i e s t o b e
0003260 s e a r c h e d a f t e r
0003300 t h e c o n n e c t e d d i
0003320 r e c t o r y a n d t h e \r
0003340 L A F I T E D E F A U L T H O
0003360 S T & D I R i n o r d e r
0003400 t o l o c a t e a d l f
0003420 i l e w h e n n o h o s t
0003440 o r d i r e c t o r y i s
0003460 s p e c i f i e d ) 006 001 \r \r \r
0003500 ( R P A Q ? 006 002 L A F I T E D
0003520 L . E X T 006 001 ' D L ) \r \r ( R
0003540 P A Q ? 006 002 L A F I T E D L D
0003560 I R E C T O R I E S 006 001 N I L
0003600 ) \r \f 006 004 ( * * n o f u n
0003620 c t i o n s a r e u s e r
0003640 c a l l a b l e ) 006 001 \r \r ( D E
0003660 F I N E Q \r \r ( 006 004 \ G V . P A
0003700 R S E R E C I P I E N T S 1 006 001
0003720 \r [ L A M B D A ( F I E L
0003740 D R E G I S T R Y I N T E R
0003760 N A L F L G E D I T W I N D O
0004000 W ) 006 006 006 001
0004020 006 006 ( * N . H . B r i g g
0004040 s " 1 9 - J a n - 8 7 2 3 :
0004060 4 4 " ) 006 001 \r \r 006 006 ( * ; ; ;
0004100 " I N T E R N A L F L G =
0004120 T m e a n s p r o d u c e
0004140 a d d r e s s e s t o g i v
0004160 e G r a p e v i n e ; N I
0004200 L m e a n s g i v e h u m
0004220 a n - r e a d a b l e a d d r
0004240 e s s e s " ) 006 001 \r \r (
0004260 P R O G ( F I E L D S T R E A
0004300 M A D D R E S S E S A D D R
0004320 T O K E N ) \r
0004340 ( C O N D \r
0004360 ( ( N U L L F I E L
0004400 D ) \r
0004420 ( R E T U R N ) ) ) \r
0004440 ( S E T Q F I E L
0004460 D S T R E A M ( 006 002 i f 006 001
0004500 ( S T R I N G P F I E L D ) \r
0004520
*
0004560 006 002 t h e n 006 001 ( O P E N S T
0004600 R I N G S T R E A M F I E L D
0004620 ) \r
0004640
0004660 006 002 e l s e 006 001
0004700
0004720 006 006 ( * ; \r 006 001
0004740
*
0005020 006 006 " F I E
0005040 L D s h o u l d a l r e a d
0005060 y b e a n o p e n s t r
0005100 e a m " ) 006 001 \r
0005120
0005140 F I E L D
0005160 ) ) \r [ S E
0005200 T F I L E I N F O F I E L D S
0005220 T R E A M ' E N D O F S T R E
0005240 A M O P ( F U N C T I O N (
0005260 L A M B D A ( S T R E A M ) \r
0005300
*
0005360 006 006 (
0005400 * ; " T e r m i n a t e a
0005420 n y t h i n g i n p r o g r
0005440 e s s " ) 006 001 \r
0005460
*
0005540 ( S E L E C T Q (
0005560 S T R E A M P R O P S T R E A
0005600 M \r
0005620
*
0005720 ' E O F C O U N T ) \r
0005740
*
0006020 ( N I
0006040 L \r
0006060
*
0006140 006 006 ( * ; " F i r s t t r
0006160 y t e r m i n a t i n g w i
0006200 t h c o m m a " ) 006 001 \r
0006220
*
0006320 ( S T R E A M P R O P
0006340 S T R E A M \r
0006360
*
0006460 ' E O F C O U N T 1
0006500 ) \r
0006520
*
0006600 ( C H A R C O
0006620 D E % , ) ) \r
0006640
*
0006720 ( 1 \r
0006740
*
0007020 006 006 ( *
0007040 ; \r 006 001
0007060
*
0007120 006 006 " M u s t b e
0007140 s o m e t h i n g u n b a l
0007160 a n c e d . T r y c l o s
0007200 i n g a p a r e n " ) 006 001 \r
0007220
*
0007320 ( S T R E A M P R O P
0007340 S T R E A M ' E O F C O U N
0007360 T 2 ) \r
0007400
*
0007460 ( C H A R C
0007500 O D E % ) ) ) \r
0007520
*
0007600 ( 2 \r
0007620
*
0007700 006 006 ( *
0007720 ; \r 006 001
0007740
*
0010020 006 006 " S t i l l u n b a l a n
0010040 c e d , m u s t h a v e b
0010060 e e n a s t r i n g " ) 006 001
0010100 \r
0010120
*
0010200 ( S T R E A M P R O
0010220 P S T R E A M ' E O F C O U
0010240 N T 3 ) \r
0010260
*
0010340 ( C H A R
0010360 C O D E % " ) ) \r
0010400
*
0010460 ( H E L
0010500 P ] \r ( O R
0010520 R E G I S T R Y ( S E T Q
0010540 R E G I S T R Y D E F A U L T
0010560 R E G I S T R Y ) ) \r
0010600 \r
0010620 006 006 ( * ; ; " f i r s t j
0010640 u s t c o l l e c t a l l
0010660 t h e a t o m s u s i n g
0010700 a s p e c i a l r e a d t a
0010720 b l e " ) 006 001 \r \r
0010740 ( S E T Q A D D R E S
0010760 S E S ( 006 002 w h e n 006 001 ( S
0011000 E T Q A D D R ( 006 002 u n t i
0011020 l 006 001 ( O R ( E O F P F I
0011040 E L D S T R E A M ) \r
0011060
*
0011140 ( E Q ( S E T Q T O K E N
0011160 ( R E A D F I E L D S T R E
0011200 A M \r
0011220
*
0011320 A D D R E S S P A R S E R R D T
0011340 B L ) ) \r
0011360
*
0011420 '
0011440 % , ) ) 006 002 w h e n 006 001 ( P
0011460 R O G N \r
0011500
*
0011560 006 006 ( * ; " L i s t s
0011600 a r e c o m m e n t s " ) 006
0011620 001 \r
0011640
*
0011720 ( N
0011740 L I S T P T O K E N ) ) \r
0011760
*
0012020 006 002 c o
0012040 l l e c t 006 001 T O K E N ) )
0012060 006 002 c o l l e c t 006 001 A D D R
0012100 006 002 r e p e a t u n t i l 006 001
0012120 ( E O F P \r
0012140
*
0012260 F I E L D S T R E A M \r
0012300
*
0012420 ) ) ) \r
0012440 [ S E L E C T
0012460 Q ( S T R E A M P R O P F I
0012500 E L D S T R E A M ' E O F C O
0012520 U N T ) \r
0012540 ( ( N I L 1 )
0012560
*
0012620 006 006 ( * ; " O k a y " )
0012640 006 001 \r
0012660 ) \r
0012700 ( C O N D \r
0012720 [ E D
0012740 I T W I N D O W ( \ S E N D M
0012760 E S S A G E F A I L E D I T W
0013000 I N D O W ( 006 002 i f 006 001 ( S
0013020 T R I N G P F I E L D ) \r
0013040
*
0013120 006 002 t h
0013140 e n 006 001 " M a l f o r m e d
0013160 a d d r e s s ( e s ) : " \r
0013200
*
0013260 006 002 e l s
0013300 e 006 001 ( C O N C A T " M a l
0013320 f o r m e d a d d r e s s ( e
0013340 s ) [ i n " \r
0013360
*
0013460 ( F U L L N A M E F I E L D
0013500 S T R E A M ) \r
0013520
*
0013620 " ] : " ) ) \r
0013640
0013660 ( C O N
0013700 D \r
0013720
0013740 ( ( E Q ( S
0013760 T R E A M P R O P F I E L D S
0014000 T R E A M ' E O F C O U N T )
0014020 \r
0014040
0014060 2 ) \r
0014100
*
0014140 " U n b a l a n
0014160 c e d p a r e n t h e s e s "
0014200 ) \r
0014220
0014240 ( T " U n b
0014260 a l a n c e d q u o t e s " ]
0014300 \r
0014320 ( T ( R E T U R N ( C O
0014340 N S ] \r ( R
0014360 E T U R N ( 006 002 f o r 006 001 A
0014400 D D R E S S 006 002 i n 006 001 A D
0014420 D R E S S E S 006 002 b i n d 006 001
0014440 R E A L A D D R E S S V A L
0014460 I D R E C I P I E N T C L O S
0014500 E O P E N \r
0014520 006 002 j o
0014540 i n 006 001 ( 006 002 i f 006 001 ( A N
0014560 D ( E Q ( C A D R A D D R
0014600 E S S ) \r
0014620
0014640 ' % : )
0014660 \r
0014700
0014720 ( N U L L ( C D D D R
0014740 A D D R E S S ) ) \r
0014760
0015000 ( E
0015020 Q ( C A D D R A D D R E S S
0015040 ) \r
0015060
0015100 ' ; ) ) \r
0015120
0015140 006 002 t h
0015160 e n 006 001 \r
0015200 \r 006 006 ( *
0015220 ; ; " i t ' s a p r i v a
0015240 t e d l - - - f o o : ; "
0015260 ) 006 001 \r \r
0015300
0015320 ( 006 002 \ G V . P
0015340 A R S E . P R I V A T E . D I S
0015360 T R I B U T I O N . L I S T 006 001
0015400 A D D R E S S R E G I S T R
0015420 Y I N T E R N A L F L G \r
0015440
*
0015500 E D I T W I N
0015520 D O W ) \r
0015540
0015560 006 002 e l s e 006 001 \r
0015600 \r
0015620 006 006 ( * ; ; " A D D R E S S
0015640 w i l l o n l y g e t r
0015660 e b o u n d i f t h e r e
0015700 i s a n a d d r e s s w i
0015720 t h < > ' s i n i t " )
0015740 006 001 \r \r
0015760
0016000 ( S E T Q V A L I D
0016020 R E C I P I E N T ( \ G V . P
0016040 A R S E . S I N G L E . A D D R
0016060 E S S \r
0016100
*
0016140 ( C O N D
0016160 \r
0016200
*
0016240 ( [ A N D
0016260 ( S E T Q O P E N ( F M E
0016300 M B ' < A D D R E S S ) ) \r
0016320
*
0016420 ( S E T Q C L O S E ( F M E
0016440 M B ' > ( C D R O P E N ]
0016460 \r
0016500
*
0016540 ( S E T
0016560 Q R E A L A D D R E S S ( L
0016600 D I F F ( C D R O P E N ) \r
0016620
*
0016740 C L O S E ) ) ) \r
0016760
*
0017040 ( T A D D R E S
0017060 S ) ) \r
0017100
*
0017140 R E G I S
0017160 T R Y I N T E R N A L F L G
0017200 E D I T W I N D O W ) ) \r
0017220
0017240 ( L
0017260 I S T ( C O N D \r
0017300
*
0017340 ( ( O R T I N T E R
0017360 N A L F L G ( N U L L R E A
0017400 L A D D R E S S ) ) \r
0017420
*
0017460 V A L I D R E C I P
0017500 I E N T ) \r
0017520
*
0017560 ( T \r \r
0017600 006 006 ( * ; ;
0017620 " N e e d t o f i g u r e
0017640 o u t h o w t o m a k e
0017660 G E T R E G I S T R Y o f
0017700 t h i s w o r k , a n d r
0017720 e m o v e d u p l i c a t e s
0017740 i n M A K E A N S W E R F O
0017760 R M b e f o r e w e c a n
0020000 e n a b l e t h i s " ) 006 001
0020020 \r \r
0020040
0020060 (
0020100 \ G V . R E P A C K A D D R E S
0020120 S ( A P P E N D ( L D I F F
0020140 A D D R E S S O P E N ) \r
0020160
*
0020260 ( L I S T ' < V
0020300 A L I D R E C I P I E N T \r
0020320
*
0020420 ' > ) \r
0020440
*
0020540 ( C D R C L O S E
0020560 ] ) \r \r ( 006 004 \ G V . P A R S E
0020600 . P R I V A T E . D I S T R I B
0020620 U T I O N . L I S T 006 001 \r [
0020640 L A M B D A ( D L R E G I S
0020660 T R Y I N T E R N A L F L G
0020700 E D I T W I N D O W ) 006 006 006 001
0020720 006 006
0020740 ( * N . H . B r i g g s " 1
0020760 9 - J a n - 8 7 2 3 : 4 5 " )
0021000 006 001 \r ( L E T * [ ( F
0021020 I L E N A M E ( F I N D F I L
0021040 E ( P A C K F I L E N A M E .
0021060 S T R I N G ' B O D Y ( C A
0021100 R D L ) \r
0021120
0021140 ' E X T
0021160 E N S I O N L A F I T E D L .
0021200 E X T ) \r
0021220
0021240 T \r
0021260 (
0021300 C O N S L A F I T E D E F A U
0021320 L T H O S T & D I R L A F I T
0021340 E D L D I R E C T O R I E S ) )
0021360 ) \r ( S T
0021400 R E A M ( A N D F I L E N A
0021420 M E ( C A R ( N L S E T Q
0021440 ( O P E N T E X T S T R E A M
0021460 ( O P E N S T R E A M F I L E
0021500 N A M E ' I N P U T \r
0021520
*
0021620 ' O L D ] \r
0021640 ( 006 002 i f 006 001 ( N O T S T
0021660 R E A M ) \r
0021700 006 002 t h e n 006 001 ( 006 002
0021720 i f 006 001 E D I T W I N D O W \r
0021740
0021760 006 002 t h e n 006 001
0022000 ( \ S E N D M E S S A G E F A I
0022020 L E D I T W I N D O W ( C O
0022040 N C A T " C a n ' t o p e n
0022060 d l f i l e " ( C A R
0022100 D L ) ) ) \r
0022120 006 002 e l s
0022140 e 006 001 ( P R O M P T P R I N T
0022160 " C a n ' t o p e n d l
0022200 f i l e " ( C A R D L ) )
0022220 ) \r
0022240 ( C O N S ) \r
0022260 006 002 e l s e 006 001
0022300 ( 006 002 i f 006 001 I N T E R N A
0022320 L F L G \r
0022340 006 002 t h e n
0022360 006 001 ( P R O G 1 ( 006 002 \ G V
0022400 . P A R S E R E C I P I E N T S
0022420 1 006 001 S T R E A M R E G I S
0022440 T R Y I N T E R N A L F L G
0022460 E D I T W I N D O W ) \r
0022500
0022520 ( C L
0022540 O S E F ? S T R E A M ) ) \r
0022560
0022600 006 002 e l s e 006 001 ( C L O S
0022620 E F S T R E A M ) \r
0022640
0022660 ( L I S T ( \ G V . R E
0022700 P A C K A D D R E S S D L ] )
0022720 \r ) \r \r \r \r 006 004 ( * L a f i t
0022740 e ' s r e a d t a b l e f o
0022760 r p a r s i n g a d d r e s
0023000 s e s n e e d s t o h a v
0023020 e C R a s a S E P R C H
0023040 A R s o t h a t l i n e s
0023060 f r o m a t e x t \r f i
0023100 l e c a n a l l b e p a
0023120 r s e d a t o n c e . T h
0023140 i s h a s n o e f f e c t
0023160 o n n o r m a l o p e r a
0023200 t i o n s i n c e b e f o r
0023220 e p r i v a t e d l s n o
0023240 C R \r w a s e v e r p a
0023260 s s e d t o t h e p a r s
0023300 e r ) 006 001 \r \r ( S E T S Y N T A
0023320 X ( C H A R C O D E C R ) \r
0023340 ' S E P R C H A R
0023360 A D D R E S S P A R S E R R D
0023400 T B L ) \r ( P U T P R O P S L
0023420 A F I T E P R I V A T E D L C
0023440 O P Y R I G H T ( " X e r o x
0023460 C o r p o r a t i o n " 1 9
0023500 8 6 1 9 8 7 ) ) \r ( D E C L A
0023520 R E % : D O N T C O P Y \r
0023540 ( F I L E M A P ( N I L ( 1
0023560 9 6 5 9 6 8 2 ( \ G V . P A
0023600 R S E R E C I P I E N T S 1 1
0023620 9 7 5 . 8 5 6 2 ) ( \ G V
0023640 . P A R S E . P R I V A T E . D
0023660 I S T R I B U T I O N . L I S T
0023700 8 5 6 4 \r . 9 6 8 0 ) ) )
0023720 ) ) \r S T O P \r
0023730