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