$ 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