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