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