$ od -c -N 50000 [eris]<Lisp>KOTO>LISPUSERS>PQUOTE.TEDIT!3 0000000 X E R O X \t P Q U O T E \r 2 \r \r 0000020 4 \r \r 1 \r \r P Q U O T E \r 1 \r \r 0000040 4 \r \r B y : D o n C o h e 0000060 n ( D o n C @ I S I F ) \r \r P 0000100 Q U O T E r e d e f i n e s 0000120 t h e ' r e a d m a c r o , 0000140 i n s t a l l s i t i n 0000160 a l l t h e s y s t e m r 0000200 e a d t a b l e s , a n d d 0000220 e f i n e s a p r e t t y 0000240 p r i n t m a c r o f o r 0000260 Q U O T E . T h e m a i n 0000300 d i f f e r e n c e b e t w 0000320 e e n t h e o l d r e a d 0000340 m a c r o a n d t h e n e 0000360 w o n e i s t h a t t h 0000400 e o l d o n e r e q u i r 0000420 e d t h a t t h e n e x t 0000440 c h a r a c t e r n o t b 0000460 e a s e p r . T h e n 0000500 e w o n e d o e s n o t , 0000520 i . e . , ( A ' B ) n 0000540 o w r e a d s a s a l i 0000560 s t o f t w o i t e m s 0000600 r a t h e r t h a n t h r e 0000620 e . T h e c h a n g e i 0000640 s n e c e s s i t a t e d b 0000660 y t h e f a c t t h a t 0000700 t h e p r i n t m a c r o 0000720 c a n n o t g u a r a n t e e 0000740 t h a t t h e q u o t e d 0000760 o b j e c t w i l l b e 0001000 p r i n t e d o n t h e s 0001020 a m e l i n e a s t h e 0001040 ' . \r A n o t h e r c h a n g 0001060 e i s t h a t t h e R E 0001100 A D ' r e a d m a c r o i s 0001120 n o w d e c l a r e d a s 0001140 E S C , i . e . , m i s c 0001160 e l l a n e o u s o c c u r r 0001200 e n c e s o f ' w i l l 0001220 b e p r i n t e d a s % ' 0001240 . ( T h i s i s r e a l 0001260 l y o n l y n e e d e d w 0001300 h e n t h e y a r e t h e 0001320 f i r s t c h a r a c t e r 0001340 o f a n a t o m , b u t 0001360 I n t e r l i s p d o e s n 0001400 ' t r e c o g n i z e t h i 0001420 s s m a l l o p t i m i z a 0001440 t i o n . ) T h i s m e a 0001460 n s t h a t y o u c a n 0001500 n o w s a v e t h i n g s 0001520 l i k e ( S E L E C T Q C H 0001540 A R ( % ' 1 ) 0 ) - o 0001560 f c o u r s e y o u h a v 0001600 e t o t y p e i n t h e 0001620 % t o i n p u t i t . \0 0001640 \0 \0 \0 \0 003 ( L I S T ( ( P A G 0001660 E N I L ( P A P E R S I Z E 0001700 L e t t e r F O L I O I N F 0001720 O ( A R A B I C ) S T A 0001740 R T I N G P A G E # 1 ) ( 0 0001760 0 6 1 2 7 9 2 ) ( ( F O 0002000 L I O N I L ( P A R A L O O 0002020 K S ( Q U A D C E N T E R E 0002040 D ) C H A R L O O K S ( S U 0002060 P E R S C R I P T 0 I N V I 0002100 S I B L E O F F S E L E C T 0002120 P O I N T O F F P R O T E C 0002140 T E D O F F S I Z E 1 0 0002160 F A M I L Y M O D E R N O V 0002200 E R L I N E O F F S T R I K 0002220 E O U T O F F U N D E R L I 0002240 N E O F F E X P A N S I O N 0002260 R E G U L A R S L O P E R 0002300 E G U L A R W E I G H T M E 0002320 D I U M I N V E R T E D O F 0002340 F U S E R I N F O N I L S 0002360 T Y L E N I L ) F O R M A T 0002400 I N F O ( A R A B I C ) ) 0002420 ( 1 7 4 3 6 2 8 8 3 6 ) 0002440 N I L ) ( H E A D I N G N 0002460 I L ( H E A D I N G T Y P E 0002500 R U N N I N G H E A D ) ( 8 4 0002520 7 4 4 5 2 8 3 6 ) N I L 0002540 ) ( T E X T N I L N I L 0002560 ( 8 4 9 6 4 5 6 6 0 0 ) 0002600 N I L ) ) ) ( P A G E N I L 0002620 ( P A P E R S I Z E L e t t 0002640 e r F O L I O I N F O ( A R 0002660 A B I C ) S T A R T I N G 0002700 P A G E # N I L ) ( 0 0 0002720 6 1 2 7 9 2 ) ( ( F O L I O 0002740 N I L ( P A R A L O O K S 0002760 ( Q U A D C E N T E R E D ) 0003000 C H A R L O O K S ( S U P E R 0003020 S C R I P T 0 I N V I S I B 0003040 L E O F F S E L E C T P O I 0003060 N T O F F P R O T E C T E D 0003100 O F F S I Z E 1 0 F A M 0003120 I L Y M O D E R N O V E R L 0003140 I N E O F F S T R I K E O U 0003160 T O F F U N D E R L I N E 0003200 O F F E X P A N S I O N R E 0003220 G U L A R S L O P E R E G U 0003240 L A R W E I G H T M E D I U 0003260 M I N V E R T E D O F F U 0003300 S E R I N F O N I L S T Y L 0003320 E N I L ) F O R M A T I N F 0003340 O ( A R A B I C ) ) ( 1 0003360 7 4 3 6 2 8 8 3 6 ) N I 0003400 L ) ( H E A D I N G N I L 0003420 ( H E A D I N G T Y P E R U N 0003440 N I N G H E A D ) ( 8 4 7 4 0003460 4 5 2 8 3 6 ) N I L ) ( 0003500 T E X T N I L N I L ( 8 4 0003520 9 6 4 5 6 6 0 0 ) N I L 0003540 ) ) ) ( P A G E N I L ( P 0003560 A P E R S I Z E L e t t e r 0003600 F O L I O I N F O ( A R A B I 0003620 C ) S T A R T I N G P A G 0003640 E # N I L ) ( 0 0 6 1 2 0003660 7 9 2 ) ( ( F O L I O N I 0003700 L ( P A R A L O O K S ( Q U 0003720 A D C E N T E R E D ) C H A 0003740 R L O O K S ( S U P E R S C R 0003760 I P T 0 I N V I S I B L E 0004000 O F F S E L E C T P O I N T 0004020 O F F P R O T E C T E D O F 0004040 F S I Z E 1 0 F A M I L Y 0004060 M O D E R N O V E R L I N E 0004100 O F F S T R I K E O U T O 0004120 F F U N D E R L I N E O F F 0004140 E X P A N S I O N R E G U L 0004160 A R S L O P E R E G U L A R 0004200 W E I G H T M E D I U M I 0004220 N V E R T E D O F F U S E R 0004240 I N F O N I L S T Y L E N 0004260 I L ) F O R M A T I N F O ( 0004300 A R A B I C ) ) ( 1 7 4 0004320 3 6 2 8 8 3 6 ) N I L ) 0004340 ( H E A D I N G N I L ( H E 0004360 A D I N G T Y P E R U N N I N 0004400 G H E A D ) ( 8 4 7 4 4 5 0004420 2 8 3 6 ) N I L ) ( T E X 0004440 T N I L N I L ( 8 4 9 6 0004460 4 5 6 6 0 0 ) N I L ) ) ) 0004500 ) ) \0 \0 \0 \0 \0 005 \0 006 \0 ( \0 \0 \0 \0 0004520 \0 \0 \0 \0 \0 \0 \0 \0 002 001 \0 \0 \0 \0 \0 \0 0004540 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0004560 \0 \0 \0 ( \0 \0 \0 \0 001 310 \0 \v \0 \0 \0 004 0004600 002 004 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0004620 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 ( \0 \0 \0 \0 0004640 001 310 \0 021 \0 \0 \0 004 002 003 \0 \0 \0 \0 \0 \0 0004660 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0004700 \0 \0 \0 ( \0 212 \0 212 001 8 \0 006 \0 \0 \0 004 0004720 002 003 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0004740 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 ( \0 212 \0 212 0004760 001 8 \0 \0 \0 \0 \0 004 002 004 \0 \0 \0 \0 \0 \0 0005000 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005020 \0 \0 \0 D \0 \0 \0 \0 001 310 \0 \0 \0 \0 \0 \0 0005040 003 004 \0 \0 001 001 310 001 \0 \0 \0 \0 \0 \0 \0 \v 0005060 P A G E H E A D I N G \0 \v R U N 0005100 N I N G H E A D \0 \0 \0 \0 \0 \0 \0 \0 0005120 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 004 \0 006 \0 024 0005140 \0 006 M O D E R N \0 \n \0 \0 \0 \0 \0 \0 0005160 \0 \0 \0 ? \0 1 ( D E F A U L T F O 0005200 N T 1 ( G A C H A 1 0 ) 0005220 ( G A C H A 8 ) ( T E R M I 0005240 N A L 8 ) ) \0 \n \0 \0 \0 \0 \0 \0 \0 0005260 \0 \0 024 \0 006 M O D E R N \0 \f \0 \0 \0 0005300 \0 \0 \0 002 \0 \0 024 \0 006 M O D E R N \0 0005320 006 \0 \0 \0 \0 \0 \0 \0 \0 \0 022 \0 004 L O G 0005340 O \0 030 \0 \0 \0 \0 \0 \0 \0 \0 \0 024 \0 006 M 0005360 O D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 0005400 \0 \0 \0 \0 002 \0 006 \0 \0 \0 005 \0 \0 \0 \0 005 0005420 \0 \0 \0 001 \0 \0 \0 \0 004 \0 \0 \0 \a \0 \0 \0 0005440 \0 006 \0 \0 \0 \0 \0 002 \0 006 \0 \0 \0 002 \0 001 0005460 \0 \v H R U L E . G E T F N 001 \0 024 0005500 \0 006 M O D E R N \0 \n \0 \0 \0 \0 \0 \0 0005520 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 006 \0 \0 \0 \0 \0 0005540 002 \0 005 \0 \0 \0 002 \0 001 \0 \v H R U L E 0005560 . G E T F N 001 \0 024 \0 006 M O D E R 0005600 N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 0005620 \0 \0 \0 006 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 002 0005640 \0 001 \0 \v H R U L E . G E T F N 001 0005660 \0 024 \0 006 M O D E R N \0 \n \0 \0 \0 \0 0005700 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 006 \0 \0 \0 0005720 \0 \0 002 \0 004 \0 \0 \0 \a \0 \0 \0 \0 003 \0 \0 0005740 \0 \0 \0 002 \0 004 \0 \0 \0 002 \0 001 \0 \v H R 0005760 U L E . G E T F N 001 \0 024 \0 006 M O 0006000 D E R N \0 \f \0 \0 \0 \0 \0 \0 002 \0 \0 \0 0006020 \0 001 \0 \0 \0 \0 003 \0 \0 \0 \0 \0 002 \0 005 \0 0006040 \0 \0 002 \0 001 \0 \v H R U L E . G E T 0006060 F N 001 \0 024 \0 006 M O D E R N \0 \f \0 0006100 \0 \0 \0 \0 \0 002 \0 \0 \0 \0 001 \0 \0 \0 \0 003 0006120 \0 \0 \0 \0 \0 002 \0 003 \0 \0 \0 033 \0 \0 \0 \0 0006140 006 \0 \0 \0 \0 \0 002 \0 001 \0 \0 \0 001 \0 \0 \0 0006160 \0 002 \0 \0 \0 \0 \0 002 \0 002 \0 \0 001 344 \0 \0 0006200 \0 \0 001 \0 \0 \0 \0 \0 002 \0 002 \0 \0 001 | \0 0006220 \0 \0 \0 001 \0 \0 003 237 \0 036 z 272 0006234