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