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