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