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