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