$ od -c -N 50000 [eris]<LispCore>SOURCES>DWIM!8
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 6 - O c t - 8 6 1 2 : 1 5 : 3
0000140 1 " 006 004 { E R I S } < L I S P
0000160 C O R E > S O U R C E S > D W I
0000200 M . ; 8 006 001 \r \r c h
0000220 a n g e s t o % : ( V A R
0000240 S D W I M C O M S ) \r \r
0000260 p r e v i o u s d a t e
0000300 % : " 1 9 - J u n - 8 6 1 5
0000320 : 0 9 : 0 1 " { E R I S } < L
0000340 I S P C O R E > S O U R C E S >
0000360 D W I M . ; 7 ) \r \r \r ( * " \r
0000400 C o p y r i g h t ( c ) 1 9
0000420 8 2 , 1 9 8 3 , 1 9 8 4 ,
0000440 1 9 8 5 , 1 9 8 6 b y X e
0000460 r o x C o r p o r a t i o n .
0000500 A l l r i g h t s r e s
0000520 e r v e d . \r " ) \r \r ( P R E T
0000540 T Y C O M P R I N T D W I M C
0000560 O M S ) \r \r ( R P A Q Q 006 002 D
0000600 W I M C O M S 006 001 [ ( F N S
0000620 D W I M N E W F A U L T 1 C
0000640 H E C K T R A N ) \r
0000660 ( V A R S
0000700 D W I M O D E L S T ( D W I
0000720 M W A I T 1 0 ) \r
0000740
0000760 ( L C A S E F L G T ) ) \r
0001000
0001020 ( F N S R E T D W I M 2 R E
0001040 T D W I M 3 F I X A T O M 2
0001060 S P L I T 8 9 W T F I X L O A
0001100 D E F C L I S P % ) \r
0001120 ( C
0001140 O M S ( F N S V A R S B O U
0001160 N D I N E D I T C H A I N V A
0001200 R S B O U N D I N F O R M ) \r
0001220
0001240 ( B L O C K S ( V
0001260 A R S B O U N D I N E D I T C H
0001300 A I N V A R S B O U N D I N E
0001320 D I T C H A I N V A R S B O U
0001340 N D I N F O R M ) ) ) \r
0001360 ( F N
0001400 S D W I M L O A D F N S ? ) \r
0001420
0001440 ( A P P E N D V A R S ( D W
0001460 I M U S E R F O R M S ( D W I
0001500 M L O A D F N S ? ) ) ) \r
0001520 ( V
0001540 A R S ( D W I M L O A D F N S
0001560 F L G T ) ) \r
0001600 ( F N S C L
0001620 I S P L O O K U P 0 C L I S P
0001640 L O O K U P 1 C L I S P L O O
0001660 K U P 2 C L I S P E R R O R
0001700 C L I S P D E C C L I S P D E
0001720 C 0 C L I S P D E C 1 \r
0001740
0001760 G E T L O C A L D E C )
0002000 \r
0002020 ( F N S C O M P I L E U S
0002040 E R F N C O M P I L E U S E R
0002060 F N 1 U S E D F R E E C L I
0002100 S P T R A N ) \r
0002120 ( F N S C L
0002140 I S P F O R E R R C L I S P F
0002160 O R E R R 1 I . S . O P R W
0002200 A R N U S E R ) \r
0002220 ( D E C L A
0002240 R E % : E V A L @ C O M P I L
0002260 E D O N T C O P Y ( A D D V
0002300 A R S ( N L A M L B R E A K
0002320 1 ) ) ) \r
0002340 ( B L O C K S ( N
0002360 E W F A U L T 1 B L O C K N E
0002400 W F A U L T 1 C H E C K T R A
0002420 N ( E N T R I E S N E W F A
0002440 U L T 1 ) \r
0002460
0002500 ( G L O B A L V A R
0002520 S % # C L I S P A R R A Y ) \r
0002540
*
0002600 ( N O L I N K F N S W T F I X
0002620 ) ) \r
0002640 ( C L I S
0002660 P L O O K U P 0 C L I S P L O
0002700 O K U P 0 C L I S P L O O K U
0002720 P 1 C L I S P L O O K U P 2
0002740 ( G L O B A L V A R S D E C L
0002760 W O R D S \r
0003000
*
0003100 C L I S P
0003120 R E C O R D T Y P E S \r
0003140
*
0003260 C L I S P T R A N F L G ) \r
0003300
0003320 ( L
0003340 O C A L F R E E V A R S W O R
0003360 D C L A S S C L A S S D E F
0003400 V A R 1 V A R 2 ) ) \r
0003420
0003440 ( C L I S P D E C B L
0003460 O C K C L I S P D E C C L I
0003500 S P D E C 0 C L I S P D E C 1
0003520 G E T L O C A L D E C \r
0003540
0003560 ( G L O
0003600 B A L V A R S C L I S P R E C
0003620 O R D T Y P E S D E C L W O R
0003640 D S C L I S P A R I T H O P L
0003660 S T \r
0003700
0003720 C L I S P A
0003740 R I T H C L A S S L S T C O M
0003760 M E N T F L G S K O R L S T 1
0004000 ) \r
0004020
0004040 ( E N T R I E S C L I S P D
0004060 E C C L I S P D E C 0 G E T
0004100 L O C A L D E C ) \r
0004120
0004140 ( L O C A L F
0004160 R E E V A R S F A U L T F N )
0004200 ) ) \r
0004220 ( G L O B A L V A R S
0004240 D W I M O D E L S T D W I M F
0004260 L G D W I M K E Y L S T D W
0004300 I M W A I T L C A S E F L G
0004320 N O L I N K M E S S I . S . O
0004340 P R S L S T \r
0004360
0004400 C L I S P F O R W O R D S P L S
0004420 T I . S . O P R L S T S K O
0004440 R L S T 3 D W I M L O A D F N
0004460 S F L G D W I M E S S G A G
0004500 C L I S P T R A N F L G \r
0004520
0004540 C L I S P A R R A Y
0004560 % # C L I S P A R R A Y ) \r
0004600
0004620 ( D E C L A R E % : D O N T E
0004640 V A L @ L O A D D O E V A L @
0004660 C O M P I L E D O N T C O P Y
0004700 C O M P I L E R V A R S \r
0004720
0004740 ( A D D V A R S (
0004760 N L A M A U S E D F R E E C
0005000 L I S P % ) \r
0005020
0005040 ( N L A M L ) \r
0005060
0005100 ( L
0005120 A M A F I X A T O M 2 ] ) \r (
0005140 D E F I N E Q \r \r ( 006 004 D W I M
0005160 006 001 \r [ L A M B D A ( X )
0005200 006 006 006 001
0005220
*
0005260 006 006 ( * w t % : " 2
0005300 2 - O C T - 7 8 2 1 : 0 2 " )
0005320 006 001 \r ( C O N D \r
0005340 ( ( N U L L X ) \r
0005360 ( / P U T D ' F A
0005400 U L T 1 ( G E T D ' O L D F
0005420 A U L T 1 ) ) \r
0005440 ( / S E T A T O M V A L ' D W
0005460 I M F L G N I L ) \r
0005500 ( / S E T A T O M V A L
0005520 ' A D D S P E L L F L G N I L
0005540 ) ) \r ( ( S E T Q
0005560 X ( A S S O C X D W I M
0005600 O D E L S T ) ) \r
0005620 ( / P U T D ' F A U L T 1
0005640 ( G E T D ' N E W F A U L T 1
0005660 ) ) \r ( / S E T
0005700 A T O M V A L ' D W I M F L G
0005720 T ) \r ( / S E
0005740 T A T O M V A L ' A D D S P E
0005760 L L F L G T ) \r
0006000 [ M A P C ( C D D R X ) \r
0006020 ( F
0006040 U N C T I O N ( L A M B D A
0006060 ( X ) \r
0006100 ( A
0006120 N D ( L I S T P X ) \r
0006140
0006160 ( S E T
0006200 ( C A R X ) \r
0006220
0006240 ( C D
0006260 R X ] \r ( C A
0006300 D R X ) ) \r ( T
0006320 ( E R R O R ' " n o t o n
0006340 D W I M O D E L S T . " ' "
0006360 " T ] ) \r \r ( 006 004 N E W F A U
0006400 L T 1 006 001 \r [ L A M B D A
0006420 ( F A U L T X F A U L T A R G
0006440 S F A U L T A P P L Y F L G )
0006460 006 006 006 001
0006500 006 006 ( * l m m
0006520 " 1 - S E P - 8 3 1 7 : 4 0
0006540 " ) 006 001 \r
0006560
*
0006640 006 006 ( * R e p l a c e s
0006660 F A U L T 1 ) 006 001 \r ( P
0006700 R O G [ ( F A U L T Z ( 006 002
0006720 i f 006 001 F A U L T A P P L Y F
0006740 L G \r
0006760 006 002 t h e n
0007000 006 001 F A U L T X \r
0007020 006
0007040 002 e l s e i f 006 001 ( L I S T P
0007060 F A U L T X ) \r
0007100
0007120 006 002 t h e n 006 001 ( C A R F A
0007140 U L T X ] \r
0007160 ( 006 002 i f 006 001 [ A N D F A U
0007200 L T Z ( L I T A T O M F A U
0007220 L T Z ) \r
0007240 ( G E T D F A
0007260 U L T Z ) \r
0007300 ( S E T Q F
0007320 A U L T Z ( 006 002 C H E C K T R
0007340 A N 006 001 ( G E T D F A U L T
0007360 Z ] \r
0007400 006 002 t h e n 006 001 ( 006 002 i f 006
0007420 001 F A U L T A P P L Y F L G \r
0007440
0007460 006 002 t h e n 006 001
0007500 ( G O R E T A P P L Y ) \r
0007520
0007540 006 002 e l s e 006 001 ( S E T
0007560 Q F A U L T Z ( C O N S F
0007600 A U L T Z ( C D R F A U L T
0007620 X ) ) ) \r
0007640 (
0007660 G O R E T E V A L ) ) ) \r
0007700 \r
0007720 006 006 ( * C o v e r s t
0007740 h e c a s e w h e r e a n
0007760 a t o m h a s a d e f i
0010000 n i t i o n t h a t h a s
0010020 a c l i s p t r a n s l a t
0010040 i o n , \r 006 001
0010060 006 006 e . g . F O O i s
0010100 d e f i n e d a s ( Q L A M
0010120 B D A - - ) T h e r e a r
0010140 e t w o c a s e s , F O O
0010160 \r 006 001 006 006 (
0010200 a r g s ) a n d ( F O O a
0010220 r g s ) ) 006 001 \r \r
0010240 ( 006 002 i f 006 001 ( L I S T
0010260 P F A U L T X ) \r
0010300 006 002 t h e n 006 001
0010320 ( 006 002 i f 006 001 ( S E T Q F
0010340 A U L T Z ( 006 002 C H E C K T R
0010360 A N 006 001 F A U L T X ) ) \r
0010400
0010420 006 002 t h e n 006 001 \r
0010440 \r
0010460 006 006 ( * C o v e r s
0010500 t h e c a s e w h e r e t
0010520 h e f o r m h a s a c l
0010540 i s t r a n s l a t i o n i
0010560 t s e l f , \r 006 001
0010600 006 006 ( m o s t c o m m o
0010620 n ) % , a n d t h e c a s
0010640 e w h e r e f a u l t x i
0010660 s a f u n c t i o n o b j
0010700 e c t b e i n g a p p l i e
0010720 d \r 006 001 006
0010740 006 a n d h a s a c l i s p
0010760 t r a n s l a t i o n . ) 006 001 \r
0011000 \r
0011020 ( 006 002
0011040 i f 006 001 F A U L T A P P L Y F
0011060 L G \r
0011100
0011120 006 002 t h e n 006 001 ( G O
0011140 R E T A P P L Y ) \r
0011160
0011200 006 002 e l s e 006 001
0011220 ( G O R E T E V A L ) ) ) \r
0011240
0011260 ( 006 002 i f 006 001 ( A N D
0011300 ( N U L L F A U L T A P P L Y
0011320 F L G ) \r
0011340
0011360 ( L I S T P F A U L T X ) \r
0011400
0011420 ( L I S
0011440 T P ( S E T Q F A U L T Z
0011460 ( C A R F A U L T X ) ) ) \r
0011500
0011520 ( S E T Q
0011540 F A U L T Z ( 006 002 C H E C K
0011560 T R A N 006 001 F A U L T Z ) ) )
0011600 \r
0011620 006 002 t h e n 006 001
0011640 \r \r
0011660 006 006 ( * C o v e
0011700 r s t h e c a s e w h e r
0011720 e c a r o f f o r m i s
0011740 a f u n c t i o n o b j e
0011760 c t i o n w i t h a c l i
0012000 s p \r 006 001
0012020 006 006 t r a n s l a t i o n , e
0012040 . g . ( ( Q L A M B D A - -
0012060 ) - - ) ) 006 001 \r \r
0012100
0012120 ( S E T Q F A U L
0012140 T Z ( C O N S F A U L T Z
0012160 ( C D R F A U L T X ) ) ) \r
0012200
0012220 ( G O R
0012240 E T E V A L ) ) ) \r
0012260 ( S E T Q F A U L T Z
0012300 ( W T F I X F A U L T X F
0012320 A U L T A R G S F A U L T A P
0012340 P L Y F L G ) ) \r
0012360
*
0012440 006 006 ( * i n f o
0012460 f o r d i a g n o s t i c p
0012500 r i n t e d b y \r 006 001
0012520
*
0012600 006 006 o r i g
0012620 i n a l F A U L T 1 . ) 006 001 \r
0012640 ( R E T U R
0012660 N ( O L D F A U L T 1 F A U
0012700 L T X F A U L T A R G S F A
0012720 U L T A P P L Y F L G F A U L
0012740 T Z ) ) \r R E T A P
0012760 P L Y \r ( R
0013000 E T A P P L Y ( F U N C T I O
0013020 N F A U L T A P P L Y ) \r
0013040 F
0013060 A U L T Z F A U L T A R G S
0013100 T ' I N T E R N A L ) \r
0013120 R E T E V A L \r
0013140 ( R E T E V A L ' F
0013160 A U L T E V A L F A U L T Z ]
0013200 ) \r \r ( 006 004 C H E C K T R A N 006
0013220 001 \r [ L A M B D A ( X ) 006
0013240 006 006 001
0013260
*
0013320 006 006 ( * l m m " 1 0 -
0013340 M A R - 8 3 2 2 : 3 7 " ) 006 001
0013360 \r ( 006 002 D E C L A R E 006
0013400 001 ( G L O B A L V A R S % #
0013420 C L I S P A R R A Y C L I S P
0013440 A R R A Y C L I S P T R A N F
0013460 L G ) ) \r ( O R ( A N
0013500 D C L I S P A R R A Y ( G E
0013520 T H A S H X C L I S P A R R
0013540 A Y ) ) \r ( A N
0013560 D C L I S P T R A N F L G (
0013600 E Q ( C A R X ) \r
0013620
0013640 C L I S P T R
0013660 A N F L G ) \r
0013700 ( P R O G 1 ( C A D R
0013720 X ) \r
0013740 ( C O N D \r
0013760
0014000 ( ( O R C L I S P A
0014020 R R A Y % # C L I S P A R R A
0014040 Y ) \r
0014060 ( 006 002 C L
0014100 I S P T R A N 006 001 X ( C A D
0014120 R X ) ) \r
0014140 ( /
0014160 R P L N O D E X ( C A D D R
0014200 X ) \r
0014220
0014240 ( C D D D R X ] ) \r ) \r
0014260 \r ( R P A Q Q 006 002 D W I M O D
0014300 E L S T 006 001 ( ( C C A U T I
0014320 O U S ( A P P R O V E F L G
0014340 . T ) ) \r
0014360 ( T T R U S
0014400 T I N G ( A P P R O V E F L G
0014420 ) ) ) ) \r \r ( R P A Q Q 006 002 D
0014440 W I M W A I T 006 001 1 0 ) \r \r (
0014460 R P A Q Q 006 002 L C A S E F L G
0014500 006 001 T ) \r ( D E F I N E Q \r \r
0014520 ( 006 004 R E T D W I M 2 006 001 \r
0014540 [ L A M B D A ( X $ T A I L
0014560 N M )
0014600
0014620 006 006 ( *
0014640 w t % : 2 5 - F E B - 7 6 2
0014660 3 ) 006 001 \r
0014700 \r 006 006 ( *
0014720 N i s a p r i n t l e v e
0014740 l a f f e c t i n g T A I L
0014760 S , M o n e a f f e c t i
0015000 n g e l e m e n t e n s . \r 006
0015020 001 006 006 V a l
0015040 u e i s a c o p y o f
0015060 X a s t h o u g h p r i n
0015100 t e d w i t h t h e s e l
0015120 e v e l s . ) 006 001 \r \r (
0015140 A N D ( N U L L N ) \r
0015160 ( S E T Q N 3 )
0015200 ) \r ( A N D ( N U L L
0015220 M ) \r ( S E
0015240 T Q M 1 ) ) \r ( 006 002
0015260 R E T D W I M 3 006 001 X $ T A
0015300 I L N M ] ) \r \r ( 006 004 R E T
0015320 D W I M 3 006 001 \r [ L A M B D
0015340 A ( X $ T A I L N 1 M 1
0015360 )
0015400
0015420 006 006 ( * w t % : 2
0015440 5 - F E B - 7 6 2 3 ) 006 001 \r
0015460 ( C O N D \r
0015500 ( ( N L I S T P X ) \r
0015520 X ) \r (
0015540 ( I L E S S P M 1 0 ) \r
0015560 ' & ) \r
0015600 ( T ( C O N S ( 006 002 R E T
0015620 D W I M 3 006 001 ( C A R X ) \r
0015640
0015660 N I L N 1 ( S
0015700 U B 1 M 1 ) ) \r
0015720 ( C O N D \r
0015740
0015760 [ $ T A I L ( C O N D \r
0016000
0016020 ( ( E Q
0016040 X $ T A I L )
0016060 006 006 ( *
0016100 O n l y b e g i n c o u n
0016120 t i n g d o w n w h e n y
0016140 o u \r 006 001
0016160
*
0016240 006 006 r e a c h T A I L .
0016260 ) 006 001 \r
0016300
0016320 ( 006 002 R E T D W I M 3 006 001
0016340 ( C D R X ) \r
0016360
0016400 N I L
0016420 \r
0016440
0016460 ( S U B 1 N 1 ) \r
0016500
*
0016540 M 1 ) ) \r
0016560
0016600 ( T ( 006 002 R E T
0016620 D W I M 3 006 001 ( C D R X ) \r
0016640
*
0016700 $ T A I L N 1
0016720 M 1 ] \r
0016740 ( ( I G R E A T E
0016760 R P N 1 0 ) \r
0017000 ( 006 002
0017020 R E T D W I M 3 006 001 ( C D R
0017040 X ) \r
0017060 $ T
0017100 A I L \r
0017120 (
0017140 S U B 1 N 1 ) \r
0017160
0017200 M 1 ) ) \r
0017220 ( ( C D
0017240 R X ) \r
0017260 ' ( - - ] ) \r
0017300 \r ( 006 004 F I X A T O M 2 006 001 \r
0017320 [ L A M B D A X
0017340
*
0017400 006 006 ( *
0017420 V a l u e i s t h e l a
0017440 s t a r g u m e n t o n t
0017460 h e \r 006 001
0017500
*
0017560 006 006 s t a c k . ) 006 001 \r
0017600 ( A R G X X ] ) \r \r (
0017620 006 004 S P L I T 8 9 006 001 \r [ L
0017640 A M B D A ( N P O S ) \r
0017660 \r
0017700 006 006 ( * G e n e r a t e
0017720 s c o m m a n d t h a t r
0017740 e p l a c e s a t o m s c o
0017760 n t a i n i n g 8 o r 9
0020000 w i t h t h e \r 006 001
0020020 006 006 c o r r e s p o
0020040 n d i n g a t o m o r a t
0020060 o m s s e p a r a t e d b y
0020100 t h e 8 o r 9 s o m
0020120 a c r o c a l l i n g i t
0020140 c a n \r 006 001
0020160 006 006 d e t e r m i n e w h e
0020200 r e t o i n s e r t o r
0020220 r e m o v e p a r e n t h e s
0020240 e s . ) 006 001 \r \r ( P R O
0020260 G ( X Y Z ) \r
0020300 ( S E T Q X ( D U N
0020320 P A C K ( C A R L ) \r
0020340
0020360 S K O R L S T 3 ) )
0020400 \r [ S E T Q
0020420 Y ( C O N D \r
0020440 ( P
0020460 O S ( S E T Q Y ( N L E F
0020500 T X P O S ) ) ) \r
0020520
0020540 ( T ( F M E M B N X ] \r
0020560 [ C O N D \r
0020600 ( ( N U
0020620 L L Y ) \r
0020640 \r 006 006 ( *
0020660 U s e r h a s a l r e a d y
0020700 c o r r e c t e d a t o m
0020720 c o n t a i n i n g 8 o r
0020740 9 N o w w e m u s t g u
0020760 e s s w h a t \r 006 001
0021000 006 006 f o r m i t
0021020 i s . A s s u m e i f N
0021040 i s 8 , w a s e r r o r
0021060 o f f o r m 8 C O N S , i
0021100 f 9 , X 9 ) 006 001 \r \r
0021120 ( R E T U R
0021140 N ( L I S T ( C O N D \r
0021160
0021200 ( ( E
0021220 Q N 8 ) \r
0021240
0021260 ' B ) \r
0021300
0021320 ( T ' A )
0021340 ) \r
0021360 N ]
0021400 \r [ C O N D
0021420 \r ( (
0021440 C D R Y ) \r
0021460 ( S E T Q Z ( C O
0021500 N S ( P A C K ( C D R Y )
0021520 ) \r
0021540 Z ]
0021560 \r ( S E T Q
0021600 Z ( C O N S N Z ) ) \r
0021620 [ C O N D \r
0021640 ( ( N E
0021660 Q Y X ) \r
0021700 ( S E T Q Z ( C O
0021720 N S ( P A C K ( L D I F F
0021740 X Y ) ) \r
0021760
0022000 Z ] \r (
0022020 S E T Q S P L I T 8 9 F L G
0022040 Z ) \r ( R E
0022060 T U R N ( C O N S ' % : Z
0022100 ] ) \r \r ( 006 004 W T F I X L O A D
0022120 E F 006 001 \r [ L A M B D A (
0022140 F A U L T E M 1 ) 006 006 006 001
0022160
*
0022220 006 006 ( * l m m "
0022240 1 1 - J U N - 8 1 1 1 : 0 7 "
0022260 ) 006 001 \r
0022300
*
0022360 006 006 ( * F A U L T E M 1 i
0022400 s t h e v a l u e o f t
0022420 h e \r 006 001
0022440
*
0022520 006 006 F I L E D E F p r o
0022540 p e r t y . ) 006 001 \r ( P
0022560 R O G ( F A U L T E M 2 F A
0022600 U L T E M 3 ) \r
0022620 ( S E T Q F A U L T F N
0022640 N I L )
0022660
0022700 006 006 ( * S o f i l
0022720 e p a c k a g e w o n t t
0022740 r y t o u p d a t e \r 006 001
0022760
*
0023040 006 006 i
0023060 t ) 006 001 \r (
0023100 R E T U R N ( C O N D \r
0023120
0023140 ( ( A N D D W I M I F Y F
0023160 L G D W I M I F Y I N G ) ) \r
0023200
0023220 ( ( N U L L ( S E T
0023240 Q F A U L T E M 2 ( F I N D
0023260 F I L E ( P A C K F I L E N A
0023300 M E ' B O D Y \r
0023320
*
0023400 [ S E T Q F A U L T
0023420 E M 2 \r
0023440
*
0023520 ( C O N D \r
0023540
*
0023620 ( ( A T O M F A
0023640 U L T E M 1 ) \r
0023660
*
0023740 006 006 ( * F A U L T E
0023760 M 1 i s t h e n a m e o
0024000 f t h e f i l e . ) 006 001 \r
0024020
*
0024120 F A U L T E M 1 ) \r
0024140
*
0024220 ( T \r
0024240 \r
0024260 006 006 ( * ( C A R F A U
0024300 L T E M 1 ) i s t h e n a
0024320 m e o f t h e f i l e . \r
0024340 006 001 006 006 C D
0024360 R i s t h e l i s t o f
0024400 f u n c t i o n s . ) 006 001 \r \r
0024420
*
0024520 ( P R O G 1 ( C A R F
0024540 A U L T E M 1 ) \r
0024560
*
0024660 ( S E T Q F A U L T E M
0024700 1 ( C D R \r
0024720
*
0025040 F A U L T E M 1 \r
0025060
*
0025200 ] \r
0025220
*
0025300 ' E X T E N
0025320 S I O N C O M P I L E . E X T
0025340 ) \r
0025360
*
0025420 T ) ) ) 006
0025440 006 ( * I f f i l e i s n t
0025460 t h e r e d o n t b o t h
0025500 e r t o \r 006 001
0025520
*
0025600 006 006 a s k . ) 006 001 \r
0025620
0025640 N I L ) \r
0025660
0025700 ( ( C O N D \r
0025720
0025740 ( ( O R ( A T O M F A U L T
0025760 E M 1 ) \r
0026000
0026020 ( N L I S T P ( C A R
0026040 F A U L T E M 1 ) ) ) \r
0026060
0026100 ( E Q ( A S K U S
0026120 E R D W I M W A I T ' Y (
0026140 L I S T ' " S h a l l I l
0026160 o a d " F A U L T E M 1 ) \r
0026200
*
0026240 D W I M K E Y L S T )
0026260 \r
0026300 '
0026320 Y ) ) \r
0026340 ( [ S
0026360 T R I N G P ( S E T Q F A U
0026400 L T E M 3 ( E V A L ( P R O
0026420 G 1 ( C A R F A U L T E M 1
0026440 ) \r
0026460
*
0026540 ( S E T Q F A U L T E M 1
0026560 ( C D R F A U L T E M 1 ] \r
0026600 \r
0026620 006 006 ( * ( C A R F A
0026640 U L T E M 1 ) c o m p u t e s
0026660 e i t h e r a s t r i n g
0026700 t o b e t y p e d , o r
0026720 T o r N I L , m e a n i
0026740 n g d o \r 006 001
0026760 006 006 i t o r d o n t
0027000 d o i t . n o t s u r e
0027020 i f t h i s i s b e i n g
0027040 u s e d a a y m o r e ) 006 001
0027060 \r \r
0027100 ( F I X
0027120 S P E L L 1 ' " " F A U L T
0027140 E M 3 ' " " N I L ' M U S
0027160 T A P P R O V E ) ) \r
0027200
0027220 ( T F A U L T E M 3 )
0027240 ) \r
0027260 [ P R O G ( (
0027300 N O L I N K M E S S T ) ) \r
0027320
0027340 ( R E T U
0027360 R N ( C O N D \r
0027400
*
0027440 ( ( A T O M F A U L T E M 1 )
0027460 \r
0027500
0027520 ( L O A D F
0027540 A U L T E M 2 ' S Y S L O A D
0027560 ) ) \r
0027600
0027620 ( T ( L O
0027640 A D F N S F A U L T E M 1 F
0027660 A U L T E M 2 ' S Y S L O A D
0027700 ] \r
0027720 T ] ) \r \r ( 006 004
0027740 C L I S P % 006 001 \r [ N L A
0027760 M B D A C L I S P X \r
0030000 ( P R O G ( C L I S P T E M )
0030020 \r [ C O N D
0030040 \r ( (
0030060 A N D ( O R C L I S P A R R
0030100 A Y % # C L I S P A R R A Y )
0030120 \r
0030140 ( E Q [ C A R ( S E
0030160 T Q C L I S P T E M ( P R O
0030200 G 1 ( B L I P V A L ' E V A
0030220 L ( S E T Q C L I S P T E M
0030240 ( S T K N T H - 1 \r
0030260
*
0030400 C L I S P T R A N F L G
0030420 ) ) \r
0030440
*
0030500 ) \r
0030520
*
0030600 ( R E L S T K C L I S P T E M
0030620 ] \r
0030640 C L I S P T R
0030660 A N F L G ) \r
0030700 ( E Q ( C
0030720 D R C L I S P T E M ) \r
0030740
0030760 C L I S P X ) ) \r
0031000 ( 006 002 C L
0031020 I S P T R A N 006 001 C L I S P T
0031040 E M ( C A D R C L I S P T E
0031060 M ) ) \r
0031100 ( / R P L N O D E C L I S
0031120 P T E M ( C A D D R C L I S
0031140 P T E M ) \r
0031160 ( C D D D
0031200 R C L I S P T E M ] \r
0031220 ( R E T U R N ( E
0031240 V A L ( C A R C L I S P X )
0031260 \r
0031300 ' I N T E R N
0031320 A L ] ) \r ) \r ( D E F I N E Q \r
0031340 \r ( 006 004 V A R S B O U N D I N E
0031360 D I T C H A I N 006 001 \r [ L A
0031400 M B D A ( E D I T C H A I N )
0031420 006 006 006 001
0031440
0031460 006 006 ( *
0031500 l m m " 2 7 - F E B - 8 3
0031520 1 0 : 5 5 " ) 006 001 \r
0031540 \r 006
0031560 006 ( * C l i m b s E D I T C
0031600 H A I N a n d m a k e s l
0031620 i s t o f a l l b o u n d
0031640 v a r i a b e s . \r 006 001
0031660 006 006 S e t s E X
0031700 P R t o t h e t o p l e
0031720 v e l e x p r e s s i o n ,
0031740 i . e . \r 006 001
0031760 006 006 ( C A R ( L A S T E D
0032000 I T C H A I N ) ) ) 006 001 \r \r
0032020 ( M A P C O N C E D I T C
0032040 H A I N ( F U N C T I O N V
0032060 A R S B O U N D I N F O R M ] )
0032100 \r \r ( 006 004 V A R S B O U N D I N
0032120 F O R M 006 001 \r [ L A M B D A
0032140 ( F O R M ) 006 006 006 001
0032160
*
0032220 006 006 ( * l m m
0032240 " 2 3 - J U L - 8 3 2 2 : 2
0032260 7 " ) 006 001 \r ( 006 002 D E C
0032300 L A R E 006 001 ( G L O B A L V A
0032320 R S L A M B D A S P L S T C
0032340 O M P I L E R M A C R O P R O P
0032360 S ) ) \r ( P R O G ( (
0032400 F N ( C A R F O R M ) ) \r
0032420 T E M M A
0032440 C R O ) \r (
0032460 R E T U R N ( A N D ( L I T
0032500 A T O M F N ) \r
0032520
0032540 ( C O N D \r
0032560
0032600 ( ( F M E M B F N L A M B D
0032620 A S P L S T ) \r
0032640
0032660 ( A P P E N D ( A R G L
0032700 I S T F O R M ) ) ) \r
0032720
0032740 [ ( E Q M E M B '
0032760 B I N D S ( G E T P R O P F
0033000 N ' I N F O ) ) \r
0033020
0033040 ( M A P C A R ( C A
0033060 D R F O R M ) \r
0033100
0033120 ( F U N C
0033140 T I O N ( L A M B D A ( X )
0033160 \r
0033200
0033220 (
0033240 C O N D \r
0033260
*
0033320 ( ( N L I S T P X
0033340 ) \r
0033360
*
0033420 X ) \r
0033440
*
0033500 ( T ( C A R
0033520 X ] \r
0033540 ( ( E
0033560 Q [ C A R ( L I S T P ( S
0033600 E T Q T E M ( G E T P R O P
0033620 F N ' C L I S P W O R D ] \r
0033640
0033660 '
0033700 F O R W O R D ) \r
0033720
0033740 ( P R O G ( ( T A I L
0033760 F O R M ) \r
0034000
0034020 V A L I N V
0034040 A R E L T ) \r
0034060
0034100 F O R W O R D L P \r
0034120
*
0034160 ( S E T Q I N V A R ( S E L
0034200 E C T Q ( C D R T E M ) \r
0034220
*
0034300 ( ( f o r b i n d a s ) \r
0034320
*
0034400 T ) \r
0034420
*
0034460 N I L ) ) \r
0034500
0034520 L P
0034540 ( O R ( S E T Q T A I L
0034560 ( C D R T A I L ) ) \r
0034600
*
0034640 ( R E T U R N V A L ) ) \r
0034660
*
0034720 ( S E T Q E L T ( C A R T
0034740 A I L ) ) \r
0034760
0035000 [ C O N D \r
0035020
*
0035060 ( ( N O T ( L I T A T O M
0035100 E L T ) ) \r
0035120
0035140 [ C O N D
0035160 \r
0035200
0035220 ( ( A N D I
0035240 N V A R ( E Q ( C A D R (
0035260 L I S T P E L T ) ) \r
0035300
*
0035360 ' _ ) ) \r
0035400
*
0035440 ( S E T Q V A L ( C O N
0035460 S ( C A R E L T ) \r
0035500
*
0035560 V A L ] \r
0035600
0035620 (
0035640 G O L P ) ) \r
0035660
0035700 ( ( E Q
0035720 [ C A R ( L I S T P ( S E
0035740 T Q T E M ( G E T P R O P
0035760 E L T ' C L I S P W O R D ] \r
0036000
*
0036040 ' F O R W O R
0036060 D ) \r
0036100
0036120 ( G O F O R W
0036140 O R D L P ) ) \r
0036160
0036200 ( ( E Q
0036220 E L T ' _ ) \r
0036240
0036260 ( S
0036300 E T Q T A I L ( C D R T A
0036320 I L ) ) ) \r
0036340
0036360 ( I N V A R
0036400 ( S E T Q V A L ( C O N S
0036420 E L T V A L ] \r
0036440
0036460 ( G O L
0036500 P ) ) ) \r
0036520 (
0036540 ( S E T Q T E M ( 006 002 C H E
0036560 C K T R A N 006 001 F O R M ) ) \r
0036600
0036620 ( 006 002 V A
0036640 R S B O U N D I N F O R M 006 001
0036660 T E M ) ) \r
0036700
0036720 ( ( A N D ( S E T Q T E M
0036740 ( G E T L I S F N C O M P I
0036760 L E R M A C R O P R O P S ) ) \r
0037000
*
0037040 ( N O T ( E Q U A L ( S E T
0037060 Q T E M ( M A C R O E X P A
0037100 N S I O N F O R M ( C A D R
0037120 T E M ) ) ) \r
0037140
*
0037200 F O R M ) ) ) \r
0037220
0037240 ( 006 002 V A R S B O
0037260 U N D I N F O R M 006 001 T E M ]
0037300 ) \r ) \r ( D E C L A R E % : D
0037320 O N T E V A L @ L O A D D O E
0037340 V A L @ C O M P I L E D O N T
0037360 C O P Y \r ( B L O C K % : V A
0037400 R S B O U N D I N E D I T C H A
0037420 I N V A R S B O U N D I N E D
0037440 I T C H A I N V A R S B O U N
0037460 D I N F O R M ) \r ) \r ( D E F I
0037500 N E Q \r \r ( 006 004 D W I M L O A D
0037520 F N S ? 006 001 \r [ L A M B D A
0037540 N I L 006 006 006 001
0037560
*
0037620 006 006 ( * w t %
0037640 : " 2 7 - S E P - 7 9 1 8 :
0037660 1 5 " ) 006 001 \r ( P R O G
0037700 [ T E M ( F N ( C O N D \r
0037720
0037740 ( F A U L T A P P L
0037760 Y F L G F A U L T X ) \r
0040000
0040020 ( T ( C A R F A U L T
0040040 X ] \r ( R E
0040060 T U R N ( C O N D \r
0040100
0040120 ( ( A N D D W I M L O A D F N
0040140 S F L G ( N U L L ( A N D
0040160 D W I M I F Y F L G D W I M I
0040200 F Y I N G ) ) \r
0040220
0040240 ( L I T A T O M F N ) \r
0040260
0040300 ( N U L L
0040320 ( F G E T D F N ) ) \r
0040340
0040360 ( S E T Q T E
0040400 M ( E D I T L O A D F N S ?
0040420 F N ) ) \r
0040440
0040460 ( O R ( E Q ( C A R ( S E
0040500 T Q T E M ( L O A D F N S
0040520 ( L I S P X P R I N T F N T
0040540 T ) \r
0040560
*
0040620 T E M
0040640 ) ) ) \r
0040660
0040700 F N ) \r
0040720
0040740 ( P R O G N
0040760 ( L I S P X P R I N T ( C A
0041000 R T E M ) \r
0041020
*
0041060 T ) \r
0041100
0041120 N I L
0041140 ) ) ) \r
0041160 [ A N D (
0041200 N U L L T Y P E - I N ? ) \r
0041220
0041240 ( S E T Q
0041260 S I D E S ( C D R ( L I S T
0041300 G E T 1 L I S P X H I S T '
0041320 S I D E ] \r
0041340 F A U L
0041360 T X ] ) \r ) \r \r ( A P P E N D T
0041400 O V A R 006 002 D W I M U S E R F
0041420 O R M S 006 001 ( D W I M L O A D
0041440 F N S ? ) ) \r \r ( R P A Q Q 006
0041460 002 D W I M L O A D F N S F L G 006
0041500 001 T ) \r ( D E F I N E Q \r \r (
0041520 006 004 C L I S P L O O K U P 0 006 001
0041540 \r [ L A M B D A ( W O R D
0041560 V A R 1 V A R 2 D E C L S
0041600 T L I S P F N C L A S S C
0041620 L A S S D E F ) 006 006 006 001
0041640 006 006 ( * l m m " 5 - S
0041660 E P - 8 3 2 3 : 5 3 " ) 006 001 \r
0041700 \r
0041720 006 006 ( * L I S P F N
0041740 i s r e t u r n e d i f
0041760 n o l o c a l d e c l a r a
0042000 t i o n i s f o u n d a f
0042020 f e c t i n g F N . \r 006 001
0042040 006 006 C L A S S
0042060 i s t h e C L A S S f o r
0042100 F N , e . g . R P L A C A
0042120 , + , M E M B , e t c . \r
0042140 006 001 006 006 C L
0042160 A S S i s s u p p l i e d
0042200 w h e n l o o k i n g u p
0042220 l o c a l r e c o r d d e c
0042240 l a r a t i o n \r 006 001
0042260 006 006 ( i n h i s c
0042300 a s e i t i s R E C O R D
0042320 ) o r w h e n l o o k i n
0042340 g u p a l o c a l v a l
0042360 u e f o r a v a r i a b l
0042400 e , \r 006 001
0042420 006 006 s u c h a s V A R D E F
0042440 A U L T i n a p a t t e r n
0042460 m a t c h , i n w h i c h
0042500 c a s e i t i s V A L U
0042520 E . ) 006 001 \r
0042540 \r 006 006 ( *
0042560 T o d e f i n e a n e w
0042600 c l a s s o f f u n c t i o
0042620 n s a l a R P L A C A ,
0042640 F R P L A C A , a n d / R P
0042660 L A C A , o n e \r 006 001
0042700 006 006 m u s t a d
0042720 d a l l t h r e e n a m e
0042740 s t o D E C L W O R D S ,
0042760 p u t t h e n a m e o f
0043000 t h e s t a n d a r d o n e
0043020 o n t h e \r 006 001
0043040 006 006 p r o p e r t y
0043060 l i t s o f e a c h u n d
0043100 e r p r o p e r t y C L I S
0043120 P C L A S S , a n d p u t
0043140 u n d e r t h e s t a n d a
0043160 r d o n e \r 006 001
0043200 006 006 o n p r o p e r t
0043220 y C L I S P C L A S S D E F
0043240 t h e p r o p e r t y ( A C
0043260 C E S S s t a n d a r d u n
0043300 d o a b l e f a s t ) v e r
0043320 s i o n , \r 006 001
0043340 006 006 w h e r e u n d o a
0043360 b l e o r f a s t c a n
0043400 b e N I L . T h e n C L I
0043420 S P D E C S T A N D A R D ,
0043440 U N D O A B L E , o r F A S
0043460 T \r 006 001 006
0043500 006 w i l l h a v e t h e r
0043520 i g h t e f f e c t , a n d
0043540 c a l l i n g C L I S P L O
0043560 O K U P o n t h e n a m e
0043600 s o f e i t h e r o f \r
0043620 006 001 006 006 t h
0043640 e f u n c t i o n s w i l l
0043660 e t u r n t h e c u r r e
0043700 n t " S e t t i n g " % . )
0043720 006 001 \r \r ( P R O G ( T
0043740 E M ) \r [ C
0043760 O N D \r
0044000 ( ( O R ( N U L L D E C L
0044020 S T ) \r
0044040 ( N U L L C L A S
0044060 S ) ) \r \r
0044100 006 006 ( * C L
0044120 I S P L O O K U P 0 i s a l
0044140 w a y s s u p p o s e d t o
0044160 b e c a l l e d w i t h
0044200 a n o n - N I L C L A S S
0044220 a n d \r 006 001
0044240 006 006 D E C L S T . ) 006 001 \r \r
0044260 ( S H
0044300 O U L D N T ' C L I S P L O O
0044320 K U P 0 ] \r
0044340 [ O R C L A S S D E F ( S E
0044360 T Q C L A S S D E F ( G E T
0044400 P R O P C L A S S ' C L I S
0044420 P C L A S S D E F ] \r
0044440 ( S E T Q V A R 1
0044460 ( 006 002 C L I S P L O O K U P 2 006
0044500 001 V A R 1 ) ) \r
0044520 ( S E T Q V A R 2 ( 006
0044540 002 C L I S P L O O K U P 2 006 001
0044560 V A R 2 ) ) \r
0044600 ( R E T U R N ( C O N D \r
0044620
0044640 ( ( S E T Q T E M (
0044660 006 002 C L I S P L O O K U P 1 006 001
0044700 D E C L S T ) ) \r
0044720
0044740 T E M ) \r
0044760 ( T \r
0045000 \r
0045020 006 006 ( * T h e l a s t
0045040 G E T P i n t h e O R
0045060 b e l o w % , i . e . \r 006 001
0045100 006 006 f o r
0045120 C L A S S , i s s o w e
0045140 d o n t h a v e t o i m p
0045160 l e m e n t g l o b a l d e
0045200 c l a r a i o n s b y p u t
0045220 t i g a \r 006 001
0045240 006 006 L I S P F N p r o p
0045260 e r t y o n e a c h m e m
0045300 b e r o f t h e c l a s s
0045320 . ) 006 001 \r \r
0045340 ( S
0045360 E L E C T Q C L A S S \r
0045400
0045420 ( V A L U E
0045440 ( G E T A T O M V A L W O R D
0045460 ) ) \r
0045500 (
0045520 ( R E C O R D R E C O R D F I
0045540 E L D ) \r
0045560
0045600 N I L ) \r
0045620
0045640 ( O R L I S P
0045660 F N ( G E T P R O P W O R D
0045700 ' L I S P F N ) \r
0045720
0045740 ( G E T P R
0045760 O P C L A S S ' L I S P F N
0046000 ) \r
0046020
0046040 W O R D ] ) \r \r ( 006 004 C L I
0046060 S P L O O K U P 1 006 001 \r [ L
0046100 A M B D A ( L S T ) 006 006 006 001
0046120
*
0046160 006 006 (
0046200 * l m m " 2 3 - A u g - 8 4
0046220 1 7 : 5 6 " ) 006 001 \r
0046240 \r
0046260 006 006 ( * S e a r c h e s L S
0046300 T f o r a d e l c a r a t
0046320 i o n r e l e v e a n t t o
0046340 C L A S S , w h i c h i s
0046360 e q u a l t o \r 006 001
0046400 006 006 ( G E T P W O
0046420 R D ( Q U O T E C L I S P C
0046440 L A S S . ) ) ) 006 001 \r \r
0046460 ( P R O G ( T E M V A L ) \r
0046500 L P ( C O N D \r
0046520 ( ( N
0046540 U L L L S T ) \r
0046560 ( R E T U R N V
0046600 A L ) ) \r
0046620 [ ( L I S T P ( S E T Q
0046640 T E M ( C A R L S T ) ) ) \r
0046660 ( A
0046700 N D C L I S P T R A N F L G
0046720 ( E Q ( C A R T E M ) \r
0046740
*
0047000 C L I S P T R A N F L G ) \r
0047020
0047040 ( S E T Q T E M ( C D
0047060 D R T E M ) ) ) \r
0047100 ( C O N D \r
0047120 [
0047140 ( E Q ( C A D R T E M ) \r
0047160
0047200 ' = ) \r
0047220 ( A N D
0047240 ( E Q C L A S S ' V A L U E
0047260 ) \r
0047300 ( E Q ( C A
0047320 R T E M ) \r
0047340
0047360 W O R D ) \r
0047400 (
0047420 S E T Q V A L ( C A D D R
0047440 T E M ] \r
0047460 [ ( O R ( E Q C
0047500 L A S S ' R E C O R D ) \r
0047520
0047540 ( E Q C L A S S ' R
0047560 E C O R D F I E L D ) ) \r
0047600 (
0047620 A N D ( F M E M B ( C A R
0047640 T E M ) \r
0047660
0047700 C L I S P R E C O R D T Y
0047720 P E S ) \r
0047740 ( C O N
0047760 D \r
0050000 ( ( E Q
0050020 C L A S S ' R E C O R D F I
0050040 E L D ) \r
0050060
0050100 ( F M E M B W O R D ( R E C
0050120 O R D F I E L D N A M E S T E
0050140 M ) ) ) \r
0050160 (
0050200 T ( E Q W O R D T E M ) )
0050220 ) \r
0050240 ( S E T Q V
0050260 A L ( C A R L S T ] \r
0050300 ( (
0050320 E Q ( C A R T E M ) \r
0050340
0050360 C L A S S ) \r
0050400 \r 006
0050420 006 ( * S o u s e r c a n
0050440 l o o k u p h i s o w n
0050460 % ' c l a s s e s ' , e . g .
0050500 \r 006 001 006 006 s
0050520 a y ( C L I S P % : ( F O O
0050540 T Y P E ) ) a n d t h e n
0050560 l o o k u p F O O T Y P E .
0050600 \r 006 001 006 006 T
0050620 e r r y u s e s t h i s . )
0050640 006 001 \r \r
0050660 ( S E T Q V A L
0050700 ( C A R L S T ) ) ) \r
0050720 ( [ A
0050740 N D ( O R ( E Q ( S E T Q
0050760 T E M ( C A A R L S T ) )
0051000 \r
0051020
0051040 V A R 1 ) \r
0051060
0051100 ( E Q T E M V A R 2 ) ) \r
0051120
0051140 ( S E T Q T E M
0051160 ( 006 002 C L I S P L O O K U P 1
0051200 006 001 ( C D A R L S T ] \r
0051220
0051240 ( R E T U R N T E M ] \r
0051260 [ [ A T O M
0051300 ( S E T Q T E M ( G E T P
0051320 R O P ( C A R L S T ) \r
0051340
*
0051400 ' C L I S P C L A S S ] \r
0051420 \r
0051440 006 006 ( * E . g . W
0051460 O R D i s F R P L A C A C
0051500 L A S S i s R P L A C A ,
0051520 a n d \r 006 001
0051540 006 006 ( C A R L S T ) i s /
0051560 R P L A C A . T E M i s a
0051600 l s o R P L A C A . ) 006 001 \r \r
0051620 ( A
0051640 N D ( E Q T E M C L A S S
0051660 ) \r
0051700 ( S E T Q V A L (
0051720 C A R L S T ] \r
0051740 ( [ A N D ( E Q
0051760 ( C A R T E M ) \r
0052000
0052020 ( C A R C L A S S D E F ) )
0052040 \r
0052060 ( S E T Q T E M ( C
0052100 A R ( N T H ( C D R C L A
0052120 S S D E F ) \r
0052140
0052160 ( C
0052200 D R T E M ] \r
0052220 \r 006 006 (
0052240 * E . G . W O R D i s F
0052260 R P L A C A a n d ( C A R
0052300 L S T ) i s F A S T . \r 006 001
0052320 006 006 o r W
0052340 O R D i s + a n d ( C A
0052360 R L S T ) i s F L O A T I
0052400 N G . T h e e a s o n f o
0052420 r c h e c k i n g t h a t
0052440 t h e n t h \r 006 001
0052460 006 006 e l e m e n t i
0052500 s n o t n i l i s t h a
0052520 t F A S T d o e s n o t
0052540 a p p l y t o N C O N C ,
0052560 e v e n t h o u g h b o t h
0052600 a r e \r 006 001
0052620 006 006 A C C E S S t y p e
0052640 d e c l a r a t i o n s , s i
0052660 m i l a l y , u n d o a b l e
0052700 d o e s n o t a p p l y
0052720 t o L A S T . ) 006 001 \r \r
0052740 ( S E T Q
0052760 V A L T E M ) ) ) \r
0053000 L P 1 ( S E T Q L S T
0053020 ( C D R L S T ) ) \r
0053040 ( G O L P ] ) \r \r (
0053060 006 004 C L I S P L O O K U P 2 006 001
0053100 \r [ L A M B D A ( X ) \r
0053120 ( C O N D \r
0053140 ( ( N L I S T P X ) \r
0053160 X ) \r ( (
0053200 O R ( E Q ( C A R X ) \r
0053220 '
0053240 S E T Q ) \r
0053260 ( E Q ( C A R X ) \r
0053300 ' S
0053320 E T Q Q ) ) \r (
0053340 C A D R X ) ) \r
0053360 ( ( E Q ( C A D R X ) \r
0053400 ' _ ) \r
0053420 ( C A R X ] ) \r \r
0053440 ( 006 004 C L I S P E R R O R 006 001 \r
0053460 [ L A M B D A ( T Y P E
0053500 F L G ) 006 006 006 001
0053520
*
0053560 006 006 ( * w t % : " 1 - O
0053600 C T - 7 8 0 0 : 2 2 " ) 006 001 \r
0053620 ( C O N D \r
0053640 ( F L G ( E V Q F A U L T
0053660 F N ) \r
0053700 ( E V Q P A R E N T ) \r
0053720 ( E V Q T A
0053740 I L ) \r
0053760 ( E V Q T Y P E - I N ? ) ) )
0054000 \r ( A N D ( N U L L
0054020 D W I M E S S G A G ) \r
0054040 ( N E Q T Y P E '
0054060 A L R E A D Y P R I N T E D ) \r
0054100 ( P R O G (
0054120 T E M A T I N ) \r
0054140 ( C O N D \r
0054160
0054200 ( ( N U L L T Y P E - I N
0054220 ? ) \r
0054240 ( F I X P R I N T I
0054260 N F A U L T F N ) \r
0054300 ( L
0054320 I S P X S P A C E S 1 T ) )
0054340 ) \r
0054360 ( L I S P X P R I N 1 ( S E
0054400 L E C T Q [ S E T Q T E M
0054420 ( C O N D \r
0054440
*
0054500 ( ( A T O M T Y
0054520 P E ) \r
0054540
*
0054600 T Y P E ) \r
0054620
*
0054660 ( T
0054700 ( C A R T Y P E ] \r
0054720
0054740 ( 1 ' " m
0054760 i s s i n g o p e r a n d " )
0055000 \r
0055020
0055040 ( 2 ' " m i s s i n g o p e
0055060 r a t o r " ) \r
0055100
0055120 ( ( % : : % :
0055140 - > = > ) \r
0055160
0055200 ( L I S
0055220 P X P R I N 1 ' " i m p r o p
0055240 e r u s e o f " T ) \r
0055260
*
0055320 T E M ) \r
0055340
0055360 ( 4 ' " b a d
0055400 i f s t a t e m e n t " ) \r
0055420
0055440 ( _
0055460 ' " i n c o r r e c t u s e
0055500 o f _ " ) \r
0055520
0055540 ( F I E L D N A M
0055560 E ' " u n d e f i n e d f i
0055600 e l d n a m e " ) \r
0055620
0055640 ( P H R A S
0055660 E ' " c a n ' t p a r s e
0055700 t h i s p h r a s e " ) \r
0055720
0055740 ( C A
0055760 R A T O M ' " c a r o r c
0056000 d r o f n o n - l i s t t
0056020 a k e n " ) \r
0056040
0056060 ( C O N D \r
0056100
0056120 ( (
0056140 E Q ( C A R ( L I S T P T
0056160 E M ) ) \r
0056200
0056220 ' B R A
0056240 C K E T ) \r
0056260
0056300 ( L I S P X P
0056320 R I N 1 ' " m i s s i n g "
0056340 T ) \r
0056360
0056400 ( C A D R T E M
0056420 ) ) \r
0056440
0056460 ( T T E M ) ) ) \r
0056500
0056520 T ) \r
0056540 ( C O N D \r
0056560 (
0056600 ( L I S T P T Y P E ) \r
0056620
0056640 ( G O A ) ) \r
0056660 ( ( N E Q
0056700 P A R E N T T A I L ) \r
0056720
0056740 ( L I S P X P R I N 1 ' " a
0056760 t " T ) \r
0057000 ( L I S P X
0057020 P R I N 2 ( 006 002 R E T D W I M
0057040 2 006 001 ( C A R T A I L ) ) \r
0057060
0057100 T T ) ) )
0057120 \r
0057140 ( L I S P X P R I N 1 ' " i
0057160 n " T ) \r
0057200 ( L I S P X P
0057220 R I N 2 ( 006 002 R E T D W I M 2
0057240 006 001 ( O R P A R E N T F A
0057260 U L T X ) \r
0057300
0057320 T A I L ) \r
0057340
0057360 T T ) \r
0057400 ( L I S P X T E
0057420 R P R I T ) \r
0057440 ( R E T U R N ) \r
0057460 A (
0057500 S E T Q A T ( C A D R T Y
0057520 P E ) ) \r
0057540 ( S E T Q I N ( C A
0057560 D D R T Y P E ) ) \r
0057600 ( C O N D \r
0057620
0057640 ( ( O R ( E Q A T I N
0057660 ) \r
0057700 ( N U L L I
0057720 N ) ) \r
0057740 ( L I S P X P R I
0057760 N 1 ' " i n " T )
0060000 \r
0060020 ( L I S P X P R I N T
0060040 ( 006 002 R E T D W I M 2 006 001 A T
0060060 ) \r
0060100 T T )
0060120 \r
0060140 ( R E T U R N ) ) ) \r
0060160 ( L
0060200 I S P X T E R P R I T ) \r
0060220 ( L I
0060240 S P X P R I N 1 ' " a t
0060260 " T ) \r
0060300 ( M A P R I N T ( 006
0060320 002 R E T D W I M 2 006 001 A T (
0060340 C D D R A T ) ) \r
0060360
0060400 T \r
0060420 ' " . . . " \r
0060440
0060460 ' % ) N I L N I
0060500 L T ) \r
0060520 ( L I S P X T E R P R I
0060540 T ) \r
0060560 ( L I S P X P R I N 1 '
0060600 " i n " T ) \r
0060620 ( L I S P
0060640 X P R I N T ( 006 002 R E T D W I
0060660 M 2 006 001 I N ) \r
0060700 T
0060720 T ) \r
0060740 ( R E T U R N ] ) \r \r ( 006
0060760 004 C L I S P D E C 006 001 \r [ L
0061000 A M B D A ( D E C L S T ) 006 006
0061020 006 001
0061040
0061060 006 006 (
0061100 * w t % : " 1 0 - A U G - 7
0061120 8 0 0 : 3 1 " ) 006 001 \r
0061140
*
0061220 006 006 ( * D o
0061240 e s g l o b a l d e c l a r
0061260 a t i n ) 006 001 \r ( A N D
0061300 D E C L S T ( A T O M D E
0061320 C L S T ) \r (
0061340 S E T Q D E C L S T ( L I S
0061360 T D E C L S T ) ) ) \r
0061400 ( P R O G ( ( L S T D E C L
0061420 S T ) \r T
0061440 E M C L A S S D E F ) \r
0061460 T O P ( C O N D \r
0061500 ( ( N U L L
0061520 L S T ) \r
0061540 ( R E T U R N D E C L
0061560 S T ) ) ) \r
0061600 ( C O N D \r
0061620 [ ( L I S T P ( C A R
0061640 L S T ) ) \r
0061660 ( C O N D \r
0061700 ( ( F M E
0061720 M B ( C A A R L S T ) \r
0061740
0061760 C L I S P R E C O
0062000 R D T Y P E S ) \r
0062020 ( E V A L
0062040 ( C A R L S T ) ) ) \r
0062060 ( T
0062100 ( G O E R R O R ] \r
0062120 [ ( F M E M B
0062140 ( C A R L S T ) \r
0062160
0062200 C L I S P A R I T H C L A S S L
0062220 S T ) \r
0062240 ( M A P C C L I S P A R I
0062260 T H O P L S T \r
0062300 ( F U N
0062320 C T I O N ( L A M B D A ( X
0062340 )
0062360 006 006 ( * E . g . X
0062400 I S * , / , + , E T C
0062420 . ) 006 001 \r
0062440
0062460 ( C O N D \r
0062500
0062520 ( (
0062540 S E T Q T E M ( G E T P R O
0062560 P X ' L I S P F N ) ) \r
0062600
*
0062660 006 006 ( *
0062700 M a y h a v e b e e n d i
0062720 s a b l e d ) 006 001 \r
0062740
0062760 ( /
0063000 R E M P R O P T E M ' C L I
0063020 S P I N F I X ) \r
0063040
0063060 ( C O
0063100 N D \r
0063120
0063140 ( [ S E T Q
0063160 T E M \r
0063200
0063220 ( C
0063240 A R ( N T H [ C D R ( O R
0063260 ( G E T P R O P X ' C L I
0063300 S P C L A S S D E F ) \r
0063320
*
0063400 ( G E T P R O P
0063420 ( G E T P R O P X ' C L I
0063440 S P C L A S S ) \r
0063460
*
0063540 ' C L I
0063560 S P C L A S S D E F ] \r
0063600
*
0063640 (
0063660 C D R ( G E T P R O P ( C A
0063700 R L S T ) \r
0063720
*
0064000 ' C L I S P C L A S
0064020 S ] \r
0064040
0064060 ( / P U T
0064100 X ' L I S P F N T E M ) \r
0064120 \r
0064140 006 006 ( * E . G . C
0064160 L I S P C L A S S f o r F L
0064200 O A T I N G i s ( A R I T H
0064220 . 2 ) % , f o r * i s
0064240 \r 006 001 006 006 (
0064260 A R I T H I T I M E S F T I
0064300 M E S T I M E S ) m e a n i
0064320 n g t h e F L O A T I N G
0064340 v e r s i o n f o r * i s
0064360 F T I M E S . ) 006 001 \r \r
0064400
*
0064440 ( / P U T T E M '
0064460 C L I S P I N F I X X ] \r
0064500 [ ( S E T
0064520 Q C L A S S D E F ( G E T P
0064540 R O P ( C A R L S T ) \r
0064560
*
0064620 ' C L I S P C L A S S ) ) \r
0064640 ( C
0064660 O N D \r
0064700 [ ( L I S T P C L A
0064720 S S D E F )
0064740
0064760 006 006 ( * e . g . c l i p d
0065000 e c ( f a s t ) ) 006 001 \r
0065020 (
0065040 M A P C D E C L W O R D S (
0065060 F U N C T I O N ( L A M B D A
0065100 ( X ) \r
0065120
*
0065160 ( C O N D \r
0065200
*
0065240 ( [ A N D
0065260 [ E Q ( C A R C L A S S D E
0065300 F ) \r
0065320
*
0065360 ( C
0065400 A R ( S E T Q T E M ( G E
0065420 T P R O P X ' C L I S P C L
0065440 A S S D E F ] \r
0065460
*
0065520 (
0065540 S E T Q T E M ( C A R ( N
0065560 T H ( C D R T E M ) \r
0065600
*
0065700 ( C D R C L A
0065720 S S D E F ] \r
0065740
*
0066000 ( / P U T X
0066020 ' L I S P F N T E M ] \r
0066040 (
0066060 T
0066100
0066120 006 006 ( *
0066140 e . g . c l i s p d e c ( f
0066160 a s s o c ) ) 006 001 \r
0066200 ( /
0066220 P U T C L A S S D E F ' L I
0066240 S P F N ( C A R L S T ] \r
0066260 [ ( F M
0066300 E M B ( C A R L S T ) \r
0066320
0066340 D E C L W O R D S ) \r
0066360 ( C O N
0066400 D \r
0066420 ( [ A T O M ( S E T Q
0066440 T E M ( G E T P R O P ( C A
0066460 R L S T ) \r
0066500
*
0066540 ' C L I S P C L A S S ] \r
0066560 (
0066600 / P U T T E M ' L I S P F N
0066620 ( C A R L S T ) ) ) \r
0066640 ( T
0066660 ( G O E R R O R ] \r
0066700 ( ( S E T Q
0066720 T E M ( O R ( P R O G ( T
0066740 Y P E - I N ? F A U L T F N )
0066760 \r
0067000
0067020 ( R E T U R N ( F I X S
0067040 P E L L ( C A R L S T ) \r
0067060
*
0067140 N I L D E C L W O R D S ) ) )
0067160 \r
0067200 ( G O
0067220 E R R O R ) ) ) \r
0067240 ( / R P L N O D
0067260 E L S T T E M ( C D R L
0067300 S T ) ) \r
0067320 ( G O T O P ) ) ) \r
0067340 ( S E T Q L S
0067360 T ( C D R L S T ) ) \r
0067400 ( G O T O P ) \r
0067420 E R R O R \r
0067440 ( E R R O R ' " i
0067460 l l e g a l d e c l a r a t i
0067500 o n " ( C A R L S T ] ) \r \r
0067520 ( 006 004 C L I S P D E C 0 006 001 \r
0067540 [ L A M B D A ( X F N )
0067560
*
0067620 006 006 ( *
0067640 w t % : 2 9 - J U L - 7 6
0067660 2 0 5 6 ) 006 001 \r ( / R
0067700 P L N O D E X C O M M E N T
0067720 F L G ( C O N S ' D E C L A
0067740 R A T I O N S % : ( 006 002 C L I
0067760 S P D E C 1 006 001 ( C D R X )
0070000 \r
0070020
*
0070060 F N ) ) ) \r
0070100 ( C D D R X ] ) \r \r ( 006
0070120 004 C L I S P D E C 1 006 001 \r [
0070140 L A M B D A ( X F A U L T F
0070160 N ) 006 006 006 001
0070200
0070220 006 006
0070240 ( * w t % : " 1 3 - J U N -
0070260 7 8 1 7 : 3 1 " ) 006 001 \r
0070300 ( M A P C O N X ( F U N C
0070320 T I O N ( L A M B D A ( X )
0070340 \r
0070360 ( P R O G
0070400 ( T E M T Y P E - I N ? ) \r
0070420
0070440 T O P
0070460 ( R E T U R N ( C O N D \r
0070500
*
0070540 [ ( L I S T P
0070560 ( C A R X ) ) \r
0070600
*
0070640 ( L I S T ( C O N
0070660 D \r
0070700
*
0070740 ( ( O R ( E Q
0070760 ( C A D A R X ) \r
0071000
*
0071060 ' = ) \r
0071100
*
0071160 ( F M E M B ( C A
0071200 A R X ) \r
0071220
*
0071300 C L I S P R E C O
0071320 R D T Y P E S ) \r
0071340
*
0071420 ( E Q ( C A A R X ) \r
0071440
*
0071520 ' R
0071540 E C O R D S ) ) \r
0071560
*
0071620 (
0071640 C A R X ) ) \r
0071660
*
0071720 ( T
0071740 ( C O N S ( C A A R X ) \r
0071760
*
0072040 ( 006 002
0072060 C L I S P D E C 1 006 001 ( C D A
0072100 R X ] \r
0072120
*
0072160 ( ( F M E M B ( C A R X ) \r
0072200
*
0072260 D E C L W O R D S ) \r
0072300
*
0072340 ( L I S T
0072360 ( C A R X ) ) ) \r
0072400
*
0072440 ( ( F I X S P E L L
0072460 ( C A R X ) \r
0072500
*
0072540 N I L D
0072560 E C L W O R D S N I L X N
0072600 I L N I L N I L \r
0072620
*
0072660 ( D
0072700 U N P A C K ( C A R X ) \r
0072720
*
0073000 S K O R L S T
0073020 1 ) ) \r
0073040
*
0073100 ( G O T O P ) ) \r
0073120
*
0073160 ( T ( E R R O R '
0073200 " i l l e g a l d e c l a r a
0073220 t i o n " ( C A R X ] ) \r \r
0073240 ( 006 004 G E T L O C A L D E C 006 001
0073260 \r [ L A M B D A ( E X P R
0073300 F N ) 006 006 006 001
0073320
*
0073360 006 006 ( * l m m " 2 6 - S
0073400 e p - 8 4 1 6 : 3 8 " ) 006 001 \r
0073420 ( A N D ( L I S T P
0073440 E X P R ) \r (
0073460 C O N D \r
0073500 ( ( F M E M B ( C A R E X
0073520 P R ) \r
0073540 L A M B D A S P
0073560 L S T ) \r
0073600 ( 006 002 f o r 006 001 ( T L _
0073620 ( C D D R E X P R ) ) 006 002
0073640 b y 006 001 ( C D R T L ) 006 002
0073660 w h i l e 006 001 T L 006 002 b i n
0073700 d 006 001 X 006 002 w h e n 006 001 (
0073720 L I S T P ( S E T Q X ( C
0073740 A R T L ) ) ) \r
0073760 006 002 d o 006 001
0074000 ( S E L E C T Q ( C A R X )
0074020 \r
0074040 ( B R E A K 1
0074060 ( S E T Q T L ( C A D R X
0074100 ) ) ) \r
0074120 ( A D V -
0074140 P R O G [ S E T Q T L ( C
0074160 A D R ( C A R ( L A S T (
0074200 C A D D R ( C A D D R X ] )
0074220 \r
0074240 ( C O N D \r
0074260
0074300 ( ( A N D ( E
0074320 Q ( C A R X ) \r
0074340
0074360 C O
0074400 M M E N T F L G ) \r
0074420
0074440 ( E Q ( C
0074460 A D R X ) \r
0074500
0074520 ' D E C L
0074540 A R A T I O N S % : ) ) \r
0074560
0074600 ( R E T U R N
0074620 ( C D D R X ) ) ) \r
0074640
0074660 [ ( E Q ( C A R X
0074700 ) \r
0074720
0074740 ' C L I S P % : ) \r
0074760
0075000 ( R E T U R N ( 006
0075020 002 C L I S P D E C 0 006 001 X (
0075040 O R F N F A U L T F N ] \r
0075060
0075100 ( ( F M E M B
0075120 ( C A R X ) \r
0075140
0075160 ' ( 006 002 D
0075200 E C L A R E 006 001 006 002 D E C L A
0075220 R E % : 006 001 ) ) \r
0075240
0075260 ( R E T U R N ( 006 002 f
0075300 o r 006 001 Y 006 002 i n 006 001 ( C
0075320 D R X ) 006 002 d o 006 001 [ C O
0075340 N D \r
0075360
*
0075420 ( (
0075440 E Q ( C A R Y ) \r
0075460
*
0075540 ' C L I S
0075560 P % : ) \r
0075600
*
0075660 ( R E T U R N ( C D R Y ]
0075700 \r
0075720
*
0075760 ( C O N D \r
0076000
*
0076060 ( ( A N D
0076100 ( E Q ( C A R Y ) \r
0076120
*
0076220 C O M M E N T F L G ) \r
0076240
*
0076320 ( E
0076340 Q ( C A D R Y ) \r
0076360
*
0076460 ' D E C L A R A T I O N S % : )
0076500 ) \r
0076520
*
0076560 ( R
0076600 E T U R N ( C D D R Y ] ) \r
0076620 ) \r ( D E F I N E Q \r \r ( 006 004 C
0076640 O M P I L E U S E R F N 006 001 \r
0076660 [ L A M B D A ( X Y ) 006 006
0076700 006 001
0076720
*
0076760 006 006 ( * h d j " 1 - F e b
0077000 - 8 5 1 5 : 2 2 " ) 006 001 \r
0077020 \r
0077040 006 006 ( * * t h i s i
0077060 s a n a w f u l p a t c h
0077100 t o f i x t h e f a c t
0077120 t h a t C O M P I L E U S E
0077140 R F N 1 i s U N I O N i n g
0077160 \r 006 001 006 006
0077200 s o m e t h i n g w i t h O
0077220 T H E R V A R S , w h i c h
0077240 i s a n u n b o u n d s p
0077260 e c v a r ) 006 001 \r \r ( O
0077300 R ( B O U N D P ' O T H E R
0077320 V A R S ) \r ( S
0077340 E T Q O T H E R V A R S N I
0077360 L ) ) \r ( P R O G ( T
0077400 E M ) \r ( R
0077420 E T U R N ( C O N D \r
0077440
0077460 ( ( 006 002 C H E C K T R A N 006 001
0077500 Y ) ) \r
0077520 [ ( L I S T
0077540 P ( C A R Y ) ) \r
0077560
0077600 ( C O N D \r
0077620
0077640 ( ( S E T Q T E M ( 006 002 C H
0077660 E C K T R A N 006 001 ( C A R Y
0077700 ) ) ) \r
0077720 ( C
0077740 O N S T E M ( C D R Y ) )
0077760 ) \r
0100000 ( D W I M
0100020 F L G ( 006 002 C O M P I L E U S
0100040 E R F N 1 006 001 Y ) \r
0100060
0100100 ( C O N D
0100120 \r
0100140
0100160 ( ( 006 002 C H E C K T R A
0100200 N 006 001 Y ) ) \r
0100220
0100240 ( ( S E T
0100260 Q T E M ( 006 002 C H E C K T R
0100300 A N 006 001 ( C A R Y ) ) ) \r
0100320
*
0100360 ( C O N S T E M ( C D
0100400 R Y ] \r
0100420 ( [ A N D
0100440 ( N L I S T P ( G E T P R O P
0100460 ( C A R Y ) \r
0100500
*
0100540 ' C L I S P W O R D ) ) \r
0100560
0100600 ( N O T
0100620 ( A N D ( F M E M B ( C A R
0100640 Y ) \r
0100660
*
0100720 L A M B D A S P L S T ) \r
0100740
*
0101000 ( N O T ( F M E M B ( C
0101020 A R Y ) \r
0101040
*
0101100 ' ( L A M B D A
0101120 N L A M B D A ] \r
0101140 N
0101160 I L ) \r
0101200 ( D W I M F L
0101220 G ( 006 002 C O M P I L E U S E R
0101240 F N 1 006 001 Y ) \r
0101260
0101300 ( C O N D \r
0101320
0101340 ( ( A N D
0101360 C L I S P A R R A Y ( G E T H
0101400 A S H Y C L I S P A R R A Y
0101420 ) ) ) \r
0101440
0101460 ( ( A N D C L I S P T R
0101500 A N F L G ( E Q ( C A R Y
0101520 ) \r
0101540
*
0101600 C L I S P T R A
0101620 N F L G ) ) \r
0101640
0101660 ( C A D R Y ) )
0101700 \r
0101720
0101740 ( ( N U L L ( G E T P R O P
0101760 ( C A R Y ) \r
0102000
*
0102040 ' C L I S P W O R D )
0102060 ) \r \r
0102100 006 006 ( * I F ' s
0102120 a r e t r a n s l e d d i
0102140 r e c t l y i n t o C O N D
0102160 ' s , a n d d o n t u s e
0102200 h a s h i n g . ) 006 001 \r \r
0102220
0102240 Y )
0102260 \r
0102300
0102320 ( ( N U L L D W I M E S S G A
0102340 G ) \r \r
0102360 006 006 ( * u s e
0102400 r c a n s e t D W I M E S
0102420 S G A G t o T a n d g o
0102440 a w a y a n d t h e c o
0102460 m p i l a t i o n w i l l g
0102500 o \r 006 001 006
0102520 006 t h r o u g h . ) 006 001 \r \r
0102540
0102560 ( P
0102600 R I N 1 ' " u n a b l e t o
0102620 d w i m i f y " T ) \r
0102640
0102660 ( P
0102700 R I N T Y T ) \r
0102720
0102740 ( C A R (
0102760 N L S E T Q ( [ L A M B D A
0103000 ( E X P ) \r
0103020
*
0103060 ( B R E A K 1 E X
0103100 P T c o m p i l a t i o n ]
0103120 \r
0103140
0103160 Y
0103200 ] ) \r \r ( 006 004 C O M P I L E U S
0103220 E R F N 1 006 001 \r [ L A M B D
0103240 A ( Y ) 006 006 006 001
0103260
*
0103320 006 006 ( * l m
0103340 m " 1 9 - J u n - 8 6 1 3 :
0103360 5 9 " ) 006 001 \r ( P R O G
0103400 [ ( F L G ( A N D ( L I S
0103420 T P C O R E F L G ) \r
0103440
0103460 ( C D R ( F A S S O C F N
0103500 C O R E F L G ] \r
0103520 ( L E T ( ( N O S P E
0103540 L L F L G ( O R N O S P E L
0103560 L F L G ( N U L L F L G ) )
0103600 ) \r
0103620 ( F I L E P K G F L G ( A
0103640 N D F I L E P K G F L G F L
0103660 G ) ) ) \r \r
0103700 006 006 ( * F
0103720 I L E K G F L G i s T w h
0103740 e n w h e n c o m p i l i n
0103760 g f r o m i n c o r e ,
0104000 s o t h a t i f f u n c t
0104020 i o n i s \r 006 001
0104040 006 006 c h a n g e d , i
0104060 t w i l l b e m a r k e d
0104100 . ) 006 001 \r \r
0104120 ( S E T Q N O F I X
0104140 F N S L S T 0 N O F I X F N S
0104160 L S T ) \r
0104200 ( S E T Q N O F I X V
0104220 A R S L S T 0 N O F I X V A R
0104240 S L S T ) \r
0104260 ( D W I M I F Y 0 Y
0104300 F N ( U N I O N A R G S
0104320 O T H E R V A R S ) \r
0104340
0104360 D E F ) \r
0104400 ( C O N D \r
0104420 ( ( T
0104440 A I L P N O F I X F N S L S T
0104460 N O F I X F N S L S T 0 ) \r
0104500 \r
0104520 006 006 ( * F o r p u r
0104540 p o s e s o f c o m p i l a
0104560 t i o n , w a n t a n y t h
0104600 i n g a d d e d t o N O F
0104620 I X F N S L S T 0 t o p e r
0104640 s i s t \r 006 001
0104660 006 006 t h r o u g h o u t c
0104700 o p i l i n g t h e w h o l
0104720 e f i l e . ) 006 001 \r \r
0104740 (
0104760 S E T Q N O F I X F N S L S T
0105000 N O F I X F N S L S T 0 ) ) )
0105020 \r
0105040 ( C O N D \r
0105060 ( ( T A I L P
0105100 N O F I X V A R S L S T N O F
0105120 I X V A R S L S T 0 ) \r
0105140 (
0105160 S E T Q N O F I X V A R S L S
0105200 T N O F I X V A R S L S T 0 ]
0105220 ) \r \r ( 006 004 U S E D F R E E 006 001
0105240 \r [ N L A M B D A A 006 006 006
0105260 001
0105300
*
0105340 006 006 ( * w t % : " 2 0 -
0105360 S E P - 7 7 2 2 : 1 0 " ) 006 001
0105400 \r \r
0105420 006 006 ( * p e r m i
0105440 t s t h e u s e r t o d
0105460 e c l a r e f r e e v a r s
0105500 w h i c h w i l l t h e n
0105520 b e " n o t i c e d " b y
0105540 d w i m i f y \r 006 001
0105560 006 006 i n t h a t t h
0105600 e y w o n t b e s p e l l
0105620 i n g c o r r e c t e d . ) 006
0105640 001 \r \r ( S E T Q F R E
0105660 E V A R S ( A P P E N D A
0105700 F R E E V A R S ] ) \r \r ( 006 004 C
0105720 L I S P T R A N 006 001 \r [ L A
0105740 M B D A ( X T R A N ) 006 006 006
0105760 001
0106000
0106020 006 006 ( *
0106040 b v m % : " 2 1 - J a n - 8
0106060 6 0 0 : 4 1 " ) 006 001 \r
0106100 ( C O N D \r ( ( O
0106120 R C L I S P A R R A Y ( C O
0106140 N D \r
0106160 ( % #
0106200 C L I S P A R R A Y ( S E T Q
0106220 C L I S P A R R A Y ( H A S
0106240 H A R R A Y % # C L I S P A R
0106260 R A Y N I L N I L N I L
0106300 T ) ) \r
0106320
0106340 ( S E T Q % # C L I
0106360 S P A R R A Y N I L ) \r
0106400 \r
0106420 006 006 ( * L a t t e r s o
0106440 u s e r c a n t u r n c
0106460 l i s p h a s h i n g o n a
0106500 n d o f f b y s i m p l y
0106520 r e s e t i n g \r 006 001
0106540 006 006 C L I S P A R
0106560 R A Y . ) 006 001 \r \r
0106600
0106620 T ) ) )
0106640
0106660 006 006 ( * O t h e r
0106700 w i s e u s e C L I S P %
0106720 t r a n s l a t i o n . ) 006 001
0106740 \r ( / P U T H A
0106760 S H X T R A N C L I S P A
0107000 R R A Y ) ) \r ( T
0107020 R A N
0107040
*
0107100 006 006 ( * C a n b e
0107120 c a l l e d e r a s e a t
0107140 r a n s l a t i o n . ) 006 001 \r
0107160 ( / R P
0107200 L N O D E X C L I S P T R A
0107220 N F L G ( C O N S T R A N
0107240 ( C O N S ( C A R X ) \r
0107260
*
0107340 ( C D R X ] ) \r ) \r
0107360 ( D E F I N E Q \r \r ( 006 004 C L I
0107400 S P F O R E R R 006 001 \r [ L A
0107420 M B D A ( X Y T Y P E ) 006
0107440 006 006 001
0107460
0107500 006 006 ( *
0107520 l m m " 4 - S E P - 8 3
0107540 2 2 : 5 6 " ) 006 001 \r ( A
0107560 N D ( N U L L D W I M E S S
0107600 G A G ) \r ( P
0107620 R O G ( T E M ) \r
0107640 ( A N D ( F
0107660 I X P R I N T I N F A U L T F
0107700 N ) \r
0107720 ( S P A C E S 1
0107740 T ) ) \r
0107760 ( L I S P X P R I N 1
0110000 ' " e r r o r i n i t e r a
0110020 t i v e s t a t e m e n t "
0110040 T ) \r
0110060 ( A N D T Y P E ( L I S
0110100 P X P R I N T ' % , T ) \r
0110120
0110140 ( L I S P X P R I N 1 (
0110160 S E L E C T Q T Y P E \r
0110200
*
0110240 ( B O T H ' " c a n ' t u
0110260 s e b o t h o f t h e s e
0110300 o p e r a t o r s t o g e t
0110320 h e r " ) \r
0110340
0110360 ( T W I C E
0110400 ' " o p e r a t o r a p p e
0110420 a r s t w i c e " ) \r
0110440
*
0110500 ( M I S S I N G ' " m i s s i
0110520 n g o p e r a n d " ) \r
0110540
*
0110600 ( W H A T ( L I S P X P R I
0110620 N 1 ( C A D R X ) \r
0110640
*
0110700 T ) \r
0110720
*
0110760 ' " w h a
0111000 t ? ( n o i . v . s p
0111020 e c i f i e d ) " ) \r
0111040
0111060 N
0111100 I L ) \r
0111120 T
0111140 ) ) \r
0111160 ( L I S P X P R I N T ' %
0111200 : T ) \r
0111220 ( C O N D \r
0111240 ( ( O R
0111260 ( A N D X ( N L I S T P
0111300 X ) ) \r
0111320 ( A N D
0111340 Y ( N L I S T P Y ) ) ) \r
0111360
0111400 ( L I S P X P R I N 2 X
0111420 T T ) \r
0111440 ( A N D Y (
0111460 L I S P X P R I N 2 Y T T
0111500 ) ) \r
0111520 ( R E T U R N ) ) \r
0111540
0111560 ( ( T A I L P X Y ) \r
0111600
0111620 ( S E T Q T E M X ) \r
0111640
0111660 ( S E T Q X Y ) \r
0111700
0111720 ( S E T Q Y T E M ) ) ) \r
0111740 ( 006
0111760 002 C L I S P F O R E R R 1 006 001
0112000 X Y ) \r
0112020 ( C O N D \r
0112040 ( Y (
0112060 L I S P X S P A C E S 1 T )
0112100 \r
0112120 ( 006 002 C L I S P F O
0112140 R E R R 1 006 001 Y ) ) ) \r
0112160 ( T E R
0112200 P R I T ) \r
0112220 ( R E T U R N ) ) )
0112240 \r ( D W I M E R R O R R
0112260 E T U R N ] ) \r \r ( 006 004 C L I S
0112300 P F O R E R R 1 006 001 \r [ L A
0112320 M B D A ( X Y )
0112340
*
0112400 006 006 ( * w t %
0112420 : 2 5 - M A R - 7 7 2 2 5
0112440 8 ) 006 001 \r ( P R O G (
0112460 T E M ) \r (
0112500 C O N D \r
0112520 ( ( N E Q X I . S . ) \r
0112540 ( L
0112560 I S P X P R I N 1 ' " . . .
0112600 " T ) ) ) \r
0112620 ( S E T Q T E M ( O R
0112640 [ C A D A D R ( S O M E I .
0112660 S . P T R S ( F U N C T I O N
0112700 ( L A M B D A ( Z ) \r
0112720
*
0113000 ( T A I L P (
0113020 C A D R Z ) \r
0113040
*
0113120 X ] \r
0113140
0113160 Y ) ) \r L
0113200 P ( L I S P X P R I N 2 (
0113220 006 002 R E T D W I M 2 006 001 ( C A
0113240 R X ) \r
0113260
0113300 N I L 3 ) \r
0113320 T T ) \r
0113340 ( C O N D \r
0113360 ( ( A N
0113400 D ( S E T Q X ( C D R X
0113420 ) ) \r
0113440 ( N E Q X T E M
0113460 ) ) \r
0113500 ( L I S P X S P A C E S 1
0113520 T ) \r
0113540 ( G O L P ] ) \r \r ( 006 004 I .
0113560 S . O P R 006 001 \r [ L A M B D
0113600 A ( N A M E F O R M O T H
0113620 E R S E V A L F L G ) 006 006 006 001
0113640
0113660 006 006 ( * w t
0113700 % : " 1 8 - S E P - 7 8 2 3
0113720 : 2 2 " ) 006 001 \r
0113740 \r 006 006 (
0113760 * E . g . N A M E = S U M ,
0114000 F O R M = ( S E T Q $ $ V
0114020 A L ( $ $ V A L + B O D Y
0114040 ) ) % , O T H E R S = \r 006 001
0114060 006 006 ( F I R S
0114100 T $ $ V A L _ 0 ) I f e
0114120 v a l f l g i s T , m e a
0114140 n s f o r m a n d o t h e
0114160 r s a r e t o b e E V A
0114200 L U A T E D a t \r 006 001
0114220 006 006 t r a n s l a
0114240 t i o n t i m e . ) 006 001 \r \r
0114260 ( P R O G ( ( U C ( U
0114300 - C A S E N A M E ) ) \r
0114320 L C N E W P R
0114340 O P O L D P R O P N E W F L
0114360 G ) \r [ C O
0114400 N D \r
0114420 ( ( N E Q N A M E U C ) \r
0114440 \r
0114460 006 006 ( * L C i s t
0114500 h e n a m e u s e d f o r
0114520 c l i s p i f y i n g . f o
0114540 r m o s t c a s e s i t i
0114560 s t h e l o w e r c a s e
0114600 , b u t \r 006 001
0114620 006 006 t h i c h e c k l
0114640 e t s u s e r s d e f i n e
0114660 i . s . o p r s c o n t a i
0114700 i n g s o m e l o w e r c a
0114720 s e a n d s o m e \r 006 001
0114740 006 006 u p p e r
0114760 c a s e l e t t e r s ) 006 001 \r
0115000 \r (
0115020 S E T Q L C N A M E ) ) \r
0115040 ( T (
0115060 S E T Q L C ( L - C A S E
0115100 N A M E ] \r
0115120 \r 006 006 ( *
0115140 s o t h a u s e r c a n
0115160 c a l l i t w i t h e i t
0115200 h e r l o e r o r u p p e
0115220 r c a s e v e r s i o n . ) 006
0115240 001 \r \r ( S E
0115260 T Q N E W F L G ( N E Q (
0115300 C A R ( G E T P L C ' C L
0115320 I S P W O R D ) ) \r
0115340
0115360 ' F O R W O R D ) )
0115400 \r ( C O N D
0115420 \r ( (
0115440 A N D F O R M ( A T O M F
0115460 O R M ) \r
0115500 ( N E Q F O R
0115520 M ' M O D I F I E R ) )
0115540
0115560 006 006 ( * S y n o n y m ) 006
0115600 001 \r
0115620 ( / P U T U C ' C L I S P W
0115640 O R D ( S E T Q N E W P R O
0115660 P ( L I S T ' F O R W O R D
0115700 L C F O R M ) ) ) \r
0115720 ( S E T Q
0115740 O L D P R O P ( G E T P L C
0115760 ' C L I S P W O R D ) ) \r
0116000 ( / P U
0116020 T L C ' C L I S P W O R D
0116040 N E W P R O P ) \r
0116060 ( / R E M P R O P
0116100 L C ' I . S . O P R ) ) \r
0116120 ( ( A N
0116140 D O T H E R S ( N L I S T P
0116160 O T H E R S ) \r
0116200 ( N U L
0116220 L E V A L F L G ) ) \r
0116240 ( E R R O R
0116260 " O T H E R S m u s t b e
0116300 a l i s t o f o p e r a
0116320 t o r s a n d o p e r a n d
0116340 s " O T H E R S ) ) \r
0116360 ( ( A N D O
0116400 T H E R S ( N E Q ( C A R
0116420 ( G E T P R O P ( C A R O T
0116440 H E R S ) \r
0116460
*
0116520 ' C L I S P W O R D ) ) \r
0116540
0116560 ' F O
0116600 R W O R D ) \r
0116620 ( N U L L
0116640 E V A L F L G ) ) \r
0116660 ( E R R O R '
0116700 " O T H E R S m u s t b e g
0116720 i n w i t h a n o p e r a
0116740 t o r " O T H E R S ) ) \r
0116760 ( T ( /
0117000 P U T U C ' C L I S P W O R
0117020 D ( S E T Q N E W P R O P
0117040 ( C O N S ' F O R W O R D L
0117060 C ) ) ) \r
0117100 ( / P U T L C ' C
0117120 L I S P W O R D N E W P R O P
0117140 ) \r
0117160 [ S E T Q N E W P R O P
0117200 ( C O N D \r
0117220
0117240 ( ( E Q F O R M
0117260 ' M O D I F I E R ) \r
0117300
0117320 ' M
0117340 O D I F I E R ) \r
0117360
0117400 [ E V A L F
0117420 L G ( C O N S ( A N D F O
0117440 R M ( C O N S ' = F O R M
0117460 ) ) \r
0117500
*
0117540 ( A N D O T H E R S (
0117560 C O N S ' = O T H E R S ] \r
0117600
*
0117640 ( T ( C O N S F O R M O
0117660 T H E R S ] \r
0117700 ( S E T Q O L D
0117720 P R O P ( G E T P L C ' I
0117740 . S . O P R ) ) \r
0117760 ( / P U T L
0120000 C ' I . S . O P R N E W P R
0120020 O P ) ) ) \r
0120040 [ C O N D \r
0120060 ( ( E Q U A L N E W P R
0120100 O P O L D P R O P ) \r
0120120 ( R E T U R
0120140 N N A M E ) ) \r
0120160 [ ( N U L L N E W
0120200 F L G )
0120220
0120240 006 006 ( * r e d e f
0120260 i n e d ) 006 001 \r
0120300 [ C O N D \r
0120320 ( ( E
0120340 Q U C ' C O L L E C T ) \r
0120360
0120400 ( / R E M P R O P ' f c o l
0120420 l e c t ' I . S . O P R ] \r
0120440 ( A N
0120460 D ( N E Q D F N F L G T )
0120500 \r
0120520 ( L I S P X P R I N T
0120540 [ C O N S ' i . s . o p r (
0120560 C O N S N A M E ' ( r e d e
0120600 f i n e d ] \r
0120620
0120640 T ) ) \r
0120660 ( A N D C L I S P A R R
0120700 A Y ( M A P H A S H C L I S
0120720 P A R R A Y ( F U N C T I O N
0120740 ( L A M B D A ( T R A N E
0120760 X P ) \r
0121000
*
0121060 ( A N D ( O R ( M E M B
0121100 U C E X P ) \r
0121120
*
0121220 ( M E M B L C E X P ) ) \r
0121240
*
0121340 ( / P U T H A S H E X P
0121360 N I L C L I S P A R R A Y ] \r
0121400 ( T
0121420
*
0121460 006 006 (
0121500 * d e f i n e d f o r t h
0121520 e f i r s t t i m e ) 006 001 \r
0121540
0121560 ( / N C O N C 1 C L I S P F O
0121600 R W O R D S P L S T U C ) \r
0121620 (
0121640 / N C O N C I . S . O P R L S
0121660 T ( L I S T U C L C ] \r
0121700 ( A N D F I
0121720 L E P K G F L G ( M A R K A S
0121740 C H A N G E D ( C O N D \r
0121760
*
0122020 ( ( E Q N
0122040 A M E U C ) \r
0122060
*
0122120 U C ) \r
0122140
*
0122200 ( T \r
0122220 \r 006 006
0122240 ( * f i l e p a c k a g e
0122260 d o e s n t c a r e w h e t
0122300 h e r y o u g i v e u p p
0122320 e r o r l o w e r c a s e
0122340 n a m e d t o \r 006 001
0122360 006 006 d u m p i . s
0122400 . o p r s , h o w e v e r i
0122420 f u s e r t o o k p a i n
0122440 s t o d e f i n e t h i
0122460 i . s s o p g i v i n g i t
0122500 a \r 006 001
0122520 006 006 o w e r c a s e d e f i n
0122540 i t i o n , ( O r m i x e d
0122560 u p p e r a n d l o w e r
0122600 c a s e ) t h e n i n f o
0122620 r m h i m a b o u t t h i
0122640 s \r 006 001 006
0122660 006 i . s . o p r i n t h a t
0122700 f a s h i o n . ) 006 001 \r \r
0122720
*
0122760 L C )
0123000 ) \r
0123020
0123040 ' I . S . O P R S N E W
0123060 F L G ) ) \r
0123100 ( R E T U R N N A M E ] ) \r \r
0123120 ( 006 004 W A R N U S E R 006 001 \r
0123140 [ L A M B D A ( X ) 006 006 006 001
0123160
*
0123220 006
0123240 006 ( * w t % : " 2 4 - M A R
0123260 - 8 0 0 8 : 2 3 " ) 006 001 \r
0123300 [ S O M E P R O G V A R S
0123320 ( F U N C T I O N ( L A M B
0123340 D A ( V A R ) \r
0123360
0123400 ( C O N D \r
0123420
*
0123460 ( ( E D I T F I N D P ( C A D
0123500 R X ) \r
0123520
0123540 (
0123560 C O N D \r
0123600
*
0123640 ( ( L I S T P V A R ) \r
0123660
*
0123720 ( C A
0123740 R V A R ) ) \r
0123760
*
0124020 ( T V A R ) ) ) \r
0124040
*
0124100 ( P R O G ( T E M ) \r
0124120
*
0124160 ( L I S P X P R I
0124200 N 1 " * * * * W a r n i n g :
0124220 t h e i t e r a t i v e s
0124240 t a t e m e n t : \r " T ) \r
0124260
*
0124320 ( L I S P X P R
0124340 I N 2 ( 006 002 R E T D W I M 2 006
0124360 001 E X P N I L 8 2 ) \r
0124400
*
0124440 T
0124460 ) \r
0124500
0124520 ( L I S P
0124540 X P R I N 1 " \r n o w t r a
0124560 n s l a t e s s o t h a t
0124600 " T ) \r
0124620
0124640 ( 006
0124660 002 C L I S P F O R E R R 1 006 001
0124700 X T ) \r
0124720
0124740 ( L
0124760 I S P X P R I N 1 " . . .
0125000 i s e v a l u a t e d B E F
0125020 O R E " T ) \r
0125040
*
0125100 ( C O N D \r
0125120
*
0125160 ( ( L I S T P V A R )
0125200 \r
0125220
0125240 ( L
0125260 I S P X P R I N 2 ( C A R V
0125300 A R ) \r
0125320
*
0125360 T ) \r
0125400
*
0125440 ( L I S P X P R
0125460 I N 1 " i s b o u n d a
0125500 n d i n i t i a l i z e d t
0125520 o : \r " T ) \r
0125540
*
0125600 ( L I S P X P R I N 2
0125620 ( 006 002 R E T D W I M 2 006 001 (
0125640 C A D R V A R ) \r
0125660
*
0125740 3 ) \r
0125760
*
0126040 T ) ) \r
0126060
*
0126120 ( T ( L I S P X P R I N 1
0126140 " i t i s b o u n d " T
0126160 ) ) ) \r
0126200
0126220 ( L I
0126240 S P X T E R P R I T ) ) \r
0126260
*
0126320 T ] \r ( C A D R X ]
0126340 ) \r ) \r ( D E C L A R E % : E
0126360 V A L @ C O M P I L E D O N T
0126400 C O P Y \r \r ( A D D T O V A R
0126420 006 002 N L A M L 006 001 B R E A K
0126440 1 ) \r ) \r ( D E C L A R E % :
0126460 D O N T E V A L @ L O A D D O
0126500 E V A L @ C O M P I L E D O N
0126520 T C O P Y \r ( B L O C K % : N
0126540 E W F A U L T 1 B L O C K N E
0126560 W F A U L T 1 C H E C K T R A
0126600 N ( E N T R I E S N E W F A
0126620 U L T 1 ) \r ( G L
0126640 O B A L V A R S % # C L I S P
0126660 A R R A Y ) \r ( N
0126700 O L I N K F N S W T F I X ) )
0126720 \r ( B L O C K % : C L I S P L
0126740 O O K U P 0 C L I S P L O O K
0126760 U P 0 C L I S P L O O K U P 1
0127000 C L I S P L O O K U P 2 ( G
0127020 L O B A L V A R S D E C L W O
0127040 R D S C L I S P R E C O R D T
0127060 Y P E S \r
0127100
*
0127160 C L I S P T
0127200 R A N F L G ) \r (
0127220 L O C A L F R E E V A R S W O
0127240 R D C L A S S C L A S S D E
0127260 F V A R 1 V A R 2 ) ) \r ( B
0127300 L O C K % : C L I S P D E C B
0127320 L O C K C L I S P D E C C L
0127340 I S P D E C 0 C L I S P D E C
0127360 1 G E T L O C A L D E C ( G
0127400 L O B A L V A R S C L I S P R
0127420 E C O R D T Y P E S \r
0127440
*
0127540 D E C L W O R D S C L I
0127560 S P A R I T H O P L S T \r
0127600
*
0127700 C L I S P A R I T H C
0127720 L A S S L S T C O M M E N T F
0127740 L G \r
0127760
*
0130040 S K O R L
0130060 S T 1 ) \r ( E N T
0130100 R I E S C L I S P D E C C L
0130120 I S P D E C 0 G E T L O C A L
0130140 D E C ) \r ( L O C
0130160 A L F R E E V A R S F A U L T
0130200 F N ) ) \r ) \r ( D E C L A R E %
0130220 : D O E V A L @ C O M P I L E
0130240 D O N T C O P Y \r \r ( G L O B
0130260 A L V A R S D W I M O D E L S
0130300 T D W I M F L G D W I M K E
0130320 Y L S T D W I M W A I T L C
0130340 A S E F L G N O L I N K M E S
0130360 S I . S . O P R S L S T C L
0130400 I S P F O R W O R D S P L S T
0130420 \r I . S . O P R L
0130440 S T S K O R L S T 3 D W I M
0130460 L O A D F N S F L G D W I M E
0130500 S S G A G C L I S P T R A N F
0130520 L G C L I S P A R R A Y % #
0130540 C L I S P A R R A Y ) \r ) \r ( D
0130560 E C L A R E % : D O N T E V A
0130600 L @ L O A D D O E V A L @ C O
0130620 M P I L E D O N T C O P Y C
0130640 O M P I L E R V A R S \r \r ( A
0130660 D D T O V A R 006 002 N L A M A 006
0130700 001 U S E D F R E E C L I S P
0130720 % ) \r \r ( A D D T O V A R 006
0130740 002 N L A M L 006 001 ) \r \r ( A D D
0130760 T O V A R 006 002 L A M A 006 001 F
0131000 I X A T O M 2 ) \r ) \r ( P U T P
0131020 R O P S D W I M C O P Y R I
0131040 G H T ( " X e r o x C o r p
0131060 o r a t i o n " 1 9 8 2 1 9
0131100 8 3 1 9 8 4 1 9 8 5 1 9 8
0131120 6 ) ) \r S T O P \r
0131131