$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>MSANALYZE!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 P A C K A G E " I N T E
0000040 R L I S P " 247 R E A D T A B L
0000060 E " I N T E R L I S P " 247 B
0000100 A S E 1 0 ) \r 006 001 ( F I L E C
0000120 R E A T E D " 4 - D e c - 8
0000140 6 1 7 : 0 0 : 5 6 " 006 004 { E
0000160 R I S } < L I S P C O R E > S O
0000200 U R C E S > M S A N A L Y Z E .
0000220 ; 1 1 006 001 4 9 8 7 2 \r \r
0000240 c h a n g e s t o %
0000260 : ( V A R S M S M A C R O
0000300 P R O P S ) \r \r p r
0000320 e v i o u s d a t e % : " 1
0000340 5 - N o v - 8 6 0 0 : 3 5 : 3
0000360 3 " { E R I S } < L I S P C O
0000400 R E > S O U R C E S > M S A N A
0000420 L Y Z E . ; 1 0 ) \r \r \r ( * "
0000440 \r C o p y r i g h t ( c ) 1
0000460 9 8 2 , 1 9 8 3 , 1 9 8 4 ,
0000500 1 9 8 5 , 1 9 8 6 b y X
0000520 e r o x C o r p o r a t i o n
0000540 . A l l r i g h t s r e
0000560 s e r v e d . \r T h e f o l l
0000600 o w i n g p r o g r a m w a
0000620 s c r e a t e d i n 1 9 8
0000640 2 b u t h a s n o t b e
0000660 e n p u b l i s h e d \r w i t
0000700 h i n t h e m e a n i n g
0000720 o f t h e c o p y r i g h t
0000740 l a w , i s f u r n i s h
0000760 e d u n d e r l i c e n s e
0001000 , \r a n d m a y n o t b e
0001020 u s e d , c o p i e d a n
0001040 d / o r d i s c l o s e d e
0001060 x c e p t i n a c c o r d a
0001100 n c e \r w i t h t h e t e r
0001120 m s o f s a i d l i c e n
0001140 s e . \r " ) \r \r ( P R E T T Y C
0001160 O M P R I N T M S A N A L Y Z
0001200 E C O M S ) \r \r ( R P A Q Q 006
0001220 002 M S A N A L Y Z E C O M S 006 001
0001240 \r [ ( C O M S
0001260 ( F N S V A R S F R E E V A
0001300 R S C A L L S C O L L E C T
0001320 F N D A T A C A L L S 3 ) \r
0001340 ( V A
0001360 R S M S M A C R O P R O P S
0001400 ( N O P A C K C A L L S F L G )
0001420 ) \r
0001440 ( B L O C K S ( C A L L S C
0001460 A L L S C O L L E C T F N D A
0001500 T A C A L L S 3 ( L O C A L
0001520 F R E E V A R S C A L L S D A
0001540 T A ) \r
0001560
0001600 ( N O L I N K F N S . T )
0001620 \r
0001640 ( G
0001660 L O B A L V A R S I N V I S I
0001700 B L E V A R S C O M P I L E U
0001720 S E R F N N O P A C K C A L L
0001740 S F L G L A M B D A S P L S T
0001760 \r
0002000
0002020 M S R E C O R D T R
0002040 A N F L G ) ) \r
0002060 ( N I
0002100 L V A R S F R E E V A R S
0002120 ( L O C A L V A R S . T ) )
0002140 ) \r
0002160 ( D E C L A R E % : E V A L @
0002200 C O M P I L E ( V A R S M S
0002220 . V E R B . T O . N O T I C E D
0002240 ) \r
0002260 D O N T C O P Y \r
0002300
0002320 ( M A C R O S M S V
0002340 B N O T I C E D ) ) ) \r
0002360 [ C O M S ( F N S A
0002400 L L C A L L S M S I N I T F N
0002420 D A T A M S P R G E M S P R
0002440 G M A C R O M S P R G C A L L
0002460 M S B I N D V A R M S P R G
0002500 R E C O R D M S P R G E R R
0002520 \r
0002540 M S P R G T E M P L A T
0002560 E 1 M S P R G T E M P L A T E
0002600 M S P R G L A M B D A M S P
0002620 R G L S T A D D T O N L A M
0002640 B D A F N P M S P R G D W I M
0002660 \r
0002700 M S D W I M T R A N )
0002720 \r (
0002740 E ( M A P C M S F N D A T A
0002760 ( F U N C T I O N R P L A C
0003000 D ) ) ) \r
0003020 ( V A R S M S F N D A T
0003040 A M S E R R O R F N ( M S R
0003060 E C O R D T R A N F L G ) ) \r
0003100 ( A D
0003120 D V A R S ( I N V I S I B L E
0003140 V A R S $ $ 1 $ $ 2 $ $ 3
0003160 $ $ 4 $ $ 5 $ $ 6 $ $ 7
0003200 $ $ 8 $ $ 9 $ $ 1 0 $ $
0003220 1 1 $ $ 1 2 $ $ 1 3 $ $ 1
0003240 4 \r
0003260
0003300 $ $ 1 5 $ $ 1 6 $ $ 1 7 )
0003320 ) \r
0003340 ( D E C L A R E % : D O N T C
0003360 O P Y ( M A C R O S I N C L
0003400 I S P L T E M P L A T E ) ) \r
0003420 ( B
0003440 L O C K S ( A L L C A L L S
0003460 A L L C A L L S A D D T O M
0003500 S B I N D V A R M S D W I M T
0003520 R A N M S P R G C A L L M S
0003540 P R G D W I M M S P R G E \r
0003560
0003600 M S P
0003620 R G M A C R O M S P R G E R R
0003640 M S P R G L A M B D A M S P
0003660 R G L S T M S P R G R E C O R
0003700 D M S P R G T E M P L A T E
0003720 \r
0003740 M S
0003760 P R G T E M P L A T E 1 N L A
0004000 M B D A F N P ( N O L I N K F
0004020 N S . T ) \r
0004040
0004060 ( L O C A L F R E E V
0004100 A R S F N N A M E E R R O R
0004120 S F N D E F I N C L I S P
0004140 O N L Y R E L S P A R E N T C
0004160 O N T E X T \r
0004200
0004220 T O P V
0004240 A R S P A R E N T E A C H T
0004260 I M E V A R S ) \r
0004300
0004320 ( G L O B A L V A
0004340 R S C L I S P A R R A Y M S
0004360 E R R O R F N M S R E C O R D
0004400 T R A N F L G M S F N D A T A
0004420 I N V I S I B L E V A R S \r
0004440
*
0004500 C L I S P A R R A Y M
0004520 S T E M P L A T E S U S E R T
0004540 E M P L A T E S M S R E C O R
0004560 D T R A N F L G N L A M A N
0004600 L A M L \r
0004620
0004640 D W I M F L
0004660 G C L I S P T R A N F L G D
0004700 W I M E S S G A G ) \r
0004720
0004740 ( N O L I N K F
0004760 N S . T ) ) \r
0005000 ( N
0005020 I L M S I N I T F N D A T A
0005040 N L A M B D A F N P M S P R G
0005060 D W I M ( L O C A L V A R S
0005100 . T ) \r
0005120 (
0005140 G L O B A L V A R S N L A M A
0005160 N L A M L M S F N D A T A
0005200 D W I M F L G D W I M E S S G
0005220 A G ) ) ) \r
0005240 ( P ( P U T D Q ? M
0005260 S W O R D N A M E ( L A M B D
0005300 A ( X ) \r
0005320
*
0005360 X ] \r ( C O M
0005400 S ( V A R S ( M S T E M P L
0005420 A T E S ( H A S H A R R A Y
0005440 1 6 0 ) ) \r
0005460 ( U S E R T
0005500 E M P L A T E S ( H A S H A R
0005520 R A Y 1 0 ) ) ) \r
0005540 ( F I L E V A R
0005560 S I N I T I A L T E M P L A T
0005600 E S ) \r
0005620 ( * * I N I T I A L T E
0005640 M P L A T E S i s n o t n
0005660 e e d e d a f t e r l o a d
0005700 i n g u p ) \r
0005720 [ P ( M A P C I
0005740 N I T I A L T E M P L A T E S
0005760 ( F U N C T I O N ( L A M B D
0006000 A ( X ) \r
0006020
*
0006060 (
0006100 M A P C ( C D R X ) \r
0006120
*
0006200 ( F U N
0006220 C T I O N ( L A M B D A ( Y
0006240 ) \r
0006260
*
0006360 ( P U T H A S H Y \r
0006400
*
0006520 ( C A R X ) \r
0006540
*
0006660 M S T E M P L A T E S ] \r
0006700 ( D
0006720 E C L A R E % : E V A L @ C O
0006740 M P I L E D O N T C O P Y (
0006760 P R O P M A C R O L T E M P
0007000 L A T E ) ) ) \r
0007020 ( C O M S ( F N S M S F I N
0007040 D P ) \r
0007060 ( B L O C K S ( M S F I N
0007100 D P M S F I N D P ] ) \r ( D E
0007120 F I N E Q \r \r ( 006 004 V A R S 006 001
0007140 \r ( L A M B D A ( F N U
0007160 S E D A T A B A S E )
0007200
0007220 006 006
0007240 ( * l m m % : 2 9 - D E C -
0007260 7 5 2 3 2 2 ) 006 001 \r
0007300 ( C D R ( 006 002 C A L L S 006 001
0007320 F N U S E D A T A B A S E T
0007340 ) ) ) ) \r \r ( 006 004 F R E E V A R
0007360 S 006 001 \r ( L A M B D A ( F
0007400 N U S E D A T A B A S E )
0007420
*
0007460 006 006 ( * l m m % : 5 - D E
0007500 C - 7 5 1 1 8 ) 006 001 \r
0007520 ( C A D D R ( 006 002 C A L L S
0007540 006 001 F N U S E D A T A B A S
0007560 E ' F R E E V A R S ) ) ) ) \r
0007600 \r ( 006 004 C A L L S 006 001 \r ( L
0007620 A M B D A ( E X P R U S E D
0007640 A T A B A S E V A R S F L G )
0007660 006 006 006 001
0007700 006 006 (
0007720 * r m k % : " 1 - A U G -
0007740 7 9 0 9 : 5 5 " ) 006 001 \r
0007760 ( P R O G ( F R E E S F N
0010000 D E F F L G ) \r
0010020 ( C O N D \r
0010040 ( ( A N D U S E D
0010060 A T A B A S E ( L I T A T O M
0010100 E X P R ) \r
0010120 ( G E T D
0010140 ' U P D A T E F N ) ) \r
0010160 ( U P D A T
0010200 E F N E X P R N I L ' E R
0010220 R O R ) \r
0010240 ( R E T U R N ( L I S T
0010260 ( A N D ( N O T V A R S F
0010300 L G ) \r
0010320
0010340 ( G E T R E L A T I O
0010360 N E X P R ' ( C A L L N O
0010400 T E R R O R ) ) ) \r
0010420
0010440 ( A N D ( N E Q
0010460 V A R S F L G ' F R E E V A R
0010500 S ) \r
0010520
0010540 ( G E T R E L A T I O N
0010560 E X P R ' B I N D ) ) \r
0010600
0010620 ( G E T R E
0010640 L A T I O N E X P R ' ( U S
0010660 E F R E E L Y ) ) ) ) ) ) \r
0010700 G E T D L P \r
0010720 ( S E T Q F N D E
0010740 F ( C O N D \r
0010760
0011000 ( ( L I T A T O M E X P R )
0011020 \r
0011040 ( O R (
0011060 G E T D ( O R ( G E T P E
0011100 X P R ' B R O K E N ) \r
0011120
*
0011160 E X P R ) ) \r
0011200
0011220 ( G E T P
0011240 E X P R ' E X P R ) \r
0011260
0011300 ( A N D (
0011320 N E Q E X P R ( S E T Q E
0011340 X P R ( F N C H E C K E X P
0011360 R N I L N I L T ) ) ) \r
0011400
*
0011440 ( G O G E T D L P ) ) ) )
0011460 \r
0011500 ( T E X P
0011520 R ) ) ) \r (
0011540 R E T U R N \r
0011560 ( C O N D \r
0011600 ( ( N U L L F N D
0011620 E F ) \r
0011640 N I L ) \r
0011660 ( ( S U B R P F N
0011700 D E F ) \r
0011720 N I L ) \r
0011740 ( ( C C O D E P
0011760 F N D E F ) \r
0012000 ( S E T Q F N D E
0012020 F ( C A L L S C C O D E F N
0012040 D E F ) ) \r
0012060 ( O R N O P A C K C
0012100 A L L S F L G ( 006 002 f o r 006 001
0012120 X 006 002 o n 006 001 ( C A R F
0012140 N D E F ) 006 002 d o 006 001 ( F R
0012160 P L A C A X ( P A C K * '
0012200 ; ( C A R X ) \r
0012220
*
0012320 ' ; ) ) ) ) \r
0012340 ( F R
0012360 P L A C A ( C D R F N D E F
0012400 ) \r
0012420 ( N C O N C (
0012440 C A D R F N D E F ) \r
0012460
0012500 ( C A R F N
0012520 D E F ) ) ) \r
0012540 ( S E T Q F L G )
0012560 \r
0012600 ( 006 002 C A L L S 3 006 001 ( C D D
0012620 R F N D E F ) ) \r
0012640 ( 006 002 C A L L
0012660 S 3 006 001 ( C D D D R F N D E
0012700 F ) ) \r
0012720 ( C D R F N D E F ) ) \r
0012740 ( (
0012760 E X P R P F N D E F ) \r
0013000 \r
0013020 006 006 ( * N o t e t h a t
0013040 E X P R c a n b e a p
0013060 i e c e o f a f u n c t i
0013100 o n d e f i n i t i o n , a
0013120 n d c a l l s w i l l s t
0013140 i l l \r 006 001
0013160 006 006 w o r k . ) 006 001 \r \r
0013200 ( R E S
0013220 E T V A R S ( ( M S R E C O R
0013240 D T R A N F L G T ) ) \r
0013260
0013300 ( R E T U R N \r
0013320
0013340 ( P R O G
0013360 ( C A L L S D A T A L A M F L
0013400 G ) \r
0013420
0013440 ( C O N D \r
0013460
0013500 ( (
0013520 F M E M B ( C A R F N D E F
0013540 ) \r
0013560
0013600 L A
0013620 M B D A S P L S T ) \r
0013640
*
0013700 ( S E T Q L A M F L G T ) \r
0013720
*
0013760 ( C O N D \r
0014000
*
0014040 ( ( O R ( A N D ( E Q
0014060 ( C A R ( C A D D R F N D
0014100 E F ) ) \r
0014120
*
0014160 ' * ) \r
0014200
*
0014260 ( E Q ( C A D R ( C A D D
0014300 R F N D E F ) ) \r
0014320
*
0014400 ' D E C L A R A T I O N S % : )
0014420 ) \r
0014440
0014460 (
0014500 E Q ( C A R ( C A D D R F
0014520 N D E F ) ) \r
0014540
*
0014600 ' C L I S P % :
0014620 ) ) \r
0014640
0014660 ( 006 002 M
0014700 S P R G D W I M 006 001 F N D E F
0014720 E X P R F N D E F ) ) ) \r
0014740
*
0015000 ( S E L E C T Q ( C A
0015020 R F N D E F ) \r
0015040
*
0015100 ( ( L A M B D A N L A M B
0015120 D A ) \r
0015140
*
0015200 N I L ) \r
0015220
*
0015260 ( S E T Q F N D E F ( O R
0015300 ( A N D C O M P I L E U S E
0015320 R F N ( A P P L Y * C O M P
0015340 I L E U S E R F N N I L \r
0015360
*
0015500 F N D E F ) ) \r
0015520
*
0015600 F N D E F ) ) ) ) ) \r
0015620
0015640 (
0015660 S E T Q C A L L S D A T A \r
0015700
*
0015740 ( 006 002 A L L C A L L S 006 001 F
0015760 N D E F L A M F L G \r
0016000
*
0016040 ( U N I O N ( C O N
0016060 S T A N T ( M S V B N O T I C
0016100 E D ' U S E ' F R E E L Y )
0016120 ) \r
0016140
*
0016200 ( A N D ( N E Q V A R S
0016220 F L G ' F R E E V A R S ) \r
0016240
*
0016320 ( U N I O N ( C O N S
0016340 T A N T ( M S V B N O T I C E
0016360 D ' B I N D ) ) \r
0016400
*
0016460 ( A N D ( N U L L
0016500 V A R S F L G ) \r
0016520
*
0016600 ( C O N S
0016620 T A N T ( M S V B N O T I C E
0016640 D ' C A L L \r
0016660
*
0016760 ' N O T E R
0017000 R O R ) ) ) ) ) ) \r
0017020
*
0017060 E X P R T ) ) \r
0017100
0017120 ( S E
0017140 T Q F R E E S ( N C O N C
0017160 F R E E S ( 006 002 C O L L E C T
0017200 F N D A T A 006 001 ( C O N S T A
0017220 N T \r
0017240
*
0017320 ( M S
0017340 V B N O T I C E D ' U S E \r
0017360
*
0017500 ' F R E E L Y ) ) ) ) ) \r
0017520
0017540 ( R
0017560 E T U R N ( L I S T ( 006 002 C
0017600 O L L E C T F N D A T A 006 001 (
0017620 C O N S T A N T ( M S V B N O
0017640 T I C E D ' C A L L \r
0017660
*
0017760 ' N O T E
0020000 R R O R ) ) ) \r
0020020
*
0020060 ( 006 002 C O L L E C
0020100 T F N D A T A 006 001 ( C O N S T
0020120 A N T ( M S V B N O T I C E D
0020140 ' B I N D ) ) ) \r
0020160
*
0020220 F R E E S ) )
0020240 ) ) ) ) \r
0020260 ( T ' ? ) ) ) ) ) ) \r \r
0020300 ( 006 004 C O L L E C T F N D A T A
0020320 006 001 \r ( L A M B D A ( L S
0020340 T ) 006 006 006 001
0020360
*
0020420 006 006 ( * l m m " 2 1
0020440 - D E C - 7 8 2 2 : 5 6 " ) 006
0020460 001 \r ( C O N D \r
0020500 ( ( N L I S T P L S T )
0020520 \r ( C D R ( F
0020540 A S S O C L S T C A L L S D
0020560 A T A ) ) ) \r ( T
0020600 ( P R O G ( V A L ) \r
0020620 ( 006 002
0020640 f o r 006 001 X 006 002 i n 006 001 L
0020660 S T 006 002 d o 006 001 ( S E T Q
0020700 V A L ( U N I O N ( 006 002 C O
0020720 L L E C T F N D A T A 006 001 X )
0020740 \r
0020760
*
0021020 V A L ) ) ) \r
0021040 ( R E T U R
0021060 N V A L ) ) ) ) ) ) \r \r ( 006 004
0021100 C A L L S 3 006 001 \r ( L A M B
0021120 D A ( L S T ) 006 006 006 001
0021140
*
0021200 006 006 ( * l
0021220 m m " 6 - J U L - 7 8 0 0
0021240 : 2 3 " ) 006 001 \r
0021260
*
0021340 006 006 ( * l m m % :
0021360 1 3 - D E C - 7 5 4 5 1 ) 006
0021400 001 \r ( P R O G ( F L G
0021420 ) \r ( 006 002 f
0021440 o r 006 001 X 006 002 o n 006 001 ( C
0021460 A R L S T ) 006 002 d o 006 001 (
0021500 O R ( N O T ( F M E M B (
0021520 C A R X ) \r
0021540
*
0021600 I N V I S I B L
0021620 E V A R S ) ) \r
0021640
0021660 ( S E
0021700 T Q F L G ( F R P L A C A
0021720 X ) ) ) ) \r
0021740 ( C O N D \r
0021760 ( F L G ( F R P L A C A
0022000 L S T ( D R E M O V E N I
0022020 L ( C A R L S T ) ) ) ) ) )
0022040 ) ) \r ) \r \r ( R P A Q Q 006 002 M
0022060 S M A C R O P R O P S 006 001 ( A
0022100 L T O M A C R O D M A C R O
0022120 B Y T E M A C R O M A C R O )
0022140 ) \r \r ( R P A Q Q 006 002 N O P A
0022160 C K C A L L S F L G 006 001 N I L
0022200 ) \r ( D E C L A R E % : D O N
0022220 T E V A L @ L O A D D O E V A
0022240 L @ C O M P I L E D O N T C O
0022260 P Y \r ( B L O C K % : C A L L
0022300 S C A L L S C O L L E C T F
0022320 N D A T A C A L L S 3 ( L O
0022340 C A L F R E E V A R S C A L L
0022360 S D A T A ) \r ( N
0022400 O L I N K F N S . T ) \r
0022420 ( G L O B A L V A R S
0022440 I N V I S I B L E V A R S C
0022460 O M P I L E U S E R F N N O P
0022500 A C K C A L L S F L G L A M B
0022520 D A S P L S T M S R E C O R D
0022540 T R A N F L G ) ) \r ( B L O C K
0022560 % : N I L V A R S F R E E
0022600 V A R S ( L O C A L V A R S
0022620 . T ) ) \r ) \r ( D E C L A R E
0022640 % : E V A L @ C O M P I L E
0022660 \r \r ( R P A Q Q 006 002 M S . V E
0022700 R B . T O . N O T I C E D 006 001
0022720 ( ( B I N D ( N I L B I N D
0022740 A R G ) ) \r
0022760
0023000 [ C A L L ( D I R E C T L
0023020 Y C A L L E F F E C T P R
0023040 E D I C A T E N L A M B D A )
0023060 \r
0023100
0023120 ( E F F E C T E F F E C T
0023140 ) \r
0023160
0023200 ( I N D I R E C T L Y A
0023220 P P L Y S T A C K ) \r
0023240
0023260 ( N I
0023300 L C A L L E R R O R A P P
0023320 L Y E F F E C T P R E D I C
0023340 A T E N L A M B D A S T A C
0023360 K ) \r
0023400
0023420 ( N O T E R R O R A P
0023440 P L Y C A L L E F F E C T
0023460 P R E D I C A T E N L A M B D
0023500 A S T A C K ) \r
0023520
0023540 ( P R E D I
0023560 C A T E P R E D I C A T E ) \r
0023600
*
0023640 ( T E S T I N G P R E D I C
0023660 A T E ) \r
0023700
0023720 ( V A L U E C A L
0023740 L ) \r
0023760
0024000 ( N L A M B D A N L A
0024020 M B D A ] \r
0024040
0024060 ( C R E A T E ( N I L C R
0024100 E A T E ) ) \r
0024120
0024140 ( D E C L A R E ( L O C A
0024160 L V A R S L O C A L V A R S )
0024200 \r
0024220
0024240 ( N I L L O C A L V A R
0024260 S S P E C V A R S ) \r
0024300
0024320 ( S
0024340 P E C V A R S S P E C V A R S
0024360 ) ) \r
0024400 ( F
0024420 E T C H ( N I L F E T C H )
0024440 ) \r
0024460 ( R E
0024500 F E R E N C E ( F I E L D S
0024520 F E T C H ) \r
0024540
0024560 ( F R E E L Y
0024600 R E F F R E E ) \r
0024620
0024640 ( C L :
0024660 L O C A L L Y R E F ) \r
0024700
0024720 (
0024740 N I L R E F F R E E R E F )
0024760 ) \r
0025000 ( R E
0025020 P L A C E ( N I L R E P L A
0025040 C E ) ) \r
0025060
0025100 ( S E T ( F I E L D S F E T
0025120 C H R E P L A C E ) \r
0025140
0025160 ( F R E
0025200 E L Y S E T F R E E ) \r
0025220
0025240 ( C L
0025260 : L O C A L L Y S E T ) \r
0025300
0025320 ( N
0025340 I L S E T F R E E S E T ) )
0025360 \r
0025400 ( S M A
0025420 S H ( F I E L D S F E T C H
0025440 R E P L A C E ) \r
0025460
0025500 ( F R E
0025520 E L Y S M A S H F R E E ) \r
0025540
*
0025600 ( C L : L O C A L L Y S M A
0025620 S H ) \r
0025640
0025660 ( N I L S M A S H
0025700 F R E E S M A S H ) ) \r
0025720
0025740 ( T E S T ( F
0025760 R E E L Y T E S T F R E E ) \r
0026000
*
0026040 ( C L : L O C A L L Y T E S
0026060 T ) \r
0026100
0026120 ( N I L T E S T F R E
0026140 E T E S T ) ) \r
0026160
0026200 ( U S E ( F I E L D S
0026220 F E T C H R E P L A C E ) \r
0026240
*
0026300 ( F R E E L Y S E T F R E E
0026320 S M A S H F R E E R E F F R E
0026340 E T E S T F R E E ) \r
0026360
0026400 ( I . S
0026420 . O P R S C L I S P ) \r
0026440
0026460 ( I N
0026500 D I R E C T L Y L O C A L F R
0026520 E E V A R S ) \r
0026540
0026560 ( C L : L O C A
0026600 L L Y S E T S M A S H R E
0026620 F T E S T ) \r
0026640
0026660 ( N I L S E T
0026700 F R E E S E T S M A S H F R
0026720 E E S M A S H R E F F R E E
0026740 R E F T E S T F R E E T E
0026760 S T ) \r
0027000
0027020 ( P R E D I C A T E T
0027040 E S T T E S T F R E E ) \r
0027060
0027100 ( P
0027120 R O P N A M E S P R O P ) \r
0027140
0027160 (
0027200 R E C O R D S R E C O R D C
0027220 R E A T E ) \r
0027240
0027260 ( T E S T I N G
0027300 T E S T T E S T F R E E ) \r
0027320
0027340 (
0027360 V A L U E S M A S H S M A S
0027400 H F R E E R E F R E F F R E
0027420 E ) \r
0027440
0027460 ( T Y P E T Y P E ) ) )
0027500 ) \r D O N T C O P Y \r ( D E C
0027520 L A R E % : E V A L @ C O M P
0027540 I L E \r \r [ P U T P R O P S
0027560 M S V B N O T I C E D M A C R
0027600 O ( O P E N L A M B D A ( V
0027620 E R B M O D ) \r
0027640
0027660 ( C D R
0027700 ( A S S O C M O D ( C D R
0027720 ( A S S O C V E R B M S .
0027740 V E R B . T O . N O T I C E D ]
0027760 \r ) \r ) \r ( D E F I N E Q \r \r (
0030000 006 004 A L L C A L L S 006 001 \r (
0030020 L A M B D A ( F N D E F L A
0030040 M F L G O N L Y R E L S F N
0030060 N A M E I N T E R N A L F L G
0030100 E A C H T I M E ) 006 006 006 001 006 006
0030120 ( * l m m " 2 2 - D E C - 7
0030140 8 1 3 : 0 2 " ) 006 001 \r
0030160 ( P R O G ( 006 002 V A R S 006 001
0030200 T O P V A R S I N C L I S P
0030220 E R R O R S ( P A R E N T F
0030240 N D E F ) ) \r
0030260 ( 006 002 M S I N I T F N D A T A
0030300 006 001 ) \r ( C
0030320 O N D \r
0030340 ( L A M F L G ( 006 002 M S P R
0030360 G L A M B D A 006 001 F N D E F
0030400 ' A R G ) ) \r
0030420 ( T ( 006 002 M S P R G E
0030440 006 001 F N D E F N I L ' R E
0030460 T U R N ) ) ) \r
0030500 ( R E T U R N ( C O N D \r
0030520
0030540 ( I N T E R N A L F L
0030560 G M S F N D A T A ) \r
0030600
0030620 ( T ( 006 002 f o r 006 001 X 006
0030640 002 i n 006 001 M S F N D A T A 006
0030660 002 w h e n 006 001 ( C D R X )
0030700 006 002 c o l l e c t 006 001 ( C O N
0030720 S ( C A R X ) \r
0030740
*
0031040 ( C D R X ) ) ) ) ) ) ) ) ) \r
0031060 \r ( 006 004 M S I N I T F N D A T A
0031100 006 001 \r ( L A M B D A N I L
0031120 \r \r
0031140 006 006 ( * M S F N D
0031160 A T A i s a n a s s o c i
0031200 a t i o n l i s t o f t h
0031220 e " n o t i c e d " t y p e
0031240 s , e . g . \r 006 001
0031260 006 006 C A L L , B I N D
0031300 , e t c . - - t h e F R
0031320 P L A C D r e s e t s t h e
0031340 p o i n t e r ) 006 001 \r \r
0031360 ( 006 002 f o r 006 001 Y 006 002 i n
0031400 006 001 M S F N D A T A 006 002 d o
0031420 006 001 ( F R P L A C D Y N I
0031440 L ) ) ) ) \r \r ( 006 004 M S P R G E
0031460 006 001 \r ( L A M B D A ( E X
0031500 P R S U P E X P R E V A L C
0031520 O N T E X T ) 006 006 006 001
0031540
0031560 006 006 ( * l m m " 2 7
0031600 - M a y - 8 6 0 4 : 4 4 " ) 006
0031620 001 006 006 006 001 \r
0031640
*
0031700 006 006 ( * ; ;
0031720 " a n a l y z e s E X P R ;
0031740 S U P E X P R i s t h e
0031760 p a r e n t e x p r e s s i o
0032000 n a n d i s u s e d i n
0032020 t h e S H O W U S E c a s
0032040 e w h e r e w e a r e p
0032060 r i n t i n g o c c u r r a n
0032100 c e s o f v a r i o u s t
0032120 h i n g s r a t h e r t h a
0032140 n u p d a t i n g d a t a
0032160 b a s e ; E V A L C O N T E
0032200 X T i s a t y p e o f
0032220 r e f e r e n c e f o r t h
0032240 i s e x p r e s s i o n f r
0032260 o m t h e t e m p l a t e :
0032300 S M A S H e t c " ) 006 001 \r
0032320 ( P R O G ( T E M C A
0032340 L L E D C L I S P ) \r
0032360 ( C O N D \r
0032400 ( ( N L I S T
0032420 P E X P R ) \r
0032440 ( R E T U R N ( C
0032460 O N D \r
0032500 ( ( A
0032520 N D ( L I T A T O M E X P R
0032540 ) \r
0032560
0032600 E X P R \r
0032620
0032640 ( N E Q E X P R T
0032660 ) \r
0032700
0032720 ( N O T ( F M E M B E X P
0032740 R I N V I S I B L E V A R S )
0032760 ) ) 006 006 006 001 \r
0033000
*
0033060 006 006 ( * ; " A v a
0033100 r i a b l e r e f e r e n c e
0033120 " ) 006 001 \r
0033140 (
0033160 C O N D \r
0033200
0033220 ( ( O R ( F M E M B E X
0033240 P R V A R S ) \r
0033260
0033300 ( S O M E
0033320 T O P V A R S ( F U N C T I
0033340 O N ( L A M B D A ( Z ) 006 006
0033360 006 001 \r
0033400
*
0033440 006 006 ( * ; \r 006 001
0033460
0033500 006 006 "
0033520 b o u n d h i g h e r u p
0033540 i n t h e f u n c t i o n
0033560 b u t b u t u s e d i n
0033600 a f u n c t i o n a l a r g
0033620 u m e n t " ) 006 001 \r
0033640
*
0033720 ( C O N D \r
0033740
*
0034020 ( ( F M E
0034040 M B E X P R Z ) \r
0034060
*
0034140 ( 006 002 A D
0034160 D T O 006 001 ' L O C A L F R E E
0034200 V A R S E X P R S U P E X P
0034220 R ) \r
0034240
*
0034320 T ) ) ) ) ) ) 006 006 006 001 \r
0034340
*
0034420 006 006 ( * ; \r 006 001
0034440
*
0034500 006 006 " T h i n g s
0034520 w e r e a d d e d t o V A
0034540 R S o n l y i f t h e y
0034560 w e r e ' n o t i c e a b l e
0034600 ' " ) 006 001 \r
0034620
0034640 ( S E L E C T Q E V A
0034660 L C O N T E X T \r
0034700
0034720 ( ( S M A
0034740 S H T E S T S E T ) \r
0034760
*
0035020 ( 006 002 A D D T O 006 001
0035040 E V A L C O N T E X T E X P R
0035060 S U P E X P R ) ) \r
0035100
0035120 ( C H
0035140 A N G E ( 006 002 A D D T O 006 001
0035160 ' S E T E X P R S U P E X P
0035200 R ) ) \r
0035220
0035240 ( 006 002 A D D T O 006 001
0035260 ' R E F E X P R S U P E X
0035300 P R ) ) ) \r
0035320
0035340 ( T ( S E L E C T Q E
0035360 V A L C O N T E X T \r
0035400
0035420 (
0035440 S M A S H ( 006 002 A D D T O 006 001
0035460 ' S M A S H F R E E E X P R
0035500 S U P E X P R ) ) \r
0035520
0035540 (
0035560 T E S T ( 006 002 A D D T O 006 001
0035600 ' T E S T F R E E E X P R S
0035620 U P E X P R ) ) \r
0035640
0035660 ( ( S
0035700 E T C H A N G E ) \r
0035720
*
0035760 ( 006 002 A D D T O 006 001
0036000 ' S E T F R E E E X P R S U
0036020 P E X P R ) ) \r
0036040
0036060 ( 006 002 A
0036100 D D T O 006 001 ' R E F F R E E
0036120 E X P R S U P E X P R ) ) ) )
0036140 ) ) ) ) ) \r
0036160 ( C O N D \r
0036200 ( ( E Q E V A L C O N T
0036220 E X T ' S E T ) 006 006 006 001
0036240
0036260 006 006 ( * ; " i n a ' S E
0036300 T ' c o n t e x t , b u t
0036320 n o t a v a r i a b l e " )
0036340 006 001 \r
0036360 ( 006 002 M S P R G E R R 006 001 P
0036400 A R E N T ) ) ) \r
0036420 ( C O N D \r
0036440 ( ( L I S T P ( S
0036460 E T Q C A L L E D ( C A R
0036500 E X P R ) ) ) \r
0036520 ( 006 002 M S P R G L A
0036540 M B D A 006 001 C A L L E D N I
0036560 L ( S E L E C T Q E V A L C
0036600 O N T E X T \r
0036620
*
0036660 ( ( T E S T E F F E C T S
0036700 M A S H ) \r
0036720
*
0036760 E V A L C O N T E X
0037000 T ) \r
0037020
0037040 N I L
0037060 ) ) \r
0037100 ( S E L E C T Q ( C A R C
0037120 A L L E D ) \r
0037140 ( L A M B D A
0037160 ( 006 002 M S P R G L S T 006 001 (
0037200 C D R E X P R ) \r
0037220
0037240 E X P R )
0037260 ) \r
0037300 N I L ) \r
0037320 ( R E T U R N ) )
0037340 ) \r ( C O N
0037360 D \r (
0037400 ( S E T Q T E M ( L T E M P
0037420 L A T E C A L L E D ) ) \r
0037440 ( R E T
0037460 U R N ( 006 002 M S P R G T E M P
0037500 L A T E 006 001 E X P R T E M
0037520 E V A L C O N T E X T ) ) ) ) \r
0037540 ( C O N D \r
0037560 ( ( N
0037600 O T ( F G E T D ( O R ( G
0037620 E T P C A L L E D ' B R O K
0037640 E N ) \r
0037660
0037700 C A L L E D ) ) ) \r
0037720 ( C O N D \r
0037740
0037760 ( ( A N D D W I M F L G (
0040000 S E T Q T E M ( G E T P R O
0040020 P C A L L E D ' C L I S P W
0040040 O R D ) ) ) \r
0040060
*
0040140 006 006 ( * E . G . I F
0040160 , F O R , e t c . ) 006 001 \r
0040200
0040220 ( S E T Q C L I S P ( 006 002
0040240 M S D W I M T R A N 006 001 E X P
0040260 R ) ) \r
0040300 ( R E T U R N \r
0040320
0040340 ( C O N D \r
0040360 ( 006 002
0040400 C L I S P 006 001 ( C O N D \r
0040420
0040440 ( T
0040460 E M ( S E L E C T Q ( C A R
0040500 T E M ) \r
0040520
0040540 (
0040560 R E C O R D T R A N ( O R (
0040600 006 002 M S P R G R E C O R D 006 001
0040620 E X P R E V A L C O N T E X T
0040640 ) \r
0040660
*
0040720 M S R E C
0040740 O R D T R A N F L G \r
0040760
*
0041040 ( R E T U R N ) ) \r
0041060
*
0041140 006 006 ( *
0041160 o p t i o n a l l y a l s o
0041200 l o o k a t t r a n s l a t
0041220 i o n ) 006 001 \r
0041240
*
0041300 ) \r
0041320
*
0041360 ( I F W O R D ) \r
0041400
*
0041440 ( C H A N G E
0041460 T R A N ( 006 002 M S P R G E 006 001
0041500 ( C A D R E X P R ) \r
0041520
*
0041600 E X P R \r
0041620
*
0041700 ' C H A N G
0041720 E ) ) \r
0041740
0041760 ( 006 002
0042000 f o r 006 001 X 006 002 i n 006 001 E
0042020 X P R \r
0042040
*
0042100 006 002 w h e n 006 001 ( A N D ( L
0042120 I T A T O M X ) \r
0042140
*
0042220 ( E Q ( C A R T E M ) \r
0042240
*
0042320 ( C A R ( G E
0042340 T P R O P X ' C L I S P W O
0042360 R D ) ) ) ) \r
0042400
*
0042440 006 002 d o 006 001 ( 006 002 A D D
0042460 T O 006 001 ' C L I S P X E X
0042500 P R ) ) ) ) ) \r
0042520
*
0042600 006 006 ( * A n a l y z
0042620 e t h e C L I S P t r a n
0042640 s l a t i o n ) 006 001 \r
0042660
0042700 ( P R O G ( (
0042720 I N C L I S P ( I N C L I S P
0042740 E X P R ) ) ) \r
0042760
0043000 ( 006 002 M
0043020 S P R G E 006 001 C L I S P E X
0043040 P R E V A L C O N T E X T ) )
0043060 ) \r
0043100 ( ( O R ( N U
0043120 L L ( G E T P R O P ( C A R
0043140 E X P R ) \r
0043160
0043200 '
0043220 C L I S P W O R D ) ) \r
0043240
0043260 ( N E Q ( C A R
0043300 E X P R ) \r
0043320
0043340 C A L L E D ) ) \r
0043360
0043400 ( R E T U R N (
0043420 006 002 M S P R G E 006 001 E X P R
0043440 S U P E X P R E V A L C O N T
0043460 E X T ) ) ) \r
0043500 ( T
0043520 ( S E L E C T Q ( C A R T E
0043540 M ) \r
0043560
0043600 ( R E C O R D T R A N ( 006 002 M
0043620 S P R G R E C O R D 006 001 E X P
0043640 R E V A L C O N T E X T ) ) \r
0043660
0043700 ( C H
0043720 A N G E T R A N ( 006 002 M S P R
0043740 G E 006 001 ( C A D R E X P R )
0043760 \r
0044000
*
0044040 E X P R \r
0044060
*
0044120 ' C H A N G E ) \r
0044140
*
0044200 ( 006 002 M S P R G
0044220 L S T 006 001 ( C D D R E X P R
0044240 ) \r
0044260
*
0044320 E X P R ) ) \r
0044340
0044360 ( P R O G N
0044400
0044420 006 006 ( * C L I S P
0044440 w o r d w o u l d n ' t D
0044460 W I M I F Y ) 006 001 \r
0044500
0044520 ( 006
0044540 002 M S P R G C A L L 006 001 C A L
0044560 L E D E X P R E V A L C O N
0044600 T E X T ) \r
0044620
0044640 ( 006 002 M S P
0044660 R G E R R 006 001 E X P R ) \r
0044700
*
0044740 ( 006 002 M S P R G L S T 006 001
0044760 ( C D R E X P R ) \r
0045000
*
0045040 E X P R ) ) ) ) ) )
0045060 ) \r
0045100 ( ( S E T Q T E M ( C
0045120 L : M A C R O - F U N C T I O N
0045140 C A L L E D ) ) \r
0045160 ( L E T
0045200 ( ( M E ( C L : M A C R O E
0045220 X P A N D E X P R ) ) ) \r
0045240
0045260 ( C O N D \r
0045300
0045320 ( ( A N D ( N O T
0045340 ( E Q U A L M E E X P R ) )
0045360 \r
0045400
0045420 ( N O T ( E Q U A L M E
0045440 I N C L I S P ) ) ) \r
0045460
0045500 ( 006 002 M S P R G C A
0045520 L L 006 001 ( C A R E X P R ) \r
0045540
*
0045600 E X P R E V A L C O N T E
0045620 X T ) \r
0045640 (
0045660 P R O G ( ( I N C L I S P (
0045700 I N C L I S P E X P R ) ) \r
0045720
*
0045760 ( E X P R E X P R ) ) \r
0046000
0046020 (
0046040 006 002 M S P R G E 006 001 M E E X
0046060 P R ' E V A L ) ) \r
0046100
0046120 ( R E T U R N T )
0046140 ) ) ) ) ) ) ) \r
0046160 ( C O N D \r
0046200 ( ( 006 002 N L A M B D A
0046220 F N P 006 001 C A L L E D ) \r
0046240 ( 006 002 A
0046260 D D T O 006 001 ' N L A M B D A
0046300 C A L L E D E X P R ) \r
0046320 ( C O N D
0046340 \r
0046360 ( ( A N D M S M A C R O P
0046400 R O P S ( S E T Q T E M (
0046420 G E T M A C R O P R O P C A L
0046440 L E D M S M A C R O P R O P S
0046460 ) ) \r
0046500 ( 006 002 M S P
0046520 R G M A C R O 006 001 E X P R T
0046540 E M E V A L C O N T E X T ) )
0046560 \r
0046600 ( R E T U R N ) ) ) \r
0046620 ( 006 002 M
0046640 S P R G C A L L 006 001 C A L L E
0046660 D E X P R E V A L C O N T E
0046700 X T ) ) \r
0046720 ( T
0046740
*
0047000 006 006 ( * ; " n o r m a l
0047020 l a m b d a f u n c t i o n
0047040 c a l l " ) 006 001 \r
0047060 ( 006 002 M S P
0047100 R G C A L L 006 001 C A L L E D
0047120 E X P R E V A L C O N T E X T
0047140 ) \r
0047160 ( 006 002 M S P R G L S T 006 001
0047200 ( C D R E X P R ) \r
0047220
0047240 E X P R \r
0047260 ' E
0047300 V A L ) ) ) ) ) ) \r \r ( 006 004 M S
0047320 P R G M A C R O 006 001 \r ( L A
0047340 M B D A ( F O R M M A C D E
0047360 F C O N T E X T ) 006 006 006 001
0047400
0047420 006 006 ( *
0047440 l m m " 1 3 - D E C - 8 2
0047460 2 3 : 4 5 " ) 006 001 \r ( P
0047500 R O G ( ( M E ( M A C R O E
0047520 X P A N S I O N F O R M M A
0047540 C D E F ) ) ) \r
0047560 ( C O N D \r
0047600 ( ( A N D ( N O T
0047620 ( E Q U A L M E F O R M ) )
0047640 \r
0047660 ( N O T ( E Q U A L
0047700 M E I N C L I S P ) ) ) \r
0047720 ( 006 002 M
0047740 S P R G C A L L 006 001 ( C A R
0047760 F O R M ) \r
0050000 F O R M
0050020 C O N T E X T ) \r
0050040 ( P R O G ( ( I
0050060 N C L I S P ( I N C L I S P
0050100 F O R M ) ) \r
0050120 ( E X P
0050140 R F O R M ) ) \r
0050160 ( 006 002
0050200 M S P R G E 006 001 M E F O R M
0050220 ' E V A L ) ) \r
0050240 ( R E T U R N T
0050260 ) ) ) ) ) ) \r \r ( 006 004 M S P R G
0050300 C A L L 006 001 \r ( L A M B D A
0050320 ( F N P R N T C O N T E X
0050340 T ) 006 006 006 001
0050360
0050400 006 006 ( * l m m
0050420 " 2 2 - D E C - 7 8 1 2 : 5
0050440 7 " ) 006 001 \r ( 006 002 A D D
0050460 T O 006 001 ( C O N D \r
0050500 ( T O P V A R
0050520 S ' A P P L Y ) \r
0050540 ( T ( S E L E
0050560 C T Q C O N T E X T \r
0050600
0050620 ( T E S T ' P R E D I C A T
0050640 E ) \r
0050660 ( E F F E C T
0050700 ' E F F E C T ) \r
0050720 ' C
0050740 A L L ) ) ) \r
0050760 F N P R N T ) ) ) \r \r ( 006
0051000 004 M S B I N D V A R 006 001 \r (
0051020 L A M B D A ( V A R T Y P E
0051040 E X P R ) 006 006 006 001
0051060
0051100 006 006
0051120 ( * l m m " 6 - J U L - 7
0051140 8 0 0 : 2 3 " ) 006 001 \r
0051160 ( C O N D \r ( ( A
0051200 N D V A R ( L I T A T O M
0051220 V A R ) \r
0051240 ( N E Q V A R T ) ) \r
0051260 ( C O N D \r
0051300 ( ( N O T ( F
0051320 M E M B V A R I N V I S I B
0051340 L E V A R S ) ) \r
0051360 ( 006 002 A D D T O 006 001
0051400 ( O R T Y P E ' B I N D ) \r
0051420
0051440 V A R \r
0051460 ( O R E X
0051500 P R P A R E N T ) ) ) ) \r
0051520 ( S E T Q V A R S
0051540 ( C O N S V A R V A R S )
0051560 ) ) \r ( T ( 006 002
0051600 M S P R G E R R 006 001 ( C O N D
0051620 \r
0051640 ( ( L I T A T O
0051660 M V A R ) \r
0051700 (
0051720 O R E X P R P A R E N T ) )
0051740 \r
0051760 ( T V A R ) )
0052000 ) ) ) ) ) \r \r ( 006 004 M S P R G R
0052020 E C O R D 006 001 \r ( L A M B D
0052040 A ( P R N T C N T X T ) 006 006
0052060 006 001
0052100
0052120 006 006 ( * l m
0052140 m " 2 5 - F E B - 8 2 1 1 :
0052160 2 4 " ) 006 001 \r
0052200 \r 006 006 ( *
0052220 A N A L Y Z E R E C O R D
0052240 E X P R E S S I O N P R N T
0052260 - \r 006 001 006 006
0052300 R E T U R N N I L I F A N
0052320 A L Y Z E D S U C C E S S F U
0052340 L L Y ) 006 001 \r \r ( P R O
0052360 G ( Z ) \r
0052400 ( 006 002 M S P R G T E M P L A T E
0052420 006 001 \r P R
0052440 N T \r ( S
0052460 E L E C T Q ( C A R P R N T
0052500 ) \r
0052520 ( ( c r e a t e C R E A T E
0052540 ) \r
0052560 ( 006 002 A D D T O 006
0052600 001 ' C R E A T E ( C A D R
0052620 P R N T ) \r
0052640
0052660 P R N T ) \r
0052700 ( S E T Q
0052720 Z ( C D D R P R N T ) ) \r
0052740
0052760 ( 006 002 w h i l e 006 001 Z
0053000 006 002 d o 006 001 ( C O N D \r
0053020
*
0053060 ( ( E Q ' R E C O R D T R A
0053100 N ( C A R ( G E T P R O P
0053120 ( C A R Z ) \r
0053140
*
0053220 ' C L I S P W O
0053240 R D ) ) ) \r
0053260
*
0053340 006 006 ( * e . g . U S I
0053360 N G o r C O P Y I N G ) 006 001
0053400 \r
0053420
0053440 ( 006 002 M S P R G E 006 001
0053460 ( C A D R Z ) \r
0053500
*
0053540 P R N T \r
0053560
*
0053620 ( S E L E C T Q ( C
0053640 A R Z ) \r
0053660
*
0053720 ( ( s m a s h i n g
0053740 S M A S H I N G ) \r
0053760
*
0054020 '
0054040 S M A S H ) \r
0054060
*
0054120 N I L ) ) \r
0054140
*
0054200 ( S E T Q Z ( C D D R Z )
0054220 ) ) \r
0054240
0054260 ( ( E Q ( C A D R
0054300 Z ) \r
0054320
0054340 ' _ ) \r
0054360 \r
0054400 006 006 ( * I f d w i
0054420 m i f i e d c o r r e c t l y
0054440 , t h e f i e l d s s h o
0054460 u l d b e s e p a r a t e d
0054500 b y _ ' s ) 006 001 \r \r
0054520
*
0054560 ( 006 002 A D D T O 006 001 ' R E P L
0054600 A C E ( C A R Z ) \r
0054620
*
0054660 P R N T ) \r
0054700
*
0054740 ( 006 002 M S P R G E 006 001 ( C A
0054760 D D R Z ) \r
0055000
*
0055040 P R N T ) \r
0055060
0055100 ( S E T
0055120 Q Z ( C D D D R Z ) ) ) \r
0055140
*
0055200 ( ( E Q ( C A A R Z )
0055220 \r
0055240
0055260 ' S E T Q )
0055300 006 006
0055320 ( * p a r t i a l l y d w i
0055340 m i f i e d ) 006 001 \r
0055360
0055400 ( 006
0055420 002 A D D T O 006 001 ' R E P L A C
0055440 E ( C A D A R Z ) \r
0055460
*
0055520 P R N T ) \r
0055540
*
0055600 ( 006 002 M S P R G E 006 001 ( C A
0055620 D D A R Z ) \r
0055640
*
0055700 P R N T ) \r
0055720
0055740 ( S E
0055760 T Q Z ( C D R Z ) ) ) \r
0056000
*
0056040 ( T
0056060 006 006 ( *
0056100 s h o u l d n ' t h a p p e
0056120 n , b u t ) 006 001 \r
0056140
*
0056200 ( 006 002 M S P R G E 006 001 ( C A R
0056220 Z ) \r
0056240
*
0056300 P R N T ) \r
0056320
0056340 ( S E
0056360 T Q Z ( C D R Z ) ) ) ) )
0056400 \r
0056420 ( R E T U R N ) ) \r
0056440 ( (
0056460 f e t c h F E T C H f f e t
0056500 c h F F E T C H ) \r
0056520
0056540 ( C O N D \r
0056560 ( ( E
0056600 Q C N T X T ' C H A N G E )
0056620 \r
0056640 ' ( N I L (
0056660 006 002 I F 006 001 L I S T P ( B O
0056700 T H ( N I L . . F E T C H
0056720 ( B O T H F E T C H R E P
0056740 L A C E ) ) \r
0056760
*
0057020 ( . . R E C O R D
0057040 N I L ) ) \r
0057060
0057100 ( B O T H F E
0057120 T C H R E P L A C E ) ) \r
0057140
0057160 N I L
0057200 E V A L ) ) \r
0057220 ( T
0057240 ' ( N I L ( 006 002 I F 006 001 L
0057260 I S T P ( B O T H ( N I L
0057300 . . F E T C H ) \r
0057320
*
0057360 ( . . R E
0057400 C O R D N I L ) ) F E T C H
0057420 ) \r
0057440
0057460 N I L E V A L ) ) ) ) \r
0057500 ( (
0057520 R E P L A C E / R E P L A C E
0057540 r e p l a c e / r e p l a c
0057560 e f r e p l a c e F R E P L
0057600 A C E ) \r
0057620 ' ( N I L
0057640 ( 006 002 I F 006 001 L I S T P ( B
0057660 O T H ( N I L . . F E T C
0057700 H R E P L A C E ) \r
0057720
*
0057760 ( . . R E C O R D
0060000 N I L ) ) R E P L A C E ) \r
0060020
0060040 N I L S M A
0060060 S H N I L E V A L ) ) \r
0060100 ( ( t
0060120 y p e ? T Y P E ? ) \r
0060140
0060160 ' ( 006 002 C L I S P 006 001 R E C
0060200 O R D E V A L . P P E ) )
0060220 \r
0060240 ( ( i n i t r e c o r d I N I
0060260 T R E C O R D ) \r
0060300 ' (
0060320 006 002 C L I S P 006 001 R E C O R D
0060340 . P P E ) ) \r
0060360 ( ( W I T H w
0060400 i t h ) \r
0060420 ( C O N D \r
0060440
0060460 ( ( S E T Q Z
0060500 ( R E C O R D F I E L D N A M E
0060520 S ( C A D R P R N T ) ) ) \r
0060540
0060560 ( 006 002 A D D T O
0060600 006 001 ' R E C O R D ( C A D R
0060620 P R N T ) \r
0060640
0060660 P R N T ) \r
0060700
0060720 ( 006 002 M S P R G E 006 001
0060740 ( C A D D R P R N T ) \r
0060760
0061000 P R N T
0061020 ) \r
0061040 ( 006 002 f o r
0061060 006 001 X \r
0061100
0061120 006 002 i n 006 001 \r
0061140
0061160 ( P R O G 1 \r
0061200
0061220 ( 006 002 f o r 006 001 X
0061240 006 002 o n 006 001 M S F N D A T A
0061260 006 002 w h e n 006 001 ( F M E M B
0061300 ( C A A R X ) \r
0061320
*
0061400 ' ( S E T F R E E T E
0061420 S T F R E E R E F F R E E ) )
0061440 \r
0061460
0061500 006 002 c o l l e c t 006 001 ( L I S
0061520 T ( C A R X ) \r
0061540
*
0061600 ( R P L A C A X
0061620 ( L I S T ( C A A R X ) )
0061640 ) ) ) \r
0061660
0061700 ( P R O G ( O N L Y R E L S \r
0061720
*
0061760 ( 006 002 E A C H T I M E 006 001
0062000 ( A N D E A C H T I M E \r
0062020
*
0062100 ( 006 002 f o r 006 001 X 006 002 i n
0062120 s i d e 006 001 ( P R O G N E A
0062140 C H T I M E ) \r
0062160
*
0062220 006 002 w
0062240 h e n 006 001 ( N O T ( F M E M
0062260 B X ' ( S E T F R E E T E
0062300 S T F R E E R E F F R E E ) )
0062320 ) \r
0062340
*
0062400 006 002 c o l l e c t
0062420 006 001 X ) ) ) ) \r
0062440
0062460 ( 006 002 M S
0062500 P R G L S T 006 001 ( C D D D R
0062520 P R N T ) \r
0062540
0062560 P
0062600 R N T ) ) ) \r
0062620
0062640 006 002 d o 006 001 ( 006 002 f o r 006
0062660 001 Y 006 002 i n 006 001 ( P R O G
0062700 1 ( C D R ( C A A D R X )
0062720 ) \r
0062740
*
0063000 ( R P L A C A ( C A D R X
0063020 ) \r
0063040
*
0063100 ( C A R X ) )
0063120 ) \r
0063140
0063160 006 002 d o 006 001 ( 006 002 A D D
0063200 T O 006 001 ( C O N D \r
0063220
*
0063260 ( ( F M E M B
0063300 Y Z ) \r
0063320
*
0063360 ( S E L E C T Q ( C
0063400 A A R X ) \r
0063420
*
0063460 ( S E T F R
0063500 E E ' R E P L A C E ) \r
0063520
*
0063600 ' F E T C H ) ) \r
0063620
*
0063660 ( T ( C A A R
0063700 X ) ) ) \r
0063720
*
0063760 Y P R N T ) ) ) \r
0064000
0064020 ( R E T U R N ) ) \r
0064040
0064060 ( T ' ( R E C O R D .
0064100 . E V A L ) ) ) ) \r
0064120 ( R E T U R
0064140 N T ) ) ) ) ) ) \r \r ( 006 004 M S
0064160 P R G E R R 006 001 \r ( L A M B
0064200 D A ( E X P R ) 006 006 006 001
0064220
*
0064260 006 006 ( * l
0064300 m m " 2 1 - D E C - 7 8 2 2
0064320 : 4 4 " ) 006 001 \r ( S E T
0064340 Q E R R O R S T ) \r
0064360 ( 006 002 A D D T O 006 001 ' E R R O
0064400 R M S E R R O R F N E X P R
0064420 ) ) ) \r \r ( 006 004 M S P R G T E M
0064440 P L A T E 1 006 001 \r ( L A M B
0064460 D A ( X T E M P L A T E ) 006
0064500 006 006 001
0064520
0064540 006 006 ( * l
0064560 m m " 6 - A P R - 8 2 2 1
0064600 : 3 5 " ) 006 001 \r ( C O N
0064620 D \r ( ( N L I S T
0064640 P T E M P L A T E ) \r
0064660 ( S E L E C T Q T E M
0064700 P L A T E \r
0064720 ( ( E V A L S M A S H T
0064740 E S T E F F E C T S E T )
0064760 \r
0065000 ( 006 002 M S P R G E 006 001 X
0065020 P A R E N T T E M P L A T E )
0065040 ) \r ( (
0065060 F U N C T I O N F U N C T I O
0065100 N A L ) \r
0065120 \r 006 006 ( *
0065140 T h i s i s a f u n c t i
0065160 o n a l a r g t o s o m e
0065200 t h i n g - \r 006 001
0065220 006 006 t h e m a r k e r
0065240 F U N C T I O N A L m e a n
0065260 s t h a t i t w i l l b
0065300 e a s e p a r a t e f u n
0065320 c t i o n w h i l e F U N C
0065340 T I O N \r 006 001
0065360 006 006 i s r e s e r v e d
0065400 f o r t h o s e t h i n g s
0065420 w h i c h c o m p i l e o
0065440 p e n - \r 006 001
0065460 006 006 e . g . M A P C i s
0065500 m a r k e d ( E V A L F U
0065520 N C T I O N F U N C T I O N
0065540 . P P E ) w h i l e S O R
0065560 T i s m a r k e d \r 006 001
0065600 006 006 ( E V A L
0065620 F U N C T I O N A L . P P E
0065640 ) ) 006 001 \r \r
0065660 ( O R ( C O N D
0065700 \r
0065720 ( ( A N D (
0065740 L I S T P X ) \r
0065760
0066000 ( N U L L ( C D
0066020 D R X ) ) ) \r
0066040
0066060 ( C O N D \r
0066100
0066120 ( ( E Q ( C A R X ) \r
0066140
*
0066200 ' F / L ) \r
0066220
0066240 ( 006 002 M S P R G D W I M
0066260 006 001 X F N N A M E F N D E
0066300 F ) ) ) \r
0066320 ( S
0066340 E L E C T Q ( C A R X ) \r
0066360
0066400 ( ( F U
0066420 N C T I O N Q U O T E ) \r
0066440
*
0066500 ( 006 002 M S P R G T E M P L A T
0066520 E 006 001 ( C A D R X ) \r
0066540
*
0066600 ( C O N D \r
0066620
*
0066660 ( ( L I S T P
0066700 ( C A D R X ) ) \r
0066720
*
0066760 ( S E L E C T Q
0067000 T E M P L A T E \r
0067020
*
0067060 ( F U N C T
0067100 I O N A L ' ( R E M O T E L
0067120 A M B D A ) ) \r
0067140
*
0067200 ' L A M B D A
0067220 ) ) \r
0067240
0067260 (
0067300 ( O R ( N E Q ( C A R X )
0067320 \r
0067340
*
0067400 ' F U N C T I O N
0067420 ) \r
0067440
*
0067500 ( E Q T E M P L A T E
0067520 ' F U N C T I O N A L ) ) \r
0067540
*
0067600 ' ( R E M
0067620 O T E C A L L ) ) \r
0067640
*
0067700 ( T ' C A L L )
0067720 ) \r
0067740
0067760 X ) \r
0070000
*
0070040 T ) \r
0070060
0070100 N I L ) ) ) \r
0070120 ( E Q
0070140 X T ) \r
0070160 ( N U L L
0070200 X ) \r
0070220 ( P R O G N
0070240
*
0070300 006 006 ( * a r b i t r a r y e
0070320 x p r e s s i o n a s f u n
0070340 c t i o n a l \r 006 001
0070360
*
0070440 006 006 a r g u m e
0070460 n t ) 006 001 \r
0070500
0070520 ( 006 002 A D D T O 006 001 ' E R
0070540 R O R ' a p p l y P A R E N
0070560 T ) \r
0070600 (
0070620 006 002 M S P R G E 006 001 X P A R
0070640 E N T ' F U N C T I O N A L )
0070660 ) ) ) \r
0070700 ( S T A C K
0070720
*
0070760 006 006 ( * a r g t o s t a
0071000 c k f n , e . g . \r 006 001
0071020
*
0071100 006 006 R E T
0071120 F R O M ) 006 001 \r
0071140 ( O R (
0071160 A N D ( L I S T P X ) \r
0071200
0071220 ( S E L E C
0071240 T Q ( C A R X ) \r
0071260
0071300 ( ( F U N
0071320 C T I O N Q U O T E ) \r
0071340
*
0071400 ( 006 002 A D D T O 006 001 ' S
0071420 T A C K ( C A D R X ) \r
0071440
*
0071500 P A R E N T
0071520 ) \r
0071540
0071560 T ) \r
0071600
0071620 N I L ) ) \r
0071640
0071660 ( P R O G N ( 006
0071700 002 A D D T O 006 001 ' E R R O R
0071720 ' s t a c k f n P A R E N T )
0071740 \r
0071760 (
0072000 006 002 M S P R G E 006 001 X P A R
0072020 E N T ' E V A L ) ) ) ) \r
0072040 ( P R O P
0072060 ( C O N D \r
0072100 ( ( A N D
0072120 ( L I S T P X ) \r
0072140
0072160 ( E Q ( C A R X
0072200 ) \r
0072220
0072240 ' Q U O T E ) ) \r
0072260
0072300 ( 006 002 f o r 006 001 Y 006 002 i n s
0072320 i d e 006 001 ( C A D R X ) 006
0072340 002 d o 006 001 ( 006 002 A D D T O 006 001
0072360 ' P R O P Y P A R E N T )
0072400 ) ) \r
0072420 ( T ( 006 002 M S
0072440 P R G E 006 001 X P A R E N T
0072460 T E M P L A T E ) ) ) ) \r
0072500 ( N I L
0072520
*
0072560 006 006 ( * n
0072600 o t u s e d ) 006 001 \r
0072620 N I L )
0072640 \r ( R E
0072660 T U R N
0072700
0072720 006 006
0072740 ( * t h i s i s s o m e t
0072760 i m e s t h e v a l u e o
0073000 f \r 006 001
0073020
*
0073100 006 006 P A R E N T e x p r e
0073120 s s i o n ) 006 001 \r
0073140 ( 006 002
0073160 M S P R G T E M P L A T E 1 006 001
0073200 X ( S E L E C T Q P A R E
0073220 N T C O N T E X T \r
0073240
*
0073300 ( ( T E S T E F F E C
0073320 T ) \r
0073340
*
0073400 P A R E N T C O N T E X T
0073420 ) \r
0073440
0073460 ' E V A
0073500 L ) ) ) \r
0073520 ( T E S T R E T U R N
0073540
*
0073600 006 006 ( * i f P A R E N T
0073620 i s t e s t e d , t h e n
0073640 s o i s \r 006 001
0073660
*
0073740 006 006 t h i s ) 006 001
0073760 \r
0074000 ( 006 002 M S P R
0074020 G T E M P L A T E 1 006 001 X (
0074040 S E L E C T Q P A R E N T C O
0074060 N T E X T \r
0074100
*
0074140 ( T E S T P A R E N T
0074160 C O N T E X T ) \r
0074200
*
0074240 ' E V A L ) ) ) \r
0074260 ( B I N
0074300 D ( 006 002 M S B I N D V A R 006 001
0074320 X ) ) \r
0074340 ( L A M B D A ( 006 002 M S P R
0074360 G L A M B D A 006 001 X ) ) \r
0074400 ( P P E
0074420
*
0074460 006 006 ( *
0074500 p a r e n e r r o r i f n
0074520 o t N I L ) 006 001 \r
0074540 ( C O N D
0074560 \r
0074600 ( X ( 006 002 M S P R G
0074620 E R R 006 001 P A R E N T ) \r
0074640
0074660 ( 006 002 M S P R G L S T
0074700 006 001 X P A R E N T ) ) ) ) \r
0074720 ( C A L
0074740 L ( 006 002 M S P R G C A L L 006 001
0074760 X P A R E N T P A R E N T
0075000 C O N T E X T ) ) \r
0075020 ( E V A L Q T ( C
0075040 O N D \r
0075060 ( ( E Q
0075100 ( C A R X ) \r
0075120
0075140 ' Q U O T E ) \r
0075160
0075200 ( 006 002 M S P R G T E M P
0075220 L A T E 006 001 ( C A D R X ) \r
0075240
0075260 '
0075300 ( R E M O T E E V A L ) P A
0075320 R E N T ) ) \r
0075340 ( T
0075360 ( 006 002 M S P R G E 006 001 X P
0075400 A R E N T ' E V A L ) ) ) ) \r
0075420 ( 006 002 A
0075440 D D T O 006 001 T E M P L A T E
0075460 X P A R E N T T ) ) ) \r
0075500 ( T ( S E L E C T Q
0075520 ( C A R T E M P L A T E ) \r
0075540 ( I
0075560 F ( P R O G ( ( E X P R X
0075600 ) ) \r
0075620 ( 006 002 D E
0075640 C L A R E 006 001 ( S P E C V A R
0075660 S E X P R ) ) \r
0075700
0075720 ( 006 002 M S P R G T E M P L A T
0075740 E 1 006 001 X ( C O N D \r
0075760
*
0076020 ( ( C O N D
0076040 \r
0076060
*
0076120 ( ( L I S T P ( C A D R
0076140 T E M P L A T E ) ) \r
0076160
*
0076240 006 006 ( * A S S
0076260 E R T % : ( ( R E M O T E E
0076300 V A L ) E X P R ) ) 006 001 \r
0076320
*
0076400 ( E V A L ( C A D R T E M P
0076420 L A T E ) ) ) \r
0076440
*
0076500 ( T ( A P P
0076520 L Y * ( C A D R T E M P L A
0076540 T E ) \r
0076560
*
0076620 X
0076640 ) ) ) \r
0076660
*
0076720 ( C A D D R T E M P L A T
0076740 E ) ) \r
0076760
*
0077020 ( T ( C A D D D R T E M P
0077040 L A T E ) ) ) ) ) ) \r
0077060 ( . . ( C O
0077100 N D \r
0077120 ( ( A N D ( C
0077140 A D R T E M P L A T E ) \r
0077160
0077200 ( N U L L (
0077220 C D D R T E M P L A T E ) ) )
0077240 006 006 ( *
0077260 S p e c i a l c a s e t o
0077300 h a n d l e m o s t c o m m
0077320 o n \r 006 001
0077340
*
0077420 006 006 c a s e s ) 006 001 \r
0077440
0077460 ( M A P C X ( F U N
0077500 C T I O N ( L A M B D A ( X
0077520 ) \r
0077540
0077560 ( 006 002 M
0077600 S P R G T E M P L A T E 1 006 001
0077620 X ( C A D R T E M P L A T E
0077640 ) ) ) ) ) ) \r
0077660 ( T (
0077700 F R P T Q ( I D I F F E R E N
0077720 C E ( L E N G T H X ) \r
0077740
*
0100000 ( L E N G T H ( C D D
0100020 R T E M P L A T E ) ) ) \r
0100040
0100060 ( 006 002
0100100 M S P R G T E M P L A T E 1 006 001
0100120 ( C A R X ) \r
0100140
0100160 (
0100200 C A D R T E M P L A T E ) ) \r
0100220
0100240 (
0100260 S E T Q X ( C D R X ) ) )
0100300 \r
0100320 ( 006 002 M S P R
0100340 G T E M P L A T E 1 006 001 X (
0100360 C D D R T E M P L A T E ) ) )
0100400 ) ) \r
0100420 ( M A C R O ( 006 002 A D D T O
0100440 006 001 ' C A L L ( C A R X )
0100460 \r
0100500 P A R
0100520 E N T ) \r
0100540 ( 006 002 M S P
0100560 R G M A C R O 006 001 X ( C D R
0100600 T E M P L A T E ) ) ) \r
0100620 ( B O T H
0100640 ( 006 002 M S P R G T E M P L A T
0100660 E 1 006 001 X ( C A D R T E M
0100700 P L A T E ) ) \r
0100720 ( 006 002 M
0100740 S P R G T E M P L A T E 1 006 001
0100760 X ( C A D D R T E M P L A T
0101000 E ) ) ) \r
0101020 ( @ ( P R O G ( ( E X
0101040 P R X ) ) \r
0101060 ( 006
0101100 002 D E C L A R E 006 001 ( S P E C
0101120 V A R S E X P R ) ) \r
0101140
0101160 ( 006 002 M S P R G T E M P L
0101200 A T E 1 006 001 ( E V A L ( C A
0101220 D R T E M P L A T E ) ) \r
0101240
0101260 ( E V A
0101300 L ( C A D D R T E M P L A T
0101320 E ) ) ) ) ) \r
0101340 ( R E M O T E ( P R
0101360 O G ( 006 002 V A R S 006 001 ( T O
0101400 P V A R S ( C O N S V A R S
0101420 T O P V A R S ) ) ) \r
0101440
0101460 ( 006 002 M S P R G
0101500 T E M P L A T E 1 006 001 X ( C
0101520 A D R T E M P L A T E ) ) ) )
0101540 \r (
0101560 C O N D \r
0101600 ( ( L I S T P X )
0101620 \r
0101640 ( 006 002 M S P R G T E M P L
0101660 A T E 1 006 001 ( C A R X ) \r
0101700
0101720 ( C A R T E M
0101740 P L A T E ) ) \r
0101760 ( 006 002 M S P
0102000 R G T E M P L A T E 1 006 001 ( C
0102020 D R X ) \r
0102040 (
0102060 C D R T E M P L A T E ) ) ) )
0102100 ) ) ) ) ) \r \r ( 006 004 M S P R G T
0102120 E M P L A T E 006 001 \r ( L A M
0102140 B D A ( P A R E N T T E M P
0102160 L A T E P A R E N T C O N T E
0102200 X T ) 006 006 006 001
0102220 006 006 ( *
0102240 l m m " 2 3 - J u l - 8 6 0
0102260 0 : 1 5 " ) 006 001 \r ( B L
0102300 O C K )
0102320
*
0102360 006 006 ( * \r 006 001
0102400
0102420 006 006 " M a s t e r s c
0102440 o p e s h o u l d b l o c k
0102460 e v e r y o n c e a n d
0102500 a w h i l e . T h i s i s
0102520 o n e p l a c e t o d o
0102540 i t . " ) 006 001 \r ( P R
0102560 O G ( ( 006 002 V A R S 006 001 V A
0102600 R S ) \r T
0102620 E M ) \r ( C
0102640 O N D \r
0102660 ( ( E Q T E M P L A T E '
0102700 M A C R O ) \r
0102720 ( C O N D \r
0102740 ( ( S E
0102760 T Q T E M ( G E T M A C R O
0103000 P R O P ( C A R P A R E N T
0103020 ) \r
0103040
0103060 M S M A C R O P R O P
0103100 S ) ) \r
0103120 ( 006 002 M S P R G M A
0103140 C R O 006 001 P A R E N T T E M
0103160 ) ) \r
0103200 ( T ( 006 002 M S P R G T
0103220 E M P L A T E 1 006 001 P A R E N
0103240 T ' ( C A L L . . E V A L
0103260 ) ) ) ) ) \r
0103300 ( T ( 006 002 M S P R G T E
0103320 M P L A T E 1 006 001 P A R E N T
0103340 T E M P L A T E ) ) ) ) ) ) \r
0103360 \r ( 006 004 M S P R G L A M B D A 006
0103400 001 \r ( L A M B D A ( E X P
0103420 R F L G T Y P E ) 006 006 006 001
0103440
*
0103500 006 006 ( * l m m " 2 2 -
0103520 J u l - 8 6 1 8 : 4 1 " ) 006 001
0103540 \r ( S E L E C T Q ( C
0103560 A R ( L I S T P E X P R ) )
0103600 \r ( C L : L A M
0103620 B D A ( L E T ( ( P A R E N
0103640 T E X P R ) \r
0103660
0103700 ( P A R E N T C O N T E X T
0103720 T Y P E ) \r
0103740 (
0103760 006 002 V A R S 006 001 V A R S ) ) \r
0104000
0104020 ( 006 002 F O R 006 001
0104040 A R G 006 002 I N 006 001 ( C A D
0104060 R E X P R ) \r
0104100
0104120 006 002 D O 006 001 ( C O N D \r
0104140
*
0104200 ( ( C L : S Y M B O L P A R
0104220 G ) \r
0104240
0104260 ( O R ( F M E M B
0104300 A R G C L : L A M B D A - L I
0104320 S T - K E Y W O R D S ) \r
0104340
*
0104400 ( 006 002 M S B I N D V A R 006
0104420 001 A R G ) ) ) \r
0104440
0104460 ( ( C L : C
0104500 O N S P A R G ) \r
0104520
0104540 ( P R O
0104560 G 1 ( 006 002 M S P R G T E M P L
0104600 A T E 1 006 001 ( C A D R A R G
0104620 ) \r
0104640
*
0104700 ' E V A L ) \r
0104720
*
0104760 ( C L : I F ( C L : S Y M
0105000 B O L P ( C A R A R G ) ) \r
0105020
*
0105100 ( 006 002 M S B I N D V A R 006 001 (
0105120 C A R A R G ) ) \r
0105140
*
0105200 ( 006 002 M S B
0105220 I N D V A R 006 001 ( C A D A R
0105240 A R G ) ) ) \r
0105260
*
0105320 ( O R ( N U L L ( C D D R
0105340 A R G ) ) \r
0105360
*
0105420 ( N O T ( C L : S Y M B
0105440 O L P ( C A D D R A R G ) )
0105460 ) \r
0105500
0105520 (
0105540 006 002 M S B I N D V A R 006 001 A R
0105560 G ) ) ) ) \r
0105600
0105620 ( T ( 006 002 M S P
0105640 R G T E M P L A T E 1 006 001 A R
0105660 G ' P P E ) ) ) ) \r
0105700
0105720 ( 006 002 M S P R G T E M P L
0105740 A T E 1 006 001 ( C D D R E X P
0105760 R ) \r
0106000
0106020 ' ( . . E V A L R E T U
0106040 R N ) ) ) ) \r (
0106060 ( L A M B D A N L A M B D A
0106100 O P E N L A M B D A ) \r
0106120 ( 006 002 M S P
0106140 R G T E M P L A T E 006 001 E X P
0106160 R ' ( N I L ( 006 002 I F 006 001
0106200 L I S T P ( . . B I N D ) \r
0106220
*
0106260 ( 006 002 I F
0106300 006 001 ( P R O G N E X P R )
0106320 B I N D ) ) \r
0106340
0106360 . .
0106400 E F F E C T R E T U R N )
0106420 T Y P E ) ) \r (
0106440 P R O G ( 006 002 C L I S P 006 001
0106460 T E M ) \r
0106500 ( C O N D \r
0106520 ( ( A N D
0106540 ( S E T Q T E M ( A S S O C
0106560 ( C A R E X P R ) \r
0106600
*
0106640 L A M B D A T R A N F N
0106660 S ) ) \r
0106700 ( S E T Q
0106720 C L I S P ( C L : F U N C A
0106740 L L ( C A D R T E M ) \r
0106760
*
0107020 E X P R ) ) ) \r
0107040
0107060 ( P R O G ( ( I N C L I S
0107100 P ( I N C L I S P E X P R )
0107120 ) ) \r
0107140 ( 006 002 M S
0107160 P R G L A M B D A 006 001 C L I S
0107200 P F L G T ) ) ) \r
0107220 ( ( A N
0107240 D D W I M F L G ( S E T Q
0107260 C L I S P ( 006 002 M S D W I M T
0107300 R A N 006 001 E X P R ) ) ) \r
0107320
*
0107400 006 006 ( *
0107420 h a s a C L I S P t r a n
0107440 s l a t i o n \r 006 001
0107460
*
0107540 006 006 ( e . g . D
0107560 L A M B D A ) ) 006 001 \r
0107600 ( P R
0107620 O G ( ( I N C L I S P ( I N
0107640 C L I S P E X P R ) ) )
0107660 006 006 ( * r e b
0107700 i n d I N C L I S P , a n d
0107720 t r y a g a i n o n \r 006
0107740 001
0107760
*
0110020 006 006
0110040 t h e t r a n s l a t i o n )
0110060 006 001 \r
0110100 ( 006 002 M S
0110120 P R G L A M B D A 006 001 C L I S
0110140 P F L G T Y P E ) ) ) \r
0110160 (
0110200 T ( 006 002 M S P R G E R R 006 001
0110220 E X P R ) \r
0110240 ( 006 002 M S P
0110260 R G E 006 001 E X P R ) ) ) ) ) )
0110300 ) \r \r ( 006 004 M S P R G L S T 006 001
0110320 \r ( L A M B D A ( L P A
0110340 R N T C N T X ) 006 006 006 001
0110360
*
0110420 006 006 ( * l m m " 2 7 - J
0110440 U N - 7 8 0 1 : 5 7 " ) 006 001 \r
0110460 ( 006 002 f o r 006 001 X 006
0110500 002 i n 006 001 L 006 002 d o 006 001 (
0110520 006 002 M S P R G E 006 001 X P A R
0110540 N T C N T X ) ) ) ) \r \r ( 006 004
0110560 A D D T O 006 001 \r ( L A M B D
0110600 A ( R E L A T I O N W H A T
0110620 P R N T F L G ) 006 006 006 001
0110640
0110660 006 006 ( * l m
0110700 m " 2 4 - D E C - 7 8 1 1 :
0110720 5 1 " ) 006 001 \r ( P R O G
0110740 ( ( P T R ( F A S S O C R
0110760 E L A T I O N M S F N D A T A
0111000 ) ) ) \r ( O
0111020 R P T R ( C O N D \r
0111040
0111060 ( F L G ( R E T U R N ) ) \r
0111100
0111120 ( T ( S H O U L D N
0111140 T ) ) ) ) \r
0111160 ( O R ( N U L L O N L Y R E
0111200 L S ) \r
0111220 ( F M E M B R E L A T I O
0111240 N O N L Y R E L S ) \r
0111260 ( R E T U R
0111300 N ) ) \r ( A
0111320 N D E A C H T I M E ( E Q M
0111340 E M B R E L A T I O N ( C A
0111360 R E A C H T I M E ) ) \r
0111400 ( A P P
0111420 L Y * ( C A D R E A C H T I
0111440 M E ) \r
0111460 W H A T \r
0111500
0111520 ( C A D D R E A C H
0111540 T I M E ) \r
0111560 ( C A D
0111600 D D R E A C H T I M E ) \r
0111620
0111640 P R N T I N C L I S P
0111660 ) ) \r L P ( C O
0111700 N D \r
0111720 ( ( N U L L ( C D R P T R )
0111740 ) \r
0111760 ( F R P L A C D P T R ( L I
0112000 S T W H A T ) ) ) \r
0112020 ( ( E Q ( C A
0112040 R ( S E T Q P T R ( C D R
0112060 P T R ) ) ) \r
0112100 W H A T ) \r
0112120 ( R
0112140 E T U R N ) ) \r
0112160 ( T ( G O L P ) )
0112200 ) ) ) ) \r \r ( 006 004 N L A M B D A
0112220 F N P 006 001 \r ( L A M B D A
0112240 ( F N ) 006 006 006 001
0112260
*
0112320 006 006 ( * l m m
0112340 " 2 6 - M a r - 8 5 1 2 : 3 7
0112360 " ) 006 001 \r ( A N D ( N
0112400 O T ( E Q M E M B ' E V A L
0112420 ( G E T P R O P F N ' I N
0112440 F O ) ) ) \r (
0112460 C O N D \r
0112500 ( ( O R ( F G E T D ( S E
0112520 T Q F N ( O R ( G E T P R
0112540 O P F N ' B R O K E N ) \r
0112560
*
0112620 F N ) ) ) \r
0112640 ( S E T Q
0112660 F N ( G E T L I S F N '
0112700 ( E X P R C O D E ) ) ) ) \r
0112720 \r
0112740 006 006 ( * i f t h e
0112760 f u n c t i o n i s d e f i
0113000 n e d , c h e c k i t s a
0113020 r g t y p e t o t e l l y
0113040 o u w h e t h e r i t i s
0113060 \r 006 001 006 006
0113100 N L A M B D A o r L A M B D
0113120 A ) 006 001 \r \r
0113140 ( S E L E C T Q ( A R G
0113160 T Y P E F N ) \r
0113200 ( ( 1 3 )
0113220 \r
0113240 T ) \r
0113260 N I L )
0113300 ) \r ( T
0113320
*
0113360 006
0113400 006 ( * o t h e r w i s e , r
0113420 e l y o n N L A M A o r
0113440 N L A M L ) 006 001 \r
0113460 ( O R ( F M E
0113500 M B F N N L A M A ) \r
0113520
0113540 ( F M E M B F N N L A M L )
0113560 ) ) ) ) ) ) \r \r ( 006 004 M S P R G
0113600 D W I M 006 001 \r ( L A M B D A
0113620 ( X F N D E F ) 006 006 006 001
0113640
*
0113700 006 006 ( * l m m
0113720 " 1 9 - J u n - 8 6 1 3 : 5
0113740 8 " ) 006 001 \r ( A N D D
0113760 W I M F L G ( L E T ( ( N O
0114000 S P E L L F L G T ) \r
0114020
0114040 ( D W I M E S S G A G T
0114060 ) \r
0114100 F I L E P K G
0114120 F L G ) \r
0114140 ( P R O G
0114160 ( L I S P X H I S T )
0114200
0114220 006 006 ( * A S S E R T % :
0114240 ( ( R E M O T E E V A L ) D
0114260 W I M E S S G A G \r 006 001
0114300
*
0114360 006 006 F I L E
0114400 P K G F L G N O S P E L L F L
0114420 G ) ) 006 001 \r
0114440
0114460 ( D W I M I F Y 0 X ( O
0114500 R ( A N D ( L I T A T O M
0114520 F N ) \r
0114540
*
0114600 F N ) \r
0114620
*
0114660 ' ? ) \r
0114700
0114720 V A R S
0114740 D E F ) ) ) ) ) ) \r \r ( 006 004 M
0114760 S D W I M T R A N 006 001 \r ( L
0115000 A M B D A ( E X P R ) 006 006 006 001
0115020
*
0115060 006 006 (
0115100 * D D % : " 2 8 - D E C - 8
0115120 1 1 3 : 4 6 " ) 006 001 \r
0115140 ( A N D D W I M F L G ( C O
0115160 N D \r
0115200 ( ( A N D C L I
0115220 S P A R R A Y ( G E T H A S H
0115240 E X P R C L I S P A R R A Y
0115260 ) ) ) \r
0115300 ( ( A N D C L
0115320 I S P T R A N F L G ( E Q (
0115340 C A R ( L I S T P E X P R )
0115360 ) \r
0115400
0115420 C L I
0115440 S P T R A N F L G ) ) \r
0115460
0115500 ( C A D R E X P R ) ) \r
0115520
0115540 ( T ( 006 002 M S P R G D W I
0115560 M 006 001 E X P R F N N A M E
0115600 F N D E F ) \r
0115620 ( O
0115640 R ( A N D C L I S P A R R A
0115660 Y ( G E T H A S H E X P R
0115700 C L I S P A R R A Y ) ) \r
0115720
0115740 ( A N D C L I
0115760 S P T R A N F L G ( E Q ( C
0116000 A R ( L I S T P E X P R ) )
0116020 \r
0116040
*
0116100 C L I S P T R A N F L G ) \r
0116120
*
0116160 ( C A D R E X P R ) ) ) ) ) )
0116200 ) ) \r ) \r \r ( R P A Q Q 006 002 M
0116220 S F N D A T A 006 001 ( ( B I N D
0116240 ) \r
0116260 ( C A L L ) \r
0116300 ( E F F E
0116320 C T ) \r
0116340 ( P R E D I C A T E )
0116360 \r
0116400 ( C L I S P ) \r
0116420 ( P R O P
0116440 ) \r
0116460 ( S E T F R E E ) \r
0116500 ( S
0116520 E T ) \r
0116540 ( S M A S H F R E E )
0116560 \r
0116600 ( S M A S H ) \r
0116620 ( R E F F
0116640 R E E ) \r
0116660 ( R E F ) \r
0116700 ( F E
0116720 T C H ) \r
0116740 ( R E P L A C E ) \r
0116760
0117000 ( R E C O R D ) \r
0117020 ( E R R O
0117040 R ) \r
0117060 ( A R G ) \r
0117100 ( C R E A
0117120 T E ) \r
0117140 ( L O C A L V A R S )
0117160 \r
0117200 ( S P E C V A R S ) \r
0117220 ( A
0117240 P P L Y ) \r
0117260 ( T E S T F R E E
0117300 ) \r
0117320 ( T E S T ) \r
0117340 ( L O C A
0117360 L F R E E V A R S ) \r
0117400 [ N L A
0117420 M B D A ] \r
0117440 ( T Y P E ) \r
0117460 (
0117500 S T A C K ) ) ) \r \r ( R P A Q Q
0117520 006 002 M S E R R O R F N 006 001 p
0117540 p e ) \r \r ( R P A Q Q 006 002 M S
0117560 R E C O R D T R A N F L G 006 001
0117600 N I L ) \r \r ( A D D T O V A R
0117620 006 002 I N V I S I B L E V A R S 006
0117640 001 \r $ $ 1
0117660 $ $ 2 $ $ 3 $ $ 4 $ $ 5
0117700 $ $ 6 $ $ 7 $ $ 8 $ $ 9
0117720 $ $ 1 0 $ $ 1 1 $ $ 1 2
0117740 $ $ 1 3 $ $ 1 4 $ $ 1 5 $
0117760 $ 1 6 $ $ 1 7 ) \r ( D E C L A
0120000 R E % : D O N T C O P Y \r (
0120020 D E C L A R E % : E V A L @ C
0120040 O M P I L E \r \r [ P U T P R O
0120060 P S I N C L I S P M A C R O
0120100 ( ( . X . ) \r
0120120
0120140 ( C O N D ( ( A N D I N C
0120160 L I S P E A C H T I M E ( N
0120200 O T ( M S F I N D P I N C L
0120220 I S P . X . ) ) ) \r
0120240
0120260 I N C L I
0120300 S P ) \r
0120320
0120340 ( T . X . ] \r [ P U T P
0120360 R O P S L T E M P L A T E M
0120400 A C R O ( L A M B D A ( Y )
0120420 \r
0120440
0120460 ( D E C L A R E ( L O C A
0120500 L V A R S Y ) ) \r
0120520
0120540 ( A N D
0120560 [ N E Q T ( S E T Q Y (
0120600 O R ( G E T H A S H Y U S
0120620 E R T E M P L A T E S ) \r
0120640
*
0120720 ( G E T H A S H Y
0120740 M S T E M P L A T E S ] \r
0120760
*
0121020 Y ] \r ) \r ) \r ( D E C L
0121040 A R E % : D O N T E V A L @ L
0121060 O A D D O E V A L @ C O M P I
0121100 L E D O N T C O P Y \r ( B L O
0121120 C K % : A L L C A L L S A L
0121140 L C A L L S A D D T O M S B
0121160 I N D V A R M S D W I M T R A
0121200 N M S P R G C A L L M S P R
0121220 G D W I M M S P R G E M S P
0121240 R G M A C R O M S P R G E R R
0121260 \r M S P R G L A
0121300 M B D A M S P R G L S T M S
0121320 P R G R E C O R D M S P R G T
0121340 E M P L A T E M S P R G T E M
0121360 P L A T E 1 N L A M B D A F N
0121400 P ( N O L I N K F N S . T
0121420 ) \r ( L O C A L F
0121440 R E E V A R S F N N A M E E
0121460 R R O R S F N D E F I N C L
0121500 I S P O N L Y R E L S P A R
0121520 E N T C O N T E X T T O P V A
0121540 R S P A R E N T E A C H T I
0121560 M E V A R S \r
0121600 ) \r (
0121620 G L O B A L V A R S C L I S P
0121640 A R R A Y M S E R R O R F N
0121660 M S R E C O R D T R A N F L G
0121700 M S F N D A T A I N V I S I B
0121720 L E V A R S C L I S P A R R A
0121740 Y M S T E M P L A T E S \r
0121760 U S E
0122000 R T E M P L A T E S M S R E C
0122020 O R D T R A N F L G N L A M A
0122040 N L A M L D W I M F L G C
0122060 L I S P T R A N F L G D W I M
0122100 E S S G A G ) \r (
0122120 N O L I N K F N S . T ) ) \r
0122140 ( B L O C K % : N I L M S I
0122160 N I T F N D A T A N L A M B D
0122200 A F N P M S P R G D W I M (
0122220 L O C A L V A R S . T ) \r
0122240 ( G L O B A L V A R
0122260 S N L A M A N L A M L M S
0122300 F N D A T A D W I M F L G D
0122320 W I M E S S G A G ) ) \r ) \r [ P
0122340 U T D Q ? M S W O R D N A M E
0122360 ( L A M B D A ( X ) \r
0122400
0122420 X ] \r \r ( R P A Q
0122440 006 002 M S T E M P L A T E S 006 001
0122460 ( H A S H A R R A Y 1 6 0 )
0122500 ) \r \r ( R P A Q 006 002 U S E R T
0122520 E M P L A T E S 006 001 ( H A S H
0122540 A R R A Y 1 0 ) ) \r \r ( R P A
0122560 Q Q 006 002 I N I T I A L T E M P
0122600 L A T E S 006 001 \r
0122620 ( ( ( C A L L ( R E M O T E
0122640 ( I F L I T A T O M C A L L
0122660 L A M B D A ) ) \r
0122700 ( I F L I T
0122720 A T O M E V A L N I L ) ) \r
0122740 F U N C T I O
0122760 N ) \r ( ( N I L
0123000 N I L . . E V A L R E T
0123020 U R N ) \r C L
0123040 : B L O C K ) \r
0123060 ( ( C A L L . . E V A L ) \r
0123100 C L : C A T C
0123120 H C L : T H R O W ) \r
0123140 ( ( N I L N I L E V
0123160 A L ) \r C L :
0123200 R E T U R N - F R O M ) \r
0123220 ( [ I F ( E Q ( C
0123240 A D R E X P R ) \r
0123260 ' A S S E
0123300 R T % : ) \r
0123320 ( N I L N I L . . (
0123340 I F L I S T P ( @ ( C D R
0123360 E X P R ) \r
0123400
0123420 ( L I
0123440 S T ' . . ( M S W O R D N A
0123460 M E ( C A R E X P R ] \r
0123500 * ) \r
0123520 ( ( N I L ( B O T H ( .
0123540 . ( I F L I S T P ( N I L
0123560 E V A L . . E F F E C T )
0123600 \r
0123620 N I L
0123640 ) ) \r
0123660 ( . . ( I F L
0123700 I S T P ( B I N D ) \r
0123720
0123740 B I N D ) ) ) \r
0123760 . .
0124000 E F F E C T R E T U R N ) \r
0124020 L E T C L :
0124040 C O M P I L E R - L E T ) \r
0124060 ( ( N I L ( . .
0124100 ( I F L I S T P ( B I N D
0124120 E V A L . P P E ) \r
0124140
0124160 B I N D ) ) \r
0124200 . . E F F E C T
0124220 R E T U R N ) \r
0124240 L E T * ) \r
0124260 ( ( N I L . . ( I F L I S
0124300 T P E F F E C T ) ) \r
0124320 C L : T A G B O D Y )
0124340 \r ( ( N I L (
0124360 B O T H ( . . ( I F L I S
0124400 T P ( N I L E V A L . .
0124420 E F F E C T ) \r
0124440
0124460 N I L ) ) \r
0124500 ( .
0124520 . ( I F L I S T P ( B I N
0124540 D ) \r
0124560 B
0124600 I N D ) ) ) \r
0124620 . . \r
0124640 ( I F L I S T P
0124660 E F F E C T ) ) \r
0124700 P R O G ) \r
0124720 ( M A C R O R E S E T V A R S
0124740 ) \r ( ( C A L L
0124760 E V A L ) \r
0125000 X N L S E T Q N L S E T Q E
0125020 R S E T Q ) \r (
0125040 ( C A L L . . E V A L ) \r
0125060 R E S E T F O R
0125100 M F R P T Q ) \r
0125120 ( ( C A L L E V A L E V A
0125140 L F U N C T I O N A L F U N
0125160 C T I O N A L . P P E ) \r
0125200 M A P 2 C ) \r
0125220 ( ( C A L L E V
0125240 A L E V A L S M A S H .
0125260 P P E ) \r / D
0125300 S U B S T D S U B S T ) \r
0125320 ( ( C A L L E V A
0125340 L F U N C T I O N F U N C T
0125360 I O N . P P E ) \r
0125400 M A P C A R M A P C O
0125420 N M A P C O N C M A P L I S
0125440 T S U B S E T E V E R Y N
0125460 O T E V E R Y A N Y N O T A
0125500 N Y S O M E M A P C M A P
0125520 ) \r ( ( C A L L
0125540 E V A L F U N C T I O N A L
0125560 . P P E ) \r
0125600 M A P H A S H ) \r
0125620 ( ( C A L L E V A L P R
0125640 O P . P P E ) \r
0125660 G E T P G E T L I S G
0125700 E T G E T P R O P L I S T G
0125720 E T L I S T G E T 1 R E M P
0125740 R O P / R E M P R O P ) \r
0125760 ( ( C A L L E V A
0126000 L P R O P E V A L . P P
0126020 E ) \r P U T
0126040 / P U T P U T P R O P / P U
0126060 T P R O P L I S T P U T L I
0126100 S T P U T 1 ) \r
0126120 ( ( C A L L E V A L S M A S
0126140 H . P P E ) \r
0126160 / A T T A C H A T T A C H
0126200 ) \r ( ( C A L L
0126220 F U N C T I O N A L . P P
0126240 E ) \r M A P A
0126260 T O M S ) \r ( (
0126300 C A L L F U N C T I O N A L
0126320 . . E V A L ) \r
0126340 A P P L Y * B L K A P P L
0126360 Y * A P P L Y B L K A P P L
0126400 Y ) \r ( ( C A L
0126420 L E V A L S M A S H . P
0126440 P E ) \r D R E
0126460 M O V E / D R E M O V E ) \r
0126500 ( ( C A L L S E
0126520 T E V A L E V A L . P P
0126540 E ) \r R E S E
0126560 T V A R ) \r ( (
0126600 C A L L S E T E V A L .
0126620 P P E ) \r S E
0126640 T N ) \r ( ( C A
0126660 L L S M A S H . P P E ) \r
0126700 D R E V E R S
0126720 E ) \r ( ( C A L
0126740 L S M A S H E V A L . P
0126760 P E ) \r R P L
0127000 A C D / R P L A C D R P L A
0127020 C A / R P L A C A R P L N O
0127040 D E 2 / R P L N O D E 2 F R
0127060 P L A C D F R P L N O D E 2
0127100 T C O N C / T C O N C L C O
0127120 N C / L C O N C \r
0127140 N C O N C 1 / N C O N
0127160 C 1 F R P L A C A ) \r
0127200 ( ( C A L L S M A S H
0127220 E V A L E V A L . P P E
0127240 ) \r R P L N O
0127260 D E F R P L N O D E / R P L
0127300 N O D E ) \r ( (
0127320 C A L L S M A S H F U N C T
0127340 I O N A L . P P E ) \r
0127360 S O R T ) \r
0127400 ( ( C A L L ( B O T H
0127420 S E T E V A L ) . P P E
0127440 ) \r A D D 1 V
0127460 A R S U B 1 V A R ) \r
0127500 ( ( C A L L ( I F N
0127520 U L L N I L ( I F A T O M
0127540 S E T E V A L ) ) \r
0127560 E V A L
0127600 . P P E ) \r
0127620 R E S E T S A V E ) \r
0127640 ( ( C A L L ( I F ( E
0127660 Q ( C A R ( L I S T P E X
0127700 P R ) ) \r
0127720 ' Q U O
0127740 T E ) \r
0127760 ( N I L S E T )
0130000 \r
0130020 E V A L ) \r
0130040 E V A L .
0130060 P P E ) \r S E
0130100 T / S E T S E T T O P V A L
0130120 / S E T T O P V A L S E T A
0130140 T O M V A L / S E T A T O M V
0130160 A L ) \r ( ( C A
0130200 L L ( I F ( E Q ( C A R
0130220 ( L I S T P E X P R ) ) \r
0130240
0130260 ' Q U O T E ) \r
0130300
0130320 ( N I L S E T ) \r
0130340 E V A
0130360 L ) \r
0130400 E V A L E V A L E V A L
0130420 . P P E ) \r
0130440 S A V E S E T ) \r
0130460 ( ( C A L L ( I F ( E Q
0130500 ( C A R ( L I S T P E X P
0130520 R ) ) \r
0130540 ' Q U O T
0130560 E ) \r
0130600 ( N I L E V A L )
0130620 \r
0130640 E V A L ) \r
0130660 . . E V A L
0130700 ) \r G E T A T
0130720 O M V A L E V A L E V A L V
0130740 ) \r ( ( N I L
0130760 . . T E S T R E T U R N R E
0131000 T U R N ) \r O
0131020 R ) \r ( ( N I L
0131040 . . T E S T R E T U R N )
0131060 \r A N D ) \r
0131100 ( ( N I L . .
0131120 E F F E C T R E T U R N ) \r
0131140 P R O G N ) \r
0131160 ( ( N I L T E S
0131200 T R E T U R N R E T U R N )
0131220 \r C L : I F )
0131240 \r ( ( N I L .
0131260 . ( I F C D R ( T E S T
0131300 . . E F F E C T R E T U R N
0131320 ) \r
0131340 ( T E S T R E T U
0131360 R N . P P E ) ) ) \r
0131400 C O N D ) \r
0131420 ( [ C A L L . . ( @
0131440 E X P R ( C O N S N I L (
0131460 S E L E C T Q ( C A R ( L I
0131500 S T P E X P R ) ) \r
0131520
*
0131560 ( L O C A L V A R S
0131600 ' ( I F L I S T P ( . .
0131620 L O C A L V A R S ) \r
0131640
*
0131720 L O C A L V A R S )
0131740 ) \r
0131760
0132000 ( S P
0132020 E C V A R S ' ( I F L I S T
0132040 P ( . . S P E C V A R S ) \r
0132060
*
0132140 S P E C V A
0132160 R S ) ) \r
0132200
*
0132240 N I L ] \r D E
0132260 C L A R E ) \r (
0132300 ( N I L R E T U R N ) \r
0132320 C L I S P % ) \r
0132340 ( ( N I L E V A
0132360 L . P P E ) \r
0132400 L I S T P N L I S T P R
0132420 E T U R N ) \r (
0132440 ( N I L T E S T . P P E )
0132460 \r N O T N U
0132500 L L ) \r ( ( C A
0132520 L L E V A L . . ( N I L
0132540 . . E F F E C T R E T U R N
0132560 ) \r
0132600 R E T U R N ) \r
0132620 S E L E C T Q S E L C H A
0132640 R Q ) \r ( ( C A
0132660 L L E V A L . . ( E V A L
0132700 . . E F F E C T R E T U R
0132720 N ) \r
0132740 R E T U R N ) \r
0132760 S E L E C T C ) \r
0133000 ( ( C A L L E V A L
0133020 . . ( ( I F L I S T P ( .
0133040 . E V A L ) \r
0133060
0133100 E V A L ) \r
0133120
0133140 . . E F F E C T R E T U
0133160 R N ) \r
0133200 R E T U R N ) \r
0133220 S E L E C T ) \r
0133240 ( ( N I L E V A L E
0133260 V A L . P P E ) \r
0133300 E Q N E Q ) \r
0133320 ( ( N I L N I L .
0133340 P P E ) \r Q U
0133360 O T E G O ) \r
0133400 ( ( N I L E V A L . P P E
0133420 ) \r C A R C
0133440 D R C A A R C A D R C D A
0133460 R C D D R C A A A R C A A
0133500 D R C A D A R C D A A R C
0133520 A D D R C D A D R C D D A R
0133540 C D D D R C A A A A R C A
0133560 A A D R \r C
0133600 A A D A R C A A D D R C A D
0133620 A A R C A D A D R C A D D A
0133640 R C A D D D R C D A A A R
0133660 C D A A D R C D A D A R C D
0133700 A D D R C D D A A R C D D A
0133720 D R C D D D A R \r
0133740 C D D D D R ) \r
0133760 ( ( N I L R E T U R N
0134000 . . E F F E C T ) \r
0134020 P R O G 1 ) \r
0134040 ( ( N I L S E T N I
0134060 L . P P E ) \r
0134100 S E T Q Q ) \r
0134120 ( ( N I L S E T E V A L
0134140 . P P E ) \r
0134160 S E T Q A D V - S E T Q S A
0134200 V E S E T Q ) \r
0134220 ( [ @ E X P R ( C O N S N
0134240 I L ( M A P C O N ( C D R
0134260 E X P R ) \r
0134300
0134320 [ F U N C T I O
0134340 N ( L A M B D A ( X ) \r
0134360
*
0134440 ( i f ( L I T A T O M ( C
0134460 A R X ) ) \r
0134500
*
0134540 t h
0134560 e n \r
0134600
*
0134640 ( L I S T
0134660 ' S E T ' E V A L ) \r
0134700
*
0134760 e l s e \r
0135000
*
0135040 (
0135060 L I S T ' S M A S H ' E V A
0135100 L ] \r
0135120
0135140 ( F U N C T I O N (
0135160 L A M B D A ( X ) \r
0135200
*
0135240 ( C
0135260 D D R X ] \r
0135300 C L : S E T Q C L : S E T F )
0135320 \r ( ( C A L L
0135340 E V A L ( B O T H ( @ ' R
0135360 P T N ' B I N D ) \r
0135400
0135420 R E T U R N ) . P
0135440 P E ) \r R P T
0135460 Q ) \r ( ( C A L
0135500 L E V A L Q T . . E V A L
0135520 ) \r E V A L
0135540 E R R O R S E T ) \r
0135560 ( ( B O T H [ I F ( E Q
0135600 ( C A R ( L I S T P ( C A
0135620 D D R E X P R ) ) ) \r
0135640
0135660 ' Q U O T E ) \r
0135700 ( N
0135720 I L N I L ( N I L ( . .
0135740 ( B I N D ] \r
0135760 ( C A L L E V A L
0136000 Q T E V A L . P P E ) ) \r
0136020 E V A L A ) \r
0136040 ( ( C A L L E
0136060 V A L Q T S T A C K S T A C
0136100 K E V A L E V A L . P P
0136120 E ) \r E N V E
0136140 V A L ) \r ( ( C
0136160 A L L F U N C T I O N A L E
0136200 V A L Q T S T A C K S T A C
0136220 K E V A L E V A L . P P
0136240 E ) \r E N V A
0136260 P P L Y ) \r ( (
0136300 C A L L S T A C K E V A L
0136320 E V A L E V A L . P P E )
0136340 \r S T K A P P
0136360 L Y ) \r ( ( C A
0136400 L L S T A C K E V A L Q T
0136420 E V A L E V A L . P P E )
0136440 \r R E T E V A
0136460 L S T K E V A L ) \r
0136500 ( ( C A L L S T A C K
0136520 E V A L E V A L . P P E )
0136540 \r R E T F R O
0136560 M R E T T O ) \r
0136600 ( ( N I L N I L R E T U R
0136620 N ) \r T H E )
0136640 ) ) \r \f 006 004 ( * * I N I T I
0136660 A L T E M P L A T E S i s n
0136700 o t n e e d e d a f t e r
0136720 l o a d i n g u p ) 006 001 \r \r [
0136740 M A P C I N I T I A L T E M P
0136760 L A T E S ( F U N C T I O N
0137000 ( L A M B D A ( X ) \r
0137020
*
0137060 ( M A P C ( C D R X
0137100 ) \r
0137120
*
0137160 ( F U N C T I O N ( L A M B D
0137200 A ( Y ) \r
0137220
*
0137300 ( P U T H A S H Y
0137320 ( C A R X ) \r
0137340
*
0137420 M S
0137440 T E M P L A T E S ] \r ( D E C L
0137460 A R E % : E V A L @ C O M P I
0137500 L E D O N T C O P Y \r \r ( P
0137520 U T P R O P S 006 002 L T E M P L
0137540 A T E M A C R O 006 001 [ L A M
0137560 B D A ( Y ) \r
0137600
0137620 ( 006 002 D E C L A R E 006 001
0137640 ( L O C A L V A R S Y ) ) \r
0137660
0137700 ( A N D
0137720 [ N E Q T ( S E T Q Y
0137740 ( O R ( G E T H A S H Y U
0137760 S E R T E M P L A T E S ) \r
0140000
*
0140060 ( G E T H A S H Y M S T
0140100 E M P L A T E S ] \r
0140120
0140140 Y ] ) \r )
0140160 \r ( D E F I N E Q \r \r ( 006 004 M S
0140200 F I N D P 006 001 \r ( L A M B D
0140220 A ( S T R U C S U B ) 006 006 006
0140240 001
0140260
0140300 006 006 ( * l m
0140320 m " 1 4 - A u g - 8 4 1 6 :
0140340 3 8 " ) 006 001 \r ( P R O G
0140360 N I L \r L P (
0140400 R E T U R N ( O R ( E Q S
0140420 U B S T R U C ) \r
0140440
0140460 ( A N D ( L I S T P S T R U
0140500 C ) \r
0140520 ( O
0140540 R ( 006 002 M S F I N D P 006 001 (
0140560 C A R S T R U C ) \r
0140600
*
0140640 S U B ) \r
0140660
0140700 ( P R O G N ( S E T
0140720 Q S T R U C ( C D R S T R
0140740 U C ) ) \r
0140760
0141000 ( G O L
0141020 P ) ) ) ) ) ) ) ) ) \r ) \r ( D E
0141040 C L A R E % : D O N T E V A L
0141060 @ L O A D D O E V A L @ C O M
0141100 P I L E D O N T C O P Y \r ( B
0141120 L O C K % : M S F I N D P M
0141140 S F I N D P ) \r ) \r ( P U T P R
0141160 O P S M S A N A L Y Z E C O
0141200 P Y R I G H T ( " X e r o x
0141220 C o r p o r a t i o n " T 1
0141240 9 8 2 1 9 8 3 1 9 8 4 1 9
0141260 8 5 1 9 8 6 ) ) \r ( D E C L A
0141300 R E % : D O N T C O P Y \r
0141320 ( F I L E M A P ( N I L ( 3
0141340 6 6 1 9 2 5 2 ( V A R S 3
0141360 6 7 1 . 3 8 1 2 ) ( F R E
0141400 E V A R S 3 8 1 4 . 3 9 6
0141420 7 ) ( C A L L S 3 9 6 9 .
0141440 8 3 8 2 ) ( C O L L E C T F
0141460 N D A T A \r 8 3 8 4 . 8 7
0141500 6 3 ) ( C A L L S 3 8 7 6 5
0141520