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