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