$ od -c -N 50000 [phylum]<LISP>Lyric>Lispusers>COMPARESOURCES!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 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 3 - J a n - 8 7 1 5 : 0 0 : 3
0000140 2 " 006 004 { E R I S } < L I S P
0000160 U S E R S > L I S P C O R E > C
0000200 O M P A R E S O U R C E S . ; 7
0000220 006 001 2 6 0 3 5 \r \r
0000240 c h a n g e s t o % :
0000260 ( V A R S C O M P A R E S O U
0000300 R C E S C O M S ) \r
0000320 ( F
0000340 N S C O M P A R E S O U R C E
0000360 S ) \r \r p r e v i o
0000400 u s d a t e % : " 2 9 - D e
0000420 c - 8 6 1 2 : 4 6 : 4 4 " {
0000440 E R I S } < L I S P U S E R S >
0000460 L I S P C O R E > C O M P A R E
0000500 S O U R C E S . ; 6 ) \r \r \r ( *
0000520 " \r C o p y r i g h t ( c )
0000540 1 9 8 5 , 1 9 8 6 , 1 9 8
0000560 7 b y X e r o x C o r p o
0000600 r a t i o n . A l l r i g
0000620 h t s r e s e r v e d . \r " )
0000640 \r \r ( P R E T T Y C O M P R I N
0000660 T C O M P A R E S O U R C E S
0000700 C O M S ) \r \r ( R P A Q Q 006 002
0000720 C O M P A R E S O U R C E S C O
0000740 M S 006 001 \r ( ( F
0000760 N S C O M P A R E S O U R C E
0001000 S \ C S . C O M P A R E . M A
0001020 S T E R S \ C S . C O M P A R
0001040 E . T Y P E S \ C S . S O R T
0001060 . D E C L A R E S \ C S . S O
0001100 R T . D E C L A R E 1 \r
0001120 \ C S . F I
0001140 L T E R . G A R B A G E E Q L
0001160 D I F F E R E N C E ) \r
0001200 ( F N S \ C S . I S V
0001220 A R F O R M \ C S . C O M P A
0001240 R E . V A R S \ C S . I S M A
0001260 C R O F O R M \ C S . I S R E
0001300 C F O R M \ C S . I S C O U R
0001320 I E R F O R M \r
0001340 \ C S . I S T E M P
0001360 L A T E F O R M \ C S . C O M
0001400 P A R E . T E M P L A T E S \
0001420 C S . I S P R O P F O R M \ C
0001440 S . P R O P . N A M E \ C S .
0001460 C O M P A R E . P R O P S \r
0001500 \ C S .
0001520 I S A D D V A R F O R M \ C S
0001540 . C O M P A R E . A D D V A R S
0001560 \ C S . I S F P K G C O M F O
0001600 R M \ C S . C O M P A R E . F
0001620 P K G C O M S ) \r
0001640 ( V A R S C O M P A R E S O
0001660 U R C E T Y P E S D E F A U L
0001700 T . D E C L A R E . T A G S ) \r
0001720 ( D E C L A R E
0001740 % : E V A L @ C O M P I L E
0001760 D O N T C O P Y ( R E C O R D
0002000 S C S T Y P E ) \r
0002020 ( G L O B A L
0002040 V A R S C O M P A R E S O U R
0002060 C E T Y P E S C L I S P R E C
0002100 O R D T Y P E S M A C R O P R
0002120 O P S N O S P E L L F L G \r
0002140
0002160 D E F A U L T . D E
0002200 C L A R E . T A G S ) ) ) ) \r (
0002220 D E F I N E Q \r \r ( 006 004 C O M P
0002240 A R E S O U R C E S 006 001 \r [
0002260 L A M B D A ( F I L E X F I
0002300 L E Y E X A M I N E D W ?
0002320 L I S T S T R E A M ) 006 003 006 001
0002340 006 003
0002360 ( * ; " E d i t e d 1 3 -
0002400 J a n - 8 7 1 4 : 4 8 b y
0002420 b v m : " ) 006 001 \r \r 006 003 ( * ;
0002440 ; ; " C o m p a r e t w o
0002460 l i s p s o u r c e f i l e
0002500 s , r e p o r t i n g d i f
0002520 f e r e n c e s . " ) 006 001 \r \r
0002540 ( 006 002 D E C L A R E 006 001
0002560 ( S P E C V A R S F I L E X
0002600 F I L E Y E X A M I N E D I
0002620 F F E R E N C E S ) ) \r
0002640 ( P R O G ( D I F F E R E N C
0002660 E S B O D Y X B O D Y Y E
0002700 N V X E N V Y D E C L A R E
0002720 X D E C L A R E Y ) \r
0002740 [ S E T Q F I L E
0002760 X ( O R ( F I N D F I L E
0003000 F I L E X T ) \r
0003020
0003040 ( R E T U R N ( p r i n
0003060 t o u t L I S T S T R E A M
0003100 F I L E X " n o t f o u n
0003120 d " T ] \r
0003140 [ S E T Q F I L E Y ( O R
0003160 ( F I N D F I L E F I L E Y
0003200 T ) \r
0003220 ( R E
0003240 T U R N ( p r i n t o u t L
0003260 I S T S T R E A M F I L E Y
0003300 " n o t f o u n d " T ] \r
0003320 \r
0003340 006 003 ( * ; ; " R e
0003360 a d t h e t w o f i l e s
0003400 , t h r o w i n g o u t e
0003420 x t r a n e o u s f o r m s
0003440 & s u c h : " ) 006 001 \r \r
0003460 ( C L : M U L T I
0003500 P L E - V A L U E - S E T Q (
0003520 B O D Y X E N V X ) \r
0003540 ( R E
0003560 A D F I L E F I L E X ) ) \r
0003600 ( S E T Q B
0003620 O D Y X ( 006 002 \ C S . F I L T
0003640 E R . G A R B A G E 006 001 B O D
0003660 Y X ) ) \r (
0003700 C L : M U L T I P L E - V A L U
0003720 E - S E T Q ( B O D Y Y E N
0003740 V Y ) \r
0003760 ( R E A D F I L E F
0004000 I L E Y ) ) \r
0004020 ( S E T Q B O D Y Y ( 006 002
0004040 \ C S . F I L T E R . G A R B A
0004060 G E 006 001 B O D Y Y ) ) \r
0004100 ( p r i n t o u t
0004120 L I S T S T R E A M " C o m
0004140 p a r i n g " F I L E X "
0004160 d a t e d " ( G E T F I L
0004200 E I N F O F I L E X ' C R E
0004220 A T I O N D A T E ) \r
0004240 " a n
0004260 d " F I L E Y " d a t e
0004300 d " ( G E T F I L E I N F O
0004320 F I L E Y ' C R E A T I O N
0004340 D A T E ) \r
0004360 " : " T T ) \r
0004400 [ S E T Q
0004420 D E C L A R E X ( 006 002 f o r 006
0004440 001 E X P R 006 002 i n 006 001 B O
0004460 D Y X 006 002 c o l l e c t 006 001
0004500 E X P R 006 002 w h e n 006 001 ( E
0004520 Q ( C A R E X P R ) \r
0004540
*
0004620 '
0004640 D E C L A R E % : ] \r
0004660 ( S E T Q B O D Y X
0004700 ( 006 002 E Q L D I F F E R E N C
0004720 E 006 001 B O D Y X D E C L A R
0004740 E X ) ) \r [
0004760 S E T Q D E C L A R E Y ( 006
0005000 002 f o r 006 001 E X P R 006 002 i n
0005020 006 001 B O D Y Y 006 002 c o l l e
0005040 c t 006 001 E X P R 006 002 w h e n
0005060 006 001 ( E Q ( C A R E X P R
0005100 ) \r
0005120
*
0005200 ' D E C L A R E % : ] \r
0005220 ( S E T Q
0005240 B O D Y Y ( 006 002 E Q L D I F F
0005260 E R E N C E 006 001 B O D Y Y D
0005300 E C L A R E Y ) ) \r
0005320 ( W I T H - R E A D E R
0005340 - E N V I R O N M E N T ( O R
0005360 E N V X E N V Y ( M A K E
0005400 - R E A D E R - E N V I R O N M
0005420 E N T ) ) \r
0005440 ( 006 002 \ C S . C O
0005460 M P A R E . M A S T E R S 006 001
0005500 B O D Y X B O D Y Y D W ?
0005520 L I S T S T R E A M ) \r
0005540 \r
0005560 006 003 ( * ; ; " D o n e w
0005600 i t h t h e n o n - D E C L
0005620 A R E : e x p r e s s i o n s
0005640 . N o w s o r t w h a t
0005660 ' s l e f t a c c o r d i n
0005700 g t o w h e n i t i s
0005720 e v a l ' e d s o t h a t
0005740 w e c a n h o p e f u l l y
0005760 f u r t h e r r e d u c e
0006000 t h e a m o u n t o f s t
0006020 u f f t o c o m p a r e " )
0006040 006 001 \r \r
0006060 ( S E T Q B O D Y X
0006100 ( 006 002 \ C S . S O R T . D E C
0006120 L A R E S 006 001 D E C L A R E X
0006140 ) ) \r
0006160 ( S E T Q B O D Y Y
0006200 ( 006 002 \ C S . S O R T . D E C L
0006220 A R E S 006 001 D E C L A R E Y )
0006240 ) \r
0006260 [ S E T Q B O D Y X (
0006300 A P P E N D B O D Y X ( 006 002
0006320 f o r 006 001 Y 006 002 i n 006 001 B
0006340 O D Y Y 006 002 c o l l e c t 006 001
0006360 ( L I S T ( C A R Y ) ) \r
0006400
*
0006440 006 002
0006460 u n l e s s 006 001 ( S A S S O C
0006500 ( C A R Y ) \r
0006520
*
0006600 B O D Y X ] \r
0006620
*
0006700 006 003 ( * ;
0006720 \r 006 001
0006740 006 003 " A d d p l a c
0006760 e h o l d e r s f o r a n y
0007000 d e c l a r a t i o n t y p
0007020 e s i n Y n o t i n X
0007040 t o s i m p l i f y w h a
0007060 t f o l l o w s " ) 006 001 \r
0007100 [
0007120 006 002 f o r 006 001 X 006 002 i n 006 001
0007140 B O D Y X 006 002 b i n d 006 001
0007160 Y T Y P E 006 002 d o 006 001 ( S
0007200 E T Q Y ( S A S S O C ( C
0007220 A R X ) \r
0007240
*
0007320 B O D Y Y ) ) \r
0007340
*
0007400 ( S E
0007420 T Q T Y P E ( C A R X ) )
0007440 \r
0007460
*
0007520 [ S E T Q X ( L D I F F E
0007540 R E N C E ( C D R X ) \r
0007560
*
0007640 ( P R
0007660 O G 1 ( C D R Y ) \r
0007700
*
0010000 ( S E T Q Y ( L D I F F
0010020 E R E N C E \r
0010040
*
0010140 ( C D R Y ) \r
0010160
*
0010260 X ] \r
0010300
*
0010360 ( C O N D \r
0010400
*
0010440 ( ( O R X
0010460 Y ) \r
0010500
*
0010540 ( p r i n t o u t
0010560 L I S T S T R E A M T " -
0010600 - - - - - " \r
0010620
*
0010700 [ C O N S ' D E C L A R E
0010720 % : ( A P P E N D ( 006 002 E Q
0010740 L D I F F E R E N C E 006 001 \r
0010760
*
0011100 T Y P E \r
0011120
*
0011220 D E F A U L
0011240 T . D E C L A R E . T A G S \r
0011260
*
0011400 ) \r
0011420
*
0011520 ' ( - - ] \r
0011540
*
0011620 " f o r m
0011640 s - - - - - - " T ) \r
0011660
*
0011740 006 003 ( * ;
0011760 \r 006 001
0012000 006 003
0012020 " R E V E R S E b e c a u s e
0012040 \ C S . S O R T . D E C L A R
0012060 E S d e l i v e r e d e x p
0012100 r e s s i o n s i n r e v e
0012120 r s e o r d e r " ) 006 001 \r
0012140
*
0012220 ( 006 002 \ C S . C O M P A R E
0012240 . M A S T E R S 006 001 ( R E V E
0012260 R S E X ) \r
0012300
*
0012360 ( R E V E R S E Y ) \r
0012400
*
0012460 D W ? L I S
0012500 T S T R E A M ] \r
0012520 ( T E R P R
0012540 I L I S T S T R E A M ) ) \r
0012560 ( R E T U R N
0012600 ( R E V E R S E D I F F E R
0012620 E N C E S ] ) \r \r ( 006 004 \ C S .
0012640 C O M P A R E . M A S T E R S 006
0012660 001 \r [ L A M B D A ( B O D
0012700 Y X B O D Y Y D W ? L I S
0012720 T S T R E A M ) 006 003 006 001
0012740
0012760 006 003 ( * ; " E d i t e
0013000 d 2 9 - D e c - 8 6 1 1 : 5
0013020 1 b y j d s " ) 006 001 \r
0013040 ( L E T ( F N S X F N S Y
0013060 Y T H I N G X T H I N G P
0013100 R E D D I F S Y T M P ) \r
0013120 ( 006 002 D E C L
0013140 A R E 006 001 ( U S E D F R E E
0013160 D I F F E R E N C E S ) ) \r
0013200 [ S E T Q F N S
0013220 X ( 006 002 f o r 006 001 E X P R
0013240 006 002 i n 006 001 B O D Y X 006 002 c
0013260 o l l e c t 006 001 E X P R 006 002
0013300 w h e n 006 001 ( E Q ( C A R
0013320 E X P R ) \r
0013340
*
0013420 ' D E F I N E Q ] \r
0013440 ( S E T Q B O D Y
0013460 X ( 006 002 E Q L D I F F E R E N
0013500 C E 006 001 B O D Y X F N S X )
0013520 ) \r ( S E T Q
0013540 F N S X ( 006 002 f o r 006 001 B
0013560 O D 006 002 i n 006 001 F N S X 006
0013600 002 j o i n 006 001 ( C D R B O D
0013620 ) ) ) \r [ S E
0013640 T Q F N S Y ( 006 002 f o r 006 001
0013660 E X P R 006 002 i n 006 001 B O D
0013700 Y Y 006 002 c o l l e c t 006 001 E
0013720 X P R 006 002 w h e n 006 001 ( E Q
0013740 ( C A R E X P R ) \r
0013760
*
0014040 ' D E F I N E
0014060 Q ] \r ( S E T
0014100 Q B O D Y Y ( 006 002 E Q L D I
0014120 F F E R E N C E 006 001 B O D Y Y
0014140 F N S Y ) ) \r
0014160 ( S E T Q F N S Y ( 006 002 f
0014200 o r 006 001 B O D 006 002 i n 006 001
0014220 F N S Y 006 002 j o i n 006 001 ( C
0014240 D R B O D ) ) ) \r
0014260 [ C O N D \r
0014300 ( ( O R F N S X F
0014320 N S Y ) \r
0014340 ( p r i n t o u t L I S T
0014360 S T R E A M " - - - F u n c t
0014400 i o n s : " T ) \r
0014420 [ C O N D \r
0014440 ( D
0014460 W ? ( L E T ( ( N O S P E L
0014500 L F L G T ) ) \r
0014520
0014540 ( 006 002 D E C L A R E 006 001
0014560 ( S P E C V A R S N O S P E L
0014600 L F L G ) ) \r
0014620
0014640 ( 006 002 f o r 006 001 X 006 002 i n
0014660 006 001 F N S X 006 002 w h e n 006 001
0014700 ( S E T Q Y ( A S S O C
0014720 ( C A R X ) \r
0014740
*
0015020 F N S Y ) ) 006 002 d o
0015040 006 001 \r
0015060
*
0015140 006 003 ( * ; \r 006 001
0015160
*
0015220 006 003 " O n
0015240 l y b o t h e r d w i m i f
0015260 y i n g t h e o n e s t h
0015300 a t l o o k d i f f e r e n
0015320 t " ) 006 001 \r
0015340
*
0015420 ( D W
0015440 I M I F Y ( C A D R X ) \r
0015460
*
0015560 T ) \r
0015600
*
0015700 ( D W I M I F Y
0015720 ( C A D R Y ) \r
0015740
*
0016040 T ] \r
0016060 ( C O N D \r
0016100 ( ( S
0016120 E T Q D I F S ( 006 002 \ C S .
0016140 C O M P A R E . T Y P E S 006 001
0016160 F N S X F N S Y N I L [ F
0016200 U N C T I O N ( L A M B D A
0016220 ( X Y S T R E A M ) \r
0016240
*
0016340 ( C O M P A R E L I
0016360 S T S ( C A D R X ) \r
0016400
*
0016500 ( C A
0016520 D R Y ) \r
0016540
*
0016640 S T R E A M ] \r
0016660
*
0016720 ( F U N C T I O N C A R ) \r
0016740
*
0017000 L I S T S T R E A M ) ) \r
0017020
0017040 ( 006 002 p u s h 006 001 D I F F E
0017060 R E N C E S ( C O N S ' F N
0017100 S D I F S ] \r
0017120 [ 006 002 f o r 006 001 T Y P E 006
0017140 002 i n 006 001 F I L E P K G T Y P
0017160 E S 006 002 w h e n 006 001 ( A N D
0017200 ( C L : S Y M B O L P T Y P
0017220 E ) \r
0017240
*
0017300 ( G E T T Y P E ' D E F I N
0017320 E D - B Y ) ) \r
0017340 006 002 d o 006 001 \r
0017360 \r
0017400 006 003 ( * ; ; " h a n d l e
0017420 d e f i n e r b a s e d t
0017440 h i n g s " ) 006 001 \r \r
0017460 ( 006 002 f o r
0017500 006 001 D E F F E R 006 002 i n 006 001
0017520 ( G E T T Y P E ' D E F I
0017540 N E D - B Y ) \r
0017560 006 002 d o 006 001
0017600 ( S E T Q X T H I N G ( 006
0017620 002 f o r 006 001 X 006 002 i n 006 001
0017640 B O D Y X 006 002 c o l l e c t 006
0017660 001 X 006 002 w h e n 006 001 ( E Q
0017700 ( C A R X ) \r
0017720
*
0020000 D E
0020020 F F E R ) ) ) \r
0020040 ( S E
0020060 T Q Y T H I N G ( 006 002 f o r
0020100 006 001 X 006 002 i n 006 001 B O D Y
0020120 Y 006 002 c o l l e c t 006 001 X
0020140 006 002 w h e n 006 001 ( E Q ( C A
0020160 R X ) \r
0020200
*
0020260 D E F F E R
0020300 ) ) ) \r
0020320 ( S E T Q B
0020340 O D Y X ( 006 002 E Q L D I F F E
0020360 R E N C E 006 001 B O D Y X X T
0020400 H I N G ) ) \r
0020420 ( S E T
0020440 Q B O D Y Y ( 006 002 E Q L D I
0020460 F F E R E N C E 006 001 B O D Y Y
0020500 Y T H I N G ) ) \r
0020520 (
0020540 C O N D \r
0020560 ( ( S
0020600 E T Q D I F S ( 006 002 \ C S .
0020620 C O M P A R E . T Y P E S 006 001
0020640 X T H I N G Y T H I N G \r
0020660
*
0020720 ( C O N C A T
0020740 ( O R ( C L : D O C U M E N
0020760 T A T I O N T Y P E ' D E F
0021000 I N E - T Y P E S ) \r
0021020
*
0021100 T Y P E ) \r
0021120
*
0021160 " d e f i
0021200 n e d b y " D E F F E R )
0021220 \r
0021240
0021260 N I L \r
0021300
*
0021340 ( G E T
0021360 D E F F E R ' D E F I N I T I
0021400 O N - N A M E ) \r
0021420
*
0021460 L I S T S T R E A M ) )
0021500 \r
0021520 ( C O N D \r
0021540
0021560 ( ( S E
0021600 T Q T M P ( A S S O C T Y
0021620 P E D I F F E R E N C E S ) )
0021640 \r
0021660 ( N
0021700 C O N C T M P D I F S ) ) \r
0021720
0021740 ( T (
0021760 006 002 p u s h 006 001 D I F F E R E
0022000 N C E S ( C O N S T Y P E
0022020 D I F S ] \r [
0022040 006 002 f o r 006 001 T Y P E 006 002 i
0022060 n 006 001 C O M P A R E S O U R C
0022100 E T Y P E S \r
0022120 006 002 d o 006 001 ( S E T Q
0022140 P R E D ( 006 002 f e t c h 006 001
0022160 ( C S T Y P E P R E D F N )
0022200 006 002 o f 006 001 T Y P E ) ) \r
0022220 ( S E
0022240 T Q X T H I N G ( 006 002 f o r
0022260 006 001 X 006 002 i n 006 001 B O D Y
0022300 X 006 002 c o l l e c t 006 001 X
0022320 006 002 w h e n 006 001 ( C L : F U N
0022340 C A L L P R E D X ) ) ) \r
0022360 ( S
0022400 E T Q Y T H I N G ( 006 002 f o
0022420 r 006 001 X 006 002 i n 006 001 B O D
0022440 Y Y 006 002 c o l l e c t 006 001 X
0022460 006 002 w h e n 006 001 ( C L : F U
0022500 N C A L L P R E D X ) ) ) \r
0022520 (
0022540 S E T Q B O D Y X ( 006 002 E Q
0022560 L D I F F E R E N C E 006 001 B O
0022600 D Y X X T H I N G ) ) \r
0022620 ( S E T
0022640 Q B O D Y Y ( 006 002 E Q L D I
0022660 F F E R E N C E 006 001 B O D Y Y
0022700 Y T H I N G ) ) \r
0022720 ( C O N D \r
0022740
0022760 ( ( S E T Q D I F S ( 006 002
0023000 \ C S . C O M P A R E . T Y P E
0023020 S 006 001 X T H I N G Y T H I N
0023040 G \r
0023060
0023100 ( O R ( 006 002 f e
0023120 t c h 006 001 ( C S T Y P E T I
0023140 T L E ) 006 002 o f 006 001 T Y P E
0023160 ) \r
0023200
0023220 ( L - C A
0023240 S E ( M K S T R I N G ( 006 002
0023260 f e t c h 006 001 ( C S T Y P E
0023300 F P K G T Y P E ) 006 002 o f 006 001
0023320 T Y P E ) ) \r
0023340
*
0023400 T ) ) \r
0023420
*
0023460 ( 006 002 f e t c h 006 001 ( C S T
0023500 Y P E C O M P A R E F N ) 006
0023520 002 o f 006 001 T Y P E ) \r
0023540
*
0023600 ( O R ( 006 002 f e t c h 006 001
0023620 ( C S T Y P E I D F N ) 006 002
0023640 o f 006 001 T Y P E ) \r
0023660
*
0023720 ( F U N C T I O N C A
0023740 D R ) ) \r
0023760
0024000 L I S T S T
0024020 R E A M ) ) \r
0024040 ( S E T Q
0024060 T Y P E ( 006 002 f e t c h 006 001
0024100 ( C S T Y P E F P K G T Y P E
0024120 ) 006 002 o f 006 001 T Y P E ) ) \r
0024140
0024160 ( C O N D \r
0024200 (
0024220 ( S E T Q T M P ( A S S O C
0024240 T Y P E D I F F E R E N C E
0024260 S ) ) \r
0024300 ( N C O N
0024320 C T M P D I F S ) ) \r
0024340
0024360 ( T ( 006 002 p u s h 006 001
0024400 D I F F E R E N C E S ( C O N
0024420 S T Y P E D I F S ] \r
0024440 [ S E T Q B O D Y
0024460 Y ( L D I F F E R E N C E B
0024500 O D Y Y ( P R O G 1 B O D Y
0024520 X ( S E T Q B O D Y X ( L
0024540 D I F F E R E N C E B O D Y X
0024560 B O D Y Y ] \r
0024600 ( C O N D \r
0024620 ( ( O R B O D Y X B O
0024640 D Y Y ) \r
0024660 ( p r i n t o u t L I S T
0024700 S T R E A M T " - - - E x p
0024720 r e s s i o n s : " T ) \r
0024740 ( L E T
0024760 ( ( C O M M E N T X 0 ) \r
0025000
0025020 ( C O M M E N T Y 0 ) \r
0025040
0025060 E X T R A S )
0025100
0025120 006 003 ( *
0025140 ; " R e m o v e c o m m e n
0025160 t s " ) 006 001 \r
0025200 [ S E T Q B
0025220 O D Y X ( 006 002 f o r 006 001 X
0025240 006 002 i n 006 001 B O D Y X 006 002 c
0025260 o l l e c t 006 001 X 006 002 u n l
0025300 e s s 006 001 ( C O N D \r
0025320
*
0025400 ( (
0025420 E Q ( C A R X ) \r
0025440
*
0025540 C O M M E N T F L G ) \r
0025560
*
0025660 ( 006 002 a d d 006 001 C O M M E N
0025700 T X 1 ) \r
0025720
*
0026000 T ] \r
0026020 [ S
0026040 E T Q B O D Y Y ( 006 002 f o r
0026060 006 001 Y 006 002 i n 006 001 B O D Y
0026100 Y 006 002 c o l l e c t 006 001 Y
0026120 006 002 u n l e s s 006 001 ( C O N D
0026140 \r
0026160
*
0026240 ( ( E Q ( C A R Y ) \r
0026260
*
0026360 C O M M E N T F L
0026400 G ) \r
0026420
*
0026500 ( 006 002 a d d 006 001 C
0026520 O M M E N T Y 1 ) \r
0026540
*
0026620 T ]
0026640 \r
0026660 ( C O N D \r
0026700 ( (
0026720 O R ( N E Q C O M M E N T X
0026740 0 ) \r
0026760 ( N
0027000 E Q C O M M E N T Y 0 ) ) \r
0027020
0027040 ( p r i n t o u t
0027060 L I S T S T R E A M | . I 1 |
0027100 C O M M E N T X " c o m m
0027120 e n t s - > " | . I 1 |
0027140 C O M M E N T Y " c o m m e
0027160 n t s . " \r
0027200
0027220 T T ) ) ) \r
0027240 [ C O
0027260 N D \r
0027300 ( ( S E T Q E
0027320 X T R A S ( C O N D \r
0027340
*
0027400 ( B O D Y X ( C O N D \r
0027420
*
0027460 (
0027500 B O D Y Y ( C O M P A R E L I
0027520 S T S B O D Y X B O D Y Y
0027540 L I S T S T R E A M ) \r
0027560
*
0027640 N I L ) \r
0027660
*
0027720 ( T ( p r i n
0027740 t o u t L I S T S T R E A M
0027760 " T h e s e a r e n o t o
0030000 n " F I L E Y ) \r
0030020
*
0030060 B O
0030100 D Y X ) ) ) \r
0030120
0030140 ( B O
0030160 D Y Y ( p r i n t o u t L I
0030200 S T S T R E A M " T h e s e
0030220 a r e n o t o n " F I L
0030240 E X ) \r
0030260
*
0030320 B O D Y Y ) ) ) \r
0030340
0030360 ( p r i n t o u t L I S T S T
0030400 R E A M " : " T ) \r
0030420
0030440 ( 006 002 f o r 006 001 X 006 002 i
0030460 n 006 001 E X T R A S 006 002 d o 006
0030500 001 ( L V L P R I N T X L I
0030520 S T S T R E A M 2 3 ] \r
0030540
0030560 [ C O N D \r
0030600 ( ( A N D
0030620 ( O R B O D Y X B O D Y Y
0030640 ) \r
0030660 ( O R
0030700 ( E Q E X A M I N E T ) \r
0030720
0030740 (
0030760 E Q M E M B ' M I S C E X A
0031000 M I N E ) ) ) \r
0031020 ( E
0031040 D I T E ( L I S T B O D Y X
0031060 B O D Y Y ] \r
0031100 ( O R ( A
0031120 S S O C ' O t h e r D I F F
0031140 E R E N C E S ) \r
0031160 (
0031200 006 002 p u s h 006 001 D I F F E R E
0031220 N C E S ( L I S T ' O t h e
0031240 r ' - - ] ) \r \r ( 006 004 \ C S .
0031260 C O M P A R E . T Y P E S 006 001 \r
0031300 [ L A M B D A ( X T H I N
0031320 G Y T H I N G T I T L E C
0031340 O M P A R E F N I D F N L I
0031360 S T S T R E A M ) \r ( 006
0031400 002 D E C L A R E 006 001 ( U S E D
0031420 F R E E F I L E X F I L E Y
0031440 E X A M I N E ) ) 006 003 006 001
0031460 006
0031500 003 ( * ; " E d i t e d 2 9
0031520 - D e c - 8 6 1 1 : 4 9 b y
0031540 j d s " ) 006 001 \r \r 006 003 ( * ;
0031560 ; ; " C o m p a r e t h i n
0031600 g s u s i n g C O M P A R E
0031620 F N . D e l t a s - > L
0031640 I S T S T R E A M . " ) 006 001 \r \r
0031660 ( C O N D \r
0031700 ( ( A N D ( O R X T H I N
0031720 G Y T H I N G ) \r
0031740 ( P R O G N [ S
0031760 E T Q X T H I N G ( L D I F
0032000 F E R E N C E X T H I N G (
0032020 P R O G 1 Y T H I N G ( S E
0032040 T Q Y T H I N G ( L D I F F
0032060 E R E N C E Y T H I N G \r
0032100
*
0032220 X T H I N G ] \r
0032240
0032260 ( O R X T H I N G Y T H
0032300 I N G ) ) ) \r (
0032320 L E T ( X Y R E S U L T
0032340 N A M E ) \r
0032360 ( A N D T I T L E ( p
0032400 r i n t o u t L I S T S T R E
0032420 A M T " - - - " T I T L E
0032440 " : " T T ) ) \r
0032460 ( 006 002 f o r 006 001
0032500 T A I L 006 002 o n 006 001 X T H
0032520 I N G 006 002 d o 006 001 [ S E T Q
0032540 N A M E ( C L : F U N C A L
0032560 L I D F N ( S E T Q X (
0032600 C A R T A I L ] \r
0032620
0032640 [ C
0032660 O N D \r
0032700
0032720 [ [ N O T
0032740 ( S E T Q Y ( 006 002 f i n d
0032760 006 001 Y 006 002 i n 006 001 Y T H I
0033000 N G \r
0033020
*
0033060 006 002 s u c
0033100 h t h a t 006 001 ( E Q U A L (
0033120 C L : F U N C A L L I D F N
0033140 Y ) \r
0033160
*
0033240 N A M E ]
0033260 \r
0033300
0033320 ( p r i n t o
0033340 u t L I S T S T R E A M | .
0033360 P 2 | N A M E " i s n o
0033400 t o n " F I L E Y T ) \r
0033420
*
0033460 ( C O N D \r
0033500
*
0033540 ( ( O R ( E
0033560 Q E X A M I N E T ) \r
0033600
*
0033640 ( E Q
0033660 M E M B ' N E W E X A M I N
0033700 E ) ) \r
0033720
*
0033760 ( E D I T E X ] \r
0034000
*
0034040 ( T ( p r i n t o u t L I
0034060 S T S T R E A M | . P 2 | N
0034100 A M E " : " T ) \r
0034120
*
0034160 ( C O N D \r
0034200
*
0034240 ( C O M P A R
0034260 E F N ( C L : F U N C A L L
0034300 C O M P A R E F N X Y L I
0034320 S T S T R E A M ) ) \r
0034340
*
0034400 ( T ( C O M P
0034420 A R E L I S T S X Y L I S
0034440 T S T R E A M ) ) ) \r
0034460
*
0034520 ( T E R P R I L I S
0034540 T S T R E A M ) \r
0034560
*
0034620 [ C O N D \r
0034640
*
0034700 ( ( O R ( E Q E
0034720 X A M I N E T ) \r
0034740
*
0035000 ( E Q M
0035020 E M B ' O L D E X A M I N E
0035040 ) ) \r
0035060
*
0035120 ( E D I T E ( L I S T X
0035140 Y ] \r
0035160
0035200 ( R P
0035220 L A C A ( F M E M B Y Y T
0035240 H I N G ] \r
0035260
0035300 ( R P L A C
0035320 A T A I L ) \r
0035340
0035360 ( 006 002 p
0035400 u s h 006 001 R E S U L T N A M
0035420 E ) ) \r
0035440 ( 006 002 f o r 006 001 Y 006 002 i n
0035460 006 001 ( L D I F F E R E N C E
0035500 Y T H I N G X T H I N G ) 006
0035520 002 d o 006 001 ( p r i n t o u t
0035540 L I S T S T R E A M | . P 2 |
0035560 ( S E T Q N A M E \r
0035600
*
0035700 ( C
0035720 L : F U N C A L L I D F N Y
0035740 ) \r
0035760
*
0036060 ) \r
0036100
*
0036160 " i s n o t o n "
0036200 F I L E X T ) \r
0036220
*
0036300 ( C O N D \r
0036320
*
0036360 (
0036400 ( O R ( E Q E X A M I N E
0036420 T ) \r
0036440
*
0036520 ( E Q M E M B ' N E W E X
0036540 A M I N E ) ) \r
0036560
*
0036640 ( E D I T E Y ) ) ) \r
0036660
*
0036740 ( 006 002 p u s h 006 001 R E
0036760 S U L T N A M E ) ) \r
0037000 R E S U L T ]
0037020 ) \r \r ( 006 004 \ C S . S O R T . D
0037040 E C L A R E S 006 001 \r [ L A M
0037060 B D A ( D E C L S ) 006 003 006 001
0037100
*
0037140 006 003 ( *
0037160 b v m % : " 1 5 - N o v - 8 5
0037200 1 8 : 5 8 " ) 006 001 \r \r 006 003 ( *
0037220 ; ; ; " S o r t s D E C L
0037240 S , a l i s t o f ( D E
0037260 C L A R E : - - ) e x p r e
0037300 s s i o n s , i n t o a s
0037320 e t o f d e c l a r a t i o
0037340 n s b y t a g , r e t u r
0037360 n i n g a l i s t o f e
0037400 n t r i e s o f t h e f o
0037420 r m ( t a g s . e x p r
0037440 e s s i o n s ) " ) 006 001 \r \r
0037460 ( L E T ( R E S U L T ) \r
0037500 ( 006 002 D E C L
0037520 A R E 006 001 ( S P E C V A R S
0037540 R E S U L T ) ) \r
0037560 ( 006 002 f o r 006 001 D E C 006
0037600 002 i n 006 001 D E C L S 006 002 d o
0037620 006 001 ( 006 002 \ C S . S O R T . D
0037640 E C L A R E 1 006 001 D E C D E
0037660 F A U L T . D E C L A R E . T A
0037700 G S ) ) \r R E
0037720 S U L T ] ) \r \r ( 006 004 \ C S . S
0037740 O R T . D E C L A R E 1 006 001 \r
0037760 [ L A M B D A ( D E C T A
0040000 G L S T ) 006 003 006 001
0040020
*
0040060 006 003 ( * b v m % : " 1 5 - N
0040100 o v - 8 5 1 9 : 0 9 " ) 006 001 \r
0040120 ( 006 002 D E C L A R E 006 001
0040140 ( U S E D F R E E R E S U L
0040160 T ) ) \r \r 006 003 ( * ; ; ; " P
0040200 r o c e s s o n e D E C L A
0040220 R E : e x p r e s s i o n ,
0040240 p a r t i t i o n i n g i t
0040260 i n t o s u b d e c l a r a t
0040300 i o n s p u t o n R E S U
0040320 L T a s s u m i n g t h a t
0040340 t h e d e f a u l t t a g
0040360 s i n e f f e c t b y t
0040400 h e t i m e y o u g e t
0040420 h e r e a r e i n T A G L
0040440 S T " ) 006 001 \r \r ( 006 002 f
0040460 o r 006 001 T A I L 006 002 o n 006 001
0040500 ( C D R D E C ) 006 002 b i n
0040520 d 006 001 C U R R E N T T A G
0040540 C O M P L E M E N T \r
0040560 006 002 d o 006 001 ( C O N D \r
0040600 [ ( N L
0040620 I S T P ( S E T Q T A G (
0040640 C A R T A I L ) ) )
0040660 006 003 ( *
0040700 ; " C a n o n i c a l i z e
0040720 t a g " ) 006 001 \r
0040740 ( S E L E C T Q
0040760 T A G \r
0041000 ( D O E V A L @ L O
0041020 A D ( S E T Q Q T A G E V
0041040 A L @ L O A D ) ) \r
0041060 ( D O E
0041100 V A L @ C O M P I L E \r
0041120
0041140 ( S E T Q Q T A G E
0041160 V A L @ C O M P I L E ) ) \r
0041200
0041220 ( D O C O P Y ( S E T Q Q T
0041240 A G C O P Y ) ) \r
0041260 N I L )
0041300 \r (
0041320 C O N D \r
0041340 ( ( N O T ( M E M
0041360 B T A G T A G L S T ) ) \r
0041400
0041420 [ S E T Q T A G L S T ( C
0041440 O N D \r
0041460
0041500 [ ( S T R P O S '
0041520 W H E N T A G )
0041540 006 003 ( * ; " T h e s e t
0041560 a k e a n e x t r a e x p
0041600 r e s s i o n " ) 006 001 \r
0041620
0041640 (
0041660 A P P E N D T A G L S T ( L
0041700 I S T T A G ( C A R ( S E
0041720 T Q T A I L ( C D R T A I
0041740 L ] \r
0041760
0042000 ( ( F M E M B ( S E
0042020 T Q C O M P L E M E N T ( S
0042040 E L E C T Q T A G \r
0042060
*
0042140 ( C O P Y
0042160 ' D O N T C O P Y ) \r
0042200
*
0042260 ( D O N T C
0042300 O P Y ' C O P Y ) \r
0042320
*
0042400 ( E V A L @
0042420 C O M P I L E ' D O N T E V A
0042440 L @ C O M P I L E ) \r
0042460
*
0042540 ( D O N T E
0042560 V A L @ C O M P I L E \r
0042600
*
0042700 ' E V A L @ C O M P I L E ) \r
0042720
*
0043000 (
0043020 E V A L @ L O A D ' D O N T E
0043040 V A L @ L O A D ) \r
0043060
*
0043140 ( D O N T E V
0043160 A L @ L O A D ' E V A L @ L O
0043200 A D ) \r
0043220
*
0043300 ( F I R S T ' N O T F I
0043320 R S T ) \r
0043340
*
0043420 ( N O T F I R S T ' F
0043440 I R S T ) \r
0043460
*
0043540 N I L ) ) \r
0043560
*
0043620 T A G L S T ) \r
0043640
*
0043700 ( S U B S T T A G C O M P L
0043720 E M E N T T A G L S T ) ) \r
0043740
*
0044000 ( T ( A P P E N D T A G L
0044020 S T ( L I S T T A G ] \r
0044040
0044060 ( S E T Q C U R R E N T N I
0044100 L ] \r
0044120 ( ( E Q ( C A R T A G ) \r
0044140
0044160 ' D E C L A R E % : )
0044200
0044220 006 003 ( *
0044240 ; " P r o c e s s e m b e
0044260 d d e d d e c l a r a t i o n
0044300 " ) 006 001 \r
0044320 ( 006 002 \ C S . S O R T . D
0044340 E C L A R E 1 006 001 T A G T A
0044360 G L S T ) ) \r
0044400 ( T
0044420
*
0044460 006 003 ( * ; \r 006 001
0044500
0044520 006 003 " S t i c k
0044540 t h i s e x p r e s s i o n
0044560 o n t h e e n t r y f o
0044600 r t h e t a g s t h a t
0044620 t e l l w h e n t o e v a
0044640 l i t " ) 006 001 \r
0044660 [ C O N D \r
0044700
0044720 ( [ A N D ( N O T C U R
0044740 R E N T ) \r
0044760 (
0045000 N O T ( S E T Q C U R R E N
0045020 T ( S A S S O C T A G L S T
0045040 R E S U L T ] \r
0045060 ( S E
0045100 T Q R E S U L T ( N C O N C
0045120 1 R E S U L T ( S E T Q C
0045140 U R R E N T ( L I S T T A G
0045160 L S T ] \r
0045200 ( 006 002 p u s h 006 001 (
0045220 C D R C U R R E N T ) \r
0045240
0045260 T A G ] ) \r \r ( 006 004 \ C S
0045300 . F I L T E R . G A R B A G E 006
0045320 001 \r [ L A M B D A ( F I L
0045340 E C O N T E N T S ) 006 003 006 001
0045360
*
0045420 006 003 ( * ; " E d i t e
0045440 d 2 9 - D e c - 8 6 1 0 : 4
0045460 4 b y j d s " ) 006 001 \r \r 006 003
0045500 ( * ; ; ; " R e m o v e %
0045520 " U n i n t e r e s t i n g % "
0045540 i t e m s f r o m f i l e
0045560 s t o b e c o m p a r e d
0045600 . R e m o v e s F I L E C
0045620 R E A T E D f o r m , f i l
0045640 e m a p , c o p y r i g h t
0045660 n o t i c e , a n d D E C L
0045700 A R E : D O N T C O P Y i t
0045720 e m s . " ) 006 001 \r \r ( 006
0045740 002 f o r 006 001 X 006 002 i n 006 001
0045760 F I L E C O N T E N T S 006 002 c
0046000 o l l e c t 006 001 X 006 002 u n l
0046020 e s s 006 001 ( O R ( E Q ( C
0046040 A R X ) \r
0046060
*
0046120 ' F I L E C
0046140 R E A T E D ) \r
0046160
*
0046220 ( A N D ( E Q
0046240 ( C A R X ) \r
0046260
*
0046340 ' D E C L A R E % : ) \r
0046360
*
0046440 ( E Q ( C A D R X ) \r
0046460
*
0046540 ' D O N T C O
0046560 P Y ) \r
0046600
*
0046640 ( L I S T P
0046660 ( C A D D R X ) ) \r
0046700
*
0046760 ( O R ( F M E M B ' C O P Y
0047000 R I G H T ( C A D D R X ) )
0047020 \r
0047040
*
0047100 ( F M E M B
0047120 ' F I L E M A P ( C A D D R
0047140 X ] ) \r \r ( 006 004 E Q L D I F F
0047160 E R E N C E 006 001 \r [ L A M B
0047200 D A ( X Y ) 006 003 006 001
0047220
*
0047260 006 003 ( * b
0047300 v m % : " 1 3 - M a r - 8 6
0047320 1 7 : 0 5 " ) 006 001 \r \r 006 003 ( *
0047340 ; ; ; " C o l l e c t m e m
0047360 b e r s o f X n o t o n
0047400 Y . L i k e L D I F F E
0047420 R E N C E b u t u s e s E
0047440 Q t e s t " ) 006 001 \r \r
0047460 ( 006 002 f o r 006 001 E 006 002 i n 006
0047500 001 X 006 002 c o l l e c t 006 001
0047520 E 006 002 u n l e s s 006 001 ( M E
0047540 M B E Y ] ) \r ) \r ( D E F I
0047560 N E Q \r \r ( 006 004 \ C S . I S V A
0047600 R F O R M 006 001 \r [ L A M B D
0047620 A ( X ) 006 003 006 001
0047640
*
0047700 006 003 ( * b v
0047720 m % : " 2 5 - S e p - 8 5 1
0047740 2 : 0 5 " ) 006 001 \r ( S E
0047760 L E C T Q ( C A R X ) \r
0050000 ( ( R P A Q R P A
0050020 Q Q R P A Q ? ) \r
0050040 T ) \r
0050060 N I L ] ) \r \r ( 006 004 \ C S
0050100 . C O M P A R E . V A R S 006 001 \r
0050120 [ L A M B D A ( X Y S
0050140 T R E A M ) 006 003 006 001
0050160
*
0050220 006 003 ( * ; " E d i t e d
0050240 2 9 - D e c - 8 6 1 2 : 1 5
0050260 b y j d s " ) 006 001 \r \r 006 003 ( *
0050300 ; ; ; " C o m p a r e s t
0050320 w o v a r i a b l e s e t t
0050340 i n g f o r m s " ) 006 001 \r \r
0050360 ( C O N D \r
0050400 ( ( E Q ( C A R X ) \r
0050420 ( C A R Y )
0050440 )
0050460
0050500 006 003 ( * ;
0050520 " S a m e t y p e o f s
0050540 e t t i n g f n " ) 006 001 \r
0050560 ( C O M P A R E L I
0050600 S T S ( C A D D R X ) \r
0050620 ( C A
0050640 D D R Y ) \r
0050660 S T R E A M ) ) \r
0050700 ( T ( L E T [ [
0050720 X V A L ( C O N D \r
0050740
0050760 ( ( E Q ( C A R X )
0051000 \r
0051020 '
0051040 R P A Q Q ) \r
0051060
0051100 ( K W O T E ( C A D D R X
0051120 ) ) ) \r
0051140 ( T
0051160 ( C A D D R X ] \r
0051200 ( Y V A L
0051220 ( C O N D \r
0051240 (
0051260 ( E Q ( C A R Y ) \r
0051300
0051320 ' R P A Q Q
0051340 ) \r
0051360 ( K W O
0051400 T E ( C A D D R Y ) ) ) \r
0051420
0051440 ( T ( C A D D
0051460 R Y ] \r
0051500 ( C O N D \r
0051520 ( ( E Q
0051540 U A L X V A L Y V A L )
0051560
0051600 006 003 ( * ; " S
0051620 a m e v a l u e , d i f f e
0051640 r e n t s e t t e r " ) 006 001 \r
0051660
0051700 ( p r i n t o u t S T R
0051720 E A M ( C O N D \r
0051740
*
0052000 ( ( E Q ( C A R X ) \r
0052020
*
0052060 ' R P A Q ?
0052100 ) \r
0052120
0052140 ' I N I T V
0052160 A R S ) \r
0052200
0052220 ( T '
0052240 V A R S ) ) \r
0052260
0052300 " - > " \r
0052320
0052340 ( C O N D \r
0052360
0052400 ( ( E Q ( C A R Y
0052420 ) \r
0052440
0052460 ' R P A Q ? ) \r
0052500
0052520 ' I N I T V
0052540 A R S ) \r
0052560
0052600 ( T ' V A R S ) ) \r
0052620
0052640 T ) ) \r
0052660 ( T
0052700 ( C O M P A R E L I S T S X V
0052720 A L Y V A L S T R E A M ] )
0052740 \r \r ( 006 004 \ C S . I S M A C R O
0052760 F O R M 006 001 \r [ L A M B D A
0053000 ( X ) 006 003 006 001
0053020
*
0053060 006 003 ( * b v m
0053100 % : " 2 5 - S e p - 8 5 1 2
0053120 : 1 9 " ) 006 001 \r ( S E L
0053140 E C T Q ( C A R X ) \r
0053160 ( D E F M A C R O T
0053200 ) \r ( P U T P R
0053220 O P S ( F M E M B ( C A D D
0053240 R X ) \r
0053260 M A
0053300 C R O P R O P S ) ) \r
0053320 N I L ] ) \r \r ( 006 004 \ C S
0053340 . I S R E C F O R M 006 001 \r [
0053360 L A M B D A ( X ) 006 003 006 001
0053400
*
0053440 006 003
0053460 ( * b v m % : " 2 5 - S e p
0053500 - 8 5 1 2 : 2 0 " ) 006 001 \r
0053520 ( F M E M B ( C A R X )
0053540 \r C L I S
0053560 P R E C O R D T Y P E S ] ) \r \r
0053600 ( 006 004 \ C S . I S C O U R I E R
0053620 F O R M 006 001 \r [ L A M B D A
0053640 ( X ) 006 003 006 001
0053660
*
0053720 006 003 ( * b v m
0053740 % : " 1 3 - M a r - 8 6 1 6
0053760 : 2 1 " ) 006 001 \r ( E Q
0054000 ( C A R X ) \r
0054020 ' C O U R I E R P R O G R A M ]
0054040 ) \r \r ( 006 004 \ C S . I S T E M P
0054060 L A T E F O R M 006 001 \r [ L A
0054100 M B D A ( X ) 006 003 006 001
0054120
*
0054160 006 003 ( *
0054200 b v m % : " 1 3 - M a r - 8
0054220 6 1 6 : 2 0 " ) 006 001 \r
0054240 ( E Q ( C A R X ) \r
0054260 ' S E T T E M P L A T E
0054300 ] ) \r \r ( 006 004 \ C S . C O M P A
0054320 R E . T E M P L A T E S 006 001 \r
0054340 [ L A M B D A ( X Y S T
0054360 R E A M ) 006 003 006 001
0054400
*
0054440 006 003 ( * ; " E d i t e d 2
0054460 9 - D e c - 8 6 1 2 : 1 5 b
0054500 y j d s " ) 006 001 \r \r 006 003 ( *
0054520 ; ; ; " T e m p l a t e s u
0054540 s u a l l y l o o k l i k e
0054560 ( S E T T E M P L A T E ( Q
0054600 U O T E F N ) ( Q U O T E
0054620 T E M P L A T E ) ) " ) 006 001 \r \r
0054640 ( C O N D \r
0054660 ( ( A N D ( E Q U A L ( C
0054700 A D R X ) \r
0054720 ( C A D R
0054740 Y ) ) \r
0054760 ( E Q ( C A R ( C A D D
0055000 R X ) ) \r
0055020 ' Q U O T E ) \r
0055040 ( E Q
0055060 ( C A R ( C A D D R Y ) ) \r
0055100
0055120 ' Q U O T E ) ) \r
0055140 ( C O M P A R E L I S T S
0055160 ( C A D R ( C A D D R X ) )
0055200 \r
0055220 ( C A D R ( C A D D R Y ) )
0055240 \r
0055260 S T R E A M ) ) \r
0055300 ( T ( C O M P A R E L I S T S
0055320 X Y S T R E A M ] ) \r \r (
0055340 006 004 \ C S . I S P R O P F O R M
0055360 006 001 \r [ L A M B D A ( X )
0055400 006 003 006 001
0055420
*
0055460 006 003 ( * b v m % : "
0055500 1 3 - M a r - 8 6 1 6 : 3 4 "
0055520 ) 006 001 \r \r 006 003 ( * ; ; ; " (
0055540 P U T P R O P S S Y M B O L
0055560 P R O P V A L U E ) " ) 006 001 \r
0055600 \r ( A N D ( E Q ( C
0055620 A R X ) \r
0055640 ' P U T P R O P S ) \r
0055660 ( N U L L ( C D
0055700 D D D R X ] ) \r \r ( 006 004 \ C S
0055720 . P R O P . N A M E 006 001 \r [
0055740 L A M B D A ( X ) 006 003 006 001
0055760
*
0056020 006 003
0056040 ( * b v m % : " 1 3 - M a r
0056060 - 8 6 1 6 : 2 9 " ) 006 001 \r \r 006
0056100 003 ( * ; ; ; " T h e ' N a
0056120 m e ' o f a p r o p e r t
0056140 y i s i t s a t o m / v a
0056160 l u e p a i r " ) 006 001 \r \r
0056200 ( L I S T ( C A D R X )
0056220 \r ( C A D D
0056240 R X ] ) \r \r ( 006 004 \ C S . C O
0056260 M P A R E . P R O P S 006 001 \r
0056300 [ L A M B D A ( X Y S T R
0056320 E A M ) 006 003 006 001
0056340
0056360 006
0056400 003 ( * ; " E d i t e d 2 9
0056420 - D e c - 8 6 1 2 : 1 5 b y
0056440 j d s " ) 006 001 \r \r 006 003 ( * ;
0056460 ; ; " C o m p a r e t h e
0056500 v a l u e s " ) 006 001 \r \r
0056520 ( C O M P A R E L I S T S ( C
0056540 A D D D R X ) \r
0056560 ( C A D D D R Y ) \r
0056600 S T R E A M
0056620 ] ) \r \r ( 006 004 \ C S . I S A D D
0056640 V A R F O R M 006 001 \r [ L A M
0056660 B D A ( X ) 006 003 006 001
0056700
*
0056740 006 003 ( *
0056760 b v m % : " 1 3 - M a r - 8 6
0057000 1 6 : 4 0 " ) 006 001 \r (
0057020 E Q ( C A R X ) \r
0057040 ' A D D T O V A R ] ) \r \r
0057060 ( 006 004 \ C S . C O M P A R E . A
0057100 D D V A R S 006 001 \r [ L A M B
0057120 D A ( X Y S T R E A M ) 006
0057140 003 006 001
0057160
0057200 006 003 ( * ;
0057220 " E d i t e d 2 9 - D e c -
0057240 8 6 1 2 : 1 5 b y j d s "
0057260 ) 006 001 \r \r 006 003 ( * ; ; ; " (
0057300 A D D T O V A R L i s t N a m
0057320 e . v a l u e s ) " ) 006 001 \r
0057340 \r ( C O M P A R E L I S
0057360 T S ( C D D R X ) \r
0057400 ( C D D R Y ) \r
0057420 S T R E A
0057440 M ] ) \r \r ( 006 004 \ C S . I S F P
0057460 K G C O M F O R M 006 001 \r [ L
0057500 A M B D A ( X ) 006 003 006 001
0057520
*
0057560 006 003 (
0057600 * b v m % : " 1 3 - M a r -
0057620 8 6 1 6 : 5 0 " ) 006 001 \r
0057640 \r
0057660 006 003 ( * * ( P U T D E F
0057700 ( Q U O T E n a m e ) ( Q
0057720 U O T E F I L E P K G C O M S
0057740 ) \r 006 001 006 003
0057760 ( Q U O T E s t u f f ) ) ) 006
0060000 001 \r \r ( A N D ( E Q
0060020 ( C A R X ) \r
0060040 ' P U T D E F ) \r
0060060 ( E Q U A L ( C
0060100 A D D R X ) \r
0060120 ' ' F I L E P K
0060140 G C O M S ] ) \r \r ( 006 004 \ C S .
0060160 C O M P A R E . F P K G C O M S
0060200 006 001 \r [ L A M B D A ( X
0060220 Y S T R E A M ) 006 003 006 001
0060240
*
0060300 006 003 ( * ; " E d i t
0060320 e d 2 9 - D e c - 8 6 1 2 :
0060340 1 6 b y j d s " ) 006 001 \r
0060360 \r
0060400 006 003 ( * * ( P U T D E
0060420 F ( Q U O T E n a m e ) (
0060440 Q U O T E F I L E P K G C O M
0060460 S ) \r 006 001 006
0060500 003 ( Q U O T E s t u f f ) ) )
0060520 006 001 \r \r ( C O M P A R E
0060540 L I S T S ( C A D R ( C A D
0060560 D D R X ) ) \r
0060600 ( C A D R ( C A D D D R
0060620 Y ) ) \r
0060640 S T R E A M ] ) \r ) \r \r ( R P A
0060660 Q Q 006 002 C O M P A R E S O U R
0060700 C E T Y P E S 006 001 ( ( V A R S
0060720 \ C S . I S V A R F O R M \
0060740 C S . C O M P A R E . V A R S )
0060760 \r
0061000 ( M A C
0061020 R O S \ C S . I S M A C R O F
0061040 O R M ) \r
0061060
0061100 ( R E C O R D S \ C S . I S R
0061120 E C F O R M ) \r
0061140
0061160 ( P R O P S \ C S . I S
0061200 P R O P F O R M \ C S . C O M
0061220 P A R E . P R O P S \ C S . P
0061240 R O P . N A M E " P r o p e r
0061260 t i e s " ) \r
0061300
0061320 ( A D D V A R S \ C S . I
0061340 S A D D V A R F O R M \ C S .
0061360 C O M P A R E . A D D V A R S
0061400 C A D R " A d d i t i o n s
0061420 t o l i s t s " ) \r
0061440
0061460 ( T E M P L A T E S
0061500 \ C S . I S T E M P L A T E F
0061520 O R M \ C S . C O M P A R E .
0061540 T E M P L A T E S C A D A D R
0061560 ) \r
0061600 ( C O
0061620 U R I E R P R O G R A M S \ C
0061640 S . I S C O U R I E R F O R M )
0061660 \r
0061700 ( F I L
0061720 E P K G C O M S \ C S . I S F
0061740 P K G C O M F O R M \ C S . C
0061760 O M P A R E . F P K G C O M S
0062000 C A D A D R ) ) ) \r \r ( R P A Q
0062020 Q 006 002 D E F A U L T . D E C L
0062040 A R E . T A G S 006 001 ( E V A L
0062060 @ L O A D D O N T E V A L @ C
0062100 O M P I L E C O P Y N O T F
0062120 I R S T ) ) \r ( D E C L A R E %
0062140 : E V A L @ C O M P I L E D
0062160 O N T C O P Y \r ( D E C L A R
0062200 E % : E V A L @ C O M P I L E
0062220 \r \r ( R E C O R D 006 002 C S T Y
0062240 P E 006 001 ( F P K G T Y P E P
0062260 R E D F N C O M P A R E F N
0062300 I D F N T I T L E ) ) \r ) \r \r
0062320 ( D E C L A R E % : D O E V A
0062340 L @ C O M P I L E D O N T C O
0062360 P Y \r \r ( G L O B A L V A R S
0062400 C O M P A R E S O U R C E T Y P
0062420 E S C L I S P R E C O R D T Y
0062440 P E S M A C R O P R O P S N
0062460 O S P E L L F L G D E F A U L
0062500 T . D E C L A R E . T A G S ) \r
0062520 ) \r ) \r ( P U T P R O P S C O
0062540 M P A R E S O U R C E S C O P
0062560 Y R I G H T ( " X e r o x C
0062600 o r p o r a t i o n " 1 9 8 5
0062620 1 9 8 6 1 9 8 7 ) ) \r ( D E
0062640 C L A R E % : D O N T C O P Y
0062660 \r ( F I L E M A P ( N I L
0062700 ( 1 1 6 7 2 0 3 3 0 ( C O
0062720 M P A R E S O U R C E S 1 1 7
0062740 7 . 5 5 2 7 ) ( \ C S . C
0062760 O M P A R E . M A S T E R S 5
0063000 5 2 9 . 1 2 9 6 7 ) ( \r \
0063020 C S . C O M P A R E . T Y P E S
0063040 1 2 9 6 9 . 1 5 8 8 9 )
0063060 ( \ C S . S O R T . D E C L A R
0063100 E S 1 5 8 9 1 . 1 6 3 4 2
0063120 ) ( \ C S . S O R T . D E C L
0063140 A R E 1 1 6 3 4 4 . 1 9 1
0063160 2 8 ) ( \r \ C S . F I L T E R
0063200 . G A R B A G E 1 9 1 3 0 .
0063220 2 0 0 6 8 ) ( E Q L D I F F
0063240 E R E N C E 2 0 0 7 0 . 2
0063260 0 3 2 8 ) ) ( 2 0 3 3 1 2 5
0063300 0 0 2 ( \ C S . I S V A R F O
0063320 R M 2 0 3 4 1 . \r 2 0 5 3
0063340 6 ) ( \ C S . C O M P A R E .
0063360 V A R S 2 0 5 3 8 . 2 1 9
0063400 8 4 ) ( \ C S . I S M A C R O
0063420 F O R M 2 1 9 8 6 . 2 2 2
0063440 3 2 ) ( \ C S . I S R E C F O
0063460 R M 2 2 2 3 4 . 2 2 3 9 8
0063500 ) \r ( \ C S . I S C O U R I E
0063520 R F O R M 2 2 4 0 0 . 2 2
0063540 5 6 1 ) ( \ C S . I S T E M P
0063560 L A T E F O R M 2 2 5 6 3 .
0063600 2 2 7 2 2 ) ( \ C S . C O M
0063620 P A R E . T E M P L A T E S 2
0063640 2 7 2 4 . \r 2 3 2 6 1 ) (
0063660 \ C S . I S P R O P F O R M 2
0063700 3 2 6 3 . 2 3 4 9 6 ) ( \
0063720 C S . P R O P . N A M E 2 3 4
0063740 9 8 . 2 3 7 1 7 ) ( \ C S
0063760 . C O M P A R E . P R O P S 2
0064000 3 7 1 9 . 2 3 9 5 4 ) \r (
0064020 \ C S . I S A D D V A R F O R M
0064040 2 3 9 5 6 . 2 4 1 1 0 )
0064060 ( \ C S . C O M P A R E . A D D
0064100 V A R S 2 4 1 1 2 . 2 4 3
0064120 5 5 ) ( \ C S . I S F P K G C
0064140 O M F O R M 2 4 3 5 7 . 2
0064160 4 6 7 9 ) \r ( \ C S . C O M P
0064200 A R E . F P K G C O M S 2 4 6
0064220 8 1 . 2 5 0 0 0 ) ) ) ) ) \r
0064240 S T O P \r
0064245