$ od -c -N 50000 [eris]<Lisp>Harmony>Library>CMLSPECIALFORMS.DCOM!5
0000000 ( F I L E C R E A T E D " 1 9
0000020 - D e c - 8 4 1 8 : 4 7 : 4 1
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 . ; 2 0 ) \r
0000140 " 1 3 - D e c - 8 4 0 2 : 2 2
0000160 : 2 4 " r e c o m p i l e d
0000200 c h a n g e s : \ L E T t r a
0000220 n \ D E F U N e x p a n d e r
0000240 C A T C H i n " I N T E R
0000260 L I S P - D 1 3 - D e c - 8 4
0000300 . . . " \r d a t e d " 1 3
0000320 - D e c - 8 4 0 7 : 3 0 : 1 9
0000340 " ) \r ( F I L E C R E A T E D
0000360 " 1 9 - D e c - 8 4 1 8 : 4 6
0000400 : 0 9 " { E R I S } < L I S P
0000420 C O R E > L I B R A R Y > C M L
0000440 S P E C I A L F O R M S . ; 2 0
0000460 1 9 6 9 4 c h a n g e s t
0000500 o : ( \r M A C R O S P S E T
0000520 Q C A T C H T H R O W ) (
0000540 F N S C A T C H \ D E F U N
0000560 e x p a n d e r \ L E T t r a
0000600 n ) ( V A R S C M L S P E C
0000620 I A L F O R M S C O M S ) p r
0000640 e v i o u s \r d a t e : " 1
0000660 4 - N o v - 8 4 2 2 : 3 9 : 0
0000700 8 " { E R I S } < L I S P C O
0000720 R E > L I B R A R Y > C M L S P
0000740 E C I A L F O R M S . ; 1 2 ) \r
0000760 \ L E T t r a n D 1 \r ( P 1
0001000 4 Q C O M N T S P 1 3 Q
0001020 D E C L S P 1 2 Q B O D Y
0001040 P 1 1 Q V A L S P 1 0
0001060 Q V A R S P 3 X I 1
0001100 S E Q U E N T I A L P I 0
0001120 X ) 001 020 \r \0 \0 002 021 0 002 @ 001 260
0001140 = d 001 021 001 003 K d 003 221 001 [ 234 K d i
0001160 360 250 d 004 l 004 360 263 027 277 K 004 l 004 360 222
0001200 l # 201 l 016 K h 032 032 \t \0 \0 277 K 022 270
0001220 I 265 \a H h 032 Z 201 H & 271 002 003 265 304 J
0001240 022 021 @ \a @ 001 260 035 d 001 _ 016 003 264 \t g
0001260 \0 \0 O 016 002 032 274 M 265 \a L h 032 ^ 201 L
0001300 & 275 002 003 265 344 N 022 @ 002 021 # \f A 254 g
0001320 \0 \0 O 020 O 024 032 032 O 022 032 020 O 024 \t \0
0001340 \0 _ 024 001 O 024 002 _ 024 277 _ 026 277 O 024 001
0001360 O 024 002 _ 024 277 _ 030 A g \0 \0 360 234 g \0
0001400 \0 h O 024 032 032 h 032 _ 024 277 O 022 002 \t \0
0001420 \0 O 020 002 \t \0 \0 021 " \a M 003 265 003 205 001
0001440 276 L 003 265 & 023 g \0 \0 O 020 001 h 032 O 026
0001460 \t \0 \0 O 030 \t \0 \0 O 024 \n \0 \0 \n \0 \0
0001500 032 032 O 022 001 h 032 032 020 001 _ 016 277 g \0 \0
0001520 N h 032 O 024 032 032 O 016 h 032 032 h 032 _ 024
0001540 277 M 002 275 L 002 274 260 263 \0 ( 3 4 5 Q
0001560 \ N C O N C 2 3 4 2 Q \ N C
0001600 O N C 2 3 3 5 Q D R E V E R
0001620 S E 3 3 0 Q D R E V E R S E
0001640 2 7 4 Q D R E V E R S E 2
0001660 6 6 Q D R E V E R S E 2 0 6
0001700 Q \ D E C L . C O M N T . P R
0001720 O C E S S 6 1 Q E R R O R X
0001740 ) \r ( 3 6 5 Q L A M B D A 3
0001760 1 6 Q L A M B D A 2 4 6 Q
0002000 P R O G 2 4 1 Q P R O G *
0002020 1 6 7 Q L A M B D A 1 2 7 Q
0002040 P R O G 1 ) \r ( ) \r \ D E F U
0002060 N e x p a n d e r D 1 \r ( P
0002100 1 4 Q Z P 1 3 Q F O R M
0002120 P 1 2 Q T A I L P 1 0
0002140 Q L A M B D A L I S T P 7
0002160 S P E C V A L P 6 S P E
0002200 C N A M P 5 S P E C I N D
0002220 P 4 B O D Y P 3 A R
0002240 G L P 2 N A M E P 1
0002260 L P 0 T Y P E I 0 D
0002300 E F F 1 5 Q C O M M E N T
0002320 F L G ) 001 325 \r 001 \0 001 g \0 \0 @ 021
0002340 r \b I 001 I 002 271 Z I 001 g \0 \0 360 236 d
0002360 003 265 016 d g \0 \0 h 032 032 272 I 002 271 J 003
0002400 262 k J 002 001 d g \0 \0 360 253 d g \0 \0 360
0002420 245 d g \0 \0 360 233 277 J 002 001 I 032 271 J 001
0002440 272 260 J 277 J 002 001 275 \b \0 \0 o \0 \0 \0 J
0002460 001 Z \v \0 \0 \t \0 \0 276 M g \0 \0 360 262 035
0002500 g \0 \0 g \0 \0 N g \0 \0 g \0 \0 J h 032
0002520 032 o \0 \0 \0 032 032 h 032 032 206 g \0 \0 g \0
0002540 \0 N h 032 032 h 032 032 _ 016 277 I 001 d g \0
0002560 \0 360 230 277 g \0 \0 270 I 002 Y 210 g \0 \0 360
0002600 222 I 002 271 I 001 [ H g \0 \0 360 262 5 d 003
0002620 262 1 g \0 \0 K \n \0 \0 263 032 g \0 \0 K \n
0002640 \0 \0 257 g \0 \0 K \n \0 \0 247 g \0 \0 K \n
0002660 \0 \0 235 N 265 003 J I \n \0 \0 Y 001 I 002 271
0002700 270 I 001 I 002 271 _ 020 I 021 1 \f O 022 _ 024
0002720 003 262 0 O 024 001 _ 026 d 003 225 001 g \0 \0 360
0002740 201 005 \a 262 036 O 026 005 \a 242 261 \0 265 O 030 \t
0002760 \0 \0 W 032 O 026 h 032 032 O 024 002 032 \n \0 \0
0003000 271 023 g \0 \0 N 265 003 J H O 020 g \0 \0 o
0003020 \0 \0 \0 W 032 g \0 \0 g \0 \0 K h 032 032 032
0003040 032 I 032 032 032 h 032 032 032 h 032 032 h 032 032 \
0003060 N 262 | g \0 \0 g \0 \0 L g \0 \0 J d 262
0003100 032 d i 360 263 025 d 005 001 245 d 005 002 241 005 003
0003120 265 \t g \0 \0 J h 032 032 M d 262 032 d i 360
0003140 263 025 d 005 001 245 d 005 002 241 005 003 265 \t g \0
0003160 \0 M h 032 032 O 016 h 032 032 032 032 J d 262 032
0003200 d i 360 263 025 d 005 001 245 d 005 002 241 005 003 265
0003220 \t g \0 \0 J h 032 032 h 032 032 032 032 032 020 O
0003240 026 O 030 032 _ 030 277 O 024 002 261 377 $ L 020 \0
0003260 ( 4 4 4 Q \ N C O N C 2 4 2
0003300 6 Q D R E V E R S E 3 3 7 Q
0003320 \ P r o c e s s & S p e c s
0003340 3 2 6 Q M E M B 3 1 6 Q M
0003360 E M B 3 0 6 Q M E M B 2 7
0003400 5 Q M E M B 1 3 4 Q M K A
0003420 T O M 1 3 1 Q C O N C A T
0003440 1 1 7 Q G E N S Y M ) \r ( 6 7
0003460 0 Q Q U O T E 6 2 5 Q Q U
0003500 O T E 5 7 1 Q Q U O T E 5
0003520 4 1 Q / P U T P R O P 5 3 5
0003540 Q ' C O M P I L E 5 3 2 Q
0003560 P R O G N 4 7 7 Q = 4 7 4
0003600 Q A R G L I S T 4 6 3 Q P
0003620 R O G N 4 5 1 Q D E F I N E
0003640 Q 4 0 3 Q D E C L A R E 3
0003660 2 2 Q & B O D Y 3 1 2 Q &
0003700 R E S T 3 0 2 Q & O P T I O
0003720 N A L 2 7 1 Q & A U X 2 5
0003740 7 Q L A M B D A 2 4 3 Q E
0003760 X P R 2 3 3 Q N L A M B D A
0004000 2 2 5 Q F E X P R 2 0 5 Q
0004020 Q U O T E 2 0 2 Q G E T D
0004040 1 6 1 Q Q U O T E 1 5 6 Q
0004060 C O N S 1 5 2 Q M A C R O
0004100 A R G S 1 4 7 Q Q U O T E
0004120 1 4 1 Q M A C R O 7 1 Q L
0004140 E X P R 6 3 Q F E X P R 5
0004160 5 Q E X P R 3 3 Q M A C R
0004200 O 2 1 Q M A C R O 2 L A
0004220 M B D A ) \r ( 4 6 7 Q ( Q U
0004240 O T E D E F U N ) 1 7 1 Q
0004260 ( M A C R O A R G S ) 1 2 3 Q
0004300 " $ $ " ) \r \ P r o c e s s &
0004320 S p e c s D 1 \r ( P 1 3 Q
0004340 V A R P 1 2 Q B I N D I N
0004360 G P 1 1 Q C N T P 7
0004400 B O D Y P 6 A R G V A R
0004420 P 5 O P T C O D E P 4
0004440 V A R T Y P P 3 R E S T F
0004460 O R M P 2 A U X L I S T
0004500 P 1 O P T V A R S P 0
0004520 V R B L S I 1 E X P I
0004540 0 N A M E F 2 1 Q S U P
0004560 P L I E D P ) 002 D 021 001 \0 002 021 200
0004600 \a A 001 k 021 " \v O 020 003 265 - 023 A 002 \t
0004620 \0 \0 _ 016 J 237 g \0 \0 J \t \0 \0 O 016 032
0004640 032 h 032 _ 016 277 N 222 261 001 264 g \0 \0 H \t
0004660 \0 \0 O 016 032 032 020 001 _ 024 g \0 \0 360 250 O
0004700 024 d g \0 \0 360 236 277 g \0 \0 274 O 022 m 377
0004720 324 _ 022 261 001 x g \0 \0 360 250 O 024 d g \0
0004740 \0 360 235 277 O 024 274 O 022 m 377 324 _ 022 261 001
0004760 ] 003 223 O 024 001 201 O 024 _ 026 233 O 026 004 l
0005000 004 360 224 O 026 i 360 231 o \0 \0 \0 O 026 \n \0
0005020 \0 277 L 265 032 O 026 O 024 360 251 o \0 \0 \0 O
0005040 024 \n \0 \0 277 O 024 H 032 X 261 001 ! g \0 \0
0005060 360 262 O N 256 g \0 \0 @ o \0 \0 \0 \v \0 \0
0005100 \t \0 \0 276 K 231 o \0 \0 \0 O 024 \n \0 \0 277
0005120 O 026 g \0 \0 g \0 \0 g \0 \0 O 022 g \0 \0
0005140 N g \0 \0 g \0 \0 N o \0 \0 \0 032 032 h 032
0005160 032 032 032 032 032 032 032 h 032 032 h 032 [ 261 \0 316
0005200 L d g \0 \0 360 262 ) 277 O 024 003 265 \a O 026
0005220 h 260 025 002 002 231 o \0 \0 \0 O 024 \n \0 \0 210
0005240 O 026 O 024 002 001 h 032 032 J 032 Z 261 \0 237 g
0005260 \0 \0 360 242 261 \0 224 N 256 g \0 \0 @ o \0 \0
0005300 \0 \v \0 \0 \t \0 \0 276 O 024 003 246 O 024 h 032
0005320 _ 024 277 O 026 I 032 271 O 024 002 002 001 c " 265
0005340 L g \0 \0 O 026 g \0 \0 g \0 \0 O 022 N h
0005360 032 032 032 g \0 \0 O 024 002 001 g \0 \0 W " 264
0005400 017 g \0 \0 W " o \0 \0 \0 032 032 h 032 g \0
0005420 \0 N O 022 h 032 032 032 h 032 \n \0 \0 032 032 032
0005440 032 032 h 032 032 032 M 032 ] 260 " 004 l 004 360 226
0005460 W " d i 360 234 277 o \0 \0 \0 W " \n \0 \0
0005500 277 W " I 032 271 260 233 \b \0 \0 277 O 020 002 _
0005520 020 277 O 022 k 324 _ 022 277 261 376 . g \0 \0 N
0005540 g \0 \0 H d \t \0 \0 021 2 020 O 030 003 265 035
0005560 O 034 022 I K \n \0 \0 \n \0 \0 M \t \0 \0 O
0005600 016 \n \0 \0 032 032 h 032 032 032 020 001 g \0 \0 N
0005620 O 032 h 032 032 032 h 032 032 _ 277 O 036 265 033
0005640 O h 032 _ 036 _ 034 277 O 030 002 _ 030 277 O
0005660 032 m 377 324 _ 032 277 260 264 O & _ 036 277 260
0005700 352 \0 ( 1 0 0 5 Q \ A P P E N D
0005720 2 1 0 0 0 Q D R E V E R S E
0005740 7 7 4 Q \ A P P E N D 2 7
0005760 7 1 Q \ A P P E N D 2 7 5 1
0006000 Q L E N G T H 7 1 4 Q S H
0006020 O U L D N T 7 0 1 Q E R R O
0006040 R 6 3 6 Q \ A P P E N D 2
0006060 5 1 0 Q M K A T O M 5 0 5 Q
0006100 C O N C A T 4 4 0 Q E R R
0006120 O R 3 2 0 Q E R R O R 3 0
0006140 4 Q M K A T O M 3 0 1 Q C
0006160 O N C A T 2 4 5 Q E R R O R
0006200 2 2 2 Q E R R O R 6 3 Q
0006220 D R E V E R S E 3 6 Q D R E
0006240 V E R S E 2 3 Q \ A P P E N
0006260 D 2 ) \r ( 1 0 2 0 Q A R G 7
0006300 4 4 Q L E T 7 4 0 Q L A M
0006320 B D A 6 2 2 Q A R G 6 0 5
0006340 Q S E T Q 5 7 6 Q e l s e
0006360 5 6 7 Q t h e n 5 5 5 Q
0006400 I G R E A T E R P 5 5 2 Q i
0006420 f 5 4 5 Q S E T Q 4 7 5 Q
0006440 \ 4 6 3 Q & O P T I O N A
0006460 L 4 0 6 Q & A U X 3 5 0 Q
0006500 A R G 3 4 5 Q c o l l e c
0006520 t 3 4 1 Q t o 3 3 4 Q f
0006540 r o m 3 3 1 Q \ I n d e x
0006560 3 2 6 Q f o r 2 7 1 Q \
0006600 2 6 1 Q & R E S T 1 4 2 Q
0006620 & O P T I O N A L 1 3 2 Q &
0006640 A U X 1 1 4 Q & R E S T 1
0006660 0 6 Q & B O D Y 7 6 Q & R
0006700 E S T 5 7 Q L A M B D A 3
0006720 2 Q L E T * ) \r ( 6 7 4 Q
0006740 " N o n b i n d a b l e a t
0006760 o m " 6 1 3 Q ( T ) 5 0 2
0007000 Q " . A R G C N T " 4 3 3 Q
0007020 " E x t r a c r u f t i n
0007040 & A U X f o r m " 3 5 5 Q
0007060 ( \ I n d e x ) 3 1 3 Q "
0007100 T o o m a n y & R E S T k
0007120 e y w o r d s " 2 7 6 Q " .
0007140 A R G C N T " 2 4 0 Q " N o
0007160 n - a t o m i c & R E Q U I R
0007200 E D v a r ? " 2 1 5 Q " N
0007220 o n b i n d a b l e a t o m
0007240 " ) \r L I S T * D 1 \r ( L (
0007260 0 N A R G S ) ) \0 * 003 \0 002 \0
0007300 e 021 001 \0 H d j 360 221 h 020 k 360 221 @ 020
0007320 H k 331 H a 021 002 002 I d j 361 241 J 020 a
0007340 J 032 272 I k 331 Y 260 362 \0 N I L \r N I
0007360 L \r ( ) \r C A T C H D 1 \r ( P
0007400 0 Y I 0 L ) \0 0 001 \0
0007420 003 001 g \0 \0 @ 032 i \n \0 \0 021 001 \0 H 002
0007440 X \t \0 \0 l 002 360 250 @ o \0 \0 \0 \n \0 \0
0007460 277 H 001 g \0 \0 \n \0 \0 H 002 001 i \v \0 \0
0007500 020 \0 ( 5 5 Q \ C A T C H . A U
0007520 X 4 6 Q E V A L 3 5 Q E
0007540 R R O R 2 1 Q L E N G T H
0007560 1 0 Q L I S P F O R M . S I M
0007600 P L I F Y ) \r ( 4 3 Q I N T E
0007620 R N A L 2 P R O G N ) \r (
0007640 3 2 Q " W R O N G F O R M A
0007660 T F O R C A T C H " ) \r \ C
0007700 A T C H . A U X D 1 \r ( P 2
0007720 \ C A T C H . 1 S H O T . O P
0007740 O S I 2 F O R M P I 1
0007760 F U N I 0 T A G ) \0 2
0010000 003 \0 \0 003 @ \t \0 \0 \b \0 \0 021 022 002 B 222
0010020 A 260 033 A d 004 l 004 360 237 225 A d i 360 231
0010040 277 o \0 \0 \0 \t \0 \0 277 A h 032 H I 032 h
0010060 032 \n \0 \0 020 \0 ( 5 7 Q E V A L A
0010100 4 3 Q S H O U L D N T 6
0010120 \ C A T C H . F I N D F R A M E
0010140 3 \ C A T C H . T A G . I N
0010160 T E R N ) \r N I L \r ( 4 0 Q "
0010200 u n a c c e p t a b l e f u n
0010220 c t i o n " ) \r \ C A T C H . F
0010240 I N D F R A M E D 1 \r ( I 0
0010260 P O S ) \0 032 \0 \0 \0 001 m 377 g \0
0010300 \0 h d @ \f \0 \0 b \0 005 \b 265 005 \b \0 \0
0010320 @ \v \0 \0 020 \0 ( 2 7 Q S T K N T
0010340 H 2 3 Q S H O U L D N T 1
0010360 2 Q S T K P O S ) \r ( 4 \ C
0010400 A T C H . A U X ) \r N I L \r \ C
0010420 A T C H . T A G . I N T E R N
0010440 D 1 \r ( P 5 C H A R P 4
0010460 I P 1 B A S E P 0
0010500 \ I N T E R R U P T A B L E I
0010520 0 T A G ) \0 177 \b \0 \0 001 @ 006
0010540 \0 \0 b \0 d 223 i 360 230 @ o \0 \0 \0 \n \0
0010560 \0 277 021 020 \0 ` \0 \0 311 \0 k @ ` \0 \0 310
0010600 003 l \v 330 021 4 \a ` \0 \0 @ 323 340 320 311 \0
0010620 276 ` \0 \0 @ 323 340 320 311 \0 312 \0 \a _ 016 277
0010640 J O 016 361 263 036 N J d k 330 272 302 275 n 001
0010660 \0 L 361 242 h 260 032 I L M 307 277 L k 330 274
0010700 260 340 ` \0 \0 L 315 002 277 ` \0 \0 \t \0 \0 022
0010720 022 265 \n @ o \0 \0 \0 \n \0 \0 020 \0 ( 1 7
0010740 4 Q E R R O R 1 6 0 Q M K
0010760 A T O M 2 2 Q E R R O R ) \r
0011000 ( 1 5 5 Q \ T H R O W . S T R
0011020 B U F F E R 1 4 6 Q \ T H R
0011040 O W . S T R B U F F E R 6 5 Q
0011060 \ P N P S P A C E 5 3 Q \
0011100 P N P S P A C E 4 0 Q \ T H
0011120 R O W . S T R B U F F E R 3 1
0011140 Q \ T H R O W . S T R B U F F
0011160 E R 3 L I T A T O M ) \r ( 1
0011200 7 1 Q " n a m e t o o l o
0011220 n g t o b e C A T C H t
0011240 a g " 1 7 Q " N I L a n d
0011260 T n o t u s a b l e a s
0011300 C A T C H t a g s " ) \r T H
0011320 R O W D 1 \r ( I 1 V A L
0011340 I 0 T A G ) \0 \f \0 \0 \0 002 @
0011360 \t \0 \0 - @ A \v \0 \0 020 \0 ( 1 1 Q
0011400 \ T H R O W . A U X 3 \ C A
0011420 T C H . T A G . I N T E R N ) \r
0011440 N I L \r N I L \r \ T H R O W . A
0011460 U X D 1 \r ( L ( 2 V A L
0011500 1 T A G 0 P O S ) P 0
0011520 \ I N T E R R U P T A B L E
0011540 F 1 \ T H R O W . 1 S H O T
0011560 . O P O S ) \0 A 001 001 \0 003 @ 005 001
0011600 235 021 020 \0 Q @ \n \0 \0 B i \v \0 \0 023 @
0011620 005 \b 265 023 A g \0 \0 \n \0 \0 b 002 \t \0 \0
0011640 - b \0 260 333 d 310 001 j 360 231 277 o \0 \0 \0
0011660 \t \0 \0 277 @ B i \v \0 \0 277 260 331 \0 ( 7
0011700 4 Q R E T T O 6 5 Q S H O
0011720 U L D N T 4 2 Q \ C A T C H
0011740 . T A G . I N T E R N 3 5 Q
0011760 E R R O R 2 0 Q R E T T O
0012000 1 3 Q \ M A K E S T A C K P )
0012020 \r ( 3 2 Q T a g % t o % T
0012040 H R O W , % b u t % n o %
0012060 c o r r e s p o n d i n g % t
0012100 a g % i n % a % C A T C H
0012120 ) \r ( 6 2 Q " T H R O W t o
0012140 a r e l e a s e d f r a m
0012160 e " ) \r ( P R E T T Y C O M P R
0012200 I N T C M L S P E C I A L F O
0012220 R M S C O M S ) \r ( R P A Q Q
0012240 C M L S P E C I A L F O R M S C
0012260 O M S ( ( C O M S ( * \r "
0012300 C o m m o n L i s p s t y l e
0012320 D E F U N , L E T L E T *
0012340 P R O G * L I S T * m a c
0012360 r o s a n d C A T C H a n
0012400 d T H R O W " ) ( M A C R O
0012420 S L E T L E T * P R O G *
0012440 \r L I S T * P S E T Q P R
0012460 O G V D E F U N ) ( F N S
0012500 \ L E T t r a n \ D E F U N e
0012520 x p a n d e r \ P r o c e s s
0012540 & S p e c s ) ( F N S L I S
0012560 T * ) ( P R O P I N F O L
0012600 E T L E T * \r P R O G * )
0012620 ( A L I S T S ( P R E T T Y E
0012640 Q U I V L S T L E T L E T *
0012660 P R O G * ) ) ) ( C O M S
0012700 ( * " C o m m o n L i s p s
0012720 t y l e C A T C H a n d T
0012740 H R O W " ) ( F N S \r C A T
0012760 C H \ C A T C H . A U X \ C
0013000 A T C H . F I N D F R A M E \
0013020 C A T C H . T A G . I N T E R N
0013040 T H R O W \ T H R O W . A U
0013060 X ) ( M A C R O S C A T C H
0013100 * C A T C H \r \ C A T C H R
0013120 U N F U N T H R O W * T H R
0013140 O W \ C A T C H R E L S T K P
0013160 U N W I N D P R O T E C T )
0013200 ( V A R S ( \ C A T C H . 1 S
0013220 H O T . O P O S ( S T K N T H
0013240 0 T ) ) ( \r \ T H R O W .
0013260 1 S H O T . O P O S ( S T K N
0013300 T H 0 T ) ) ) ( D E C L A
0013320 R E : E V A L @ C O M P I L E
0013340 ( P R O P S P E C V A R \
0013360 C A T C H . 1 S H O T . O P O S
0013400 \r \ T H R O W . 1 S H O T . O
0013420 P O S ) ) ( D E C L A R E :
0013440 D O N T C O P Y E V A L @ C O
0013460 M P I L E ( M A C R O S D A
0013500 T A T Y P E . T E S T ) ( P
0013520 ( O R ( A N D ( G E T M A C
0013540 R O P R O P ( \r Q U O T E U
0013560 N I N T E R R U P T A B L Y )
0013600 C O M P I L E R M A C R O P R O
0013620 P S ) ( R E C L O O K ( Q U
0013640 O T E L I T A T O M ) ) ( G
0013660 E T P ( Q U O T E i n a t o
0013700 m ) ( Q U O T E \r I . S . O
0013720 P R ) ) ) ( H E L P " Y o u
0013740 n e e d t o h a v e A B
0013760 C l o a d e d t o E D I T
0014000 / C O M P I L E t h i s f i
0014020 l e " ) ) ) ) ( D E C L A R E
0014040 : C O P Y W H E N ( E Q \r
0014060 C O M P I L E M O D E ( Q U O
0014100 T E D ) ) ( * " C r u f t
0014120 y l o w - l e v e l s t u f
0014140 f t o h e l p m a k e \
0014160 C A T C H . T A G . I N T E R N
0014200 m o r e e f f i c i e n t "
0014220 ) ( \r V A R S ( \ T H R O W
0014240 . S T R B U F F E R ( P R O G
0014260 ( ( X ( A L L O C S T R I N
0014300 G 2 5 6 ) ) ) ( R P L S T R
0014320 I N G X 1 ( Q U O T E \
0014340 C A T C H . T A G . ) ) ( R E
0014360 T U R N X ) ) ) ) \r ( P R O
0014400 P D M A C R O \ M Y A L I N
0014420 K ) ( D E C L A R E : E V A
0014440 L @ C O M P I L E W H E N ( E
0014460 Q C O M P I L E M O D E ( Q
0014500 U O T E D ) ) ( P R O P G
0014520 L O B A L V A R \r \ T H R O W
0014540 . S T R B U F F E R ) ) ) ) (
0014560 D E C L A R E : D O N T E V A
0014600 L @ L O A D D O E V A L @ C O
0014620 M P I L E D O N T C O P Y C
0014640 O M P I L E R V A R S ( A D D
0014660 V A R S ( N L A M A \r C A T
0014700 C H ) ( N L A M L ) ( L A M
0014720 A L I S T * ) ) ) ) ) \r ( P U
0014740 T P R O P S L E T M A C R O
0014760 ( X ( \ L E T t r a n X )
0015000 ) ) \r ( P U T P R O P S L E T
0015020 * M A C R O ( X ( \ L E T
0015040 t r a n X T ) ) ) \r ( P U T
0015060 P R O P S P R O G * M A C R
0015100 O ( X ( \ L E T t r a n X
0015120 ( Q U O T E P R O G * ) ) )
0015140 ) \r ( P U T P R O P S L I S T
0015160 * M A C R O ( X ( C O N D
0015200 ( ( N U L L X ) N I L )
0015220 ( ( N U L L ( C D R X ) )
0015240 ( C A R X ) ) ( ( N U L L
0015260 ( C D D R X ) ) ( C O N S
0015300 ( Q U O T E \r C O N S ) X )
0015320 ) ( T ( L I S T ( Q U O T
0015340 E C O N S ) ( C A R X )
0015360 ( C O N S ( Q U O T E L I S
0015400 T * ) ( C D R X ) ) ) ) ) )
0015420 ) \r ( P U T P R O P S P S E T
0015440 Q M A C R O ( X ( C O N D
0015460 ( ( N L I S T P X ) N I L
0015500 ) ( ( N L I S T P ( C D R
0015520 X ) ) ( H E L P " O d d n
0015540 u m b e r a r g s f o r P
0015560 S E T Q " ) ) \r ( T ( L I S
0015600 T ( Q U O T E S E T Q ) (
0015620 C A R X ) ( C O N D ( ( C
0015640 D D R X ) ( L I S T ( Q U
0015660 O T E P R O G 1 ) ( C A D R
0015700 X ) ( C O N S ( Q U O T E
0015720 P S E T Q ) ( C D D R X \r
0015740 ) ) ) ) ( T ( C A D R X )
0015760 ) ) ) ) ) ) ) \r ( P U T P R O P
0016000 S P R O G V M A C R O ( (
0016020 S Y M S V A L S . B O D Y
0016040 ) ( E V A L A ( L I S T (
0016060 F U N C T I O N ( L A M B D A
0016100 N I L . B O D Y ) ) ) (
0016120 ( L A M B D A ( \ V a r s \r
0016140 \ V a l s ) ( D E C L A R E
0016160 ( L O C A L V A R S \ V a r s
0016200 \ V a l s ) ) ( w h i l e
0016220 \ V a r s c o l l e c t ( C
0016240 O N S ( p o p \ V a r s )
0016260 ( O R ( p o p \ V a l s )
0016300 ( \r Q U O T E N O B I N D ) )
0016320 ) ) ) S Y M S V A L S ) ) )
0016340 ) \r ( P U T P R O P S D E F U
0016360 N M A C R O ( X ( \ D E F
0016400 U N e x p a n d e r X ) ) ) \r
0016420 ( P U T P R O P S L E T I N
0016440 F O ( B I N D S E V A L ) )
0016460 \r ( P U T P R O P S L E T *
0016500 I N F O ( B I N D S E V A L
0016520 ) ) \r ( P U T P R O P S P R O
0016540 G * I N F O ( E V A L B I
0016560 N D S L A B E L S ) ) \r ( A D
0016600 D T O V A R P R E T T Y E Q U
0016620 I V L S T ( L E T . L A M
0016640 B D A ) ( L E T * . L A M
0016660 B D A ) ( P R O G * . P R
0016700 O G ) ) \r ( P U T P R O P S C
0016720 A T C H M A C R O ( X ( P
0016740 R O G ( ( Y ( L I S P F O R
0016760 M . S I M P L I F Y ( C O N S
0017000 ( Q U O T E P R O G N ) X
0017020 ) T ) ) T A G F O R M ) (
0017040 O R ( E Q 2 ( \r L E N G T
0017060 H ( S E T Q Y ( C D R Y
0017100 ) ) ) ) ( E R R O R X " W
0017120 R O N G F O R M A T F O R
0017140 C A T C H " ) ) ( R E T U R N
0017160 ( C O N D ( ( S E T Q T A
0017200 G F O R M ( \r C O N S T A N T
0017220 E X P R E S S I O N P ( C A R
0017240 Y ) ) ) ( S E T Q T A G F
0017260 O R M ( \ C A T C H . T A G .
0017300 I N T E R N ( C A R T A G F
0017320 O R M ) ) ) ( S U B P A I R
0017340 ( Q U O T E ( X F O R M \r )
0017360 ) ( L I S T T A G F O R M
0017400 ( C A D R Y ) ) ( S E L E C
0017420 T Q C O M P I L E M O D E (
0017440 D ( Q U O T E ( \ C A T C H
0017460 R U N F U N ( F U N C T I O N
0017500 ( L A M B D A N I L ( ( L
0017520 A M B D A \r ( X ) ( D E C L
0017540 A R E ( S P E C V A R S X )
0017560 ) F O R M ) ( \ M Y A L I N
0017600 K ) ) ) ) ) ) ) ( Q U O T E
0017620 ( \ C A T C H R U N F U N ( F
0017640 U N C T I O N ( L A M B D A
0017660 N I L ( ( L A M B D A \r ( X
0017700 \ C A T C H . 1 S H O T . O P
0017720 O S ) ( D E C L A R E ( S P
0017740 E C V A R S X \ C A T C H .
0017760 1 S H O T . O P O S ) ) F O R
0020000 M ) ( S T K N T H - 2 N I
0020020 L \ C A T C H . 1 S H O T . O
0020040 P O S \r ) ) ) ) ) ) ) ) ) ( T
0020060 ( L I S T ( Q U O T E \ C
0020100 A T C H . A U X ) ( C A R Y
0020120 ) ( L I S T ( Q U O T E F
0020140 U N C T I O N ) ( L I S T (
0020160 Q U O T E L A M B D A ) N I
0020200 L ( C A D R Y ) \r ) ) ) ) )
0020220 ) ) ) ) \r ( P U T P R O P S *
0020240 C A T C H M A C R O ( = .
0020260 C A T C H ) ) \r ( P U T P R O
0020300 P S \ C A T C H R U N F U N
0020320 D M A C R O ( = . S P R E
0020340 A D A P P L Y * ) ) \r ( P U T P
0020360 R O P S \ C A T C H R U N F U
0020400 N M A C R O ( ( F U N .
0020420 R E S T ) ( ( L A M B D A (
0020440 \ C a t c h B o d y ) ( D E C
0020460 L A R E ( L O C A L V A R S
0020500 \ C a t c h B o d y ) ) ( \r A
0020520 P P L Y * \ C a t c h B o d y
0020540 . R E S T ) ) F U N ) ) )
0020560 \r ( P U T P R O P S T H R O W
0020600 M A C R O ( X ( P R O G
0020620 ( ( Y ( L I S P F O R M . S I
0020640 M P L I F Y ( C O N S ( Q U
0020660 O T E P R O G N ) X ) T )
0020700 ) T A G F O R M ) ( O R (
0020720 E Q 2 ( \r L E N G T H ( S
0020740 E T Q Y ( C D R Y ) ) ) )
0020760 ( E R R O R X " W R O N G
0021000 F O R M A T F O R T H R O
0021020 W " ) ) ( R E T U R N ( C O
0021040 N D ( ( S E T Q T A G F O R
0021060 M ( \r C O N S T A N T E X P R
0021100 E S S I O N P ( C A R Y ) )
0021120 ) ( L I S T ( Q U O T E \
0021140 T H R O W . A U X ) ( \ C A T
0021160 C H . T A G . I N T E R N ( C
0021200 A R T A G F O R M ) ) ( K W
0021220 O T E ( C A R \r T A G F O R
0021240 M ) ) ( C A D R Y ) ) ) (
0021260 T ( Q U O T E I G N O R E M
0021300 A C R O ) ) ) ) ) ) ) \r ( P U T
0021320 P R O P S * T H R O W M A C
0021340 R O ( = . T H R O W ) ) \r
0021360 ( P U T P R O P S \ C A T C H
0021400 R E L S T K P D M A C R O (
0021420 ( X ) ( E Q 0 ( f e t c h
0021440 E D F X P o f X ) ) ) ) \r
0021460 ( P U T P R O P S \ C A T C H
0021500 R E L S T K P M A C R O ( =
0021520 . R E L S T K P ) ) \r ( P U
0021540 T P R O P S U N W I N D P R O
0021560 T E C T M A C R O ( ( F O R
0021600 M . C L E A N U P S ) ( R
0021620 E S E T L S T ( R E S E T S A
0021640 V E N I L ( L I S T ( F U
0021660 N C T I O N ( L A M B D A N
0021700 I L \r . C L E A N U P S ) )
0021720 ) ) F O R M ) ) ) \r ( R P A Q
0021740 \ C A T C H . 1 S H O T . O P
0021760 O S ( S T K N T H 0 T ) )
0022000 \r ( R P A Q \ T H R O W . 1 S
0022020 H O T . O P O S ( S T K N T H
0022040 0 T ) ) \r ( P U T P R O P S
0022060 \ C A T C H . 1 S H O T . O P
0022100 O S S P E C V A R T ) \r ( P
0022120 U T P R O P S \ T H R O W . 1
0022140 S H O T . O P O S S P E C V A
0022160 R T ) \r ( R P A Q \ T H R O
0022200 W . S T R B U F F E R ( P R O
0022220 G ( ( X ( A L L O C S T R I
0022240 N G 2 5 6 ) ) ) ( R P L S T
0022260 R I N G X 1 ( Q U O T E
0022300 \ C A T C H . T A G . ) ) ( R
0022320 E T U R N X ) ) ) \r ( P U T P
0022340 R O P S \ M Y A L I N K D M
0022360 A C R O ( N I L ( ( O P C O
0022400 D E S M Y A L I N K ) ) ) ) \r
0022420 ( D E C L A R E : E V A L @ C
0022440 O M P I L E W H E N ( E Q C
0022460 O M P I L E M O D E ( Q U O T
0022500 E D ) ) ( P U T P R O P S
0022520 \ T H R O W . S T R B U F F E R
0022540 G L O B A L V A R T ) ) \r (
0022560 P U T P R O P S C M L S P E C
0022600 I A L F O R M S C O P Y R I G
0022620 H T ( " X e r o x C o r p o
0022640 r a t i o n " 1 9 8 3 1 9 8
0022660 4 ) ) \r N I L \r
0022670