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