$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>COMMON-MAKE.LCOM!1 0000000 ( D E F I N E - F I L E - I N F 0000020 O 036 R E A D T A B L E " I N 0000040 T E R L I S P " 036 P A C K A G 0000060 E " I N T E R L I S P " ) \r ( 0000100 F I L E C R E A T E D " 1 1 - 0000120 D e c - 8 7 1 4 : 4 9 : 2 3 " 0000140 ( " c o m p i l e d o n " 0000160 { D S K } < X A V I E R > C O 0000200 M M O N - M A K E . ; 5 ) " 2 0000220 7 - A p r - 8 7 1 6 : 4 8 : 4 0000240 9 " \r r e c o m p i l e d e 0000260 x p r s % : C O M M O N - F I 0000300 L E - C O M M A N D i n " X 0000320 e r o x L i s p 2 7 - A p r 0000340 - 8 7 . . . " d a t e d " 0000360 2 7 - A p r - 8 7 1 7 : 0 5 : 0000400 2 5 " ) \r ( F I L E C R E A T E 0000420 D " 1 1 - D e c - 8 7 1 4 : 0000440 4 8 : 1 6 " { D S K } < X A V 0000460 I E R > C O M M O N - M A K E . 0000500 ; 5 1 5 2 9 0 c h a n g e s 0000520 t o % : ( V A R S C O M M 0000540 O N - M A K E C O M S \r ) ( F 0000560 N S C O M M O N - F I L E - C 0000600 O M M A N D C O M M O N - M A 0000620 K E F I L E ) ( P R O P S ( 0000640 C O M M O N - M A K E M A K E 0000660 F I L E - E N V I R O N M E N T 0000700 ) ) p r e v i o u s d a t e 0000720 % : \r " 1 1 - D e c - 8 7 1 0000740 2 : 5 3 : 4 6 " { D S K } < X 0000760 A V I E R > C O M M O N - M A K 0001000 E . ; 1 ) \r C O M M O N - F I L 0001020 E - C O M M A N D : D 4 \r ( P 0001040 2 9 M A C R O P 2 8 P 0001060 L A C E P 2 7 D I R P 0001100 2 6 F P 2 4 O R I G F L 0001120 G P 2 3 P R T T Y T E M 0001140 P 2 2 C O M P 2 1 E X 0001160 P P 2 0 A V P 1 9 * 0001200 P R I N T - C I R C L E * P 0001220 1 8 V A R P 1 7 P T H I 0001240 S P 1 6 A P P 1 5 A 0001260 T M P 1 3 P A I R P 1 0001300 2 A T M P 1 1 A T M P 0001320 9 P R P P 8 A T M S 0001340 P 7 P R O P P 6 I F F 0001360 L G P 5 D E C P 4 C 0001400 N D P 2 D E F P 1 F 0001420 N I 0 C O M M A N D F 0001440 3 0 T Y P E F 3 1 P R O 0001460 P F 3 2 S Y S P R O P S 0001500 F 3 3 P R E T T Y D E F M A 0001520 C R O S F 3 4 C O M M E N 0001540 T F L G F 3 5 * S T A N D 0001560 A R D - O U T P U T * ) 006 y 036 0001600 006 \0 001 @ 001 g \0 \0 \n \0 \0 c < d g \0 0001620 \0 360 262 W 277 @ i d \v \0 \0 021 ! 002 H 003 0001640 265 004 h 020 001 Y g \0 \0 \n \0 \0 Z 001 d g 0001660 \0 \0 360 232 277 g \0 \0 I J 002 032 032 260 # g 0001700 \0 \0 360 262 024 g \0 \0 I g \0 \0 J 002 001 032 0001720 J 002 002 032 032 032 210 o \0 \0 \0 J 001 \n \0 \0 0001740 \t \0 \0 277 H 002 X 260 270 d g \0 \0 360 242 261 0001760 \0 340 277 @ i d \v \0 \0 o \0 \0 \0 021 022 005 0002000 K 003 265 004 h 020 001 ] g \0 \0 360 255 M g \0 0002020 \0 360 247 M d g \0 \0 360 226 277 \b \0 \0 261 \0 0002040 252 g \0 \0 360 222 261 \0 243 M d g \0 \0 360 222 0002060 261 \0 230 g \0 \0 360 222 261 005 301 M g \0 \0 360 0002100 247 M d g \0 \0 360 232 277 g \0 \0 L \n \0 \0 0002120 \ 260 w g \0 \0 360 247 M d g \0 \0 360 232 277 0002140 g \0 \0 L \n \0 \0 \ 260 ` g \0 \0 360 247 M 0002160 d g \0 \0 360 232 277 g \0 \0 L \n \0 \0 \ 260 0002200 I g \0 \0 360 231 g \0 \0 L \n \0 \0 \ 260 : 0002220 M d g \0 \0 360 232 277 g \0 \0 L \n \0 \0 \ 0002240 260 ( g \0 \0 360 231 g \0 \0 L \n \0 \0 \ 260 0002260 031 i o \0 \0 \0 L \v \0 \0 277 M \t \0 \0 277 0002300 i o \0 \0 \0 \n \0 \0 277 K 002 [ 261 377 5 d 0002320 g \0 \0 360 262 027 277 g \0 \0 g \0 \0 @ i d 0002340 \v \0 \0 032 h 032 032 \t \0 \0 020 d g \0 \0 360 0002360 262 027 277 g \0 \0 g \0 \0 @ i d \v \0 \0 032 0002400 h 032 032 \t \0 \0 020 d g \0 \0 360 262 027 277 g 0002420 \0 \0 g \0 \0 @ i d \v \0 \0 032 h 032 032 \t 0002440 \0 \0 020 d g \0 \0 360 250 d g \0 \0 360 242 261 0002460 001 / 277 @ 001 W > 360 @ 002 001 @ 002 i d \v 0002500 \0 \0 021 003 \b O 016 d 003 262 d 260 024 d 001 021 0002520 001 \t O 020 021 021 \v O 024 003 265 \n 023 023 002 003 0002540 265 355 h 020 001 _ 026 277 N 252 O 026 301 002 311 \0 0002560 O 022 ' 262 3 g \0 \0 g \0 \0 g \0 \0 O 026 0002600 h 032 032 g \0 \0 O 022 h 032 032 h 032 032 032 g 0002620 \0 \0 O 026 301 002 311 \0 O 022 ' h 032 032 h 032 0002640 032 032 \t \0 \0 277 O 024 002 _ 024 260 256 g \0 \0 0002660 360 262 X O 020 260 024 d 001 021 021 \r O 030 301 002 0002700 311 \0 _ 032 003 265 \t 023 002 003 265 355 h 020 001 W 0002720 @ \n \0 \0 263 / g \0 \0 g \0 \0 g \0 \0 O 0002740 030 h 032 032 g \0 \0 O 032 001 h 032 032 h 032 032 0002760 032 g \0 \0 O 032 002 001 h 032 032 h 032 032 032 \t 0003000 \0 \0 277 O 032 002 002 260 273 O 020 021 021 017 O 034 0003020 003 265 004 h 020 001 _ 036 277 N 232 O 036 301 002 311 0003040 \0 O 016 ' 262 3 g \0 \0 g \0 \0 g \0 \0 O 0003060 036 h 032 032 g \0 \0 O 016 h 032 032 h 032 032 032 0003100 g \0 \0 O 036 301 002 311 \0 O 016 ' h 032 032 h 0003120 032 032 032 \t \0 \0 277 O 034 002 _ 034 260 264 d g 0003140 \0 \0 360 262 N 277 @ 002 i d \v \0 \0 260 ? d 0003160 001 021 001 020 g \0 \0 g \0 \0 g \0 \0 O 001 0003200 h 032 032 g \0 \0 O 002 001 h 032 032 h 032 032 0003220 032 g \0 \0 O 001 301 002 311 \0 O 002 001 ' 0003240 h 032 032 h 032 032 032 \t \0 \0 023 002 003 265 302 h 0003260 020 d g \0 \0 360 262 032 277 @ i \n \0 \0 213 d 0003300 001 021 001 021 O " \t \0 \0 023 002 003 265 363 h 020 0003320 d g \0 \0 360 231 277 o \0 \0 \0 @ \n \0 \0 020 0003340 d g \0 \0 360 246 d g \0 \0 360 262 C 277 @ i 0003360 d \v \0 \0 260 5 d 001 021 001 022 O $ 004 l 004 0003400 360 235 g \0 \0 O $ g \0 \0 O $ \t \0 \0 214 0003420 g \0 \0 O $ 001 g \0 \0 O $ 002 001 h 032 032 0003440 h 032 032 032 \t \0 \0 023 002 003 265 314 h 020 d g 0003460 \0 \0 360 262 > 277 @ i d \v \0 \0 260 0 d 001 0003500 021 001 022 O $ d 004 l 004 360 233 277 g \0 \0 O 0003520 $ o \0 \0 \0 032 216 001 W D \n \0 \0 222 O $ 0003540 205 g \0 \0 O $ 032 \t \0 \0 023 002 003 265 321 h 0003560 020 d g \0 \0 360 262 F 277 @ i d \v \0 \0 260 0003600 5 d 001 021 001 022 O $ 004 l 004 360 235 g \0 \0 0003620 O $ g \0 \0 O $ \t \0 \0 214 g \0 \0 O $ 0003640 001 g \0 \0 O $ 002 001 h 032 032 h 032 032 032 \t 0003660 \0 \0 023 002 003 265 314 h \t \0 \0 020 d g \0 \0 0003700 360 246 d g \0 \0 360 262 2 277 i 021 001 023 @ i 0003720 d \v \0 \0 260 d 001 021 001 022 g \0 \0 O $ 0003740 g \0 \0 O $ \t \0 \0 h 032 032 h 032 032 032 \t 0003760 \0 \0 023 002 003 265 341 h 020 d g \0 \0 360 262 N 0004000 277 @ i d \v \0 \0 260 @ d 001 021 001 024 O ( 0004020 002 002 262 034 g \0 \0 O ( 001 g \0 \0 g \0 \0 0004040 O ( 002 h 032 032 O ( 001 h 032 032 032 217 g \0 0004060 \0 g \0 \0 O ( 002 001 h 032 032 O ( 001 h 032 0004100 032 032 \t \0 \0 023 002 003 265 301 h 020 d g \0 \0 0004120 360 262 7 277 @ i d \v \0 \0 260 ) d 001 021 001 0004140 024 g \0 \0 O ( 001 g \0 \0 O ( 001 g \0 \0 0004160 O ( 002 h 032 032 h 032 032 032 h 032 032 032 \t \0 0004200 \0 023 002 003 265 330 h 020 d g \0 \0 360 262 " 277 0004220 o \0 \0 \0 @ \n \0 \0 @ i \n \0 \0 213 d 001 0004240 021 001 025 O * \t \0 \0 023 002 003 265 363 h 020 d 0004260 g \0 \0 360 222 261 001 D d g \0 \0 360 222 261 001 0004300 ; d g \0 \0 360 222 261 001 2 d g \0 \0 360 222 0004320 261 001 ) d g \0 \0 360 222 261 001 d g \0 \0 0004340 360 222 261 001 027 d g \0 \0 360 253 d g \0 \0 360 0004360 245 d g \0 \0 360 231 277 o \0 \0 \0 @ \n \0 \0 0004400 020 d g \0 \0 360 262 032 277 @ i \n \0 \0 213 d 0004420 001 021 001 026 O , \t \0 \0 023 002 003 265 363 h 020 0004440 d g \0 \0 360 262 " @ i \n \0 \0 021 021 030 i 0004460 _ 0 277 O . 213 d 001 021 001 026 O , \t \0 \0 0004500 023 002 003 265 363 h 020 d g \0 \0 360 262 J @ i 0004520 d \v \0 \0 021 1 034 O 2 003 265 004 h 020 001 _ 0004540 4 003 262 g \0 \0 O 4 \n \0 \0 _ 8 265 \r 0004560 o \0 \0 \0 O 4 \n \0 \0 260 025 002 001 h 032 _ 0004600 6 213 g \0 \0 O 4 O 6 032 032 \t \0 \0 277 O 0004620 2 002 _ 2 260 305 g \0 \0 360 262 + @ 002 001 g 0004640 \0 \0 360 227 W F l \f \n \0 \0 212 \b \0 \0 277 0004660 \b \0 \0 277 \b \0 \0 277 @ h i \v \0 \0 \b \0 0004700 \0 \b \0 \0 020 021 020 035 @ 001 W B 026 002 _ : 0004720 265 \f o \0 \0 \0 @ 001 \n \0 \0 020 001 @ i d 0004740 \v \0 \0 O : 002 \v \0 \0 213 d 001 021 001 026 O 0004760 , \t \0 \0 023 002 003 265 363 h 020 \0 ( 1 6 4 0005000 8 C O M M O N - F I L E - C O 0005020 M M A N D 1 6 3 7 S U B P A 0005040 I R 1 6 3 1 P R E T T Y C O 0005060 M 1 1 6 2 3 H E L P 1 6 0 0005100 0 T E R P R I 1 5 9 7 T E 0005120 R P R I 1 5 9 4 P R I N T D 0005140 E F 1 5 8 7 T E R P R I 1 0005160 5 8 3 T E R P R I 1 5 7 9 0005200 T E R P R I 1 5 7 5 B O U T 0005220 1 5 4 6 C L : P P R I N T 0005240 1 5 2 5 H E L P 1 5 1 2 M 0005260 E M B 1 4 8 8 P R E T T Y C 0005300 O M 1 1 4 6 8 C O M M O N - 0005320 F I L E - C O M M A N D 1 4 4 0005340 8 P R E T T Y C O M 1 1 4 2 0005360 9 C O M M O N - F I L E - C O 0005400 M M A N D 1 4 1 8 P R E T T 0005420 Y C O M 1 1 4 0 4 H E L P 0005440 1 3 1 6 E V A L 1 3 0 5 P 0005460 R E T T Y C O M 1 1 3 0 0 H 0005500 E L P 1 2 7 7 C L : P P R I 0005520 N T 1 2 3 8 P R E T T Y C O 0005540 M 1 1 2 1 7 C L : P P R I N 0005560 T 1 1 5 5 P R E T T Y C O M 0005600 1 1 1 3 4 C L : P P R I N T 0005620 1 1 2 4 G E T T O P V A L 0005640 1 1 0 4 P R E T T Y C O M 1 0005660 1 0 7 9 V A R S 1 0 7 0 C 0005700 L : P P R I N T 1 0 4 6 G E 0005720 T T O P V A L 1 0 1 9 P R E 0005740 T T Y C O M 1 9 9 8 C L : P 0005760 P R I N T 9 8 5 S U P E R P 0006000 R I N T E Q 9 5 2 P R E T T 0006020 Y C O M 1 9 3 1 C L : P P R 0006040 I N T 9 0 7 G E T T O P V A 0006060 L 8 8 0 P R E T T Y C O M 1 0006100 8 5 9 H E L P 8 3 7 C L 0006120 : P P R I N T 8 2 6 P R E T 0006140 T Y C O M 1 8 0 6 C L : P P 0006160 R I N T 7 4 5 P R E T T Y C 0006200 O M 1 7 2 2 C L : P P R I N 0006220 T 6 3 8 C L : P P R I N T 0006240 5 9 2 M E M B 5 4 5 C L : 0006260 P P R I N T 4 4 6 P R E T T 0006300 Y C O M 1 4 1 4 C L : P P R 0006320 I N T 4 0 7 P R E T T Y C O 0006340 M 1 3 8 6 C L : P P R I N T 0006360 3 7 9 P R E T T Y C O M 1 0006400 3 5 8 C L : P P R I N T 3 5 0006420 1 P R E T T Y C O M 1 3 2 4 0006440 C L : F O R M A T 3 1 5 C 0006460 O M M O N - F I L E - C O M M A 0006500 N D 3 1 0 C L : F O R M A T 0006520 2 9 8 C L : R E M O V E 2 0006540 8 3 C L : R E M O V E 2 6 5 0006560 C L : R E M O V E 2 5 0 C 0006600 L : A D J O I N 2 2 7 C L : 0006620 A D J O I N 2 0 4 C L : A D 0006640 J O I N 1 5 4 H E L P 1 1 0006660 7 P R E T T Y C O M 1 9 5 0006700 C L : P P R I N T 9 2 H E L 0006720 P 4 0 G E T D E F 2 3 P 0006740 R E T T Y C O M 1 7 G E T F 0006760 I L E P K G T Y P E ) \r ( 1 5 6 0007000 6 * 1 5 5 7 * 1 5 3 7 0007020 C L : R E Q U I R E 1 5 0 7 0007040 F R O M 1 4 7 9 F I L E S 0007060 1 4 4 0 O R I G I N A L 1 4 0007100 0 9 C O M S 1 3 9 3 S Y S 0007120 R E C O R D S 1 3 8 7 I N I 0007140 T R E C O R D S 1 3 8 1 R E 0007160 C O R D S 1 3 7 2 E D I T H 0007200 I S T 1 3 6 3 E X P O R T 0007220 1 3 5 4 B L O C K S 1 3 4 5 0007240 T E M P L A T E S 1 3 3 6 0007260 I . S . O P R S 1 3 2 7 F I 0007300 L E P K G C O M S 1 2 8 8 E 0007320 1 2 6 0 Q U O T E 1 2 5 4 0007340 C L : A P P E N D 1 2 4 8 0007360 S E T Q 1 2 2 8 A P P E N D 0007400 V A R S 1 2 0 0 Q U O T E 0007420 1 1 9 7 C L : P U S H N E W 0007440 1 1 8 0 Q U O T E 1 1 7 7 0007460 U N I O N 1 1 7 1 S E T Q 0007500 1 1 4 5 A D D V A R S 1 1 1 0007520 9 Q U O T E 1 1 1 4 D E F 0007540 P A R A M E T E R 1 0 9 0 H 0007560 O R R I B L E V A R S 1 0 8 4 0007600 U G L Y V A R S 1 0 5 6 Q 0007620 U O T E 1 0 5 0 C L : D E F 0007640 C O N S T A N T 1 0 4 1 Q U 0007660 O T E 1 0 3 6 C L : D E F C 0007700 O N S T A N T 1 0 0 9 C O N 0007720 S T A N T S 9 9 2 C L : D E 0007740 F V A R 9 7 1 C L : D E F V 0007760 A R 9 4 2 I N I T V A R S 0010000 9 1 7 Q U O T E 9 1 1 C L 0010020 : D E F P A R A M E T E R 9 0 0010040 2 Q U O T E 8 9 7 C L : D 0010060 E F P A R A M E T E R 8 7 0 0010100 A R R A Y 8 6 4 V A R S 8 0010120 4 8 M A C R O S 8 1 7 P 0010140 7 8 4 Q U O T E 7 7 0 Q U 0010160 O T E 7 6 1 Q U O T E 7 5 0010200 8 G E T 7 5 5 C L : S E T 0010220 F 7 3 4 P R O P S 7 0 3 0010240 Q U O T E 6 9 1 Q U O T E 0010260 6 8 3 Q U O T E 6 8 0 G E 0010300 T 6 7 7 C L : S E T F 6 2 0010320 4 Q U O T E 6 1 1 Q U O T 0010340 E 6 0 3 Q U O T E 6 0 0 0010360 G E T 5 9 7 C L : S E T F 0010400 5 5 6 A L L 5 2 6 Q U O T 0010420 E 5 1 4 Q U O T E 5 0 6 0010440 Q U O T E 5 0 3 G E T 5 0 0010460 0 C L : S E T F 4 2 5 I F 0010500 P R O P 4 1 9 P R O P 4 0 0010520 1 U S E R : : L E X I C A L 0010540 3 9 8 P R O C L A I M 3 9 1 0010560 L O C A L V A R S 3 7 3 U 0010600 S E R : : G L O B A L 3 7 0 0010620 P R O C L A I M 3 6 3 G L O 0010640 B A L V A R S 3 4 5 S P E C 0010660 I A L 3 4 2 P R O C L A I M 0010700 3 3 5 S P E C V A R S 2 9 0010720 4 C L : E V A L 2 8 9 D O 0010740 N T E V A L @ L O A D 2 7 9 0010760 C L : C O M P I L E 2 7 3 D 0011000 O N T E V A L @ C O M P I L E 0011020 2 6 1 C L : L O A D 2 5 6 0011040 D O N T C O P Y 2 4 6 C L : 0011060 L O A D 2 4 0 E V A L @ L O 0011100 A D 2 3 3 D O E V A L @ L O 0011120 A D 2 2 3 C L : C O M P I L 0011140 E 2 1 7 E V A L @ C O M P I 0011160 L E 2 1 0 D O E V A L @ C O 0011200 M P I L E 2 0 0 C L : L O A 0011220 D 1 9 4 D O C O P Y 1 8 7 0011240 C O P Y 1 7 8 C O M P I L 0011260 E R V A R S 1 7 0 N O T F I 0011300 R S T 1 6 0 F I R S T 1 4 0011320 8 C O P Y W H E N 1 4 1 E 0011340 V A L @ C O M P I L E W H E N 0011360 1 3 5 E V A L @ L O A D W H E 0011400 N 1 0 5 D E C L A R E % : 0011420 7 2 & O P T I O N A L 6 8 0011440 C L : D E F U N 6 2 L A M B 0011460 D A 5 2 C L : D E F U N 4 0011500 6 C L : L A M B D A 3 7 F 0011520 N S 1 3 F N S 4 C O M M 0011540 A N D ) \r ( 1 6 1 8 " C A N 0011560 ' T H A N D L E " 1 5 2 0 0011600 " F I L E S O P T I O N ? " 0011620 1 4 0 0 " I T H O U G H T 0011640 Y O U T R A N S O R E D A L 0011660 L T H O S E R E C O R D S " 0011700 1 2 9 6 " I H O P E T H 0011720 I S % " E % " K N O W S W H 0011740 A T I T S D O I N G " \r 9 0011760 7 7 ( N I L ) 8 5 5 " I 0012000 T H O U G H T Y O U T R A N 0012020 S O R E D A L L T H O S E 0012040 M A C R O S " 3 2 1 " ) " 0012060 3 0 6 " ~ & ( E V A L - W H E 0012100 N ~ S " 1 2 1 ( C L : L 0012120 O A D C L : E V A L ) \r 8 7 0012140 " U N S U P P O R T E D L A 0012160 M B D A " ) \r C O M M O N - M A 0012200 K E F I L E A 0 0 0 1 : D 4 \r 0012220 ( N A M E S I : : * U N W I N 0012240 D - P R O T E C T * P 7 P 0012260 P 6 B A S E P 5 P K 0012300 G N A M E P 4 F I L E I L 0012320 N A M E P 3 D A T E S P 0012340 2 * R E A D T A B L E * P 0012360 1 * P R I N T - B A S E * 0012400 P 0 * P A C K A G E * I 0012420 0 S I : : * C L E A N U P - F 0012440 O R M S * F 8 F I L E F 0012460 9 * P A C K A G E * F 1 0012500 0 * P R I N T - B A S E * F 0012520 1 1 * S T A N D A R D - O U 0012540 T P U T * ) \0 223 \b 004 \0 001 W 022 W 0012560 024 o \0 \0 \0 \t \0 \0 021 C 006 W 020 \t \0 \0 0012600 o \0 \0 \0 \n \0 \0 \ g \0 \0 \n \0 \0 [ L 0012620 g \0 \0 \n \0 \0 g \0 \0 ' 265 006 o \0 \0 \0 0012640 ] L g \0 \0 \n \0 \0 g \0 \0 ' 265 004 l \n 0012660 ^ i o \0 \0 \0 M N \f \0 \0 M \t \0 \0 X 0012700 N Y i o \0 \0 \0 \b \0 \0 W 020 \f \0 \0 K 0012720 236 i o \0 \0 \0 K 001 002 K 001 001 \f \0 \0 277 0012740 W 020 \t \0 \0 \t \0 \0 003 213 d 001 021 001 \a O 0012760 016 \t \0 \0 023 002 003 265 363 W 026 \t \0 \0 020 \0 0013000 ( 1 4 4 F U L L N A M E 1 3 0013020 4 C O M M O N - F I L E - C O 0013040 M M A N D 1 2 2 G E T T O P 0013060 V A L 1 1 9 F I L E C O M S 0013100 1 1 3 C L : F O R M A T 9 0013120 7 C L : F O R M A T 9 2 D 0013140 A T E 8 1 C L : F I N D - P 0013160 A C K A G E 7 7 C L : F O R 0013200 M A T 5 8 G E T P R O P 4 0013220 0 G E T P R O P 3 2 G E T 0013240 P R O P 2 5 C L : I N T E R 0013260 N 1 8 S T R I N G 1 0 F 0013300 I N D - R E A D T A B L E ) \r ( 0013320 6 1 : B A S E 5 5 M A K E 0013340 F I L E - E N V I R O N M E N T 0013360 4 3 : P A C K A G E 3 7 0013400 M A K E F I L E - E N V I R O N 0013420 M E N T 2 9 F I L E D A T E 0013440 S ) \r ( 1 0 4 " ~ & ; ; ; 0013460 O r i g i n a l s o u r c e 0013500 ~ A c r e a t e d ~ A " 8 0013520 9 " ~ % % ; ; ; F i l e c 0013540 o n v e r t e d ~ A f r o m 0013560 s o u r c e ~ A " 7 2 " 0013600 ; ; ; - * - M o d e : L I 0013620 S P ; S y n t a x : C o m m 0013640 o n - l i s p ; P a c k a g e 0013660 : ~ A ; B a s e : ~ A - 0013700 * - " \r 5 0 " U S E R " 2 0013720 2 " I L " 7 " L I S P " ) 0013740 \r C O M M O N - M A K E F I L E 0013760 A 0 0 0 2 : D 4 \r ( F 0 * 0014000 S T A N D A R D - O U T P U T * 0014020 ) \0 006 \0 001 \0 \0 P \t \0 \0 020 \0 ( 3 0014040 C L O S E F ) \r N I L \r ( ) \r 0014060 C O M M O N - M A K E F I L E 0014100 : D 4 \r ( P 8 * S T A N D A 0014120 R D - O U T P U T * P 7 % 0014140 # R P A R S P 6 * P R I N 0014160 T - L E V E L * P 5 * P R 0014200 I N T - L E N G T H * P 4 0014220 F O N T C H A N G E F L G P 0014240 3 * * C O M M E N T F L G * * 0014260 P 2 * P R I N T - S T R U 0014300 C T U R E * P 1 * P R I N 0014320 T - A R R A Y * P 0 * P R 0014340 I N T - S E M I C O L O N - C O 0014360 M M E N T S * I 1 D E B U 0014400 G I 0 F I L E ) \0 2 \t \0 0014420 \0 002 g \0 \0 i d 021 S \a g \0 \0 g \0 \0 0014440 g \0 \0 @ \f \0 \0 g \0 \0 \n \0 \0 021 001 \b 0014460 g \0 \0 \t \0 \0 \t \0 \0 O 020 \t \0 \0 277 \t 0014500 \0 \0 020 \0 ( 4 7 C L : V A L U E 0014520 S - L I S T 4 3 C L O S E F 0014540 3 8 \ M V L I S T 3 5 C 0014560 O M M O N - M A K E F I L E A 0 0014600 0 0 1 2 6 O P E N S T R E A 0014620 M 2 0 P A C K F I L E N A M 0014640 E ) \r ( 3 2 C O M M O N - M A 0014660 K E F I L E A 0 0 0 2 2 3 O 0014700 U T P U T 1 6 B O D Y 1 3 0014720 L I S P 1 0 E X T E N S I 0014740 O N 2 A L L ) \r ( ) \r ( P R 0014760 E T T Y C O M P R I N T C O M 0015000 M O N - M A K E C O M S ) \r ( R 0015020 P A Q Q C O M M O N - M A K E 0015040 C O M S ( ( * F U N C T I O 0015060 N S T O H A N D L E W R I 0015100 T I N G S T A N D A R D C O 0015120 M M O N L I S P S O U R C E 0015140 F I L E S ) ( F N S \r C O M 0015160 M O N - F I L E - C O M M A N D 0015200 C O M M O N - M A K E F I L E 0015220 ) ( P R O P M A K E F I L E 0015240 - E N V I R O N M E N T C O M 0015260 M O N - M A K E ) ( E D I T H 0015300 I S T C O M M O N - M A K E ) 0015320 ) ) \r ( P U T P R O P S C O M 0015340 M O N - M A K E M A K E F I L 0015360 E - E N V I R O N M E N T ( : 0015400 R E A D T A B L E " I N T E R 0015420 L I S P " : P A C K A G E " 0015440 I N T E R L I S P " ) ) \r ( P U 0015460 T P R O P S C O M M O N - M A 0015500 K E C O P Y R I G H T ( " U 0015520 n i s y s C o r p . " 1 9 8 0015540 7 ) ) \r N I L \r 0015550