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