$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>COMMON-MAKE!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 006
0000100 001 ( F I L E C R E A T E D " 1
0000120 1 - D e c - 8 7 1 4 : 4 8 : 1
0000140 6 " 006 004 { D S K } < X A V I E
0000160 R > C O M M O N - M A K E . ; 5
0000200 006 001 1 5 2 9 0 \r \r
0000220 c h a n g e s t o % :
0000240 ( V A R S C O M M O N - M A K
0000260 E C O M S ) \r
0000300 ( F N S
0000320 C O M M O N - F I L E - C O M M
0000340 A N D C O M M O N - M A K E F
0000360 I L E ) \r
0000400 ( P R O P S
0000420 ( C O M M O N - M A K E M A K
0000440 E F I L E - E N V I R O N M E N
0000460 T ) ) \r \r p r e v i
0000500 o u s d a t e % : " 1 1 - D
0000520 e c - 8 7 1 2 : 5 3 : 4 6 "
0000540 { D S K } < X A V I E R > C O M
0000560 M O N - M A K E . ; 1 ) \r \r \r (
0000600 * " \r C o p y r i g h t ( c
0000620 ) 1 9 8 7 b y U n i s y s
0000640 C o r p . . A l l r i g
0000660 h t s r e s e r v e d . \r " )
0000700 \r \r ( P R E T T Y C O M P R I N
0000720 T C O M M O N - M A K E C O M
0000740 S ) \r \r ( R P A Q Q 006 002 C O M
0000760 M O N - M A K E C O M S 006 001 (
0001000 ( * F U N C T I O N S T O
0001020 H A N D L E W R I T I N G S
0001040 T A N D A R D C O M M O N L I
0001060 S P S O U R C E F I L E S )
0001100 \r
0001120 ( F N S C O
0001140 M M O N - F I L E - C O M M A N
0001160 D C O M M O N - M A K E F I L
0001200 E ) \r
0001220 ( P R O P
0001240 M A K E F I L E - E N V I R O
0001260 N M E N T C O M M O N - M A K
0001300 E ) \r
0001320 ( E D I T
0001340 H I S T C O M M O N - M A K E
0001360 ) ) ) \r \r \r \r 006 004 ( * F U N C
0001400 T I O N S T O H A N D L E
0001420 W R I T I N G S T A N D A R D
0001440 C O M M O N L I S P S O U R
0001460 C E F I L E S ) 006 001 \r \r ( D E
0001500 F I N E Q \r \r ( 006 004 C O M M O N
0001520 - F I L E - C O M M A N D 006 001 \r
0001540 [ L A M B D A ( C O M M A
0001560 N D ) 006 006 006 001
0001600
*
0001640 006 006 ( * ; " E d i t e d
0001660 1 1 - D e c - 8 7 1 4 : 4 6
0001700 b y D J V B " ) 006 001 \r
0001720 \r
0001740 006 006 ( * T H E N E W C O
0001760 M M O N L I S P C O M M A N D
0002000 S A R E M O S T L Y M A C
0002020 R O S T O T H I N G S T H
0002040 I S H A N D L E S ) 006 001 \r \r
0002060 ( S E L E C T Q ( S E T
0002100 Q T Y P E ( G E T F I L E P
0002120 K G T Y P E ( C A R C O M M
0002140 A N D ) \r
0002160
0002200 ' C O M M A N D ) ) \r
0002220 ( F N S [ 006 002 f
0002240 o r 006 001 F N 006 002 i n 006 001 (
0002260 P R E T T Y C O M 1 C O M M A
0002300 N D T T ) 006 002 b i n d 006 001
0002320 D E F \r
0002340 006 002 d o 006 001 ( S E T
0002360 Q D E F ( G E T D E F F N
0002400 ' F N S ) ) \r
0002420 ( C L : P
0002440 P R I N T ( S E L E C T Q (
0002460 C A R D E F ) \r
0002500
0002520 ( C L : L
0002540 A M B D A ` ( C L : D E F U N
0002560 ( 006 002 \ , 006 001 F N ) , @ (
0002600 C D R D E F ) ) \r ) \r
0002620
0002640 (
0002660 L A M B D A ` ( C L : D E F U
0002700 N ( 006 002 \ , 006 001 F N ) ( &
0002720 O P T I O N A L , @ ( C A D R
0002740 D E F ) ) \r
0002760
*
0003020 , @ ( C D D R D E F
0003040 ) ) \r ) \r
0003060
0003100 ( H E L P " U N
0003120 S U P P O R T E D L A M B D A
0003140 " ( C A R D E F ] ) \r
0003160 ( D E C L A R E % :
0003200 [ 006 002 F O R 006 001 D E C 006 002 I
0003220 N 006 001 ( P R E T T Y C O M 1
0003240 C O M M A N D T T ) 006 002 B
0003260 I N D 006 001 ( C N D _ ' ( C
0003300 L : L O A D C L : E V A L ) )
0003320 \r
0003340 006 002 D O 006 001 ( S
0003360 E L E C T Q D E C \r
0003400
0003420 ( ( E V A L @ L
0003440 O A D W H E N E V A L @ C O M
0003460 P I L E W H E N C O P Y W H E
0003500 N ) \r
0003520
0003540 ( H E L P ) ) \r
0003560
0003600 ( ( F I R
0003620 S T N O T F I R S T ) ) \r
0003640
0003660 ( C O M P
0003700 I L E R V A R S ( R E T U R N
0003720 ) ) \r
0003740
0003760 ( ( C O P Y D O C O P Y ) \r
0004000
*
0004040 ( S E T Q C N D ( C L :
0004060 A D J O I N ' C L : L O A D
0004100 C N D ) ) ) \r
0004120
0004140 ( ( D O E V A L @ C O M
0004160 P I L E E V A L @ C O M P I L
0004200 E ) \r
0004220
0004240 ( S E T Q C N D
0004260 ( C L : A D J O I N ' C L : C
0004300 O M P I L E C N D ) ) ) \r
0004320
0004340 ( ( D O E
0004360 V A L @ L O A D E V A L @ L O
0004400 A D ) \r
0004420
0004440 ( S E T Q C N D
0004460 ( C L : A D J O I N ' C L :
0004500 L O A D C N D ) ) ) \r
0004520
0004540 ( D O N T C O
0004560 P Y ( S E T Q C N D ( C L
0004600 : R E M O V E ' C L : L O A D
0004620 C N D ) ) ) \r
0004640
0004660 ( D O N T E V A L @ C
0004700 O M P I L E \r
0004720
0004740 ( S E T Q
0004760 C N D ( C L : R E M O V E '
0005000 C L : C O M P I L E C N D ) )
0005020 ) \r
0005040 (
0005060 D O N T E V A L @ L O A D ( S
0005100 E T Q C N D ( C L : R E M O
0005120 V E ' C L : E V A L C N D )
0005140 ) ) \r
0005160
0005200 ( P R O G N ( C L : F O R M A
0005220 T T " ~ & ( E V A L - W H E
0005240 N ~ S " C N D ) \r
0005260
*
0005320 ( 006 002 C O M M O N - F I L E - C
0005340 O M M A N D 006 001 D E C ) \r
0005360
*
0005420 ( C L : F O R M A T T "
0005440 ) " ] ) \r ( S P
0005460 E C V A R S [ C L : P P R I N
0005500 T ` ( P R O C L A I M ( S P
0005520 E C I A L , @ ( P R E T T Y C
0005540 O M 1 C O M M A N D T T ]
0005560 ) \r ( G L O B A
0005600 L V A R S [ C L : P P R I N T
0005620 ` ( P R O C L A I M ( U S E
0005640 R : : G L O B A L , @ ( P R E
0005660 T T Y C O M 1 C O M M A N D
0005700 T T ] ) \r ( L
0005720 O C A L V A R S [ C L : P P R
0005740 I N T ` ( P R O C L A I M (
0005760 U S E R : : L E X I C A L , @
0006000 ( P R E T T Y C O M 1 C O M M
0006020 A N D T T ] ) \r
0006040 ( ( P R O P I F P R O P )
0006060 \r [
0006100 L E T \r
0006120 ( ( I F F L G ( E Q ( C
0006140 A R C O M M A N D ) \r
0006160
0006200 P R O P ) ) \r
0006220 ( P R O
0006240 P ( C A D R C O M M A N D )
0006260 ) \r
0006300 ( A T M S ( P R E T T Y C O
0006320 M 1 ( C D R C O M M A N D )
0006340 \r
0006360 T T
0006400 ) ) ) \r
0006420 ( 006 002 I F 006 001 ( L I S T P
0006440 P R O P ) \r
0006460 006 002 T H E N 006
0006500 001 [ 006 002 F O R 006 001 P R P 006
0006520 002 I N 006 001 P R O P \r
0006540
0006560 006 002 D O 006 001 ( 006 002 f
0006600 o r 006 001 A T M 006 002 i n 006 001
0006620 A T M S 006 002 w h e n 006 001 ( O
0006640 R I F F L G ( G E T A T M
0006660 P R P ) ) \r
0006700
0006720 006 002 d o 006 001 ( C
0006740 L : P P R I N T ` ( C L : S E
0006760 T F ( G E T ' , A T M ' ,
0007000 P R P ) \r
0007020
*
0007060 ' , ( G E
0007100 T A T M P R P ] \r
0007120 006 002 E L S
0007140 E I F 006 001 ( E Q P R O P '
0007160 A L L ) \r
0007200 006 002 T H E N 006 001
0007220
*
0007260 006 006 ( * A L L P
0007300 R O P E R T I E S ) 006 001 \r
0007320 [
0007340 006 002 F O R 006 001 A T M 006 002 I N
0007360 006 001 A T M S \r
0007400 006 002 D
0007420 O 006 001 ( 006 002 F O R 006 001 P A I
0007440 R 006 002 O N 006 001 ( G E T P R O
0007460 P L I S T A T M ) 006 002 B Y 006
0007500 001 ( C D D R P A I R ) \r
0007520
0007540 006 002 U N L E S
0007560 S 006 001 ( M E M B ( C A R P
0007600 A I R ) \r
0007620
0007640 S Y S
0007660 P R O P S ) \r
0007700
0007720 006 002 D O 006 001 ( C L : P P R
0007740 I N T ` ( C L : S E T F [ G
0007760 E T ' , A T M ' , ( C A R
0010000 P A I R ] \r
0010020
*
0010060 ' , ( C A D R P
0010100 A I R ] \r
0010120 006 002 E L S E 006 001 ( 006
0010140 002 f o r 006 001 A T M 006 002 i n 006
0010160 001 A T M S 006 002 w h e n 006 001
0010200 ( O R ( N O T I F F L G ) \r
0010220
*
0010260 (
0010300 G E T A T M P R O P ) ) \r
0010320
0010340 006 002 d o 006 001 ( C
0010360 L : P P R I N T ` ( C L : S E
0010400 T F ( G E T ' , A T M ' ,
0010420 P R O P ) \r
0010440
*
0010500 ' , ( G E T A T M P
0010520 R O P ] ) \r ( P
0010540 R O P S [ 006 002 F O R 006 001 A P
0010560 006 002 i n 006 001 ( P R E T T Y C
0010600 O M 1 ( C D R C O M M A N D
0010620 ) \r
0010640
0010660 T T ) \r
0010700 006 002 d o 006 001
0010720 ( C L : P P R I N T ` ( C L
0010740 : S E T F [ G E T ' , ( C A
0010760 R A P ) ' , ( C A D R A P
0011000 ] \r
0011020
0011040 ' , ( G E T
0011060 ( C A R A P ) \r
0011100
*
0011140 ( C A D R A
0011160 P ] ) \r ( P (
0011200 006 002 f o r 006 001 P T H I S 006 002
0011220 i n 006 001 ( P R E T T Y C O M 1
0011240 C O M M A N D T ) 006 002 d o
0011260 006 001 ( C L : P P R I N T P T
0011300 H I S ) ) ) \r (
0011320 M A C R O S ( H E L P " I
0011340 T H O U G H T Y O U T R A N
0011360 S O R E D A L L T H O S E
0011400 M A C R O S " C O M M A N D )
0011420 ) \r ( ( V A R S
0011440 A R R A Y ) \r
0011460 [ 006 002 f o r 006 001 V
0011500 A R 006 002 i n 006 001 ( P R E T T
0011520 Y C O M 1 C O M M A N D T
0011540 T ) \r
0011560 006 002 d o 006 001 ( C L : P P
0011600 R I N T ( 006 002 i f 006 001 ( L I
0011620 T A T O M V A R ) \r
0011640
0011660 006 002 t
0011700 h e n 006 001 ` ( C L : D E F P A
0011720 R A M E T E R ( 006 002 \ , 006 001
0011740 V A R ) ' , ( G E T T O P V A
0011760 L V A R ) ) \r \r
0012000
0012020 006 002 e l s e
0012040 006 001 ` ( C L : D E F P A R A M
0012060 E T E R ( 006 002 \ , 006 001 ( C A
0012100 R V A R ) ) ' , ( C A D R
0012120 V A R ) ) \r ] ) \r
0012140 ( I N I T V A R S [ 006 002 F
0012160 O R 006 001 V A R 006 002 I N 006 001
0012200 ( P R E T T Y C O M 1 C O M M
0012220 A N D T T ) \r
0012240 006 002
0012260 D O 006 001 ( C L : P P R I N T
0012300 ( 006 002 I F 006 001 ( L I T A T O M
0012320 V A R ) \r
0012340
0012360 006 002 T
0012400 H E N 006 001 ` ( C L : D E F V A
0012420 R ( 006 002 \ , 006 001 V A R ) N
0012440 I L ) \r \r
0012460
0012500 006 002 E L S E
0012520 006 001 ( 006 002 I F 006 001 ( S U P E
0012540 R P R I N T E Q ( C A R V A
0012560 R ) \r
0012600
*
0012640 C O M M E N T F
0012660 L G ) \r
0012700
*
0012740 006 002 T H E N 006 001 V A R \r
0012760
*
0013020 006 002 E L S
0013040 E 006 001 ` ( C L : D E F V A R
0013060 ( 006 002 \ , @ 006 001 V A R ) ) \r
0013100 ] ) \r ( C O N S
0013120 T A N T S [ V A R S ( 006 002 F
0013140 O R 006 001 V A R 006 002 I N 006 001
0013160 ( P R E T T Y C O M 1 C O M M
0013200 A N D T T ) \r
0013220
0013240 006 002 D O 006 001 ( C L :
0013260 P P R I N T ( 006 002 I F 006 001 (
0013300 L I T A T O M V A R ) \r
0013320
*
0013360 006 002 T H E
0013400 N 006 001 ` ( C L : D E F C O N S
0013420 T A N T ( 006 002 \ , 006 001 V A R
0013440 ) ' , ( G E T T O P V A L V
0013460 A R ) ) \r \r
0013500
*
0013540 006 002 E L S E 006 001 ` ( C L
0013560 : D E F C O N S T A N T ( 006 002
0013600 \ , 006 001 ( C A R V A R ) )
0013620 ' , ( C A D R V A R ) ) \r ]
0013640 ) \r ( ( U G L Y
0013660 V A R S H O R R I B L E V A R
0013700 S ) \r
0013720 [ L E T ( ( * P R I N T - C
0013740 I R C L E * T ) ) \r
0013760 ( 006 002
0014000 D E C L A R E 006 001 ( S P E C V
0014020 A R S * P R I N T - C I R C L
0014040 E * ) ) \r
0014060 ( 006 002 F O R 006 001
0014100 V A R 006 002 I N 006 001 ( P R E T
0014120 T Y C O M 1 C O M M A N D T
0014140 T ) \r
0014160 006 002 D O 006 001
0014200 ( C L : P P R I N T ` ( D E F
0014220 P A R A M E T E R , V A R '
0014240 , ( G E T T O P V A L V A R ]
0014260 ) \r ( A D D V A
0014300 R S [ 006 002 f o r 006 001 A V 006
0014320 002 i n 006 001 ( P R E T T Y C O M
0014340 1 C O M M A N D T T ) \r
0014360
0014400 006 002 d o 006 001 ( C L : P P
0014420 R I N T ( 006 002 i f 006 001 ( C D
0014440 D R A V ) \r
0014460
0014500 006 002 t
0014520 h e n 006 001 ` [ S E T Q , ( C
0014540 A R A V ) ( U N I O N ' ,
0014560 ( C D R A V ) , ( C A R A
0014600 V ] \r
0014620
0014640 006 002 e l s e 006 001
0014660 ` ( C L : P U S H N E W ' , (
0014700 C A D R A V ) , ( C A R A
0014720 V ] ) \r ( A P P
0014740 E N D V A R S [ 006 002 F O R 006 001
0014760 A V 006 002 I N 006 001 ( P R E T
0015000 T Y C O M 1 C O M M A N D T
0015020 T ) \r
0015040 006 002 D O 006
0015060 001 ( C L : P P R I N T ` ( S
0015100 E T Q , ( C A R A V ) ( C
0015120 L : A P P E N D , ( C A R A
0015140 V ) ' , ( C D R A V ] ) \r
0015160 ( E ( H E L P
0015200 " I H O P E T H I S % " E
0015220 % " K N O W S W H A T I T S
0015240 D O I N G " C O M M A N D )
0015260 \r ( 006 002 F
0015300 O R 006 001 E X P 006 002 I N 006 001
0015320 ( P R E T T Y C O M 1 C O M M
0015340 A N D T ) 006 002 D O 006 001 ( E
0015360 V A L E X P ) ) ) \r
0015400 ( ( F I L E P K G C O M S
0015420 I . S . O P R S T E M P L A
0015440 T E S B L O C K S E X P O R
0015460 T E D I T H I S T ) \r
0015500
*
0015560 006 006 ( * J
0015600 U S T I G N O R E T H E S E
0015620 ) 006 001 \r
0015640 N I L ) \r ( (
0015660 R E C O R D S I N I T R E C O
0015700 R D S S Y S R E C O R D S )
0015720 \r ( H
0015740 E L P " I T H O U G H T Y
0015760 O U T R A N S O R E D A L L
0016000 T H O S E R E C O R D S "
0016020 C O M M A N D ) ) \r
0016040 ( C O M S ( 006 002 F O R 006 001
0016060 C O M 006 002 I N 006 001 ( P R E
0016100 T T Y C O M 1 C O M M A N D
0016120 T ) 006 002 D O 006 001 ( 006 002 C O M
0016140 M O N - F I L E - C O M M A N D
0016160 006 001 C O M ) ) ) \r
0016200 ( O R I G I N A L
0016220
*
0016260 006 006 ( * C O M S
0016300 , B U T W I T H O U T A N
0016320 Y U S E R D E F I N E D \r
0016340 006 001
0016360
*
0016420 006
0016440 006 C O M M A N D S ) 006 001 \r
0016460 (
0016500 L E T * ( ( P R T T Y T E M
0016520 ( P R E T T Y C O M 1 C O M M
0016540 A N D T ) ) \r
0016560
0016600 ( O R I G F L G T ) ) \r
0016620
0016640 ( 006 002 D E C L A R E
0016660 006 001 ( S P E C V A R S O R I
0016700 G F L G ) ) \r
0016720 (
0016740 006 002 f o r 006 001 C O M 006 002 i n
0016760 006 001 P R T T Y T E M 006 002 d o
0017000 006 001 ( 006 002 C O M M O N - F I L
0017020 E - C O M M A N D 006 001 C O M )
0017040 ) ) ) \r ( F I L
0017060 E S \r \r
0017100 006 006 ( * I N
0017120 S I D E L I S T P % : F R O
0017140 M d i r S O U R C E C O M
0017160 P I L E D L O A D L O A D C
0017200 O M P L O A D F R O M S Y S
0017220 L O A D P R O P \r 006 001
0017240 006 006 A L L P R O P
0017260 ) 006 001 \r \r
0017300 006 006 ( * R E
0017320 Q U I R E I S N O T I D E
0017340 N T I C A L , B U T S I S
0017360 A S C L O S E A S C L G
0017400 E T S ) 006 001 \r \r
0017420 [ 006 002 f o r 006 001
0017440 F 006 002 i n 006 001 ( P R E T T Y
0017460 C O M 1 C O M M A N D T T
0017500 ) 006 002 b i n d 006 001 D I R P
0017520 L A C E \r
0017540 006 002 d o 006 001 ( 006
0017560 002 i f 006 001 ( L I S T P F ) \r
0017600
0017620 006 002 t h e n 006
0017640 001 ( 006 002 i f 006 001 ( S E T Q
0017660 P L A C E ( M E M B ' F R O
0017700 M F ) ) \r
0017720
0017740 006 002 t h e n 006 001
0017760 ( S E T Q D I R ( L I S T
0020000 ( C A D R P L A C E ) ) ) \r
0020020
*
0020060 006 002 e l s e 006 001 ( H E L P "
0020100 F I L E S O P T I O N ? " F
0020120 ) ) \r
0020140 006 002 e l s e
0020160 006 001 ( C L : P P R I N T ` (
0020200 C L : R E Q U I R E , F , @
0020220 D I R ] ) \r ( *
0020240 ( 006 002 I F 006 001 ( E Q ( C A
0020260 D R C O M M A N D ) \r
0020300 '
0020320 * ) \r
0020340 006 002 T H E N 006 001 ( B O U T
0020360 * S T A N D A R D - O U T P U
0020400 T * ( C H A R C O D E F O R
0020420 M ) ) \r
0020440 006 002 E L S E 006 001 ( T E R P R
0020460 I ) \r
0020500 ( T E R P R I ) \r
0020520
0020540 ( T E R P R I ) ) \r
0020560 ( P R I N T D E F C
0020600 O M M A N D N I L T ) \r
0020620 ( T E R P R I
0020640 ) \r ( T E
0020660 R P R I ) ) \r (
0020700 L E T ( M A C R O ) \r
0020720 ( 006 002 i f 006 001
0020740 ( S E T Q M A C R O ( C D
0020760 R ( A S S O C ( C A R C O
0021000 M M A N D ) \r
0021020
*
0021060 P R E T T Y D E F M A C R O S )
0021100 ) ) \r
0021120 006 002 t h e n 006 001 ( 006 002
0021140 f o r 006 001 C O M 006 002 i n 006 001
0021160 ( S U B P A I R ( C A R M
0021200 A C R O ) \r
0021220
0021240 (
0021260 P R E T T Y C O M 1 C O M M A
0021300 N D T T ) \r
0021320
*
0021360 ( C D R M A C R O ) ) 006 002
0021400 d o 006 001 ( 006 002 C O M M O N - F
0021420 I L E - C O M M A N D 006 001 C O
0021440 M ) ) \r
0021460 006 002 e l s e 006 001 ( H E L
0021500 P " C A N ' T H A N D L E "
0021520 ( C A R C O M M A N D ] ) \r
0021540 \r ( 006 004 C O M M O N - M A K E F
0021560 I L E 006 001 \r [ L A M B D A
0021600 ( F I L E D E B U G ) 006 006 006 001
0021620
*
0021660 006 006 ( * ; " E
0021700 d i t e d 1 1 - D e c - 8 7
0021720 1 3 : 2 5 b y D J V B " ) 006
0021740 001 \r \r ( P R O G ( ( *
0021760 P R I N T - S E M I C O L O N -
0022000 C O M M E N T S * ' A L L ) \r
0022020 ( * P R I
0022040 N T - A R R A Y * T ) \r
0022060 ( * P R I N T -
0022100 S T R U C T U R E * T ) \r
0022120 * * C O M M E
0022140 N T F L G * * F O N T C H A N
0022160 G E F L G * P R I N T - L E N
0022200 G T H * * P R I N T - L E V E
0022220 L * % # R P A R S ) \r
0022240 ( 006 002 D E C L A R E
0022260 006 001 ( S P E C V A R S * P R
0022300 I N T - S E M I C O L O N - C O
0022320 M M E N T S * * P R I N T - A
0022340 R R A Y * * P R I N T - S T R
0022360 U C T U R E * \r
0022400
0022420 * * C O M M E N T F L G *
0022440 * F O N T C H A N G E F L G
0022460 * P R I N T - L E N G T H * *
0022500 P R I N T - L E V E L * % # R
0022520 P A R S ) ) \r
0022540 ( R E T U R N ( P R O G [
0022560 ( * S T A N D A R D - O U T P U
0022600 T * ( O P E N S T R E A M (
0022620 P A C K F I L E N A M E ' E X
0022640 T E N S I O N ' L I S P ' B
0022660 O D Y F I L E ) \r
0022700
*
0022740 ' O U
0022760 T P U T ] \r
0023000 ( 006
0023020 002 D E C L A R E 006 001 ( S P E C
0023040 V A R S * S T A N D A R D - O
0023060 U T P U T * ) ) \r
0023100
0023120 ( R E T U R N ( C L : U N W
0023140 I N D - P R O T E C T ( P R O
0023160 G ( D A T E S F I L E I L N
0023200 A M E P K G N A M E B A S E
0023220 ( * P A C K A G E * \r
0023240
*
0023360 * P A C K A G E * ) \r
0023400
*
0023500 ( * P R I N T - B A S E * * P
0023520 R I N T - B A S E * ) \r
0023540
*
0023620 ( * R E
0023640 A D T A B L E * ( F I N D - R
0023660 E A D T A B L E " L I S P " )
0023700 ) \r
0023720
*
0024000 ) \r
0024020
*
0024060 ( 006 002
0024100 D E C L A R E 006 001 ( S P E C V
0024120 A R S * P A C K A G E * * P
0024140 R I N T - B A S E * \r
0024160
*
0024260 * R E A D T A B L E *
0024300 ) ) \r
0024320
*
0024360 ( S E T
0024400 Q D A T E S ( G E T P R O P
0024420 ( S E T Q F I L E I L N A M
0024440 E \r
0024460
*
0024560 ( C L : I N T E R N \r
0024600
*
0024700 ( S T R
0024720 I N G F I L E ) \r
0024740
*
0025040 " I L " ) )
0025060 \r
0025100
*
0025160 ' F I
0025200 L E D A T E S ) ) \r
0025220
*
0025300 ( S E T Q P K G N A M E
0025320 \r
0025340
*
0025400 ( O R (
0025420 L I S T G E T ( G E T P R O P
0025440 F I L E I L N A M E \r
0025460
*
0025560 ' M A K E F
0025600 I L E - E N V I R O N M E N T )
0025620 \r
0025640
*
0025720 : P A C K A G E ) \r
0025740
*
0026020 " U
0026040 S E R " ) ) \r
0026060
*
0026140 ( S E T Q B A S E ( O R (
0026160 L I S T G E T ( G E T P R O P
0026200 \r
0026220
*
0026320 F I L E I L N A M E \r
0026340
*
0026460 ' \r
0026500
*
0026600 M A K E F I L E - E N V I
0026620 R O N M E N T \r
0026640
*
0026740 ) \r
0026760
*
0027060 : B A S E
0027100 ) \r
0027120
*
0027200 1 0 ) ) \r
0027220
*
0027300 ( C L : F O R M
0027320 A T T \r
0027340
0027360 " ; ; ; - * -
0027400 M o d e : L I S P ; S y n t
0027420 a x : C o m m o n - l i s p ;
0027440 P a c k a g e : ~ A ; B a
0027460 s e : ~ A - * - " \r
0027500
*
0027560 P K G
0027600 N A M E B A S E ) \r
0027620
*
0027700 ( S E T Q * P A C K A
0027720 G E * ( C L : F I N D - P A C
0027740 K A G E P K G N A M E ) ) \r
0027760
*
0030040 ( S E T Q * P
0030060 R I N T - B A S E * B A S E )
0030100 \r
0030120
*
0030160 ( C L : F O
0030200 R M A T T \r
0030220
*
0030300 " ~ % % ; ; ; F i l e
0030320 c o n v e r t e d ~ A f r
0030340 o m s o u r c e ~ A " \r
0030360
*
0030440 ( D
0030460 A T E ) \r
0030500
*
0030560 F I L E ) \r
0030600
*
0030660 ( A N D D A T E S (
0030700 C L : F O R M A T T \r
0030720
*
0031000 " ~ &
0031020 ; ; ; O r i g i n a l s o u
0031040 r c e ~ A c r e a t e d ~
0031060 A " \r
0031100
*
0031160 ( C
0031200 D A R D A T E S ) \r
0031220
*
0031320 ( C A A R D A T E
0031340 S ) ) ) \r
0031360
*
0031420 ( 006
0031440 002 f o r 006 001 P \r
0031460
*
0031540 006 002 i n 006 001 ( L I S
0031560 T P ( G E T T O P V A L ( F
0031600 I L E C O M S F I L E ) ) ) \r
0031620
*
0031700 006 002 d o
0031720 006 001 ( 006 002 C O M M O N - F I L
0031740 E - C O M M A N D 006 001 P ) ) \r
0031760
*
0032040 ( R E T U R N
0032060 ( F U L L N A M E * S T A N
0032100 D A R D - O U T P U T * ) ) ) \r
0032120
*
0032160 ( C L O S E F *
0032200 S T A N D A R D - O U T P U T *
0032220 ] ) \r ) \r \r ( P U T P R O P S
0032240 006 002 C O M M O N - M A K E M A
0032260 K E F I L E - E N V I R O N M E
0032300 N T 006 001 ( : R E A D T A B L E
0032320 " I N T E R L I S P " : P A
0032340 C K A G E " I N T E R L I S P
0032360 " ) ) \r ( D E C L A R E % : D
0032400 O N T C O P Y \r \r ( A D D T O
0032420 V A R 006 002 E D I T H I S T A L
0032440 I S T 006 001 ( C O M M O N - M A
0032460 K E ( " 1 1 - D e c - 8 7 1
0032500 2 : 5 4 : 2 2 " D J V B { D
0032520 S K } < X A V I E R > C O M M O
0032540 N - M A K E . ; 1 \r
0032560
*
0032620 ( C O M M O N - F I
0032640 L E - C O M M A N D C O M M O
0032660 N - M A K E F I L E ) ) \r
0032700
0032720 ( " 1 1
0032740 - D e c - 8 7 1 3 : 3 5 : 3 5
0032760 " D J V B { D S K } < X A V
0033000 I E R > C O M M O N - M A K E .
0033020 ; 2 ( \r
0033040
*
0033140 C O M M O N - F I
0033160 L E - C O M M A N D \r
0033200
*
0033320 \r
0033340
*
0033440 C O M M O N -
0033460 M A K E F I L E \r
0033500
*
0033620 ) \r
0033640
0033660 ( G E T T I N G
0033700 D E T A I L S R I G H T ) )
0033720 \r
0033740
0033760 ( " 1 1 - D e c - 8 7 1 3 : 4
0034000 0 : 4 8 " D J V B { D S K }
0034020 < X A V I E R > C O M M O N - M
0034040 A K E . ; 3 ( \r
0034060
*
0034160 C O M M O
0034200 N - F I L E - C O M M A N D \r
0034220
*
0034340 ) ) \r
0034360
0034400 ( " 1 1 - D e c
0034420 - 8 7 1 4 : 0 9 : 0 4 " D J
0034440 V B { D S K } < X A V I E R >
0034460 C O M M O N - M A K E . ; 4 (
0034500 \r
0034520
*
0034620 C O M M O N - F I L E - C
0034640 O M M A N D \r
0034660
*
0034760 ) )
0035000 \r
0035020
0035040 ( " 1 1 - D e c - 8 7 1 4 : 4
0035060 8 : 4 4 " D J V B { D S K }
0035100 < X A V I E R > C O M M O N - M
0035120 A K E . ; 5 ( \r
0035140
*
0035240 C O M M O
0035260 N - F I L E - C O M M A N D \r
0035300
*
0035420 ) \r
0035440
0035460 ( F
0035500 I X E D F I L E C O M M E N
0035520 T S A N D C L : D E F V A R
0035540 E T A L ) ) ) ) \r ) \r ( P U
0035560 T P R O P S C O M M O N - M A
0035600 K E C O P Y R I G H T ( " U
0035620 n i s y s C o r p . " 1 9 8
0035640 7 ) ) \r ( D E C L A R E % : D
0035660 O N T C O P Y \r ( F I L E M
0035700 A P ( N I L ( 8 2 9 1 3 4
0035720 6 0 ( C O M M O N - F I L E -
0035740 C O M M A N D 8 3 9 . 9 0
0035760 5 5 ) ( C O M M O N - M A K E
0036000 F I L E 9 0 5 7 . 1 3 4 5
0036020 8 ) ) ) ) ) \r S T O P \r 377
0036035