$ od -c -N 50000 [eris]<LispCore>SOURCES>LLINTERP.DCOM!33
0000000 ( F I L E C R E A T E D " 2 7
0000020 - A u g - 8 6 2 2 : 4 0 : 2 3
0000040 " ( " c o m p i l e d o n
0000060 " { C O R E } < L I S P C O R
0000100 E > S O U R C E S > L L I N T E
0000120 R P . ; 1 ) \r " 2 5 - A u g -
0000140 8 6 1 9 : 0 5 : 5 2 " t c o
0000160 m p l ' d i n " X e r o x
0000200 L i s p 2 5 - A u g - 8 6 .
0000220 . . " d a t e d " 2 5 - A u
0000240 g - 8 6 1 9 : 2 1 : 4 1 " ) \r
0000260 ( F I L E C R E A T E D " 2 7
0000300 - A u g - 8 6 2 2 : 3 7 : 5 6
0000320 " { C O R E } < L I S P C O R
0000340 E > S O U R C E S > L L I N T E
0000360 R P . ; 1 1 2 4 2 4 6 c h a
0000400 n g e s t o : ( V A R S \r
0000420 L L I N T E R P C O M S ) p r
0000440 e v i o u s d a t e : " 2 1
0000460 - J u l - 8 6 1 1 : 2 8 : 4 3
0000500 " { E R I S } < L I S P C O R
0000520 E > S O U R C E S > L L I N T E
0000540 R P . ; 3 3 ) \r \ I N T E R P R
0000560 E T E R D 1 \r ( L ( 0 N )
0000600 P 1 6 Q \ I N T E R R U P
0000620 T A B L E ) 001 244 031 \0 002 \0 e 021 001
0000640 \0 H a H k 331 j 021 243 \r I d 004 l 004 360
0000660 223 301 \n 311 \0 \ d 004 l \r 360 262 # 277 021 020
0000700 016 ` \0 \0 g \0 \0 316 0 ` \0 \0 L 316 2 `
0000720 \0 \0 h 316 4 l 016 ~ ` \0 \0 311 6 020 d 004
0000740 ` \0 \0 360 232 \t \0 \0 _ 022 277 L \t \0 \0 \
0000760 003 262 - L 001 d g \0 \0 360 231 277 H L O 022
0001000 I \f \0 \0 020 d g \0 \0 360 254 d g \0 \0 360
0001020 246 d g \0 \0 360 262 { 277 L 002 003 265 032 I J
0001040 k 021 2 023 O d O 036 363 242 261 \0 363 277 O
0001060 " 022 \n \0 \0 020 001 ] d 003 262 - 260 036 d 001
0001100 _ 024 006 \0 \0 224 O 024 i 360 231 o \0 \0 \0 O
0001120 024 \n \0 \0 277 K k 330 273 002 003 265 343 K J 361
0001140 262 036 K J 331 260 032 262 027 M d i 360 231 277 o
0001160 \0 \0 \0 M \n \0 \0 206 006 \0 \0 277 k 273 j ^
0001200 K l 004 330 m 374 345 _ 016 l 005 330 330 _ 020 260
0001220 ; g \0 \0 360 262 211 h L 002 002 001 \t \0 \0 \n
0001240 \0 \0 L 002 001 H k 331 k 021 2 030 O * d O
0001260 ( 363 262 , 277 O , 022 _ 030 277 _ 026 277 j _
0001300 032 277 O 030 260 R h 375 k 331 d j 361 263 371 277
0001320 M O 020 O 016 J N I L \r \a \0 \0 020 a _
0001340 0 277 O . 265 023 O 0 h 032 _ . _ , 277 O
0001360 * k 324 _ * 260 271 O 0 & _ . 277 260 362 d
0001400 001 375 002 O 032 k 330 _ 032 n 002 \0 361 227 o \0
0001420 \0 \0 \t \0 \0 277 265 351 O 032 O 026 016 020 a _
0001440 & 277 O $ 265 024 O & h 032 _ $ _ " 277 O
0001460 k 324 _ 261 376 361 O & & _ $ 277 260 361
0001500 \0 ( 5 6 7 Q L I S P E R R O R
0001520 4 7 7 Q \ I N T E R P R E T
0001540 E R 1 4 0 4 Q \ S M A S H L
0001560 I N K 4 0 1 Q \ S T A C K A
0001600 R G P T R 3 3 1 Q L I S P E
0001620 R R O R 2 6 6 Q L I S P E R
0001640 R O R 2 2 7 Q F A U L T A P
0001660 P L Y 1 4 6 Q \ I N T E R P
0001700 R E T E R - L A M B D A 1 2 1
0001720 Q C L O S U R E - F U N C T I
0001740 O N 1 1 2 Q C L O S U R E -
0001760 E N V I R O N M E N T ) \r ( 3 6
0002000 6 Q F U N A R G 3 3 5 Q L
0002020 I T A T O M 2 4 7 Q L I T A
0002040 T O M 1 6 7 Q O P E N L A M
0002060 B D A 1 6 1 Q N L A M B D A
0002100 1 5 3 Q L A M B D A 1 3 3
0002120 Q C L : L A M B D A 1 0 5 Q
0002140 004 003 C L O S U R E T Y P E #
0002160 7 5 Q \ I n t e r f a c e P a
0002200 g e 6 4 Q \ I n t e r f a c
0002220 e P a g e 5 6 Q \ I n t e r
0002240 f a c e P a g e 5 1 Q \ S E
0002260 T U P - C O M P I L E D - C L O
0002300 S U R E - C A L L 4 6 Q \ I
0002320 n t e r f a c e P a g e ) \r (
0002340 5 6 4 Q " T O O M A N Y A
0002360 R G U M E N T S " 3 2 5 Q "
0002400 A T T E M P T T O B I N D
0002420 N I L O R T " 2 6 1 Q "
0002440 A T T E M P T T O B I N D
0002460 N I L O R T " ) \r \ I N T E
0002500 R P R E T E R 1 D 1 \r ( L (
0002520 6 D E F 5 F N 4 N P V
0002540 A R A R G S 3 N A C T U A L
0002560 2 N T S I Z E 1 N N I L
0002600 S 0 A R G L I S T ) P 1
0002620 4 Q \ I N T E R R U P T A B L
0002640 E P 6 \ I N T E R R U P T
0002660 A B L E P 0 * T A I L * )
0002700 001 < \r \0 \0 \a F 002 002 f 021 B 005 k I
0002720 321 312 003 207 k I 321 310 002 321 272 k d I 321 310
0002740 004 A 340 331 \ D 340 l 003 330 330 m 374 345 321 273
0002760 021 020 006 @ 265 005 261 \0 252 003 262 e @ j l \b
0003000 B l \b 330 021 024 \v O 016 003 265 006 023 261 \0 223
0003020 001 _ 026 277 K O 022 320 O 026 006 \0 \0 323 315 \0
0003040 277 K O 024 320 C O 020 361 224 O 020 j 330 217 L
0003060 I l \n 330 331 342 O 020 C 331 n 200 \0 330 330 315
0003100 \0 277 O 016 002 _ 016 277 O 020 k 324 _ 020 277 O
0003120 022 k 324 _ 022 277 O 024 k 324 _ 024 277 260 252 K
0003140 @ 006 \0 \0 323 315 \b 277 K B l \b 330 320 F 001
0003160 g \0 \0 360 222 j 260 % ` \0 \0 k d I 321 312
0003200 001 360 j 360 224 I l 002 331 204 k I 321 310 \b 321
0003220 310 001 C 340 330 320 C 316 \0 277 C j 330 315 \0 277
0003240 021 020 \f K l \t E 322 l 377 345 307 277 K E 323
0003260 315 005 023 K B 315 006 277 K J 312 \a \a 317 \a \a
0003300 277 k I 321 j 317 \0 0 277 K 322 275 k I 321 M
0003320 317 \a \a 277 k I 321 M 317 \a 207 277 k I 321 K
0003340 323 315 006 277 k I 321 k 317 \0 ` 277 k j 360 h
0003360 360 023 H 002 230 H 001 , 277 H 002 X 260 367 H 001
0003400 , 020 \0 N I L \r ( 2 6 3 Q \ S T
0003420 A C K S P A C E 2 5 3 Q N L
0003440 A M B D A 2 3 4 Q L I T A T
0003460 O M 1 2 5 Q L I T A T O M )
0003500 \r ( ) \r \ S E T U P - C O M P I
0003520 L E D - C L O S U R E - C A L L
0003540 D 1 \r ( L ( 0 C L O S U R
0003560 E ) ) 002 O 023 \0 \0 001 ` \0 \0 310 016 @
0003600 006 \0 \0 311 \0 021 362 020 021 022 k H 321 312 001
0003620 360 j 360 224 H l 002 331 204 k H 321 310 \b \ _
0003640 032 k L 321 310 001 ] k H 321 310 001 ^ k H 321
0003660 312 001 360 j 360 h 360 _ 030 227 k H 321 310 \t _
0003700 016 277 k H 321 310 004 _ 026 k L 321 312 \0 p 225
0003720 L l 002 331 \ 200 L M 331 342 [ I 310 001 d n
0003740 177 377 361 225 n 377 377 331 k 331 Z O 030 254 O 026
0003760 L 331 I 310 \0 375 361 242 261 \0 240 I 310 \0 K 340
0004000 330 H \n \0 \0 _ k O 321 310 001 330 _ 026
0004020 277 k O 026 321 312 \0 002 l 005 360 232 O 026 k O
0004040 026 321 310 001 324 260 351 k O 321 k M 321 K 340
0004060 304 277 O K 340 330 274 k H 321 312 \0 207 j 360
0004100 256 k H 321 d 312 \0 207 m 377 324 317 \0 207 260 B
0004120 k O 032 321 312 \0 207 j 360 256 k O 032 321 d 312
0004140 \0 207 m 377 324 317 \0 207 212 M O 032 M 331 l 002
0004160 330 \n \0 \0 277 O 032 H l 002 331 360 221 H 203 H
0004200 l 002 331 _ 036 k H 321 310 004 O 036 331 \n \0 \0
0004220 277 O 275 i _ 030 277 J K 363 262 032 J K 325
0004240 d j 361 237 k L 321 h 316 \0 277 L l 002 324 274
0004260 k 331 260 356 277 ` \0 \0 L 320 j 315 \0 277 k L
0004300 321 M 315 001 277 k L 321 l 004 317 \0 002 L l 002
0004320 330 _ 022 277 ` \0 \0 O 022 320 j 315 \0 277 k O
0004340 022 321 l 006 317 \0 002 277 k O 022 321 k 317 \0 p
0004360 277 O 030 262 036 k O 022 321 L 315 \b 277 k O 022
0004400 321 O 016 265 003 N 315 \t 277 k O 022 321 N k 344
0004420 204 k O 022 321 N 315 001 277 I 322 _ " 277 k O
0004440 022 321 O " 317 003 \a 277 k O 022 321 O " 317 003
0004460 207 277 k O 022 321 I 323 315 002 277 k O 022 321 I
0004500 310 003 315 005 O 022 l \n 330 _ 020 277 I 310 002 d
0004520 n 177 377 361 225 n 377 377 331 k 331 k 330 340 _ 024
0004540 277 @ 006 \0 \0 311 002 _ 034 262 033 ` \0 \0 O 020
0004560 320 O 034 316 \0 277 O 020 l 002 324 _ 020 277 O 024
0004600 m 377 324 201 O 024 _ $ j 361 262 034 ` \0 \0 O
0004620 020 320 n 377 377 315 \0 277 O 020 l 002 324 _ 020 277
0004640 O $ k 331 260 342 k O 022 321 O 020 l 004 324 _
0004660 020 315 004 277 O 020 O 026 O 020 331 \n \0 \0 ` \0
0004700 \0 O 022 315 016 O 022 020 \0 ( 1 1 0 3 Q
0004720 \ M A K E F R E E B L O C K 4
0004740 2 5 Q \ M A K E F R E E B L O
0004760 C K 3 7 1 Q \ M A K E F R E
0005000 E B L O C K 2 1 2 Q \ F R E
0005020 E S T A C K B L O C K ) \r ( 1 1
0005040 0 6 Q \ I n t e r f a c e P a
0005060 g e 1 0 2 4 Q \ S T A C K S
0005100 P A C E 7 6 3 Q \ S T A C K
0005120 S P A C E 7 5 2 Q C O M P I
0005140 L E D - C L O S U R E 5 3 4 Q
0005160 \ S T A C K S P A C E 4 7 5
0005200 Q \ S T A C K S P A C E 1 0
0005220 Q C O M P I L E D - C L O S U
0005240 R E 2 \ I n t e r f a c e P
0005260 a g e ) \r ( ) \r \ S T K N A M E
0005300 D 1 \r ( L ( 0 P O S ) )
0005320 \0 d 001 \0 \0 001 k @ 321 312 \0 ` j 360 253 k
0005340 @ 321 312 \a 207 k @ 321 310 006 212 k @ 321 312 003
0005360 207 k @ 321 310 002 321 311 004 d g \0 \0 360 262 :
0005400 277 ` \0 \0 k @ 321 312 001 360 j 360 224 @ l 002
0005420 331 204 k @ 321 310 \b 021 001 \0 k H 321 310 001 H
0005440 k H 321 310 001 331 342 k H 321 312 \0 p 331 k 331
0005460 l 002 326 330 022 320 311 \0 020 \0 N I L \r ( 5
0005500 5 Q \ S T A C K S P A C E 4
0005520 6 Q \ I N T E R P R E T E R )
0005540 \r ( ) \r E V A L D 1 \r ( L (
0005560 0 U ) I 1 \ I N T E R N
0005600 A L ) \0 004 \0 \0 \0 002 @ , 020 \0 N I
0005620 L \r N I L \r ( ) \r \ E V A L D
0005640 1 \r ( L ( 0 F O R M ) ) \0
0005660 035 \0 \0 \0 001 @ d 003 223 \t \0 \0 020 004 l 004
0005700 360 224 @ \t \0 \0 020 @ d 3 020 263 373 \t \0 \0
0005720 020 \0 ( 3 2 Q \ E V A L O T H E
0005740 R 2 0 Q \ E V A L V A R 6
0005760 \ E V A L F O R M ) \r N I L \r
0006000 ( ) \r \ E V A L F O R M D 1 \r
0006020 ( L ( 1 T E M P ) P 3
0006040 * F N * P 2 * T A I L *
0006060 P 1 * A R G V A L * I 0
0006100 * F O R M * ) \0 351 \a \0 \0 002 @
0006120 001 b 002 d 004 l 004 360 262 0 d 301 \n 312 \0 \0
0006140 j 360 263 277 A 301 \n 312 \0 ! d k 360 222 277
0006160 260 b l 003 360 262 034 @ 001 021 001 \0 @ 002 k H
0006200 016 020 301 \n 311 \0 b 002 d 004 ` \0 \0 360 262 *
0006220 277 j @ d 001 021 003 003 g \0 \0 J 002 Z d 003
0006240 262 l 001 , I k 330 Y l P 361 262 360 o \0 \0
0006260 \0 J \n \0 \0 277 260 345 004 l 005 360 262 8 A 001
0006300 d g \0 \0 360 262 031 277 A 002 001 b 002 003 242 A
0006320 263 247 @ 001 @ 002 021 022 006 j 276 M 260 U d g
0006340 \0 \0 360 263 255 d g \0 \0 360 263 246 d g \0 \0
0006360 360 263 237 277 ` \0 \0 231 @ ` \0 \0 \n \0 \0 003
0006400 265 \a @ \t \0 \0 020 b \0 261 377 G 230 o \0 \0
0006420 \0 J \n \0 \0 277 I h 271 K 016 020 d 001 375 002
0006440 N k 330 ^ n 002 \0 361 227 o \0 \0 \0 \t \0 \0
0006460 277 265 353 N L 016 020 \0 ( 3 4 0 Q L I
0006500 S P E R R O R 3 0 5 Q L I S
0006520 P E R R O R 2 6 6 Q F A U L
0006540 T E V A L 2 5 7 Q G E T H A
0006560 S H 1 4 5 Q L I S P E R R O
0006600 R ) \r ( 2 5 4 Q C L I S P A R
0006620 R A Y 2 4 7 Q C L I S P A R
0006640 R A Y 2 4 0 Q O P E N L A M
0006660 B D A 2 3 1 Q L A M B D A
0006700 2 2 2 Q C L : L A M B D A 1
0006720 6 4 Q N L A M B D A 1 1 3 Q
0006740 * A R G V A L * 7 5 Q 004 003
0006760 C L O S U R E T Y P E # ) \r (
0007000 3 3 5 Q " T O O M A N Y A
0007020 R G U M E N T S " 3 0 1 Q "
0007040 U N U S U A L C D R A R G
0007060 L I S T " 1 4 1 Q " T O O
0007100 M A N Y A R G U M E N T S " )
0007120 \r \ E V A L F O R M A S L A M B
0007140 D A D 1 \r ( L ( 0 F A U L
0007160 T X ) P 2 * F N * P 1
0007200 * T A I L * P 0 * A R G
0007220 V A L * ) \0 8 003 \0 \0 001 j @ d 001
0007240 021 003 002 g \0 \0 I 002 Y d 003 262 030 001 , H
0007260 k 330 X l P 361 262 360 o \0 \0 \0 I \n \0 \0
0007300 277 260 345 230 o \0 \0 \0 I \n \0 \0 277 H h 270
0007320 J 016 020 \0 ( 5 7 Q L I S P E R R
0007340 O R 4 3 Q L I S P E R R O R
0007360 ) \r ( 1 1 Q * A R G V A L * )
0007400 \r ( 5 3 Q " U N U S U A L
0007420 C D R A R G L I S T " 3 7
0007440 Q " T O O M A N Y A R G U
0007460 M E N T S " ) \r \ E V A L O T H
0007500 E R D 1 \r ( L ( 0 X ) )
0007520 \0 026 001 \0 \0 001 @ \t \0 \0 ` \0 \0 026 265 004
0007540 @ 020 002 021 001 \0 @ k H 016 020 \0 ( 3 T
0007560 Y P E N A M E ) \r ( 6 \ D E F
0007600 E V A L F N S ) \r ( ) \r A P P L
0007620 Y D 1 \r ( L ( 1 V 0 U
0007640 ) I 2 \ I N T E R N A L )
0007660 \0 z 002 \0 \0 003 @ 021 021 001 H d 004 l 004
0007700 360 262 025 277 H d 301 \n 312 \0 \0 j 360 262 & 277
0007720 H 301 \n 311 \0 X 003 262 1 H 001 d g \0 \0 360
0007740 262 035 277 H 002 001 003 263 ) H 002 001 262 $ A k
0007760 @ 016 020 301 \n 312 \0 ! l 003 360 260 361 g \0 \0
0010000 360 235 H 002 001 X 260 266 H 245 @ A \n \0 \0 020
0010020 j 271 A 260 027 d 001 375 002 I k 330 Y n 002 \0
0010040 361 227 o \0 \0 \0 \t \0 \0 277 265 353 I @ 016 020
0010060 \0 ( 1 6 1 Q L I S P E R R O R
0010100 1 2 7 Q F A U L T A P P L Y
0010120 ) \r ( 1 1 0 Q F U N A R G 4
0010140 7 Q N L A M B D A ) \r ( 1 5
0010160 6 Q " T O O M A N Y A R G
0010200 U M E N T S " ) \r A P P L Y *
0010220 D 1 \r ( L ( 0 U ) ) 001 234 031
0010240 \0 002 \0 e 021 001 \0 H j 361 264 004 k a 021 201
0010260 \t I d 004 l 004 360 262 8 277 I d 301 \n 312 \0
0010300 \0 j 360 257 277 I 301 \n 312 \0 ! l 003 360 242 261
0010320 \0 207 260 ` 301 \n 311 \0 003 265 004 260 035 Y 001 d
0010340 g \0 \0 360 246 d g \0 \0 360 262 ' 277 260 i \t
0010360 \0 \0 263 d I 003 265 350 I H l 002 021 2 016 O
0010400 026 d O 024 363 242 261 \0 364 277 O 030 022 \n \0 \0
0010420 020 d g \0 \0 360 226 277 I 002 001 Y 260 226 d g
0010440 \0 \0 360 262 - 277 I 002 003 001 262 , I 002 001 003
0010460 263 & k a _ 022 277 H l 002 021 2 023 O d
0010500 O 036 363 242 261 \0 330 277 O " 022 k O 022 016 020
0010520 g \0 \0 360 262 244 H d k 360 227 277 k a 272 j
0010540 J 016 020 l 002 360 231 k a 273 l 002 a k K 016
0010560 020 H d l 003 360 236 277 k a 274 l 002 a l 003
0010600 a l 002 L 016 020 l 004 360 262 023 k a 275 l 002
0010620 a l 003 a l 004 a l 003 M 016 020 k a H l
0010640 002 021 2 030 O * d O ( 363 237 277 O , 022 _
0010660 016 277 276 j _ 020 277 O 016 260 : a _ 0 277 O
0010700 . 265 023 O 0 h 032 _ . _ , 277 O * k 324
0010720 _ * 260 324 O 0 & _ . 277 260 362 d 001 375 002
0010740 O 020 k 330 _ 020 n 002 \0 361 227 o \0 \0 \0 \t
0010760 \0 \0 277 265 351 O 020 N 016 020 a _ 034 277 O 032
0011000 265 024 O 034 h 032 _ 032 _ 030 277 O 026 k 324 _
0011020 026 261 376 360 O 034 & _ 032 277 260 361 a _ & 277
0011040 O $ 265 024 O & h 032 _ $ _ " 277 O k
0011060 324 _ 261 377 \f O & & _ $ 277 260 361 \0 (
0011100 5 1 6 Q L I S P E R R O R 1
0011120 5 4 Q F A U L T A P P L Y 1
0011140 1 6 Q C C O D E P ) \r ( 2 5 7
0011160 Q O P E N L A M B D A 1 7 6
0011200 Q N L A M B D A 1 6 1 Q F
0011220 U N A R G 1 0 5 Q C L : L A
0011240 M B D A 7 7 Q L A M B D A )
0011260 \r ( 5 1 3 Q " T O O M A N
0011300 Y A R G U M E N T S " ) \r \ C
0011320 H E C K A P P L Y * D 1 \r ( L
0011340 ( 0 F N ) ) \0 Y 001 \0 \0 001 @
0011360 021 001 \0 H d 004 l 004 360 262 023 d 301 \n 312 \0
0011400 \0 j 360 262 8 277 H 301 \n 311 \0 X 003 262 8 H
0011420 001 g \0 \0 360 262 0 H 002 X 003 262 * H 001 262
0011440 & H 001 003 263 ! g \0 \0 h g \0 \0 \b \0 \0
0011460 k @ 016 h 032 032 h 032 032 032 020 301 \n 312 \0 !
0011500 l 003 360 263 343 @ 020 \0 ( 1 0 0 Q \ C
0011520 K A P P L Y A R G S ) \r ( 7 5 Q
0011540 Q U O T E 7 1 Q L A M B D
0011560 A 4 4 Q N L A M B D A ) \r (
0011600 ) \r \ C K A P P L Y A R G S D
0011620 1 \r N I L \0 3 003 \0 \0 \0 k f 321 310
0011640 001 m 376 345 l \n 331 021 ! 002 k d H 321 310 004
0011660 l 002 331 Y 321 311 \0 d d j 361 237 k I l 002
0011700 331 Y 321 311 \0 J 032 272 k 331 260 356 J 020 \0 N
0011720 I L \r N I L \r ( ) \r D E F E V A
0011740 L D 1 \r ( L ( 1 F N 0
0011760 T Y P E ) ) \0 ( 001 \0 \0 002 @ ` \0
0012000 \0 026 021 001 \0 H 265 022 A 232 @ A 032 ` \0 \0
0012020 032 027 \0 \0 277 H 002 020 ` \0 \0 \n \0 \0 027 \0
0012040 \0 277 260 346 \0 ( 4 0 Q D R E M O V
0012060 E ) \r ( 4 3 Q \ D E F E V A L
0012100 F N S 3 5 Q \ D E F E V A L
0012120 F N S 2 6 Q \ D E F E V A L
0012140 F N S 2 2 Q \ D E F E V A L
0012160 F N S 3 \ D E F E V A L F N
0012200 S ) \r ( ) \r E V A L V D 1 \r (
0012220 L ( 2 R E L F L G 1 P O
0012240 S 0 V A R ) ) \0 030 \0 \0 \0 003
0012260 A 230 h A \t \0 \0 \n \0 \0 277 @ \t \0 \0 B
0012300 224 A \t \0 \0 277 020 \0 ( 2 4 Q R E L
0012320 S T K 1 6 Q \ E V A L V 1
0012340 1 1 Q \ S M A S H L I N K 6
0012360 \ S T A C K A R G P T R ) \r N
0012400 I L \r ( ) \r \ E V A L V 1 D 1
0012420 \r ( L ( 0 V A R ) ) \0 022 \0
0012440 \0 \0 001 @ d 006 \0 \0 225 277 @ d i 360 220 020
0012460 / 311 \0 020 \0 N I L \r ( 4 L I T A
0012500 T O M ) \r ( ) \r \ E V A L V A R
0012520 D 1 \r ( L ( 0 V A R ) )
0012540 \0 + 002 \0 \0 001 @ d 223 d i 360 220 020 / 021
0012560 021 001 H 311 \0 Y d g \0 \0 360 262 024 277 H 322
0012600 m 376 345 ` \0 \0 322 360 224 @ \t \0 \0 020 I 020
0012620 \0 ( 4 6 Q F A U L T E V A L )
0012640 \r ( 3 7 Q \ V A L S P A C E
0012660 2 3 Q N O B I N D ) \r ( ) \r B
0012700 O U N D P D 1 \r ( L ( 0 V
0012720 A R ) ) \0 " \0 \0 \0 001 @ 004 l 004 360
0012740 264 033 @ \t \0 \0 g \0 \0 360 h 360 265 017 @ /
0012760 322 m 376 345 ` \0 \0 322 360 h 360 020 \0 ( 1 2
0013000 Q G E T T O P V A L ) \r ( 3 3
0013020 Q \ V A L S P A C E 1 5 Q
0013040 N O B I N D ) \r ( ) \r S E T D
0013060 1 \r ( L ( 1 V A L U E 0
0013100 V A R ) ) \0 = 001 \0 \0 002 @ 265 016 A
0013120 264 \n o \0 \0 \0 A \n \0 \0 020 006 \0 \0 / 021
0013140 001 \0 H 322 k 360 226 H A 316 \0 277 260 032 @ i
0013160 360 237 A d i 360 257 277 o \0 \0 \0 A \n \0 \0
0013200 277 203 H A 024 \0 A 020 \0 ( 6 3 Q L I
0013220 S P E R R O R 1 5 Q L I S P
0013240 E R R O R ) \r ( 2 1 Q L I T A
0013260 T O M ) \r ( 5 7 Q " A T T E
0013300 M P T T O S E T N I L O
0013320 R T " 1 1 Q " A T T E M P
0013340 T T O S E T N I L O R
0013360 T " ) \r \ S E T V A R D 1 \r (
0013400 L ( 1 V A L U E 0 V A R
0013420 ) ) \0 = 001 \0 \0 002 @ 265 016 A 264 \n o
0013440 \0 \0 \0 A \n \0 \0 020 006 \0 \0 / 021 001 \0 H
0013460 322 k 360 226 H A 316 \0 277 260 032 @ i 360 237 A
0013500 d i 360 257 277 o \0 \0 \0 A \n \0 \0 277 203 H
0013520 A 024 \0 A 020 \0 ( 6 3 Q L I S P E
0013540 R R O R 1 5 Q L I S P E R R
0013560 O R ) \r ( 2 1 Q L I T A T O M
0013600 ) \r ( 5 7 Q " A T T E M P T
0013620 T O S E T N I L O R T
0013640 " 1 1 Q " A T T E M P T T
0013660 O S E T N I L O R T " )
0013700 \r S E T Q D 1 \r ( L ( 0 U
0013720 ) P 0 * T A I L * ) \0 033
0013740 001 \0 003 001 @ 001 @ 002 021 001 \0 H 001 , H 002
0013760 X 003 265 \a 022 \n \0 \0 020 001 , 277 260 362 \0 (
0014000 2 3 Q \ S E T V A R ) \r N I L
0014020 \r ( ) \r S E T N D 1 \r ( L (
0014040 0 U ) P 0 * T A I L * )
0014060 \0 033 001 \0 003 001 @ 001 @ 002 021 001 \0 H 001
0014100 , H 002 X 003 265 \a 022 \n \0 \0 020 001 , 277 260
0014120 362 \0 ( 2 3 Q \ S E T V A R ) \r
0014140 N I L \r ( ) \r \ S T K S C A N
0014160 D 1 \r ( L ( 0 V A R ) ) \0
0014200 334 \a \0 \0 001 k f 321 310 001 m 376 345 l \n 331
0014220 @ 006 \0 \0 323 021 R 006 H j 360 227 ` \0 \0 I
0014240 320 I 320 020 k H 321 312 \0 ` j 360 253 k H 321
0014260 312 \a 207 k H 321 310 006 212 k H 321 312 003 207 k
0014300 H 321 310 002 321 ] 310 006 272 M l \b 320 ] 310 \0
0014320 d j 360 236 277 k H 321 310 001 m 376 345 l \n 331
0014340 X 260 270 I 360 262 v M J 320 [ 312 \0 \a d j
0014360 360 262 # 277 k K 312 \0 207 340 k d H 321 312 001
0014400 360 j 360 224 H l 002 331 204 k H 321 310 \b 321 310
0014420 001 330 321 020 d l 200 360 262 034 277 K 312 \0 207 340
0014440 H l \n 330 330 274 k L 321 312 \0 \a j 360 262 -
0014460 k L 321 020 l 300 360 262 k K 312 \0 207 340 H
0014500 l \n 330 330 321 ^ 310 \0 k 345 j 360 262 211 N 312
0014520 001 \a N 310 \0 321 020 \b \0 \0 277 M k 261 377 o
0014540 \0 ( 3 2 4 Q S H O U L D N T )
0014560 \r ( 3 1 Q \ V A L S P A C E
0014600 1 6 Q L I T A T O M ) \r ( ) \r
0014620 \ S E T F V A R S L O T D 1 \r
0014640 ( L ( 1 N E W B I N D I N G
0014660 0 V A R ) ) \0 y \a \0 \0 002 f
0014700 @ 006 \0 \0 323 021 R 006 k H 321 312 \0 ` j 360
0014720 253 k H 321 312 \a 207 k H 321 310 006 212 k H 321
0014740 312 003 207 k H 321 310 002 321 \ 310 006 272 L l \b
0014760 320 \ 310 \0 d j 360 235 277 o \0 \0 \0 @ \n \0
0015000 \0 277 L k 260 354 I 360 262 372 L J 320 [ 312 \0
0015020 \a l 300 360 262 356 k K 312 \0 207 340 H l \n 330
0015040 330 321 ^ A 323 315 \0 277 N d A 322 ] 317 001 207
0015060 277 M 317 001 \a A 020 \0 ( 1 0 1 Q E R
0015100 R O R ) \r ( 4 L I T A T O M )
0015120 \r ( 7 5 Q " B i n d i n g
0015140 s l o t n o t f o u n d i
0015160 n c a l l e r ' s f r a m e
0015200 " ) \r P R O G D 1 \r ( L ( 0
0015220 U ) ) \0 O 005 \0 003 001 j @ 001 021 2
0015240 004 I 260 d 001 \ d 003 221 001 \ 006 \0 \0 223
0015260 L i 360 230 o \0 \0 \0 L \n \0 \0 277 H k 324
0015300 270 002 003 265 341 H d l 004 330 m 374 345 Z l 005
0015320 330 330 [ 203 h 375 k 331 d j 361 263 371 277 @ d
0015340 K H J I \r 006 \0 \0 020 \0 ( 1 1 4 Q
0015360 \ P R O G 0 4 0 Q L I S P E
0015400 R R O R ) \r ( 2 3 Q L I T A T
0015420 O M ) \r ( 3 4 Q " A T T E M
0015440 P T T O B I N D N I L O
0015460 R T " ) \r \ P R O G 0 D 1 \r
0015500 ( L ( 5 V A R L S T 4 N
0015520 T S I Z E 3 N V A R S 2
0015540 N N I L S ) P 1 5 Q \ I N
0015560 T E R R U P T A B L E P 7
0015600 \ I N T E R R U P T A B L E I
0015620 1 * T A I L * I 0 * F
0015640 I R S T T A I L * ) 001 \f 016 \0 \0
0015660 006 E 242 261 \0 233 f 021 1 003 k H 321 312 003 207
0015700 k H 321 310 002 321 277 k d H 321 310 004 B 340 331
0015720 Z C 340 l 003 330 330 m 374 345 321 271 E J 021 022
0015740 006 L 003 265 s 023 021 020 \a E J H l \n 330 331
0015760 342 l \b D l \b 330 021 024 \f O 020 003 265 u 023
0016000 021 020 \r I l \t g \0 \0 322 l 377 345 307 277 I
0016020 g \0 \0 323 315 005 023 I D 315 006 277 k H 321 j
0016040 317 \0 0 277 I 322 273 k H 321 K 317 \a \a 277 k
0016060 H 321 K 317 \a 207 277 k H 321 I 323 315 006 277 k
0016100 H 321 k 317 \0 ` 277 k j 360 h 360 023 023 A 002
0016120 b 002 d 263 _ 020 001 ^ 003 234 ` \0 \0 M 320 N
0016140 002 \t \0 \0 316 \0 277 L 002 274 M l 002 324 275 261
0016160 377 r 001 _ 030 277 I O 024 320 O 030 d 003 220 001
0016200 006 \0 \0 323 315 \0 277 I O 026 320 O 022 n 200 \0
0016220 330 315 \0 277 O 020 002 _ 020 277 O 022 k 324 _ 022
0016240 277 O 024 k 324 _ 024 277 O 026 k 324 _ 026 277 261
0016260 377 K 001 003 265 004 260 230 , 277 260 224 \0 ( 2 6
0016300 2 Q \ E V P R O G 1 ) \r ( 3 2
0016320 1 Q L I T A T O M 2 5 3 Q
0016340 \ S T A C K S P A C E 1 4 1 Q
0016360 P R O G 1 2 7 Q P R O G )
0016400 \r ( ) \r \ E V P R O G 1 D 1 \r
0016420 ( I 0 * T A I L * ) \0 021 \0
0016440 \0 \0 001 @ 001 , @ 002 b \0 003 265 003 020 001 ,
0016460 277 260 365 \0 N I L \r N I L \r ( ) \r R
0016500 E T U R N D 1 \r ( L ( 0 F
0016520 O R M ) ) \0 } 002 \0 001 001 @ , \t \0
0016540 \0 021 021 001 f 271 k I 321 312 \0 ` j 360 253 k
0016560 I 321 312 \a 207 k I 321 310 006 212 k I 321 312 003
0016600 207 k I 321 310 002 321 311 004 g \0 \0 360 262 & k
0016620 I 321 312 001 360 j 360 225 k I 321 310 001 204 k I
0016640 321 310 \t l \n 331 271 h I d \v \0 \0 277 H \t
0016660 \0 \0 020 k I 321 312 001 360 j 360 225 k I 321 310
0016700 001 204 k I 321 310 \t l \n 331 Y j 360 262 231 o
0016720 \0 \0 \0 \t \0 \0 h 020 \0 ( 1 7 1 Q L
0016740 I S P E R R O R 1 2 5 Q V A
0016760 L U E S - L I S T 1 2 0 Q \
0017000 S M A S H L I N K 4 \ M V L
0017020 I S T ) \r ( 5 7 Q \ P R O G 0
0017040 ) \r ( 1 6 6 Q " I L L E G A
0017060 L R E T U R N " ) \r G O D 1
0017100 \r ( L ( 0 U ) ) \0 212 004 \0 003
0017120 001 f @ 001 021 " 003 k H 321 312 \0 ` j 360 253
0017140 k H 321 312 \a 207 k H 321 310 006 212 k H 321 312
0017160 003 207 k H 321 310 002 321 311 004 g \0 \0 360 262 6
0017200 I k d d H 321 312 001 360 j 360 224 H l 002 331
0017220 204 k H 321 310 \b 321 310 001 [ 321 311 \0 002 034 Z
0017240 262 024 k K l 002 330 321 J 316 \0 277 h H d \v
0017260 \0 \0 h 020 k H 321 312 001 360 j 360 225 k H 321
0017300 310 001 204 k H 321 310 \t l \n 331 X j 360 262 211
0017320 o \0 \0 \0 I \n \0 \0 h 020 \0 ( 2 0 6 Q
0017340 L I S P E R R O R 1 4 0 Q
0017360 \ S M A S H L I N K ) \r ( 5 3 Q
0017400 \ P R O G 0 ) \r ( 2 0 2 Q
0017420 " U N D E F I N E D O R I L
0017440 L E G A L G O " ) \r E V A L A
0017460 D 1 \r ( L ( 1 A 0 X )
0017500 ) \0 K 004 \0 \0 002 j 021 1 003 A 260 037 d
0017520 001 006 \0 \0 001 006 \0 \0 [ 223 K i 360 230 o \0
0017540 \0 \0 K \n \0 \0 277 H k 324 270 002 003 265 342 H
0017560 d l 004 330 m 374 345 Y l 005 330 330 Z 203 h 375
0017600 k 331 d j 361 263 371 277 J H I @ A \r 005 \0
0017620 \0 020 \0 ( 1 1 0 Q \ E V A L A
0017640 3 5 Q L I S P E R R O R ) \r (
0017660 1 7 Q L I T A T O M 1 3 Q
0017700 L I S T P ) \r ( 3 1 Q " A T
0017720 T E M P T T O B I N D N I
0017740 L O R T " ) \r \ E V A L A
0017760 D 1 \r ( L ( 4 A L I S T 3
0020000 F O R M 2 N T S I Z E 1
0020020 N V A R S 0 N N I L S )
0020040 P 1 3 Q \ I N T E R R U P T
0020060 A B L E P 4 \ I N T E R R
0020100 U P T A B L E ) \0 332 \f \0 \0 005 f
0020120 021 1 003 k H 321 312 003 207 k H 321 310 002 321 k
0020140 d H 321 310 004 @ 340 331 Y A 340 l 003 330 330 m
0020160 374 345 321 Z 021 020 004 D I H l \n 330 331 342 l
0020200 \b B l \b 330 I 021 025 \n M 003 265 S 023 021 020
0020220 \v J l \t g \0 \0 322 l 377 345 307 277 J g \0
0020240 \0 323 315 005 023 J B 315 006 277 k H 321 j 317 \0
0020260 0 277 J 322 273 k H 321 K 317 \a \a 277 k H 321
0020300 K 317 \a 207 277 k H 321 J 323 315 006 277 k H 321
0020320 k 317 \0 ` 277 k j 360 h 360 023 C , 020 001 _
0020340 024 277 ` \0 \0 O 022 320 O 024 002 316 \0 277 J O
0020360 016 320 O 024 001 006 \0 \0 323 315 \0 277 J O 020 320
0020400 N n 200 \0 330 315 \0 277 M 002 275 N k 324 276 O
0020420 016 k 324 _ 016 277 O 020 k 324 _ 020 277 O 022 l
0020440 002 324 _ 022 277 261 377 d \0 N I L \r ( 2 5
0020460 0 Q L I T A T O M 2 2 5 Q
0020500 \ S T A C K S P A C E 1 2 1 Q
0020520 E V A L A 1 0 7 Q E V A L
0020540 A ) \r ( ) \r E R R O R S E T D
0020560 1 \r ( L ( 2 W 1 V 0
0020600 U ) ) \0 006 \0 \0 \0 003 @ , h 032 020 \0
0020620 N I L \r N I L \r ( ) \r Q U O T E
0020640 D 1 \r ( L ( 0 U ) ) \0 004
0020660 \0 \0 003 001 @ 001 020 \0 N I L \r N I L \r
0020700 ( ) \r A N D D 1 \r ( L ( 0
0020720 U ) P 0 * T A I L * ) \0
0020740 036 001 \0 003 001 @ 003 h 360 265 017 @ 021 001 \0 H
0020760 d 002 003 244 277 H 001 , 020 001 , 264 375 H 002 X
0021000 260 360 \0 N I L \r N I L \r ( ) \r O R
0021020 D 1 \r ( L ( 0 U ) P 0
0021040 * T A I L * ) \0 034 001 \0 003 001 @
0021060 003 264 017 @ 021 001 \0 H d 002 003 244 277 H 001 ,
0021100 020 001 , 265 375 H 002 X 260 360 \0 N I L \r N
0021120 I L \r ( ) \r P R O G N D 1 \r (
0021140 L ( 0 U ) P 0 * T A I
0021160 L * ) \0 033 001 \0 003 001 @ 003 264 017 @ 021
0021200 001 \0 H d 002 003 244 277 H 001 , 020 001 , 277 H
0021220 002 X 260 361 \0 N I L \r N I L \r ( ) \r
0021240 C O N D D 1 \r ( L ( 0 U )
0021260 P 0 * T A I L * ) \0 , 002
0021300 \0 003 001 @ 021 021 001 H 003 265 016 H 264 \n o \0
0021320 \0 \0 H \n \0 \0 020 001 001 , Y 234 H 001 002 226
0021340 H 001 002 \t \0 \0 020 I 020 H 002 X 260 334 \0 (
0021360 4 2 Q \ E V P R O G N 2 2 Q
0021400 L I S P E R R O R ) \r N I L \r
0021420 ( 1 6 Q " U N U S U A L C
0021440 D R A R G L I S T " ) \r \ E
0021460 V P R O G N D 1 \r ( I 0 *
0021500 T A I L * ) \0 022 \0 \0 \0 001 @ 002 231
0021520 @ 001 , 277 @ 002 b \0 260 366 @ 001 , 020 \0 N
0021540 I L \r N I L \r ( ) \r P R O G 1
0021560 D 1 \r ( L ( 0 U ) P 0
0021600 * T A I L * ) \0 030 001 \0 003 001 @ 003
0021620 264 017 @ 021 001 \0 H 001 , H 002 X 003 265 003 020
0021640 001 , 277 260 366 \0 N I L \r N I L \r ( )
0021660 \r E N V E V A L D 1 \r ( N A M
0021700 E * E N V * L ( 4 C F L
0021720 G 3 A F L G 2 C P O S
0021740 1 A P O S 0 F O R M ) )
0021760 \0 " \0 \0 \0 005 h A d 222 \t \0 \0 B d 222
0022000 \t \0 \0 \v \0 \0 C 224 A \t \0 \0 277 D 224 B
0022020 \t \0 \0 277 @ , 020 \0 ( 3 4 Q R E L
0022040 S T K 2 5 Q R E L S T K 1
0022060 7 Q \ S M A S H L I N K 1 4
0022100 Q \ S T A C K A R G P T R 6
0022120 \ S T A C K A R G P T R ) \r N
0022140 I L \r ( ) \r E N V A P P L Y D
0022160 1 \r ( N A M E * E N V * L
0022200 ( 5 C F L G 4 A F L G 3
0022220 C P O S 2 A P O S 1 A
0022240 R G S 0 F N ) ) \0 230 002 \0 \0
0022260 006 h B d 222 \t \0 \0 C d 222 \t \0 \0 \v \0
0022300 \0 D 224 B \t \0 \0 277 E 224 C \t \0 \0 277 @
0022320 021 021 001 H d 004 l 004 360 262 025 277 H d 301 \n
0022340 312 \0 \0 j 360 262 & 277 H 301 \n 311 \0 X 003 262
0022360 1 H 001 d g \0 \0 360 262 035 277 H 002 001 003 263
0022400 ) H 002 001 262 $ A k @ 016 020 301 \n 312 \0 !
0022420 l 003 360 260 361 g \0 \0 360 235 H 002 001 X 260 266
0022440 H 245 @ A \n \0 \0 020 j 271 A 260 027 d 001 375
0022460 002 I k 330 Y n 002 \0 361 227 o \0 \0 \0 \t \0
0022500 \0 277 265 353 I @ 016 020 \0 ( 2 1 7 Q L
0022520 I S P E R R O R 1 6 5 Q F A
0022540 U L T A P P L Y 3 4 Q R E L
0022560 S T K 2 5 Q R E L S T K 1
0022600 7 Q \ S M A S H L I N K 1 4
0022620 Q \ S T A C K A R G P T R 6
0022640 \ S T A C K A R G P T R ) \r (
0022660 1 4 6 Q F U N A R G 1 0 5 Q
0022700 N L A M B D A ) \r ( 2 1 4 Q
0022720 " T O O M A N Y A R G U M
0022740 E N T S " ) \r F U N C T I O N
0022760 D 1 \r ( L ( 1 E N V 0 F
0023000 N ) ) \0 027 \0 \0 001 002 A 262 023 g \0 \0
0023020 @ m 377 g \0 \0 \n \0 \0 h 032 032 032 020 @ 020
0023040 \0 ( 1 6 Q S T K N T H ) \r ( 1
0023060 3 Q F U N C T I O N 5 F U
0023100 N A R G ) \r ( ) \r \ F U N C T 1
0023120 D 1 \r ( L ( 3 V A R L S T
0023140 2 N T S I Z E 1 N V A R
0023160 S 0 N N I L S ) P 1 5 Q
0023200 \ I N T E R R U P T A B L E
0023220 P 7 \ I N T E R R U P T A B
0023240 L E ) \0 356 016 \0 \0 004 f 021 1 003 k H
0023260 321 312 003 207 k H 321 310 002 321 k d H 321 310 004
0023300 @ 340 331 Z A 340 l 003 330 330 m 374 345 321 Y C
0023320 J 021 022 006 L 003 265 p 023 021 020 \a C J H l
0023340 \n 330 331 342 l \b B l \b 330 021 024 \f O 020 003
0023360 265 k 023 021 020 \r I l \t g \0 \0 322 l 377 345
0023400 307 277 I g \0 \0 323 315 005 023 I B 315 006 277 k
0023420 H 321 j 317 \0 0 277 I 322 273 k H 321 K 317 \a
0023440 \a 277 k H 321 K 317 \a 207 277 k H 321 I 323 315
0023460 006 277 k H 321 k 317 \0 ` 277 k j 360 h 360 023
0023500 h H \n \0 \0 020 001 276 k M 321 N , 316 \0 277
0023520 L 002 274 M l 002 324 275 261 377 | 001 _ 030 277 I
0023540 O 024 320 O 030 006 \0 \0 323 315 \0 277 I O 026 320
0023560 O 022 n 200 \0 330 315 \0 277 O 020 002 _ 020 277 O
0023600 022 k 324 _ 022 277 O 024 k 324 _ 024 277 O 026 k
0023620 324 _ 026 277 261 377 Y \0 ( 2 3 2 Q \ M
0023640 A K E S T A C K P ) \r ( 2 7 5 Q
0023660 L I T A T O M 1 3 3 Q * F
0023700 U N A R G * 1 2 1 Q * F U N
0023720 A R G * ) \r ( ) \r \ M A K E F U
0023740 N A R G F R A M E D 1 \r ( N A
0023760 M E F U N A R G L ( 0 E
0024000 N V ) ) \0 P 004 \0 \0 001 j 021 1 003 @
0024020 260 033 d 001 [ 006 \0 \0 223 K i 360 230 o \0 \0
0024040 \0 K \n \0 \0 277 H k 324 270 002 003 265 346 H d
0024060 l 004 330 m 374 345 Y l 005 330 330 Z 203 h 375 k
0024100 331 d j 361 263 371 277 J H I @ \f \0 \0 b \0
0024120 d 310 001 j d \v \0 \0 @ 020 \0 ( 1 1 4 Q
0024140 \ S M A S H L I N K 1 0 2 Q
0024160 \ F U N C T 1 3 1 Q L I S
0024200 P E R R O R ) \r ( 1 4 Q L I T
0024220 A T O M ) \r ( 2 5 Q " A T T
0024240 E M P T T O B I N D N I L
0024260 O R T " ) \r S T K E V A L
0024300 D 1 \r ( L ( 3 I N T E R N A
0024320 L F L G 2 F L G 1 F O R
0024340 M 0 P O S ) ) \0 023 \0 \0 \0 004
0024360 h @ \t \0 \0 \n \0 \0 B 224 @ \t \0 \0 277 A
0024400 , 020 \0 ( 1 5 Q R E L S T K 7
0024420 \ S M A S H L I N K 4 \ S
0024440 T A C K A R G P T R ) \r N I L \r
0024460 ( ) \r S T K A P P L Y D 1 \r (
0024500 N A M E * E N V * L ( 3
0024520 F L G 2 A R G S 1 F N
0024540 0 P O S ) ) \0 211 002 \0 \0 004 h @
0024560 \t \0 \0 \n \0 \0 C 224 @ \t \0 \0 277 A 021 021
0024600 001 H d 004 l 004 360 262 025 277 H d 301 \n 312 \0
0024620 \0 j 360 262 & 277 H 301 \n 311 \0 X 003 262 1 H
0024640 001 d g \0 \0 360 262 035 277 H 002 001 003 263 ) H
0024660 002 001 262 $ B k A 016 020 301 \n 312 \0 ! l 003
0024700 360 260 361 g \0 \0 360 235 H 002 001 X 260 266 H 245
0024720 A B \n \0 \0 020 j 271 B 260 027 d 001 375 002 I
0024740 k 330 Y n 002 \0 361 227 o \0 \0 \0 \t \0 \0 277
0024760 265 353 I A 016 020 \0 ( 2 0 0 Q L I S
0025000 P E R R O R 1 4 6 Q F A U L
0025020 T A P P L Y 1 5 Q R E L S T
0025040 K 7 \ S M A S H L I N K 4
0025060 \ S T A C K A R G P T R ) \r (
0025100 1 2 7 Q F U N A R G 6 6 Q
0025120 N L A M B D A ) \r ( 1 7 5 Q
0025140 " T O O M A N Y A R G U M E
0025160 N T S " ) \r R E T E V A L D 1
0025200 \r ( N A M E * E N V * L (
0025220 3 I N T E R N A L F L G 2
0025240 F L G 1 F O R M 0 P O S
0025260 ) ) \0 ; 001 \0 \0 004 @ \t \0 \0 021 001 \0
0025300 h H k H 321 312 001 360 j 360 225 k H 321 310 001
0025320 204 k H 321 310 \t l \n 331 d j 360 230 277 o \0
0025340 \0 \0 @ \n \0 \0 \v \0 \0 B 224 @ \t \0 \0 277
0025360 A , 020 \0 ( 6 5 Q R E L S T K
0025400 5 7 Q \ S M A S H L I N K 5
0025420 4 Q L I S P E R R O R 3 \
0025440 S T A C K A R G P T R ) \r N I L
0025460 \r ( 5 0 Q " I L L E G A L
0025500 S T A C K A R G " ) \r R E T A
0025520 P P L Y D 1 \r ( N A M E * E
0025540 N V * L ( 3 F L G 2 A
0025560 R G S 1 F N 0 P O S ) )
0025600 \0 254 003 \0 \0 004 @ \t \0 \0 021 ! 002 h H
0025620 k H 321 312 001 360 j 360 225 k H 321 310 001 204 k
0025640 H 321 310 \t l \n 331 X d j 360 230 277 o \0 \0
0025660 \0 @ \n \0 \0 \v \0 \0 C 224 @ \t \0 \0 277 A
0025700 Y d 004 l 004 360 262 023 d 301 \n 312 \0 \0 j 360
0025720 262 & 277 I 301 \n 311 \0 Y 003 262 0 I 001 d g
0025740 \0 \0 360 262 035 277 I 002 001 003 263 ( I 002 001 262
0025760 # B k A 016 020 301 \n 312 \0 ! l 003 360 260 361
0026000 g \0 \0 360 234 I 002 001 260 270 I 245 A B \n \0
0026020 \0 020 j 272 B 260 027 d 001 375 002 J k 330 Z n
0026040 002 \0 361 227 o \0 \0 \0 \t \0 \0 277 265 353 J A
0026060 016 020 \0 ( 2 4 3 Q L I S P E R R
0026100 O R 2 1 1 Q F A U L T A P P
0026120 L Y 6 6 Q R E L S T K 6 0
0026140 Q \ S M A S H L I N K 5 5 Q
0026160 L I S P E R R O R 3 \ S T
0026200 A C K A R G P T R ) \r ( 1 7 3 Q
0026220 F U N A R G 1 3 2 Q N L A
0026240 M B D A ) \r ( 2 4 0 Q " T O
0026260 O M A N Y A R G U M E N T S
0026300 " 5 1 Q " I L L E G A L S
0026320 T A C K A R G " ) \r B L I P V
0026340 A L D 1 \r ( L ( 2 F L G
0026360 1 I P O S 0 B L I P T Y P
0026400 ) ) 001 \t 004 \0 \0 003 A 265 004 f 202 \t \0
0026420 \0 @ 006 \0 \0 323 021 " 003 @ g \0 \0 360 263 !
0026440 @ g \0 \0 360 263 032 @ g \0 \0 360 263 023 @ g
0026460 \0 \0 360 252 B i 360 264 003 202 261 \0 326 j 020 B
0026500 d i 360 262 " 277 H I \n \0 \0 Z 262 025 @ g
0026520 \0 \0 360 236 ` \0 \0 J 320 311 \0 265 003 202 261 \0
0026540 262 j 020 k 020 243 k b 004 277 H I \n \0 \0 Z
0026560 262 036 @ g \0 \0 360 262 w B ` \0 \0 J 320 311
0026600 \0 265 003 j Z 361 262 031 B J 331 b 004 277 k H
0026620 321 312 001 360 j 360 262 i k H 321 310 001 260 g k
0026640 H 321 310 004 H k H 321 312 003 207 k H 321 310 002
0026660 321 310 002 d n 177 377 361 225 n 377 377 331 k 331 k
0026700 330 340 340 l 016 330 330 273 277 ` \0 \0 K 320 311 \0
0026720 g \0 \0 360 262 023 K J B 331 k 330 340 324 273 `
0026740 \0 \0 K 320 311 \0 020 K l 002 324 [ 260 334 k B
0026760 k 331 b 004 361 262 231 ` \0 \0 J 320 311 \0 020 k
0027000 H 321 310 \t l \n 331 X d j 360 242 261 377 _ h
0027020 020 \0 ( 1 4 5 Q \ V A R O F F S
0027040 E T 1 0 1 Q \ V A R O F F S
0027060 E T 7 \ S T A C K A R G P T
0027100 R ) \r ( 3 6 0 Q \ S T A C K S
0027120 P A C E 3 3 0 Q \ S T A C K
0027140 S P A C E 3 1 1 Q * A R G V
0027160 A L * 3 0 2 Q \ S T A C K S
0027200 P A C E 1 6 3 Q \ S T A C K
0027220 S P A C E 1 5 4 Q * A R G V
0027240 A L * 1 1 5 Q \ S T A C K S
0027260 P A C E 1 1 0 Q * A R G V A
0027300 L * 5 0 Q * A R G V A L *
0027320 4 1 Q * F N * 3 2 Q * F O
0027340 R M * 2 3 Q * T A I L * 1
0027360 3 Q L I T A T O M ) \r ( ) \r S
0027400 E T B L I P V A L D 1 \r ( L
0027420 ( 3 V A L 2 N 1 I P O
0027440 S 0 B L I P T Y P ) ) \0 351
0027460 004 \0 \0 004 A 265 004 f 202 \t \0 \0 @ 006 \0 \0
0027500 323 021 " 003 @ g \0 \0 360 263 032 @ g \0 \0 360
0027520 263 023 @ g \0 \0 360 252 @ g \0 \0 360 264 003 202
0027540 261 \0 273 B 243 k b 004 207 k B 361 224 B \t \0
0027560 \0 277 H I \n \0 \0 Z 262 035 @ g \0 \0 360 262
0027600 x ` \0 \0 J 320 311 \0 Z 232 B J 361 262 031 B
0027620 J 331 b 004 277 k H 321 312 001 360 j 360 262 m k
0027640 H 321 310 001 260 k k H 321 310 004 H k H 321 312
0027660 003 207 k H 321 310 002 321 310 002 d n 177 377 361 225
0027700 n 377 377 331 k 331 k 330 340 340 l 016 330 330 273 277
0027720 ` \0 \0 K 320 311 \0 g \0 \0 360 262 025 K J B
0027740 331 k 330 340 324 273 ` \0 \0 K 320 C 316 \0 C 020
0027760 K l 002 324 [ 260 332 k B k 331 b 004 361 262 227
0030000 ` \0 \0 J 320 C 316 \0 C 020 k H 321 310 \t l
0030020 \n 331 X d j 360 242 261 377 \ h 020 \0 ( 1 0
0030040 2 Q \ V A R O F F S E T 7 4
0030060 Q \ I L L E G A L . A R G 7
0030100 \ S T A C K A R G P T R ) \r (
0030120 3 1 6 Q \ S T A C K S P A C E
0030140 2 6 4 Q \ S T A C K S P A C
0030160 E 2 4 5 Q * A R G V A L *
0030200 2 3 6 Q \ S T A C K S P A C E
0030220 1 1 7 Q \ S T A C K S P A C
0030240 E 1 1 1 Q * A R G V A L *
0030260 4 7 Q * A R G V A L * 4 1 Q
0030300 * F N * 3 2 Q * F O R M *
0030320 2 3 Q * T A I L * 1 3 Q
0030340 L I T A T O M ) \r ( ) \r B L I P
0030360 S C A N D 1 \r ( L ( 1 I P
0030400 O S 0 B L I P T Y P ) ) \0
0030420 h 003 \0 \0 002 A 265 004 f 202 \t \0 \0 021 ! 002
0030440 @ d g \0 \0 360 263 025 d g \0 \0 360 254 d g
0030460 \0 \0 360 246 g \0 \0 360 264 C @ 006 \0 \0 323 272
0030500 H J \n \0 \0 Y 262 027 @ g \0 \0 360 264 \v `
0030520 \0 \0 I 320 311 \0 225 h H \n \0 \0 020 k H 321
0030540 312 001 360 j 360 225 k H 321 310 001 204 k H 321 310
0030560 \t l \n 331 X d j 360 262 311 h 020 \0 ( 1 0
0030600 6 Q \ M A K E S T A C K P 5
0030620 7 Q \ V A R O F F S E T 7
0030640 \ S T A C K A R G P T R ) \r ( 7
0030660 4 Q \ S T A C K S P A C E 6
0030700 6 Q * A R G V A L * 5 0 Q
0030720 L I T A T O M 4 1 Q * A R G
0030740 V A L * 3 4 Q * F N * 2 6
0030760 Q * T A I L * 1 7 Q * F O
0031000 R M * ) \r ( ) \r D U M M Y F R A
0031020 M E P D 1 \r ( L ( 0 P O S
0031040 ) ) \0 \t \0 \0 \0 001 @ i \n \0 \0 h 360
0031060 020 \0 ( 4 R E A L F R A M E P )
0031100 \r N I L \r ( ) \r R E A L F R A M
0031120 E P D 1 \r ( L ( 1 I N T E
0031140 R P F L G 0 P O S ) ) \0 \n
0031160 \0 \0 \0 002 @ \t \0 \0 A \n \0 \0 020 \0 ( 7
0031200 \ R E A L F R A M E P 3 \
0031220 S T A C K A R G P T R ) \r N I L
0031240 \r ( ) \r R E A L S T K N T H D
0031260 1 \r ( L ( 3 O L D P O S 2
0031300 I N T E R P F L G 1 P O S
0031320 0 N ) ) \0 Q 002 \0 \0 004 A \t \0
0031340 \0 j @ 361 223 j @ 331 200 @ 021 002 001 j @ 361
0031360 262 027 k H 321 312 001 360 j 360 225 k H 321 310 001
0031400 215 k H 321 310 \t 207 k H 321 310 001 m 376 345 l
0031420 \n 331 X d j 360 221 h 020 B \n \0 \0 262 320 I
0031440 k 331 Y j 361 263 310 C H \n \0 \0 020 \0 ( 1
0031460 1 6 Q \ M A K E S T A C K P
0031500 7 7 Q \ R E A L F R A M E P
0031520 3 \ S T A C K A R G P T R ) \r
0031540 N I L \r ( ) \r \ R E A L F R A M
0031560 E P D 1 \r ( L ( 1 I N T E
0031600 R P F L G 0 F R A M E ) F
0031620 1 \ I N T E R N A L ) \0 l
0031640 001 001 \0 002 k @ 321 312 003 207 k @ 321 310 002 321
0031660 311 004 021 001 \0 H d g \0 \0 360 263 + d g \0
0031700 \0 360 221 i 020 g \0 \0 360 250 H d g \0 \0 360
0031720 262 030 277 h @ \n \0 \0 Q d g \0 \0 360 246 d
0031740 g \0 \0 360 262 337 h 020 004 l 004 360 h 360 265
0031760 H d ` \0 \0 034 221 A 020 \t \0 \0 l \ 360 h
0032000 360 265 \r H \t \0 \0 265 \a H ` \0 \0 026 020 \0
0032020 ( 1 4 2 Q E X P R P 1 2 7 Q
0032040 C H C O N 1 6 3 Q \ S M A
0032060 S H L I N K ) \r ( 1 5 0 Q B R
0032100 K I N F O L S T 1 2 0 Q O P
0032120 E N F N S 7 6 Q S E L E C T
0032140 Q 7 0 Q I N T E R N A L 5
0032160 2 Q A P P L Y 4 3 Q E V A
0032200 L 3 4 Q \ I N T E R P R E T
0032220 E R 2 5 Q * E N V * ) \r ( )
0032240 \r B A C K T R A C E A 0 0 0 1
0032260 D 1 \r ( N A M E E R R O R S E
0032300 T F 0 F L A G S F 1
0032320 I P O S F 2 E P O S F
0032340 3 M A C R O Y F 4 P R I
0032360 N T F N ) \0 F \0 005 002 \0 Q 265 004 m
0032400 377 \t \0 \0 R 265 003 i \t \0 \0 P 265 005 j c
0032420 \0 l \b 345 j 360 P k 345 j 360 h 360 P l 004
0032440 345 j 360 h 360 P l 345 j 360 h 360 P l 020
0032460 345 j 360 T 265 005 g \0 \0 \r \b \0 \0 c 006 i
0032500 020 \0 ( 1 0 0 Q \ B A C K T R A
0032520 C E 1 6 Q \ S T A C K A R G
0032540 P T R 7 \ S T A C K A R G P
0032560 T R ) \r ( 7 4 Q P R I N T ) \r
0032600 ( ) \r B A C K T R A C E D 1 \r
0032620 ( L ( 3 F I L E ) P 3
0032640 R E S E T S T A T E P 2 M
0032660 A C R O Y P 0 O L D V A L
0032700 U E I 4 P R I N T F N I
0032720 2 F L A G S I 1 E P O
0032740 S I 0 I P O S F 4 R
0032760 E S E T V A R S L S T ) \0 ; 004
0033000 001 \0 005 C \t \0 \0 021 1 003 g \0 \0 H h 032
0033020 032 h 032 T 032 c \b Y o \0 \0 \0 g \0 \0 \n
0033040 \0 \0 243 g \0 \0 273 I 002 c \b g \0 \0 I 001
0033060 001 002 \n \0 \0 K 223 \b \0 \0 020 J 020 \0 ( 6
0033100 6 Q E R R O R ! 6 1 Q A P
0033120 P L Y 3 6 Q B A C K T R A C
0033140 E A 0 0 0 1 3 O U T P U T )
0033160 \r ( 5 2 Q O U T P U T 4 2 Q
0033200 E R R O R 3 3 Q I N T E R
0033220 N A L 1 1 Q O U T P U T ) \r
0033240 ( 3 0 Q ( B A C K T R A C E
0033260 A 0 0 0 1 ) ) \r \ B A C K T R A
0033300 C E D 1 \r ( L ( 1 1 Q R A
0033320 D I X 1 0 Q C N T 7 P R
0033340 I N T F N 6 A L I N K S 5
0033360 J U N K 4 L O C A L S 3
0033400 V A R S 2 N A M E S 1
0033420 E P O S 0 I P O S ) P 0
0033440 . I 7 ) 001 X 003 \0 \0 \n G 022 244 l
0033460 \b b 022 277 g \0 \0 l \a G 022 h 032 032 032 021
0033500 ! 002 G 020 262 033 o \0 \0 \0 G 020 \n \0 \0 277
0033520 o \0 \0 \0 \t \0 \0 277 G 020 k 324 b 020 277 @
0033540 \t \0 \0 271 E 242 261 \0 201 \b \0 \0 277 \b \0 \0
0033560 277 o \0 \0 \0 \t \0 \0 277 H k @ 321 312 001 360
0033600 j 360 224 @ l 002 331 204 k @ 321 310 \b Z \n \0
0033620 \0 277 \b \0 \0 277 J k @ 321 312 \0 ` j 360 253
0033640 k @ 321 312 \a 207 k @ 321 310 006 212 k @ 321 312
0033660 003 207 k @ 321 310 002 321 G 016 \v \0 \0 277 \b \0
0033700 \0 277 o \0 \0 \0 \t \0 \0 277 H @ \n \0 \0 277
0033720 o \0 \0 \0 \t \0 \0 277 I k G 016 017 016 277 @
0033740 G 016 \n \0 \0 260 k C 242 D 262 ^ k @ 321 312
0033760 001 360 j 360 224 @ l 002 331 204 k @ 321 310 \b k
0034000 @ 321 312 \0 ` j 360 253 k @ 321 312 \a 207 k @
0034020 321 310 006 212 k @ 321 312 003 207 k @ 321 310 002 321
0034040 G 016 D 223 g \0 \0 200 i \f \0 \0 277 B 232 I
0034060 k G 016 017 016 277 \b \0 \0 277 @ G 016 D 223 g
0034100 \0 \0 200 i \v \0 \0 207 B 226 I k G 016 017 016
0034120 277 A @ 360 263 - F 231 k @ 321 310 001 m 376 345
0034140 260 026 k @ 321 312 001 360 j 360 225 k @ 321 310 001
0034160 204 k @ 321 310 \t l \n 331 b \0 j 360 242 261 376
0034200 304 i 020 \0 ( 4 3 2 Q \ P R I N T
0034220 F R A M E 4 1 4 Q T E R P R
0034240 I 3 7 7 Q \ P R I N T B F
0034260 2 7 0 Q \ P R I N T F R A M E
0034300 2 5 2 Q P R I N 1 2 4 2 Q
0034320 P R I N T N U M 2 3 4 Q P
0034340 R I N 1 2 2 4 Q T E R P R I
0034360 2 2 0 Q \ P R I N T B F 1
0034400 5 0 Q T E R P R I 1 4 4 Q
0034420 P R I N T N U M 1 1 3 Q P R
0034440 I N 1 1 0 3 Q T E R P R I
0034460 7 7 Q T E R P R I 6 6 Q \
0034500 S T K N A M E 5 2 Q P R I N
0034520 1 4 2 Q P R I N T N U M ) \r
0034540 ( 4 2 5 Q L O C A L S 3 7 2
0034560 Q L O C A L S 1 2 Q F I X
0034600 ) \r ( 2 4 7 Q " , f r a m
0034620 e n a m e = " 2 3 1 Q "
0034640 F r a m e x t n a t " 1
0034660 1 0 Q " B a s i c f r a m e
0034700 a t " 4 7 Q " : " 3
0034720 5 Q ( F I X 3 ) ) \r \ S C A
0034740 N F O R N T E N T R Y D 1 \r (
0034760 L ( 1 N T E N T R Y 0 N
0035000 M T ) ) \0 - 003 \0 \0 002 l \b @ 310 006
0035020 l \b 330 021 022 002 @ H 320 310 \0 Z j 360 221 h
0035040 020 A @ I 320 310 \0 360 223 j J 321 020 H k 324
0035060 270 I k 324 271 260 341 \0 N I L \r N I L \r
0035100 ( ) \r \ P R I N T S T K D 1 \r
0035120 ( L ( 0 I ) F 0 . I 7
0035140 ) \0 * \0 001 \0 001 P @ \n \0 \0 o \0 \0
0035160 \0 \t \0 \0 P ` \0 \0 @ 320 310 \0 \n \0 \0 P
0035200 ` \0 \0 @ k 330 320 310 \0 \n \0 \0 k \t \0 \0
0035220 020 \0 ( 4 7 Q S P A C E S 4 3
0035240 Q P R I N T N U M 2 6 Q P
0035260 R I N T N U M 1 3 Q P R I N
0035300 1 4 P R I N T N U M ) \r ( 3
0035320 2 Q \ S T A C K S P A C E 1
0035340 7 Q \ S T A C K S P A C E ) \r
0035360 ( 1 0 Q " : " ) \r \ P R I
0035400 N T F R A M E D 1 \r ( L ( 2
0035420 V A R S O N L Y 1 P R I N
0035440 T F N 0 F R A M E ) ) 002 226
0035460 \b \0 \0 003 k @ 321 312 \0 ` j 360 253 k @ 321
0035500 312 \a 207 k @ 321 310 006 212 k @ 321 312 003 207 k
0035520 @ 321 310 002 321 j @ k @ 321 312 003 207 k @ 321
0035540 310 002 321 310 002 d n 177 377 361 225 n 377 377 331 k
0035560 331 k 330 340 340 l 016 330 330 021 S \a B 222 261 001
0035600 * @ \t \0 \0 277 o \0 \0 \0 \t \0 \0 277 k @
0035620 321 312 \0 0 j 360 247 o \0 \0 \0 \t \0 \0 277 k
0035640 @ 321 312 \0 P j 360 247 o \0 \0 \0 \t \0 \0 277
0035660 k @ 321 312 \0 ` j 360 247 o \0 \0 \0 \t \0 \0
0035700 277 k @ 321 312 \0 p j 360 247 o \0 \0 \0 \t \0
0035720 \0 277 k @ 321 312 \0 207 ] j 360 263 034 o \0 \0
0035740 \0 \t \0 \0 277 k \t \0 \0 277 M \t \0 \0 277 o
0035760 \0 \0 \0 \t \0 \0 277 k @ 321 312 001 360 j 360 247
0036000 o \0 \0 \0 \t \0 \0 277 k @ 321 277 o \0 \0 \0
0036020 \t \0 \0 277 \b \0 \0 277 @ l 002 330 \t \0 \0 277
0036040 k @ 321 312 003 207 k @ 321 310 002 321 277 o \0 \0
0036060 \0 \t \0 \0 277 \b \0 \0 277 @ l 004 330 \t \0 \0
0036100 277 k @ 321 277 o \0 \0 \0 \t \0 \0 277 \b \0 \0
0036120 277 @ l 006 330 \t \0 \0 277 k @ 321 312 \0 ` j
0036140 360 253 k @ 321 312 \a 207 k @ 321 310 006 212 k @
0036160 321 312 003 207 k @ 321 310 002 321 277 o \0 \0 \0 \t
0036200 \0 \0 277 \b \0 \0 277 @ l \b 330 \t \0 \0 277 k
0036220 @ 321 312 001 360 j 360 243 k @ 321 277 o \0 \0 \0
0036240 \t \0 \0 277 \b \0 \0 277 H 312 \a \a \ @ l \n
0036260 330 j _ 016 277 271 J I 361 242 261 \0 334 B 244 I
0036300 \t \0 \0 277 L O 016 361 262 R H O 016 n 200 \0
0036320 330 \n \0 \0 [ 256 B i 360 222 261 \0 255 g \0 \0
0036340 [ 242 261 \0 245 k I 321 312 \0 \a j 360 262 037 B
0036360 225 l 003 \t \0 \0 277 K \t \0 \0 277 k \t \0 \0
0036400 277 k I 321 311 \0 k A 017 016 260 | B 263 z K
0036420 \t \0 \0 277 o \0 \0 \0 260 f B 263 l H O 016
0036440 n 300 \0 330 \n \0 \0 [ 262 R o \0 \0 \0 \t \0
0036460 \0 277 K \t \0 \0 277 o \0 \0 \0 \t \0 \0 277 k
0036500 I 321 310 \0 k 345 j 360 262 - k I 321 ^ 312 001
0036520 \a N 310 \0 321 322 [ d k 360 226 277 o \0 \0 \0
0036540 260 036 m 376 345 ` \0 \0 322 360 244 o \0 \0 \0 215
0036560 o \0 \0 \0 210 o \0 \0 \0 203 o \0 \0 \0 \t \0
0036600 \0 277 h \t \0 \0 277 I l 002 324 271 O 016 k 324
0036620 _ 016 277 261 377 # B 263 0 k @ 321 310 004 272 J
0036640 I 361 264 & I \t \0 \0 277 k I 321 312 \0 \a j
0036660 360 231 k I 321 311 \0 k A 017 016 202 \b \0 \0 277
0036700 I l 002 324 271 260 332 h 020 \0 ( 1 2 1 2 Q
0036720 T E R P R I 1 1 6 3 Q \ P
0036740 R I N T S T K 1 1 2 1 Q T E
0036760 R P R I 1 1 1 4 Q P R I N 1
0037000 1 0 1 1 Q P R I N 1 1 0 0
0037020 1 Q P R I N 2 7 7 4 Q P R
0037040 I N 1 7 6 2 Q \ S C A N F O
0037060 R N T E N T R Y 7 3 6 Q P R
0037100 I N 1 7 1 3 Q S P A C E S
0037120 7 0 6 Q P R I N 2 7 0 1 Q
0037140 S P A C E S 6 3 7 Q \ S C A
0037160 N F O R N T E N T R Y 6 1 6 Q
0037200 \ P R I N T S T K 5 6 2 Q
0037220 T E R P R I 5 5 6 Q P R I N
0037240 1 5 3 1 Q \ P R I N T S T K
0037260 5 2 1 Q T E R P R I 5 1 5
0037300 Q P R I N 1 4 4 3 Q \ P R
0037320 I N T S T K 4 3 3 Q T E R P
0037340 R I 4 2 7 Q P R I N 1 4 1
0037360 3 Q \ P R I N T S T K 4 0 3
0037400 Q T E R P R I 3 7 7 Q P R
0037420 I N 1 3 5 2 Q \ P R I N T S
0037440 T K 3 4 2 Q T E R P R I 3
0037460 3 6 Q P R I N 1 3 2 2 Q P
0037500 R I N 1 3 0 1 Q P R I N 1
0037520 2 7 1 Q P R I N 1 2 6 4 Q
0037540 S P A C E S 2 5 7 Q P R I N
0037560 1 2 3 4 Q P R I N 1 2 1 3
0037600 Q P R I N 1 1 7 2 Q P R I
0037620 N 1 1 5 1 Q P R I N 1 1 3
0037640 0 Q P R I N 1 1 2 0 Q \ P
0037660 R I N T S T K ) \r ( 1 0 6 3 Q
0037700 \ V A L S P A C E 6 5 3 Q *
0037720 l o c a l * ) \r ( 1 1 1 1 Q
0037740 " [ p a d d i n g ] " 1 1 0 4
0037760 Q " n o t l o o k e d u
0040000 p ] " 1 0 7 7 Q " t o p
0040020 v a l u e ] " 1 0 7 2 Q "
0040040 n o n - s t a c k b i n d i n
0040060 g ] " 1 0 5 3 Q " o n s
0040100 t a c k ] " \r 1 0 0 6 Q "
0040120 " 7 7 1 Q " [ f v a r "
0040140 7 4 3 Q " [ u n b o u n d ]
0040160 " 5 5 3 Q " [ b l i n k ,
0040200 c l i n k ] " 5 1 2 Q " [ n
0040220 a m e t a b l e ] " 4 2 4 Q
0040240 " [ n e x t , p c ] " 3 7 4
0040260 Q \r " [ f n h e a d e r ] "
0040300 3 3 3 Q " a l i n k ] "
0040320 3 1 7 Q " X , " 2 7 6 Q
0040340 " , " 2 5 4 Q " U S E = "
0040360 2 3 1 Q " N , " 2 1 0 Q
0040400 " V , " 1 6 7 Q " C ,
0040420 " 1 4 6 Q " F , " \r 1 2
0040440 5 Q " [ " ) \r \ P R I N T B F
0040460 D 1 \r ( L ( 3 V A R S O N
0040500 L Y 2 P R I N T F N 1 N
0040520 M T 0 B L ) ) \0 324 004 \0 \0 004
0040540 @ k @ 321 310 001 331 342 k @ 321 312 \0 p 331 k
0040560 331 k @ 321 310 001 j 021 023 003 J H 363 222 261 \0
0040600 220 C 244 I \t \0 \0 277 A 265 H C 243 \b \0 \0
0040620 277 023 C 222 261 \0 235 @ \t \0 \0 k @ 321 312 \0
0040640 ` j 360 247 o \0 \0 \0 \t \0 \0 277 k @ 321 312
0040660 \0 207 j 360 263 031 o \0 \0 \0 \t \0 \0 277 k @
0040700 321 312 \0 207 \t \0 \0 277 k \t \0 \0 277 \b \0 \0
0040720 020 J j 330 \n \0 \0 [ 252 C i 360 263 & g \0
0040740 \0 [ 262 C 225 l 003 \t \0 \0 277 K \t \0 \0
0040760 277 k \t \0 \0 277 ` \0 \0 I 320 311 \0 k B 017
0041000 016 277 I l 002 324 271 J k 324 Z 261 377 p C 263
0041020 202 @ I 361 242 261 377 | I \t \0 \0 277 o \0 \0
0041040 \0 \t \0 \0 277 h \t \0 \0 277 I l 002 324 271 260
0041060 342 h 020 \0 ( 3 1 0 Q T E R P R I
0041100 3 0 3 Q P R I N 1 2 7 3 Q
0041120 \ P R I N T S T K 2 2 4 Q
0041140 S P A C E S 2 1 7 Q P R I N
0041160 2 2 1 2 Q S P A C E S 1 6
0041200 6 Q \ S C A N F O R N T E N T
0041220 R Y 1 5 7 Q T E R P R I 1
0041240 5 3 Q S P A C E S 1 4 6 Q
0041260 P R I N 1 1 3 4 Q P R I N 1
0041300 1 1 2 Q P R I N 1 7 2 Q
0041320 \ P R I N T S T K 5 7 Q T E
0041340 R P R I 4 6 Q \ P R I N T S
0041360 T K ) \r ( 2 3 0 Q \ S T A C K
0041400 S P A C E 2 0 0 Q * l o c a
0041420 l * ) \r ( 3 0 0 Q " [ p a d
0041440 d i n g ] " 1 3 1 Q " u s e
0041460 c n t = " 1 0 7 Q " r e s
0041500 i d u a l " ) \r C C O D E P
0041520 D 1 \r ( L ( 0 F N ) ) \0 B
0041540 \0 \0 \0 001 @ d 004 l 004 360 262 % d 301 \n 312
0041560 \0 \0 j 360 255 277 @ 301 \n 312 \0 @ j 360 h 360
0041600 h 360 020 301 \n 311 \0 004 l \r 360 264 031 i 020 004
0041620 l \r 360 263 372 @ 005 006 264 \f @ 006 \0 \0 312 \0
0041640 C l 004 360 020 \0 N I L \r ( 7 1 Q A
0041660 R R A Y P ) \r ( ) \r E X P R P
0041700 D 1 \r ( L ( 0 F N ) ) \0 +
0041720 001 \0 \0 001 @ 021 001 \0 H d 004 l 004 360 262 033
0041740 d 301 \n 312 \0 \0 j 360 253 277 H 301 \n 312 \0 @
0041760 j 360 h 360 020 301 \n 311 \0 003 264 003 i 020 \0 N
0042000 I L \r N I L \r ( ) \r S U B R P
0042020 D 1 \r ( L ( 0 F N ) ) \0 003
0042040 \0 \0 \0 001 h 020 \0 N I L \r N I L \r (
0042060 ) \r F N T Y P D 1 \r ( L ( 0
0042100 F N ) ) \0 264 001 \0 \0 001 @ 021 001 \0
0042120 H d 004 l 004 360 262 = 301 \n X d 312 \0 @ j
0042140 360 245 \t \0 \0 X 260 - 312 \0 \0 j 360 h 360 H
0042160 311 \0 270 262 037 H 312 004 ! d j 360 223 g \0 \0
0042200 020 d k 360 223 g \0 \0 020 l 002 360 263 o g \0
0042220 \0 020 H 003 262 H H 001 d g \0 \0 360 263 031 d
0042240 g \0 \0 360 245 d g \0 \0 360 236 277 H 002 001 X
0042260 003 263 ' H 262 $ g \0 \0 020 d g \0 \0 360 262
0042300 023 277 H 002 001 X 003 245 H 223 g \0 \0 020 g \0
0042320 \0 020 g \0 \0 360 264 005 g \0 \0 020 H 004 l \r
0042340 360 264 372 H 006 \0 \0 311 \0 312 004 ! d j 360 263
0042360 216 d k 360 263 221 l 002 360 262 225 g \0 \0 020 \0
0042400 ( 3 0 Q \ P S E U D O C O D E
0042420 . R E A L D E F ) \r ( 2 6 1 Q
0042440 C E X P R * 2 3 2 Q C O M P
0042460 I L E D - C L O S U R E 2 1 6
0042500 Q E X P R 2 1 0 Q F U N A
0042520 R G 2 0 4 Q F E X P R 2 0
0042540 0 Q F E X P R * 1 6 1 Q N
0042560 L A M B D A 1 5 4 Q E X P R
0042600 * 1 3 4 Q O P E N L A M B D
0042620 A 1 2 6 Q L A M B D A 1 1
0042640 7 Q C L : L A M B D A 1 0 4
0042660 Q C F E X P R * 7 3 Q C F
0042700 E X P R 6 3 Q C E X P R ) \r
0042720 ( ) \r A R G T Y P E D 1 \r ( L
0042740 ( 0 F N ) ) \0 261 002 \0 \0 001 @
0042760 021 021 001 H Y d 004 l 004 360 262 " 301 \n 312 \0
0043000 \0 j 360 h 360 H 301 \n 311 \0 270 224 H 312 004 !
0043020 020 H d 242 261 \0 212 b \0 023 260 325 004 l 005 360
0043040 262 f H 001 d g \0 \0 360 222 l 002 020 d g \0
0043060 \0 360 245 d g \0 \0 360 233 277 H 002 001 X 003 242
0043100 H 263 351 j 020 d g \0 \0 360 233 277 H 002 001 X
0043120 003 242 H 263 0 k 020 g \0 \0 360 227 H 002 001 b
0043140 \0 023 260 215 H \t \0 \0 d g \0 \0 360 263 326 d
0043160 g \0 \0 360 263 341 d g \0 \0 360 263 257 g \0 \0
0043200 360 264 004 l 003 020 I d 004 ` \0 \0 360 263 235 004
0043220 l \r 360 264 \v H 006 \0 \0 311 \0 312 004 ! 020 \0
0043240 ( 1 7 0 Q F N T Y P ) \r ( 2 5
0043260 1 Q C O M P I L E D - C L O S
0043300 U R E 2 3 4 Q 004 003 C L O S U
0043320 R E T Y P E # 2 2 0 Q F E X
0043340 P R * 2 1 2 Q E X P R * 2
0043360 0 3 Q F E X P R 1 7 4 Q E
0043400 X P R 1 5 2 Q F U N A R G
0043420 1 3 1 Q N L A M B D A 1 0 7
0043440 Q O P E N L A M B D A 1 0 1
0043460 Q L A M B D A 7 0 Q C L :
0043500 L A M B D A ) \r ( ) \r N A R G S
0043520 D 1 \r ( L ( 0 F N ) ) \0
0043540 242 005 \0 \0 001 @ 021 A 004 H d 004 l 004 360 262
0043560 , 301 \n 312 \0 \0 j 360 h 360 H 301 \n 311 \0 270
0043600 262 032 H 310 001 d n 177 377 361 225 n 377 377 331 k
0043620 331 271 j I 361 221 k 020 I 020 H 003 262 G H 001
0043640 d g \0 \0 360 263 361 d g \0 \0 360 254 d g \0
0043660 \0 360 246 d g \0 \0 360 262 036 277 H 002 001 X 265
0043700 004 j 020 003 262 322 H j 273 Z 003 241 K 020 K k
0043720 324 273 J 002 260 365 g \0 \0 360 264 \b H 002 001 \t
0043740 \0 \0 020 H 004 l \r 360 264 372 H 006 \0 \0 311 \0
0043760 310 001 d n 177 377 361 225 n 377 377 331 k 331 274 j
0044000 L 361 263 224 L 020 \0 ( 1 7 4 Q N A R
0044020 G S ) \r ( 2 1 0 Q C O M P I L
0044040 E D - C L O S U R E 1 6 3 Q
0044060 F U N A R G 1 2 1 Q O P E N
0044100 L A M B D A 1 1 3 Q N L A M
0044120 B D A 1 0 5 Q L A M B D A
0044140 7 6 Q C L : L A M B D A ) \r (
0044160 ) \r A R G L I S T D 1 \r ( L
0044200 ( 0 F N ) ) \0 216 001 \0 \0 001 @ 021
0044220 001 \0 H d 004 l 004 360 262 " 301 \n 312 \0 \0 j
0044240 360 h 360 H 301 \n 311 \0 270 224 H \t \0 \0 020 H
0044260 265 \n @ g \0 \0 \n \0 \0 X 003 262 3 H 001 d
0044300 g \0 \0 360 223 g \0 \0 020 d g \0 \0 360 253 d
0044320 g \0 \0 360 245 d g \0 \0 360 224 277 H 002 001 020
0044340 g \0 \0 360 262 032 H 002 001 b \0 023 260 242 H 004
0044360 l \r 360 231 H 006 \0 \0 311 \0 \t \0 \0 020 @ i
0044400 \n \0 \0 X 265 \f o \0 \0 \0 @ \n \0 \0 h 020
0044420 @ 360 263 364 H b \0 023 261 377 v \0 ( 1 7 7
0044440 Q E R R O R 1 6 4 Q F N C
0044460 H E C K 1 5 6 Q \ C C O D E
0044500 A R G L I S T 5 2 Q G E T P
0044520 R O P 3 7 Q \ C C O D E A R
0044540 G L I S T ) \r ( 1 5 1 Q C O M
0044560 P I L E D - C L O S U R E 1 2
0044600 4 Q F U N A R G 1 1 2 Q O
0044620 P E N L A M B D A 1 0 4 Q N
0044640 L A M B D A 7 6 Q L A M B D
0044660 A 7 1 Q U 6 4 Q C L : L
0044700 A M B D A 4 7 Q E X P R ) \r
0044720 ( 1 7 3 Q " A r g s n o t
0044740 a v a i l a b l e : " ) \r \ C
0044760 C O D E A R G L I S T D 1 \r (
0045000 L ( 1 S M A R T P 0 F N
0045020 H D ) ) \0 370 \n \0 \0 002 @ 310 001 d n
0045040 177 377 361 225 n 377 377 331 k 331 021 A 004 j H 361
0045060 223 g \0 \0 020 H j 360 221 h 020 @ 310 006 Z @
0045100 310 003 342 J d j 360 223 277 l 004 200 340 l \b 330
0045120 \ 331 [ d j 360 222 277 260 030 l 002 361 230 @ L
0045140 K 342 \v \0 \0 271 210 @ L 320 311 \0 \ 003 265 -
0045160 J j 360 250 @ l \b J I \f \0 \0 271 H k 331
0045200 j 021 2 \t N d M 363 262 ] 277 O 016 022 Y @
0045220 312 004 ! l 003 360 262 z d 001 020 001 \ 003 262 322
0045240 A 221 L 020 L 021 A \t M 003 265 004 N 020 001 _
0045260 022 g \0 \0 360 263 $ O 022 d g \0 \0 360 263 032
0045300 d 005 \a 225 277 O 022 \t \0 \0 _ 020 277 O 016 265
0045320 017 O 020 h 032 _ 016 ^ 277 M 002 ] 260 315 O 020
0045340 & _ 016 260 365 I 026 002 265 \t g \0 \0 N \n \0
0045360 \0 _ 022 277 O 020 265 022 O 022 h 032 _ 020 _ 016
0045400 277 N k 324 ^ 261 377 200 O 022 & _ 020 277 260 363
0045420 I 020 \0 ( 3 2 5 Q P A C K * 2
0045440 5 6 Q M K A T O M 1 4 0 Q
0045460 \ C C O D E I V A R S C A N 1
0045500 1 1 Q \ C C O D E I V A R S C
0045520 A N ) \r ( 3 2 1 Q * A R G *
0045540 2 4 1 Q & I N T E R L I S P
0045560 2 3 0 Q & O P T I O N A L 3
0045600 0 Q U ) \r ( ) \r \ C C O D E I
0045620 V A R S C A N D 1 \r ( L ( 3
0045640 I V A R S 2 S I Z E 1
0045660 S T A R T 0 F N H D ) ) \0
0045700 . 003 \0 \0 004 @ A 320 021 ! 002 j H 310 \0 321
0045720 Y 262 037 H B 320 310 \0 Z n 300 \0 345 j 360 231
0045740 J j 330 I 032 C 032 b 006 277 H k 320 270 260 335
0045760 C 020 \0 N I L \r N I L \r ( ) \r ( P
0046000 R E T T Y C O M P R I N T L L
0046020 I N T E R P C O M S ) \r ( R P A
0046040 Q Q L L I N T E R P C O M S
0046060 ( ( E ( * D o n ' t f o n
0046100 t i f y t h e s e c o m m o
0046120 n f u n c t i o n s ) ( S E
0046140 T Q F N S L S T ( L D I F F
0046160 E R E N C E F N S L S T ( \r
0046200 Q U O T E ( E V A L V P R O
0046220 G S E T S E T Q R E T U R
0046240 N G O Q U O T E A N D O
0046260 R P R O G N C O N D P R O
0046300 G 1 F U N C T I O N E V A L
0046320 A P P L Y ) ) ) ) ) ( C O M
0046340 S ( * \r F o r c a l l i n
0046360 g i n t e r p r e t e d f u
0046400 n c t i o n s ) ( F N S \ I
0046420 N T E R P R E T E R \ I N T E
0046440 R P R E T E R 1 \ S E T U P -
0046460 C O M P I L E D - C L O S U R E
0046500 - C A L L \r \ S T K N A M E )
0046520 ) ( C O M S ( * r e c u r
0046540 s i v e i n t e r p r e t e r
0046560 ) ( F N S E V A L \ E V A
0046600 L \ E V A L F O R M \ E V A
0046620 L F O R M A S L A M B D A \ E
0046640 V A L O T H E R \r A P P L Y
0046660 A P P L Y * \ C H E C K A P P
0046700 L Y * \ C K A P P L Y A R G S
0046720 D E F E V A L ) ( D E C L A
0046740 R E : D O N T C O P Y ( M A
0046760 C R O S . A P P L Y . ) ) (
0047000 V A R S ( \r \ D E F E V A L F
0047020 N S N I L ) ( \ E V A L H O
0047040 O K ) ) ( S P E C V A R S *
0047060 E V A L H O O K * ) ( A D D V
0047100 A R S ( L A M B D A S P L S T
0047120 L A M B D A N L A M B D A
0047140 C L : L A M B D A \r O P E N L
0047160 A M B D A ) ) ( G L O B A L V
0047200 A R S \ D E F E V A L F N S
0047220 \ E V A L H O O K L A M B D A
0047240 S P L S T C L I S P A R R A Y
0047260 ) ( D E C L A R E : D O N T
0047300 E V A L @ L O A D D O C O P Y
0047320 \r ( V A R S ( C L I S P A R
0047340 R A Y ) ) ) ( G L O B A L V A
0047360 R S C L I S P A R R A Y ) (
0047400 C O M S ( * F r e e v a r
0047420 i a b l e m a n i p u l a t i
0047440 o n ) ( F N S E V A L V \
0047460 E V A L V 1 \r \ E V A L V A R
0047500 B O U N D P S E T \ S E T
0047520 V A R S E T Q S E T N \ S
0047540 T K S C A N \ S E T F V A R S
0047560 L O T ) ) ( C O M S ( * P
0047600 R O G a n d f r i e n d s )
0047620 ( F N S P R O G \r \ P R O
0047640 G 0 \ E V P R O G 1 R E T U
0047660 R N G O E V A L A \ E V A
0047700 L A E R R O R S E T ) ) ( F
0047720 N S Q U O T E A N D O R
0047740 P R O G N C O N D \ E V P R
0047760 O G N P R O G 1 ) ( C O M S
0050000 ( \r * E v a l u a t i n g
0050020 i n d i f f e r e n t s t a
0050040 c k e n v i r o n m e n t )
0050060 ( F N S E N V E V A L E N V
0050100 A P P L Y F U N C T I O N \
0050120 F U N C T 1 \ M A K E F U N A
0050140 R G F R A M E \r S T K E V A L
0050160 S T K A P P L Y R E T E V A
0050200 L R E T A P P L Y ) ) ( C O
0050220 M S ( * B l i p a n d o
0050240 t h e r s t a c k f u n n i
0050260 n e s s ) ( F N S B L I P V
0050300 A L S E T B L I P V A L \r B
0050320 L I P S C A N ) ( F N S D U
0050340 M M Y F R A M E P R E A L F R
0050360 A M E P R E A L S T K N T H
0050400 \ R E A L F R A M E P ) ( I N
0050420 I T V A R S ( O P E N F N S
0050440 ( Q U O T E ( A P P L Y * S
0050460 E T Q \r A N D O R C O N D
0050500 S E L E C T Q P R O G P R
0050520 O G N P R O G 1 A R G S E
0050540 T A R G E R S E T Q N L S E
0050560 T Q R E S E T F O R M R E S
0050600 E T L S T R E S E T V A R S
0050620 R P T Q \r S A V E S E T Q S
0050640 E T N U N D O N L S E T Q X
0050660 N L S E T Q ) ) ) ) ( V A R S
0050700 \ B L I P N A M E S ) ( G L
0050720 O B A L V A R S B R K I N F O
0050740 L S T ) ( G L O B A L V A R S
0050760 \ B L I P N A M E S \r O P E
0051000 N F N S ) ) ) ( C O M S ( F
0051020 N S R A I D C O M M A N D R
0051040 A I D S H O W F R A M E R A I
0051060 D S T A C K C M D R A I D R O
0051100 O T F R A M E P R I N T A D D
0051120 R S P R I N T V A R E A D V
0051140 A \r R E A D A T O M R E A D
0051160 O C T S H O W S T A C K B L O
0051200 C K S S H O W S T A C K B L O
0051220 C K 1 P R I N C O P Y N O S
0051240 U C H A T O M ) ( F N S B A
0051260 C K T R A C E \ B A C K T R A
0051300 C E \r \ S C A N F O R N T E N
0051320 T R Y \ P R I N T S T K \ P
0051340 R I N T F R A M E \ P R I N T
0051360 B F ) ( D E C L A R E : E V
0051400 A L @ C O M P I L E D O N T C
0051420 O P Y ( C O M S * R A I D
0051440 C O M S ) ) ) ( \r C O M S (
0051460 F N S C C O D E P E X P R P
0051500 S U B R P F N T Y P A R G
0051520 T Y P E N A R G S A R G L I
0051540 S T \ C C O D E A R G L I S T
0051560 \ C C O D E I V A R S C A N )
0051600 ( C O M S ( * \r T r a n s
0051620 l a t i o n m a c h i n e r y
0051640 f o r n e w L A M B D A
0051660 w o r d s ) ( P R O P V A R
0051700 T Y P E L A M B D A T R A N F
0051720 N S ) ( A L I S T S ( L A M
0051740 B D A T R A N F N S ) ) ) ( \r
0051760 D E C L A R E : D O N T C O P
0052000 Y ( M A C R O S \ C C O D E
0052020 N A R G S \ C C O D E F N T Y
0052040 P \ C C O D E A R G T Y P E )
0052060 ) ) ( C O M S ( * p r o c
0052100 l a i m a n d f r i e n d s
0052120 - \r n e e d s t o c o m
0052140 e f i r s t b e c a u s e
0052160 D E F V A R s p u t i t o
0052200 u t ) ( F U N C T I O N S P
0052220 R O C L A I M ) ( * u s e d
0052240 b y t h e c o d e w a l k
0052260 e r , t o o ) ( \r * A N D
0052300 B Y P A C K A G E C O D E
0052320 ( \ , W H I C H ) I S I
0052340 N T H E I N I T ( \ , W
0052360 H I C H ) I S W H Y T H I
0052400 S I S H E R E R A T H E R
0052420 T H A N I N C M L E V E L
0052440 . \r ) ( M A C R O S V A R I
0052460 A B L E - G L O B A L L Y - S P
0052500 E C I A L - P V A R I A B L E
0052520 - G L O B A L - P ) ) ( D E C
0052540 L A R E : E V A L @ C O M P I
0052560 L E D O N T C O P Y ( A D D
0052600 V A R S ( \r L A M S F A U L
0052620 T E V A L F A U L T A P P L Y
0052640 ) ) ) ( D E C L A R E : D O
0052660 N T E V A L @ L O A D D O E V
0052700 A L @ C O M P I L E D O N T C
0052720 O P Y C O M P I L E R V A R S
0052740 ( A D D V A R S ( \r N L A M
0052760 A P R O G 1 C O N D P R O
0053000 G N O R A N D Q U O T E
0053020 G O P R O G S E T N S E T
0053040 Q ) ( N L A M L F U N C T I
0053060 O N R E T U R N ) ( L A M A
0053100 A P P L Y * \r \ I N T E R P
0053120 R E T E R ) ) ) ( L O C A L V
0053140 A R S . T ) ( S P E C V A
0053160 R S * T A I L * * F N * *
0053200 F O R M * * A R G V A L * *
0053220 A R G V A L 1 * * A R G V A L
0053240 2 * ) ) ) \r ( R P A Q Q \ D E
0053260 F E V A L F N S N I L ) \r ( R
0053300 P A Q Q \ E V A L H O O K N
0053320 I L ) \r ( A D D T O V A R L A
0053340 M B D A S P L S T L A M B D A
0053360 N L A M B D A C L : L A M B
0053400 D A O P E N L A M B D A ) \r (
0053420 R P A Q Q C L I S P A R R A Y
0053440 N I L ) \r ( R P A Q ? O P E
0053460 N F N S ( Q U O T E ( A P P
0053500 L Y * S E T Q A N D O R
0053520 C O N D S E L E C T Q P R O
0053540 G P R O G N P R O G 1 A R
0053560 G S E T A R G E R S E T Q
0053600 N L S E T Q \r R E S E T F O R
0053620 M R E S E T L S T R E S E T
0053640 V A R S R P T Q S A V E S E
0053660 T Q S E T N U N D O N L S E
0053700 T Q X N L S E T Q ) ) ) \r ( R
0053720 P A Q Q \ B L I P N A M E S
0053740 ( * T A I L * * F O R M * *
0053760 F N * * A R G V A L S * ) ) \r
0054000 ( P U T P R O P S L A M B D A
0054020 T R A N F N S V A R T Y P E
0054040 A L I S T ) \r ( A D D T O V A R
0054060 L A M B D A T R A N F N S ) \r
0054100 ( D E F U N P R O C L A I M
0054120 ( P R O C L A M A T I O N ) (
0054140 * P R O C L A I M i s a
0054160 t o p - l e v e l f o r m u
0054200 s e d t o p a s s a s s o
0054220 r t e d i n f o r m a t i o n
0054240 t o \r t h e c o m p i l e
0054260 r . T h i s i n t e r p r e
0054300 t e r i g n o r e s p r o c
0054320 l a m a t i o n s e x c e p t
0054340 f o r t h o s e d e c l a
0054360 r i n g v a r i a b l e s t
0054400 o b e \r S P E C I A L . *
0054420 ) ( C O N D ( ( L I S T P
0054440 P R O C L A M A T I O N ) ( S
0054460 E L E C T Q ( C A R P R O C
0054500 L A M A T I O N ) ( S P E C I
0054520 A L ( f o r X i n ( C D
0054540 R \r P R O C L A M A T I O N )
0054560 d o ( S E T F ( V A R I A
0054600 B L E - G L O B A L L Y - S P E
0054620 C I A L - P X ) T ) ) ) (
0054640 G L O B A L ( f o r X i n
0054660 ( C D R P R O C L A M A T I
0054700 O N ) d o ( \r S E T F ( V
0054720 A R I A B L E - G L O B A L - P
0054740 X ) T ) ) ) N I L ) ) ) )
0054760 \r ( P U T P R O P S V A R I A
0055000 B L E - G L O B A L L Y - S P E
0055020 C I A L - P M A C R O ( ( V
0055040 A R I A B L E ) ( G E T V A
0055060 R I A B L E ( Q U O T E G L
0055100 O B A L L Y - S P E C I A L ) )
0055120 ) ) \r ( P U T P R O P S V A R
0055140 I A B L E - G L O B A L - P M
0055160 A C R O ( ( V A R I A B L E )
0055200 ( G E T V A R I A B L E (
0055220 Q U O T E G L O B A L V A R )
0055240 ) ) ) \r ( P U T P R O P S L L
0055260 I N T E R P C O P Y R I G H T
0055300 ( " X e r o x C o r p o r a
0055320 t i o n " T 1 9 8 1 1 9 8
0055340 2 1 9 8 3 1 9 8 4 1 9 8 5
0055360 1 9 8 6 ) ) \r N I L \r
0055374