$ od -c -N 50000 [eris]<LispCore>LIBRARY>CMLWALK.DCOM!26
0000000 ( F I L E C R E A T E D " 2 0
0000020 - J u l - 8 6 2 3 : 4 6 : 2 0
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > E V A L > C M L W A L K . ;
0000120 1 ) \r " 2 0 - J u l - 8 6 1
0000140 6 : 5 6 : 0 6 " " C O M P I L
0000160 E - F I L E d " i n " X e r
0000200 o x L i s p 2 0 - J u l - 8
0000220 6 . . . " d a t e d " 2 0
0000240 - J u l - 8 6 1 7 : 0 8 : 0 5
0000260 " ) \r ( F I L E C R E A T E D
0000300 " 2 0 - J u l - 8 6 2 3 : 4 6
0000320 : 0 0 " { E R I S } < L I S P
0000340 C O R E > E V A L > C M L W A L
0000360 K . ; 1 2 5 1 2 3 c h a n g
0000400 e s t o : ( V A R S C M L
0000420 W A L K C O M S ) \r ( V A R I
0000440 A B L E S * W A L K - F U N C
0000460 T I O N * * W A L K - F O R M
0000500 * * D E C L A R A T I O N S *
0000520 * L E X I C A L - V A R I A B
0000540 L E S * * E N V I R O N M E N
0000560 T * * W A L K - C O P Y * )
0000600 \r p r e v i o u s d a t e :
0000620 " 2 - J u l - 8 6 1 8 : 4 0
0000640 : 5 3 " { E R I S } < L I S P
0000660 C O R E > L I B R A R Y > C M L
0000700 W A L K . ; 2 7 ) \r ( R P A Q Q
0000720 C M L W A L K C O M S ( ( V
0000740 A R I A B L E S * W A L K - F
0000760 U N C T I O N * * W A L K - F
0001000 O R M * * D E C L A R A T I O
0001020 N S * * L E X I C A L - V A R
0001040 I A B L E S * \r * E N V I R O
0001060 N M E N T * * W A L K - C O P
0001100 Y * ) ( F U N C T I O N S W
0001120 I T H - N E W - C O N T O U R
0001140 N O T E - L E X I C A L - B I N
0001160 D I N G N O T E - D E C L A R
0001200 A T I O N ) ( \r F U N C T I O
0001220 N S V A R I A B L E - S P E C
0001240 I A L - P V A R I A B L E - L
0001260 E X I C A L - P G E T - W A L
0001300 K E R - T E M P L A T E ) ( F
0001320 U N C T I O N S W A L K - F O
0001340 R M ) ( F N S \r W A L K - F
0001360 O R M - I N T E R N A L W A L
0001400 K - T E M P L A T E W A L K -
0001420 T E M P L A T E - H A N D L E -
0001440 R E P E A T W A L K - T E M P
0001460 L A T E - H A N D L E - R E P E
0001500 A T - 1 W A L K - L I S T \r
0001520 W A L K - R E C O N S ) ( F U
0001540 N C T I O N S W A L K - R E L
0001560 I S T * ) ( F N S W A L K -
0001600 D E C L A R A T I O N S W A L
0001620 K - A R G L I S T W A L K - L
0001640 A M B D A ) ( C O M S ( P R
0001660 O P \r W A L K E R - T E M P L
0001700 A T E C O M P I L E R - L E T
0001720 ) ( F N S W A L K - C O M P
0001740 I L E R - L E T ) ( P R O P
0001760 W A L K E R - T E M P L A T E
0002000 D E C L A R E ) ( F N S \r W
0002020 A L K - U N E X P E C T E D - D
0002040 E C L A R E ) ( P R O P W A
0002060 L K E R - T E M P L A T E L E
0002100 T P R O G L E T * P R O G
0002120 * ) ( F N S W A L K - L E T
0002140 W A L K - L E T * \r W A L K
0002160 - L E T / L E T * ) ( P R O P
0002200 W A L K E R - T E M P L A T E
0002220 T A G B O D Y ) ( F N S W
0002240 A L K - T A G B O D Y ) ( P R
0002260 O P W A L K E R - T E M P L A
0002300 T E F L E T L A B E L S )
0002320 ( \r F N S W A L K - F L E T /
0002340 L A B E L S ) ( P R O P W A
0002360 L K E R - T E M P L A T E F U
0002400 N C T I O N C L : F U N C T I
0002420 O N G O C L : I F M U L T
0002440 I P L E - V A L U E - C A L L
0002460 \r M U L T I P L E - V A L U E -
0002500 P R O G 1 P R O G N P R O G
0002520 V Q U O T E R E T U R N - F
0002540 R O M R E T U R N C L : S E
0002560 T Q C L : B L O C K C A T C
0002600 H E V A L - W H E N T H E
0002620 T H R O W \r U N W I N D - P R
0002640 O T E C T L O A D - T I M E -
0002660 E V A L C O N D U N W I N D
0002700 - P R O T E C T S E T Q A N
0002720 D O R ) ) ( C O M S ( *
0002740 f o r I n t e r l i s p ) (
0002760 P R O P \r W A L K E R - T E M
0003000 P L A T E R P A Q ? R P A Q
0003020 X N L S E T Q E R S E T Q
0003040 N L S E T Q R E S E T V A R S
0003060 ) ) ( P R O P F I L E T Y P
0003100 E C M L W A L K ) ( D E C L
0003120 A R E : \r D O N T E V A L @ L
0003140 O A D D O E V A L @ C O M P I
0003160 L E D O N T C O P Y C O M P
0003200 I L E R V A R S ( A D D V A R
0003220 S ( N L A M A ) ( N L A M L
0003240 ) ( L A M A W A L K - F L E
0003260 T / L A B E L S \r W A L K - T
0003300 A G B O D Y W A L K - L E T /
0003320 L E T * W A L K - L E T * W
0003340 A L K - L E T W A L K - U N E
0003360 X P E C T E D - D E C L A R E
0003400 W A L K - C O M P I L E R - L E
0003420 T W A L K - L A M B D A \r W
0003440 A L K - A R G L I S T W A L K
0003460 - D E C L A R A T I O N S W A
0003500 L K - R E C O N S W A L K - T
0003520 E M P L A T E - H A N D L E - R
0003540 E P E A T - 1 W A L K - T E M
0003560 P L A T E - H A N D L E - R E P
0003600 E A T \r W A L K - T E M P L A
0003620 T E W A L K - F O R M - I N T
0003640 E R N A L ) ) ) ) ) \r ( O R (
0003660 B O U N D P ( Q U O T E * W
0003700 A L K - F U N C T I O N * ) )
0003720 ( S E T Q * W A L K - F U N C
0003740 T I O N * N I L ) ) \r ( P R O
0003760 C L A I M ( Q U O T E ( S P
0004000 E C I A L * W A L K - F U N C
0004020 T I O N * ) ) ) \r ( O R ( B O
0004040 U N D P ( Q U O T E * W A L
0004060 K - F O R M * ) ) ( S E T Q
0004100 * W A L K - F O R M * \r " W h
0004120 e n t h e f i r s t a r g
0004140 u m e n t t o t h e I F
0004160 t e m p l a t e i n t h e
0004200 c o d e - w a l k e r i s a
0004220 l i s t , i t w i l l b
0004240 e e v a l u a t e d w i t h
0004260 * w a l k - f o r m * b o u
0004300 n d t o t h e f o r m c
0004320 u r r e n t l y b e i n g w
0004340 a l k e d . " \r ) ) \r ( P R O C
0004360 L A I M ( Q U O T E ( S P E
0004400 C I A L * W A L K - F O R M *
0004420 ) ) ) \r ( O R ( B O U N D P
0004440 ( Q U O T E * D E C L A R A T
0004460 I O N S * ) ) ( S E T Q * D
0004500 E C L A R A T I O N S * \r " a
0004520 l i s t o f t h e d e c
0004540 l a r a t i o n s c u r r e n
0004560 t l y i n e f f e c t w h
0004600 i l e c o d e w a l k i n g "
0004620 ) ) \r ( P R O C L A I M ( Q U
0004640 O T E ( S P E C I A L * D E
0004660 C L A R A T I O N S * ) ) ) \r (
0004700 O R ( B O U N D P ( Q U O T
0004720 E * L E X I C A L - V A R I A
0004740 B L E S * ) ) ( S E T Q * L
0004760 E X I C A L - V A R I A B L E S
0005000 * \r " a l i s t o f t h
0005020 e v a r i a b l e s b o u n
0005040 d i n t h e c u r r e n t
0005060 c o n t o u r w h i l e w
0005100 a l k i n g . " ) ) \r ( P R O C
0005120 L A I M ( Q U O T E ( S P E
0005140 C I A L * L E X I C A L - V A
0005160 R I A B L E S * ) ) ) \r ( O R
0005200 ( B O U N D P ( Q U O T E *
0005220 E N V I R O N M E N T * ) ) (
0005240 S E T Q * E N V I R O N M E N
0005260 T * \r " w h i l e c o d e w
0005300 a l k i n g , t h i s i s
0005320 t h e l e x i c a l e n v i
0005340 r o n m e n t a s f a r a
0005360 s m a c r o s a r e c o n
0005400 c e r n e d " ) ) \r ( P R O C L
0005420 A I M ( Q U O T E ( S P E C
0005440 I A L * E N V I R O N M E N T
0005460 * ) ) ) \r ( O R ( B O U N D P
0005500 ( Q U O T E * W A L K - C O
0005520 P Y * ) ) ( S E T Q * W A L
0005540 K - C O P Y * \r " w h i l e
0005560 w a l k i n g , t h i s i s
0005600 t r u e i f w e a r e
0005620 m a k i n g a c o p y o f
0005640 t h e e x p r e s i o n b
0005660 e i n g w a l k e d " ) ) \r (
0005700 P R O C L A I M ( Q U O T E
0005720 ( S P E C I A L * W A L K - C
0005740 O P Y * ) ) ) \r e x p a n d - W
0005760 I T H - N E W - C O N T O U R
0006000 D 1 \r ( L ( 1 $ $ M A C R O
0006020 - E N V I R O N M E N T 0 $
0006040 $ M A C R O - F O R M ) ) \0 021
0006060 001 \0 \0 002 @ 002 021 001 \0 g \0 \0 o \0 \0 \0
0006100 H 032 032 020 \0 N I L \r ( 7 L E T )
0006120 \r ( 1 3 Q ( ( * D E C L A R
0006140 A T I O N S * N I L ) ( * L
0006160 E X I C A L - V A R I A B L E S
0006200 * * L E X I C A L - V A R I A
0006220 B L E S * ) ( * E N V I R O N
0006240 M E N T * * E N V I R O N M E
0006260 N T * ) ) ) \r ( S E T F - M A C
0006300 R O - F U N C T I O N ( Q U O
0006320 T E W I T H - N E W - C O N T
0006340 O U R ) ( Q U O T E e x p a
0006360 n d - W I T H - N E W - C O N T
0006400 O U R ) ) \r e x p a n d - N O T
0006420 E - L E X I C A L - B I N D I N
0006440 G D 1 \r ( L ( 1 $ $ M A C
0006460 R O - E N V I R O N M E N T 0
0006500 $ $ M A C R O - F O R M ) )
0006520 \0 022 001 \0 \0 002 @ 002 001 021 001 \0 g \0 \0 H
0006540 o \0 \0 \0 032 032 020 \0 N I L \r ( 1 0 Q
0006560 C L : P U S H ) \r ( 1 5 Q
0006600 ( * L E X I C A L - V A R I A B
0006620 L E S * ) ) \r ( S E T F - M A C
0006640 R O - F U N C T I O N ( Q U O
0006660 T E N O T E - L E X I C A L -
0006700 B I N D I N G ) ( Q U O T E
0006720 e x p a n d - N O T E - L E X I
0006740 C A L - B I N D I N G ) ) \r e x
0006760 p a n d - N O T E - D E C L A R
0007000 A T I O N D 1 \r ( L ( 1 $
0007020 $ M A C R O - E N V I R O N M E
0007040 N T 0 $ $ M A C R O - F O R
0007060 M ) ) \0 022 001 \0 \0 002 @ 002 001 021 001 \0
0007100 g \0 \0 H o \0 \0 \0 032 032 020 \0 N I L \r
0007120 ( 1 0 Q C L : P U S H ) \r (
0007140 1 5 Q ( * D E C L A R A T I O
0007160 N S * ) ) \r ( S E T F - M A C R
0007200 O - F U N C T I O N ( Q U O T
0007220 E N O T E - D E C L A R A T I
0007240 O N ) ( Q U O T E e x p a n
0007260 d - N O T E - D E C L A R A T I
0007300 O N ) ) \r V A R I A B L E - S P
0007320 E C I A L - P D 1 \r ( L ( 0
0007340 V A R ) F 2 * D E C L A
0007360 R A T I O N S * ) \0 , 002 001 \0 001
0007400 R 021 021 001 H 003 265 020 h 022 265 \v @ 301 002 311
0007420 \0 g \0 \0 ' 020 001 Y 001 g \0 \0 360 227 @ I
0007440 002 034 222 i 260 345 H 002 X 260 334 \0 N I L \r
0007460 ( 3 3 Q S P E C I A L 2 3 Q
0007500 G L O B A L L Y - S P E C I A
0007520 L ) \r ( ) \r V A R I A B L E - L
0007540 E X I C A L - P D 1 \r ( L (
0007560 0 V A R ) F 0 * L E X I
0007600 C A L - V A R I A B L E S * )
0007620 \0 \r \0 001 \0 001 @ \t \0 \0 h 360 264 005 @ P
0007640 034 020 \0 ( 3 V A R I A B L E - S
0007660 P E C I A L - P ) \r N I L \r ( )
0007700 \r G E T - W A L K E R - T E M P
0007720 L A T E D 1 \r ( L ( 0 X )
0007740 ) \0 026 \0 \0 \0 001 @ d 004 l 004 360 244 o
0007760 \0 \0 \0 020 301 002 311 \0 g \0 \0 ' 020 \0 N I
0010000 L \r ( 2 2 Q W A L K E R - T E
0010020 M P L A T E ) \r ( 1 2 Q ( C
0010040 L : L A M B D A R E P E A T
0010060 ( E V A L ) ) ) \r W A L K - F O
0010100 R M A 0 0 0 1 D 1 \r ( L ( 1
0010120 I G N O R E 0 X ) ) \0 003
0010140 \0 \0 \0 002 @ 020 \0 N I L \r N I L \r (
0010160 ) \r W A L K - F O R M D 1 \r (
0010200 L ( 0 - a r g s - ) P 2
0010220 0 Q * W A L K - C O P Y * P
0010240 1 5 Q * W A L K - F U N C T
0010260 I O N * P 1 2 Q * E N V I
0010300 R O N M E N T * P 7 * L E
0010320 X I C A L - V A R I A B L E S *
0010340 P 4 * D E C L A R A T I O
0010360 N S * ) \0 334 021 \0 002 \0 e 021 001 \0 k
0010400 a 021 361 020 H l 002 273 272 K d J 363 262 a 277
0010420 h 274 H l 002 276 275 N d M 363 262 f 277 h _
0010440 016 277 H l 002 _ 022 277 _ 020 277 O 022 d O 020
0010460 363 262 c 277 h _ 024 277 H l 002 _ 030 277 _ 026
0010500 277 O 030 d O 026 363 262 c 277 g \0 \0 _ 032 277
0010520 H l 002 _ 036 277 _ 034 277 O 036 d O 034 363 262
0010540 a 277 i _ 277 I g \0 \0 \n \0 \0 020 a g
0010560 \0 \0 360 225 K k 330 a 260 231 K l 002 324 [ 260
0010600 213 a g \0 \0 360 225 N k 330 a 260 224 N l 002
0010620 324 ^ 260 206 a g \0 \0 360 226 O 022 k 330 a 260
0010640 226 O 022 l 002 324 _ 022 260 205 a g \0 \0 360 226
0010660 O 030 k 330 a 260 230 O 030 l 002 324 _ 030 260 205
0010700 a g \0 \0 360 226 O 036 k 330 a 260 230 O 036 l
0010720 002 324 _ 036 260 207 \0 ( 1 6 1 Q W A L
0010740 K - F O R M - I N T E R N A L )
0010760 \r ( 3 1 0 Q : C O P Y 2 6 2
0011000 Q : W A L K - F U N C T I O N
0011020 2 3 4 Q : E N V I R O N M E
0011040 N T 2 1 1 Q : L E X I C A L
0011060 - V A R I A B L E S 1 6 6 Q
0011100 : D E C L A R A T I O N S 1 5
0011120 6 Q E V A L 1 2 1 Q W A L
0011140 K - F O R M A 0 0 0 1 ) \r ( ) \r
0011160 W A L K - F O R M - I N T E R N
0011200 A L D 1 \r ( L ( 1 C O N T
0011220 E X T 0 F O R M ) F 3
0011240 * W A L K - F U N C T I O N *
0011260 F 4 * E N V I R O N M E N T
0011300 * ) \0 i 003 002 \0 002 021 0 002 @ A l 002
0011320 S 016 \t \0 \0 Y 001 272 I 002 001 221 J 020 @ d
0011340 J 360 246 277 J b \0 023 260 341 003 241 @ 020 @ d
0011360 001 004 l 004 360 250 o \0 \0 \0 A \v \0 \0 020 001
0011400 \t \0 \0 X 265 020 @ d T \n \0 \0 b \0 360 263
0011420 030 023 260 267 004 l 004 360 226 @ A l 002 H 016 020
0011440 @ H A \v \0 \0 020 @ o \0 \0 \0 A \v \0 \0
0011460 020 \0 ( 1 4 6 Q W A L K - T E M
0011500 P L A T E 1 3 4 Q W A L K -
0011520 T E M P L A T E 1 0 2 Q M A
0011540 C R O E X P A N D - 1 7 1 Q
0011560 G E T - W A L K E R - T E M P L
0011600 A T E 6 4 Q W A L K - T E M
0011620 P L A T E 1 3 Q \ M V L I S
0011640 T ) \r N I L \r ( 1 4 2 Q ( C
0011660 A L L R E P E A T ( E V A L
0011700 ) ) 6 0 Q ( C A L L R E P
0011720 E A T ( E V A L ) ) ) \r W A L
0011740 K - T E M P L A T E D 1 \r ( L
0011760 ( 2 C O N T E X T 1 T E
0012000 M P L A T E 0 F O R M ) P
0012020 2 * W A L K - F O R M * )
0012040 \0 344 003 \0 \0 003 A d 003 263 } 021 021 001 H Y
0012060 d g \0 \0 360 232 277 @ d 003 262 _ h \n \0 \0
0012100 020 g \0 \0 360 256 I g \0 \0 360 250 I 226 I d
0012120 g \0 \0 360 221 @ 020 g \0 \0 360 263 035 I g \0
0012140 \0 360 263 026 I g \0 \0 360 255 I g \0 \0 360 247
0012160 I d g \0 \0 360 230 277 @ g \0 \0 \n \0 \0 020
0012200 g \0 \0 360 227 @ g \0 \0 \n \0 \0 020 I g \0
0012220 \0 360 264 \b @ B \n \0 \0 020 g \0 \0 H o \0
0012240 \0 \0 \f \0 \0 020 001 d g \0 \0 360 262 ' 277 @
0012260 021 001 002 @ A 002 001 003 226 A 002 001 \t \0 \0 205
0012300 @ k A 002 001 016 221 A 201 A 002 002 002 001 B \v
0012320 \0 \0 020 g \0 \0 360 262 031 @ A 002 @ \t \0 \0
0012340 A 002 002 \t \0 \0 325 @ \n \0 \0 B \f \0 \0 020
0012360 @ d 003 262 246 d 001 A 001 B \v \0 \0 @ 002 A
0012400 002 B \v \0 \0 \v \0 \0 020 \0 ( 3 4 1 Q
0012420 W A L K - R E C O N S 3 3 6 Q
0012440 W A L K - T E M P L A T E 3
0012460 2 6 Q W A L K - T E M P L A T
0012500 E 3 1 0 Q W A L K - T E M P
0012520 L A T E - H A N D L E - R E P E
0012540 A T 3 0 4 Q N T H C D R 2
0012560 7 7 Q C L : L E N G T H 2 7
0012600 1 Q C L : L E N G T H 2 5 3
0012620 Q W A L K - T E M P L A T E
0012640 2 3 0 Q E V A L 1 7 6 Q E
0012660 C A S E - F A I L 1 6 2 Q W
0012700 A L K - L A M B D A 1 4 5 Q
0012720 W A L K - F O R M - I N T E R N
0012740 A L 1 3 0 Q W A L K - F O R
0012760 M - I N T E R N A L 3 1 Q W
0013000 A L K - L A M B D A ) \r ( 2 5 7
0013020 Q R E P E A T 2 0 4 Q C L
0013040 : I F 1 6 6 Q T E M P L A T
0013060 E 1 5 2 Q C L : L A M B D A
0013100 1 4 2 Q S E T 1 3 4 Q S
0013120 E T 1 2 5 Q E V A L 1 1 6
0013140 Q R E T U R N 1 0 7 Q E F
0013160 F E C T 1 0 1 Q T E S T 7
0013200 2 Q F U N C T I O N 6 3 Q
0013220 E V A L 5 4 Q P P E 4 3 Q
0013240 C A L L 3 5 Q Q U O T E
0013260 1 5 Q C A L L ) \r ( 1 7 3 Q
0013300 ( C A L L ( Q U O T E C A
0013320 L L N I L P P E ) ( E V A
0013340 L F U N C T I O N T E S T
0013360 E F F E C T R E T U R N ) S
0013400 E T C L : L A M B D A ) ) \r W
0013420 A L K - T E M P L A T E - H A N
0013440 D L E - R E P E A T D 1 \r ( L
0013460 ( 3 C O N T E X T 2 S T
0013500 O P - F O R M 1 T E M P L A
0013520 T E 0 F O R M ) ) \0 027 \0 \0
0013540 \0 004 @ d B 360 226 A 002 C \v \0 \0 020 A d
0013560 001 B C \r 005 \0 \0 020 \0 ( 2 4 Q W A
0013600 L K - T E M P L A T E - H A N D
0013620 L E - R E P E A T - 1 1 2 Q
0013640 W A L K - T E M P L A T E ) \r N
0013660 I L \r ( ) \r W A L K - T E M P L
0013700 A T E - H A N D L E - R E P E A
0013720 T - 1 D 1 \r ( L ( 4 C O N
0013740 T E X T 3 S T O P - F O R M
0013760 2 R E P E A T - T E M P L A
0014000 T E 1 T E M P L A T E 0
0014020 F O R M ) ) \0 < \0 \0 \0 005 @ d 240
0014040 020 C 360 262 024 B 247 C A 002 D \v \0 \0 020 o
0014060 \0 \0 \0 \t \0 \0 020 B 246 A 001 b 004 277 260 337
0014100 @ d 001 B 001 D \v \0 \0 @ 002 A B 002 C D
0014120 \r 005 \0 \0 \v \0 \0 020 \0 ( 7 1 Q W A
0014140 L K - R E C O N S 6 6 Q W A
0014160 L K - T E M P L A T E - H A N D
0014200 L E - R E P E A T - 1 5 3 Q
0014220 W A L K - T E M P L A T E 3 0
0014240 Q C L : E R R O R 2 0 Q W
0014260 A L K - T E M P L A T E ) \r N I
0014300 L \r ( 2 5 Q " W h i l e h
0014320 a n d l i n g r e p e a t : \r
0014340
0014360 ~ % % ~ R a n i n t
0014400 o s t o p w h i l e s t i
0014420 l l i n r e p e a t t e m
0014440 p l a t e . " ) \r W A L K - L I
0014460 S T D 1 \r ( I 1 F N I
0014500 0 L I S T ) \0 023 \0 \0 \0 002 @ d
0014520 235 d 001 k A 016 @ 002 A \n \0 \0 \v \0 \0 020
0014540 \0 ( 2 0 Q W A L K - R E C O N
0014560 S 1 5 Q W A L K - L I S T )
0014600 \r N I L \r ( ) \r W A L K - R E C
0014620 O N S D 1 \r ( L ( 2 C D R
0014640 1 C A R 0 X ) F 0
0014660 * W A L K - C O P Y * ) \0 024 \0
0014700 001 \0 003 P 264 021 @ 001 A 360 226 @ d 002 B 360
0014720 243 277 A B 032 020 \0 N I L \r N I L \r (
0014740 ) \r e x p a n d - W A L K - R E
0014760 L I S T * D 1 \r ( L ( 1 $
0015000 $ M A C R O - E N V I R O N M E
0015020 N T 0 $ $ M A C R O - F O R
0015040 M ) ) \0 - 005 \0 \0 002 @ 002 021 A 004 H
0015060 001 271 H 002 Z 001 273 J 002 \ 262 032 g \0 \0 I
0015100 K g \0 \0 g \0 \0 I h 032 032 L 032 032 h 032
0015120 032 032 032 020 K 020 \0 N I L \r ( 3 4 Q
0015140 C D R 3 1 Q W A L K - R E L
0015160 I S T * 2 4 Q W A L K - R E
0015200 C O N S ) \r ( ) \r ( S E T F - M
0015220 A C R O - F U N C T I O N ( Q
0015240 U O T E W A L K - R E L I S T
0015260 * ) ( Q U O T E e x p a n d
0015300 - W A L K - R E L I S T * ) ) \r
0015320 W A L K - D E C L A R A T I O N
0015340 S D 1 \r ( L ( 3 D E C L A
0015360 R A T I O N S 2 D O C - S T
0015400 R I N G - P 1 F N 0 B O
0015420 D Y ) F 3 * D E C L A R A
0015440 T I O N S * F 4 * E N V I
0015460 R O N M E N T * ) \0 s 003 002 \0 004
0015500 @ 001 021 ! 002 H d 005 \a 262 031 277 @ 002 262 023
0015520 B 256 C 254 @ H @ 002 A i \v \0 \0 \v \0 \0
0015540 020 H 003 262 - H d 001 g \0 \0 360 262 % 002 Y
0015560 265 020 @ H @ 002 A B C \f \0 \0 \v \0 \0 020
0015600 001 Z S 032 c 006 277 J C 032 b 006 277 I 260 340
0015620 H 003 262 033 H 001 \t \0 \0 263 024 H d T \n \0
0015640 \0 X 360 250 H @ 002 032 b \0 023 260 225 @ k A
0015660 016 020 \0 ( 1 4 0 Q M A C R O E X
0015700 P A N D - 1 1 3 0 Q G E T -
0015720 W A L K E R - T E M P L A T E
0015740 7 6 Q W A L K - R E C O N S
0015760 7 3 Q W A L K - D E C L A R A
0016000 T I O N S 3 7 Q W A L K - R
0016020 E C O N S 3 4 Q W A L K - D
0016040 E C L A R A T I O N S ) \r ( 5 2
0016060 Q D E C L A R E ) \r ( ) \r W A
0016100 L K - A R G L I S T D 1 \r ( L
0016120 ( 2 D E S T R U C T U R I N
0016140 G P 1 C O N T E X T 0 A
0016160 R G L I S T ) F 1 * L E X
0016200 I C A L - V A R I A B L E S * )
0016220 \0 216 001 001 \0 003 021 020 \0 @ d 262 ~ 001 X
0016240 d 004 l 004 360 262 # ` \0 \0 034 245 H Q 032 c
0016260 002 277 @ H @ 002 A B 264 \t H ` \0 \0 034 h
0016300 360 \v \0 \0 \v \0 \0 020 003 262 R B 227 H A B
0016320 \v \0 \0 260 $ @ H d 001 H 002 H 002 001 g \0
0016340 \0 \n \0 \0 H 002 002 \v \0 \0 \v \0 \0 @ 002 A
0016360 h \v \0 \0 \v \0 \0 H d 001 004 l 004 360 241 001
0016400 002 001 Q 032 c 002 277 H 002 002 236 H 002 002 001 004
0016420 l 004 360 225 H Q 032 c 002 277 020 o \0 \0 \0 @
0016440 \n \0 \0 020 \0 ( 2 1 3 Q C L : E R
0016460 R O R 1 3 7 Q W A L K - R E
0016500 C O N S 1 3 4 Q W A L K - A
0016520 R G L I S T 1 2 5 Q W A L K
0016540 - R E C O N S 1 2 2 Q W A L
0016560 K - R E C O N S 1 1 4 Q W A
0016600 L K - F O R M - I N T E R N A L
0016620 7 3 Q W A L K - A R G L I S
0016640 T 5 7 Q W A L K - R E C O N
0016660 S 5 4 Q W A L K - A R G L I
0016700 S T ) \r ( 1 1 1 Q E V A L 4
0016720 6 Q L A M B D A - L I S T - K
0016740 E Y W O R D S 2 2 Q L A M B
0016760 D A - L I S T - K E Y W O R D S
0017000 ) \r ( 2 0 7 Q " C a n ' t
0017020 u n d e r s t a n d s o m e t
0017040 h i n g i n t h e a r g l
0017060 i s t ~ S " ) \r W A L K - L A
0017100 M B D A A 0 0 0 1 D 1 \r ( L
0017120 ( 0 R E A L - B O D Y ) F
0017140 0 C O N T E X T F 1 A R
0017160 G L I S T F 2 W A L K E D
0017200 - A R G L I S T ) \0 022 \0 003 \0 001
0017220 Q P \n \0 \0 c 004 @ o \0 \0 \0 P \v \0 \0
0017240 020 \0 ( 1 7 Q W A L K - T E M P
0017260 L A T E 4 W A L K - A R G L
0017300 I S T ) \r N I L \r ( 1 3 Q (
0017320 R E P E A T ( E V A L ) ) ) \r
0017340 W A L K - L A M B D A D 1 \r (
0017360 L ( 0 F O R M ) P 4 W
0017400 A L K E D - A R G L I S T P
0017420 3 A R G L I S T P 2 * D
0017440 E C L A R A T I O N S * P 1
0017460 * E N V I R O N M E N T * P
0017500 0 * L E X I C A L - V A R I
0017520 A B L E S * I 1 C O N T E
0017540 X T F 6 * L E X I C A L -
0017560 V A R I A B L E S * F 7 *
0017600 E N V I R O N M E N T * ) \0 #
0017620 006 002 \0 002 V W 016 021 B 005 @ 002 001 273 @ 002
0017640 002 g \0 \0 \n \0 \0 275 @ d 001 @ 002 L M \v
0017660 \0 \0 \v \0 \0 020 \0 ( 4 0 Q W A L K
0017700 - R E C O N S 3 5 Q W A L K
0017720 - R E C O N S 2 2 Q W A L K
0017740 - D E C L A R A T I O N S ) \r (
0017760 1 7 Q W A L K - L A M B D A A
0020000 0 0 0 1 ) \r ( ) \r ( P U T P R O
0020020 P S C O M P I L E R - L E T
0020040 W A L K E R - T E M P L A T E
0020060 W A L K - C O M P I L E R - L E
0020100 T ) \r W A L K - C O M P I L E R
0020120 - L E T A 0 0 0 1 D 1 \r ( L
0020140 ( 0 X ) ) \0 \a \0 \0 \0 001 @ d 003
0020160 220 001 020 \0 N I L \r N I L \r ( ) \r W
0020200 A L K - C O M P I L E R - L E T
0020220 A 0 0 0 2 D 1 \r ( L ( 0 X
0020240 ) ) \0 \f \0 \0 \0 001 @ 003 264 \b @ 002 001
0020260 \t \0 \0 020 \0 ( 1 1 Q E V A L ) \r
0020300 N I L \r ( ) \r W A L K - C O M P
0020320 I L E R - L E T A 0 0 0 3 D 1
0020340 \r ( F 0 F O R M F 1 C
0020360 O N T E X T ) \0 \v \0 002 \0 \0 P o
0020400 \0 \0 \0 Q \v \0 \0 020 \0 ( 1 0 Q W A
0020420 L K - T E M P L A T E ) \r N I L
0020440 \r ( 4 ( N I L N I L R E
0020460 P E A T ( E V A L ) R E T U
0020500 R N ) ) \r W A L K - C O M P I L
0020520 E R - L E T A 0 0 0 4 D 1 \r (
0020540 L ( 0 X ) ) \0 \b \0 \0 \0 001 @
0020560 002 001 \t \0 \0 020 \0 ( 5 E V A L ) \r
0020600 N I L \r ( ) \r W A L K - C O M P
0020620 I L E R - L E T D 1 \r ( I 1
0020640 C O N T E X T I 0 F O R
0020660 M ) \0 7 \0 \0 \0 002 g \0 \0 @ 002 001 \n
0020700 \0 \0 g \0 \0 @ 002 001 \n \0 \0 277 277 g \0 \0
0020720 g \0 \0 @ 002 001 \n \0 \0 g \0 \0 h 032 h 032
0020740 032 032 g \0 \0 @ 002 001 \n \0 \0 \n \0 \0 020 \0
0020760 ( 6 4 Q A P P L Y 6 1 Q C
0021000 L : M A P C A R 3 7 Q C L :
0021020 M A P C A R 2 1 Q C L : M A
0021040 P C A R 1 0 Q C L : M A P C
0021060 A R ) \r ( 5 3 Q W A L K - C O
0021100 M P I L E R - L E T A 0 0 0 4
0021120 4 2 Q W A L K - C O M P I L E
0021140 R - L E T A 0 0 0 3 3 1 Q C
0021160 A R 2 6 Q L A M B D A 1 3
0021200 Q W A L K - C O M P I L E R -
0021220 L E T A 0 0 0 2 2 W A L K -
0021240 C O M P I L E R - L E T A 0 0 0
0021260 1 ) \r ( ) \r ( P U T P R O P S
0021300 D E C L A R E W A L K E R - T
0021320 E M P L A T E W A L K - U N E
0021340 X P E C T E D - D E C L A R E )
0021360 \r W A L K - U N E X P E C T E D
0021400 - D E C L A R E D 1 \r ( L (
0021420 1 C O N T E X T 0 F O R M
0021440 ) ) \0 \v \0 \0 \0 002 o \0 \0 \0 @ \n \0
0021460 \0 @ 020 \0 ( 7 W A R N ) \r N I L
0021500 \r ( 3 " E n c o u n t e r e
0021520 d d e c l a r e ~ S i n
0021540 a p l a c e w h e r e a
0021560 d e c l a r e w a s n o t
0021600 e x p e c t e d . " ) \r ( P U T
0021620 P R O P S L E T W A L K E R
0021640 - T E M P L A T E W A L K - L
0021660 E T ) \r ( P U T P R O P S P R
0021700 O G W A L K E R - T E M P L A
0021720 T E W A L K - L E T ) \r ( P U
0021740 T P R O P S L E T * W A L K
0021760 E R - T E M P L A T E W A L K
0022000 - L E T * ) \r ( P U T P R O P S
0022020 P R O G * W A L K E R - T E
0022040 M P L A T E W A L K - L E T *
0022060 ) \r W A L K - L E T D 1 \r ( L
0022100 ( 1 C O N T E X T 0 F O
0022120 R M ) ) \0 \b \0 \0 \0 002 @ A h \v \0
0022140 \0 020 \0 ( 5 W A L K - L E T / L
0022160 E T * ) \r N I L \r ( ) \r W A L K
0022200 - L E T * D 1 \r ( L ( 1 C
0022220 O N T E X T 0 F O R M ) )
0022240 \0 \b \0 \0 \0 002 @ A i \v \0 \0 020 \0 ( 5
0022260 W A L K - L E T / L E T * ) \r
0022300 N I L \r ( ) \r W A L K - L E T /
0022320 L E T * A 0 0 0 1 A 0 0 0 2 D
0022340 1 \r ( L ( 0 B I N D I N G )
0022360 P 1 * L E X I C A L - V A
0022400 R I A B L E S * P 0 * D E
0022420 C L A R A T I O N S * F 2
0022440 * L E X I C A L - V A R I A B L
0022460 E S * F 3 O L D - D E C L
0022500 A R A T I O N S F 4 C O N
0022520 T E X T F 5 S E Q U E N T
0022540 I A L P F 6 O L D - L E X
0022560 I C A L - V A R I A B L E S )
0022600 \0 6 002 005 \0 001 @ 004 l 004 360 227 @ d R 032
0022620 c 004 277 020 S U 221 R 200 V 021 002 001 @ d 001
0022640 @ 002 @ 002 001 T \n \0 \0 @ 002 002 \v \0 \0 \v
0022660 \0 \0 022 @ 001 R 032 c 004 277 020 \0 ( 5 3 Q
0022700 W A L K - R E C O N S 5 0 Q
0022720 W A L K - R E C O N S 4 2 Q
0022740 W A L K - F O R M - I N T E R
0022760 N A L ) \r N I L \r ( ) \r W A L K
0023000 - L E T / L E T * A 0 0 0 1 D
0023020 1 \r ( L ( 0 R E A L - B O D
0023040 Y ) F 0 B I N D I N G S
0023060 F 1 W A L K E D - B I N D I
0023100 N G S F 2 C O N T E X T )
0023120 \0 024 \0 003 \0 001 P g \0 \0 \n \0 \0 c 002
0023140 @ o \0 \0 \0 R \v \0 \0 020 \0 ( 2 1 Q
0023160 W A L K - T E M P L A T E 6
0023200 W A L K - L I S T ) \r ( 3 W A
0023220 L K - L E T / L E T * A 0 0 0 1
0023240 A 0 0 0 2 ) \r ( 1 5 Q ( R E
0023260 P E A T ( E V A L ) ) ) \r W A
0023300 L K - L E T / L E T * D 1 \r (
0023320 L ( 0 F O R M ) P 1 0 Q
0023340 * D E C L A R A T I O N S *
0023360 P 7 * E N V I R O N M E N T
0023400 * P 6 * L E X I C A L - V
0023420 A R I A B L E S * P 4 W A
0023440 L K E D - B I N D I N G S P
0023460 3 B I N D I N G S P 1 O
0023500 L D - L E X I C A L - V A R I A
0023520 B L E S P 0 O L D - D E C
0023540 L A R A T I O N S I 2 S E
0023560 Q U E N T I A L P I 1 C O
0023600 N T E X T F 1 1 Q * L E X
0023620 I C A L - V A R I A B L E S *
0023640 F 1 2 Q * D E C L A R A T I
0023660 O N S * F 1 3 Q * E N V I
0023700 R O N M E N T * ) \0 - \t 003 \0 003
0023720 W 024 W 022 021 B 005 W 022 W 026 021 022 \b @ 001
0023740 272 @ 002 001 273 @ 002 002 g \0 \0 \n \0 \0 275 @
0023760 J @ 002 L M \v \0 \0 \v \0 \0 020 \0 ( 5 2
0024000 Q W A L K - R E C O N S 4 7
0024020 Q W A L K - R E C O N S 3 5
0024040 Q W A L K - D E C L A R A T I
0024060 O N S ) \r ( 3 2 Q W A L K - L
0024100 E T / L E T * A 0 0 0 1 ) \r ( )
0024120 \r ( P U T P R O P S T A G B O
0024140 D Y W A L K E R - T E M P L A
0024160 T E W A L K - T A G B O D Y )
0024200 \r W A L K - T A G B O D Y A 0 0
0024220 0 1 D 1 \r ( L ( 0 X ) F
0024240 0 C O N T E X T ) \0 021 \0 001
0024260 \0 001 @ d 004 l 004 360 223 g \0 \0 200 P \n \0
0024300 \0 020 \0 ( 1 6 Q W A L K - F O R
0024320 M - I N T E R N A L ) \r ( 1 1 Q
0024340 Q U O T E ) \r ( ) \r W A L K -
0024360 T A G B O D Y D 1 \r ( L ( 0
0024400 F O R M ) I 1 C O N T E
0024420 X T ) \0 020 \0 \0 \0 002 @ d 001 @ 002 g
0024440 \0 \0 \n \0 \0 \v \0 \0 020 \0 ( 1 5 Q W
0024460 A L K - R E C O N S 1 2 Q W
0024500 A L K - L I S T ) \r ( 7 W A L
0024520 K - T A G B O D Y A 0 0 0 1 ) \r
0024540 ( ) \r ( P U T P R O P S F L E
0024560 T W A L K E R - T E M P L A T
0024600 E W A L K - F L E T / L A B E
0024620 L S ) \r ( P U T P R O P S L A
0024640 B E L S W A L K E R - T E M P
0024660 L A T E W A L K - F L E T / L
0024700 A B E L S ) \r W A L K - F L E T
0024720 / L A B E L S A 0 0 0 1 D 1 \r
0024740 ( L ( 0 X ) F 0 C O N
0024760 T E X T ) \0 \a \0 001 \0 001 @ P \n \0
0025000 \0 020 \0 ( 4 W A L K - L A M B D
0025020 A ) \r N I L \r ( ) \r W A L K - F
0025040 L E T / L A B E L S A 0 0 0 2
0025060 D 1 \r ( L ( 0 R E A L - B O
0025100 D Y ) F 0 C O N T E X T )
0025120 \0 \v \0 001 \0 001 @ o \0 \0 \0 P \v \0 \0
0025140 020 \0 ( 1 0 Q W A L K - T E M P
0025160 L A T E ) \r N I L \r ( 4 ( R
0025200 E P E A T ( E V A L ) ) ) \r W
0025220 A L K - F L E T / L A B E L S
0025240 D 1 \r ( L ( 0 F O R M ) P
0025260 2 * D E C L A R A T I O N S
0025300 * P 1 * E N V I R O N M E
0025320 N T * P 0 * L E X I C A L
0025340 - V A R I A B L E S * I 1
0025360 C O N T E X T F 3 * L E X
0025400 I C A L - V A R I A B L E S *
0025420 F 4 * E N V I R O N M E N T
0025440 * ) \0 $ 003 002 \0 002 S T 021 022 002 @ d
0025460 001 @ 002 @ 002 001 g \0 \0 \n \0 \0 @ 002 002 g
0025500 \0 \0 \n \0 \0 \v \0 \0 \v \0 \0 020 \0 ( 4 1
0025520 Q W A L K - R E C O N S 3 6
0025540 Q W A L K - R E C O N S 3 3
0025560 Q W A L K - D E C L A R A T I
0025600 O N S 2 2 Q W A L K - L I S
0025620 T ) \r ( 3 0 Q W A L K - F L E
0025640 T / L A B E L S A 0 0 0 2 1 7
0025660 Q W A L K - F L E T / L A B E
0025700 L S A 0 0 0 1 ) \r ( ) \r ( P U T
0025720 P R O P S F U N C T I O N W
0025740 A L K E R - T E M P L A T E (
0025760 N I L C A L L ) ) \r ( P U T P
0026000 R O P S C L : F U N C T I O N
0026020 W A L K E R - T E M P L A T E
0026040 ( N I L C A L L ) ) \r ( P U
0026060 T P R O P S G O W A L K E R
0026100 - T E M P L A T E ( N I L Q
0026120 U O T E ) ) \r ( P U T P R O P S
0026140 C L : I F W A L K E R - T E
0026160 M P L A T E ( N I L T E S T
0026200 R E T U R N R E T U R N ) )
0026220 \r ( P U T P R O P S M U L T I
0026240 P L E - V A L U E - C A L L W
0026260 A L K E R - T E M P L A T E (
0026300 N I L E V A L R E P E A T
0026320 ( E V A L ) ) ) \r ( P U T P R O
0026340 P S M U L T I P L E - V A L U
0026360 E - P R O G 1 W A L K E R - T
0026400 E M P L A T E ( N I L R E T
0026420 U R N R E P E A T ( E V A L
0026440 ) ) ) \r ( P U T P R O P S P R
0026460 O G N W A L K E R - T E M P L
0026500 A T E ( N I L R E P E A T
0026520 ( E V A L ) ) ) \r ( P U T P R O
0026540 P S P R O G V W A L K E R -
0026560 T E M P L A T E ( N I L E V
0026600 A L E V A L R E P E A T (
0026620 E V A L ) ) ) \r ( P U T P R O P
0026640 S Q U O T E W A L K E R - T
0026660 E M P L A T E ( N I L Q U O
0026700 T E ) ) \r ( P U T P R O P S R
0026720 E T U R N - F R O M W A L K E
0026740 R - T E M P L A T E ( N I L
0026760 Q U O T E E V A L ) ) \r ( P U
0027000 T P R O P S R E T U R N W A
0027020 L K E R - T E M P L A T E ( N
0027040 I L E V A L ) ) \r ( P U T P R
0027060 O P S C L : S E T Q W A L K
0027100 E R - T E M P L A T E ( N I L
0027120 R E P E A T ( S E T E V A
0027140 L ) ) ) \r ( P U T P R O P S C
0027160 L : B L O C K W A L K E R - T
0027200 E M P L A T E ( N I L N I L
0027220 R E P E A T ( E V A L ) ) )
0027240 \r ( P U T P R O P S C A T C H
0027260 W A L K E R - T E M P L A T E
0027300 ( N I L E V A L R E P E A
0027320 T ( E V A L ) ) ) \r ( P U T P
0027340 R O P S E V A L - W H E N W
0027360 A L K E R - T E M P L A T E (
0027400 N I L Q U O T E R E P E A T
0027420 ( E V A L ) ) ) \r ( P U T P R
0027440 O P S T H E W A L K E R - T
0027460 E M P L A T E ( N I L Q U O
0027500 T E E V A L ) ) \r ( P U T P R
0027520 O P S T H R O W W A L K E R
0027540 - T E M P L A T E ( N I L E
0027560 V A L E V A L ) ) \r ( P U T P
0027600 R O P S U N W I N D - P R O T
0027620 E C T W A L K E R - T E M P L
0027640 A T E ( N I L E V A L R E
0027660 P E A T ( E V A L ) ) ) \r ( P
0027700 U T P R O P S L O A D - T I M
0027720 E - E V A L W A L K E R - T E
0027740 M P L A T E ( N I L Q U O T
0027760 E ) ) \r ( P U T P R O P S C O
0030000 N D W A L K E R - T E M P L A
0030020 T E ( N I L R E P E A T (
0030040 ( R E P E A T ( E V A L ) ) )
0030060 ) ) \r ( P U T P R O P S U N W
0030100 I N D - P R O T E C T W A L K
0030120 E R - T E M P L A T E ( N I L
0030140 E V A L R E P E A T ( E V
0030160 A L ) ) ) \r ( P U T P R O P S
0030200 S E T Q W A L K E R - T E M P
0030220 L A T E ( N I L S E T E V
0030240 A L ) ) \r ( P U T P R O P S A
0030260 N D W A L K E R - T E M P L A
0030300 T E ( N I L R E P E A T (
0030320 E V A L ) ) ) \r ( P U T P R O P
0030340 S O R W A L K E R - T E M P
0030360 L A T E ( N I L R E P E A T
0030400 ( E V A L ) ) ) \r ( P U T P R
0030420 O P S R P A Q ? W A L K E R
0030440 - T E M P L A T E ( N I L S
0030460 E T E V A L ) ) \r ( P U T P R
0030500 O P S R P A Q W A L K E R -
0030520 T E M P L A T E ( N I L S E
0030540 T E V A L ) ) \r ( P U T P R O
0030560 P S X N L S E T Q W A L K E
0030600 R - T E M P L A T E ( N I L
0030620 E V A L ) ) \r ( P U T P R O P S
0030640 E R S E T Q W A L K E R - T
0030660 E M P L A T E ( N I L E V A
0030700 L ) ) \r ( P U T P R O P S N L
0030720 S E T Q W A L K E R - T E M P
0030740 L A T E ( N I L E V A L ) )
0030760 \r ( P U T P R O P S R E S E T
0031000 V A R S W A L K E R - T E M P
0031020 L A T E W A L K - L E T ) \r (
0031040 P U T P R O P S C M L W A L K
0031060 F I L E T Y P E C O M P I L
0031100 E - F I L E ) \r ( P U T P R O P
0031120 S C M L W A L K C O P Y R I
0031140 G H T ( " X e r o x C o r p
0031160 o r a t i o n " 1 9 8 6 ) ) \r
0031200 S T O P \r
0031205