$ od -c -N 50000 [eris]<Lisp>JCAI>sources>DWIM.DCOM!1
0000000 ( F I L E C R E A T E D " 3 1
0000020 - M a r - 8 5 2 2 : 1 1 : 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 > S O U R C E S > D W I M . ;
0000120 5 ) \r " 3 1 - M a r - 8 5 2
0000140 1 : 5 5 : 5 6 " b c o m p l '
0000160 d i n " I N T E R L I S P -
0000200 D 3 0 - M a r - 8 5 . . . "
0000220 d a t e d " 3 0 - M a r - 8
0000240 5 0 6 : 2 0 : 2 6 " ) \r ( F I
0000260 L E C R E A T E D " 3 0 - M a
0000300 r - 8 5 0 0 : 2 8 : 4 7 " {
0000320 E R I S } < L I S P C O R E > S
0000340 O U R C E S > D W I M . ; 5 3
0000360 5 0 0 9 c h a n g e s t o :
0000400 ( V A R S P R I N T O U T C
0000420 O M S \r D W I M C O M S ) (
0000440 M A C R O S P R I N T O U T
0000460 p r i n t o u t ) p r e v i o
0000500 u s d a t e : " 1 - F e b
0000520 - 8 5 1 5 : 3 5 : 1 1 " \r {
0000540 E R I S } < L I S P C O R E > S
0000560 O U R C E S > D W I M . ; 4 ) \r
0000600 V A R S B O U N D I N E D I T C
0000620 H A I N D 1 \r ( L ( 0 E D
0000640 I T C H A I N ) ) \0 * \0 \0 \0 001
0000660 h d d @ 260 027 d 001 \t \0 \0 < 006 003 232 =
0000700 004 265 016 = 006 < 002 < 004 277 002 003 265 352 020 \t
0000720 \0 \0 < 004 = \b 031 260 362 \0 ( 4 1 Q L
0000740 A S T 1 2 Q \ V A R S B O U
0000760 N D I N E D I T C H A I N / V A
0001000 R S B O U N D I N F O R M ) \r N
0001020 I L \r ( ) \r \ V A R S B O U N D
0001040 I N E D I T C H A I N / V A R S
0001060 B O U N D I N F O R M D 1 \r (
0001100 L ( 0 F O R M ) ) 001 031 \0 \0
0001120 \0 001 @ 001 h = 002 004 l 004 360 264 003 202 261 \0
0001140 222 = 002 d ` \0 \0 034 230 277 @ \t \0 \0 \t \0
0001160 \0 020 g \0 \0 033 d g \0 \0 360 265 017 d 003 264
0001200 \v g \0 \0 = 002 034 264 003 i < \0 277 262 ) h
0001220 d d @ 002 001 260 035 d 001 d 003 220 001 < 006 277
0001240 = 004 265 \t = 006 h 032 < 002 202 = \b & < 004
0001260 277 002 003 265 344 020 = 002 g \0 \0 033 < \0 003 001
0001300 g \0 \0 360 262 v @ h d d = \b 002 d g \0
0001320 \0 360 253 d g \0 \0 360 245 d g \0 \0 360 222 277
0001340 i 201 277 h < 002 277 = 006 002 < 006 265 005 = 004
0001360 020 001 < \0 d 004 l 004 360 263 032 277 = 002 262 351
0001400 d 003 002 001 g \0 \0 360 262 337 d 001 = 006 032 <
0001420 004 260 325 g \0 \0 033 < \b d 003 001 g \0 \0 360
0001440 263 254 277 d g \0 \0 360 224 = 006 002 260 275 = 002
0001460 262 267 d = 006 032 < 004 260 256 @ \t \0 \0 265 "
0001500 = 002 ` \0 \0 \n \0 \0 < \0 264 037 @ = 002 002
0001520 001 \n \0 \0 < \0 @ 364 256 b \0 277 277 261 376 365
0001540 b \0 277 277 277 261 376 355 h 020 \0 ( 4 0 1 Q
0001560 M A C R O E X P A N S I O N
0001600 3 6 5 Q G E T L I S 3 5 3 Q
0001620 \ V A R S B O U N D I N E D I
0001640 T C H A I N / C H E C K T R A N
0001660 3 6 Q \ A P P E N D 2 3 3
0001700 Q A R G L I S T ) \r ( 3 6 2 Q
0001720 C O M P I L E R M A C R O P R
0001740 O P S 3 2 4 Q _ 3 1 4 Q
0001760 F O R W O R D 3 0 3 Q C L I
0002000 S P W O R D 2 6 4 Q _ 2 1
0002020 2 Q a s 2 0 4 Q b i n d
0002040 1 7 6 Q f o r 1 6 0 Q F O
0002060 R W O R D 1 5 0 Q C L I S P
0002100 W O R D 6 1 Q B I N D S 4
0002120 7 Q B I N D S 4 2 Q I N F
0002140 O 2 4 Q L A M B D A S P L S
0002160 T ) \r ( ) \r \ V A R S B O U N D
0002200 I N E D I T C H A I N / C H E C
0002220 K T R A N D 1 \r ( L ( 0 X
0002240 ) ) \0 ; \0 \0 \0 001 ` \0 \0 226 @ ` \0
0002260 \0 035 265 0 ` \0 \0 264 + @ 001 ` \0 \0 360 264
0002300 # @ 002 001 ` \0 \0 244 ` \0 \0 262 027 @ d 002
0002320 001 \n \0 \0 277 @ d 002 002 001 @ 002 002 002 \v \0
0002340 \0 277 020 \0 ( 6 7 Q / R P L N O D
0002360 E 5 2 Q C L I S P T R A N )
0002400 \r ( 4 1 Q # C L I S P A R R A
0002420 Y 3 5 Q C L I S P A R R A Y
0002440 2 4 Q C L I S P T R A N F L
0002460 G 1 5 Q C L I S P T R A N F
0002500 L G 7 C L I S P A R R A Y
0002520 2 C L I S P A R R A Y ) \r ( )
0002540 \r N E W F A U L T 1 D 1 \r ( L
0002560 ( 2 F A U L T A P P L Y F L
0002600 G 1 F A U L T A R G S 0
0002620 F A U L T X ) ) \0 201 \0 \0 \0 003 B
0002640 221 @ 205 @ 003 264 004 @ 001 d 265 ) @ d 003 262
0002660 X \t \0 \0 < \0 262 ? B 236 g \0 \0 = 002 A
0002700 i g \0 \0 \r 005 \0 \0 277 g \0 \0 = 002 \n \0
0002720 \0 h 020 004 l 004 360 262 325 d \t \0 \0 262 317 d
0002740 \t \0 \0 \t \0 \0 < \0 262 304 B 263 317 d @ 002
0002760 032 < \0 260 325 B 256 @ d 003 233 001 < \0 003 225
0003000 d \t \0 \0 265 024 @ A B \v \0 \0 < \0 277 @
0003020 A B = 006 \f \0 \0 020 @ 002 032 < \0 260 253 \0
0003040 ( 1 6 7 Q O L D F A U L T 1
0003060 1 5 4 Q W T F I X 1 4 4 Q
0003100 \ N E W F A U L T 1 B L O C K /
0003120 C H E C K T R A N 1 0 6 Q \
0003140 N E W F A U L T 1 B L O C K / C
0003160 H E C K T R A N 1 0 3 Q G E
0003200 T D 7 5 Q \ D E F I N E D P
0003220 6 1 Q R E T E V A L 5 0 Q
0003240 R E T A P P L Y 2 4 Q \ N
0003260 E W F A U L T 1 B L O C K / C H
0003300 E C K T R A N ) \r ( 5 4 Q F A
0003320 U L T E V A L 4 4 Q I N T E
0003340 R N A L 3 5 Q F A U L T A P
0003360 P L Y ) \r ( ) \r \ N E W F A U L
0003400 T 1 B L O C K / C H E C K T R A
0003420 N D 1 \r ( L ( 0 X ) ) \0
0003440 ; \0 \0 \0 001 ` \0 \0 226 @ ` \0 \0 035 265 0
0003460 ` \0 \0 264 + @ 001 ` \0 \0 360 264 # @ 002 001
0003500 ` \0 \0 244 ` \0 \0 262 027 @ d 002 001 \n \0 \0
0003520 277 @ d 002 002 001 @ 002 002 002 \v \0 \0 277 020 \0
0003540 ( 6 7 Q / R P L N O D E 5 2
0003560 Q C L I S P T R A N ) \r ( 4 1
0003600 Q # C L I S P A R R A Y 3 5
0003620 Q C L I S P A R R A Y 2 4 Q
0003640 C L I S P T R A N F L G 1 5
0003660 Q C L I S P T R A N F L G 7
0003700 C L I S P A R R A Y 2 C L
0003720 I S P A R R A Y ) \r ( ) \r C L I
0003740 S P L O O K U P 0 D 1 \r ( L
0003760 ( 4 L I S P F N 3 D E C L
0004000 S T ) I 6 C L A S S D E F
0004020 I 5 C L A S S I 2 V
0004040 A R 2 I 1 V A R 1 I 0
0004060 W O R D ) \0 U \0 \0 \0 \a C 221 E
0004100 246 g \0 \0 \t \0 \0 277 F 247 E g \0 \0 033 b
0004120 \f 277 A \t \0 \0 b 002 B \t \0 \0 b 004 C \t
0004140 \0 \0 265 . E d g \0 \0 360 225 277 @ \t \0 \0
0004160 020 g \0 \0 360 245 E g \0 \0 360 221 h 020 D 265
0004200 021 @ g \0 \0 033 265 \n E g \0 \0 033 265 003 @
0004220 020 \0 ( 6 2 Q G E T T O P V A L
0004240 4 4 Q \ C L I S P L O O K U
0004260 P 0 / C L I S P L O O K U P 1
0004300 3 6 Q \ C L I S P L O O K U P
0004320 0 / C L I S P L O O K U P 2 3
0004340 0 Q \ C L I S P L O O K U P 0
0004360 / C L I S P L O O K U P 2 1 1
0004400 Q S H O U L D N T ) \r ( 1 1 6
0004420 Q L I S P F N 1 0 7 Q L I
0004440 S P F N 7 4 Q R E C O R D F
0004460 I E L D 6 6 Q R E C O R D
0004500 5 3 Q V A L U E 2 0 Q C L
0004520 I S P C L A S S D E F 6 C L
0004540 I S P L O O K U P 0 ) \r ( ) \r \
0004560 C L I S P L O O K U P 0 / C L I
0004600 S P L O O K U P 1 D 1 \r ( L
0004620 ( 0 L S T ) F 0 C L A S
0004640 S F 1 W O R D F 2 C
0004660 L A S S D E F F 3 V A R 1
0004700 F 4 V A R 2 ) \0 330 \0 005 \0
0004720 001 h d @ 265 003 020 001 < 002 003 242 261 \0 225 `
0004740 \0 \0 235 = 002 d 001 ` \0 \0 360 226 002 002 < 002
0004760 277 = 002 002 001 g \0 \0 360 262 037 P g \0 \0 360
0005000 242 261 \0 233 = 002 001 Q 360 242 261 \0 222 = 002 002
0005020 002 001 < \0 277 261 \0 207 P g \0 \0 360 246 P g
0005040 \0 \0 360 262 & = 002 001 ` \0 \0 034 262 p P g
0005060 \0 \0 360 227 Q = 004 \t \0 \0 034 203 Q = 004 360
0005100 262 \ @ 001 < \0 277 260 U = 002 001 P 360 226 @
0005120 001 < \0 277 260 H @ 001 001 < 002 S 360 245 = 002
0005140 T 360 262 : @ 001 002 \t \0 \0 < 002 262 0 = 002
0005160 020 @ 001 g \0 \0 033 < 002 d 226 d 3 \b 234 277
0005200 = 002 P 360 262 030 @ 001 < \0 277 217 001 R 001 360
0005220 232 R 002 = 004 002 \n \0 \0 001 265 \t @ 002 b \0
0005240 261 377 4 < \0 277 260 366 \0 ( 3 0 7 Q N
0005260 T H 2 3 0 Q \ C L I S P L O
0005300 O K U P 0 / C L I S P L O O K U
0005320 P 1 1 5 0 Q R E C O R D F I
0005340 E L D N A M E S ) \r ( 2 4 4 Q
0005360 C L I S P C L A S S 1 4 0 Q
0005400 R E C O R D F I E L D 1 3 1 Q
0005420 C L I S P R E C O R D T Y P E
0005440 S 1 2 0 Q R E C O R D F I E
0005460 L D 1 1 2 Q R E C O R D 5
0005500 5 Q V A L U E 4 6 Q = 3
0005520 0 Q C L I S P T R A N F L G
0005540 2 0 Q C L I S P T R A N F L G
0005560 ) \r ( ) \r \ C L I S P L O O K U
0005600 P 0 / C L I S P L O O K U P 2
0005620 D 1 \r ( L ( 0 X ) ) \0 " \0
0005640 \0 \0 001 @ d 003 262 035 d 001 g \0 \0 360 246 d
0005660 001 g \0 \0 360 222 002 001 020 002 001 g \0 \0 360 264
0005700 004 @ 001 020 \0 N I L \r ( 3 2 Q _
0005720 2 0 Q S E T Q Q 1 1 Q S E
0005740 T Q ) \r ( ) \r W A R N U S E R
0005760 D 1 \r ( L ( 0 X ) F 0
0006000 P R O G V A R S F 1 E X P
0006020 ) \0 201 \0 002 \0 001 P 260 Y d 001 @ 002 001
0006040 = 002 d 003 220 001 \n \0 \0 264 D o \0 \0 \0 i
0006060 \n \0 \0 277 Q h l \b l 002 \f \0 \0 i \n \0
0006100 \0 277 o \0 \0 \0 i \n \0 \0 277 @ i \n \0 \0
0006120 277 o \0 \0 \0 i \n \0 \0 277 d 003 265 037 o \0
0006140 \0 \0 i \n \0 \0 277 i \t \0 \0 277 i < \0 277
0006160 244 002 003 265 250 h 277 @ 002 001 020 001 i \n \0 \0
0006200 277 o \0 \0 \0 i \n \0 \0 277 d 002 001 l 003 \n
0006220 \0 \0 i \n \0 \0 260 320 \0 ( 1 7 5 Q L
0006240 I S P X P R I N 2 1 7 1 Q R
0006260 E T D W I M 2 1 6 0 Q L I S
0006300 P X P R I N 1 1 4 7 Q L I S
0006320 P X P R I N 2 1 2 2 Q L I S
0006340 P X T E R P R I 1 1 5 Q L I
0006360 S P X P R I N 1 1 0 0 Q L I
0006400 S P X P R I N 1 6 7 Q \ C L
0006420 I S P F O R E R R B L O C K / C
0006440 L I S P F O R E R R 1 6 1 Q
0006460 L I S P X P R I N 1 5 0 Q L
0006500 I S P X P R I N 2 4 4 Q R E
0006520 T D W I M 2 3 2 Q L I S P X
0006540 P R I N 1 2 0 Q E D I T F I
0006560 N D P ) \r N I L \r ( 1 5 4 Q
0006600 " i s b o u n d a n d i
0006620 n i t i a l i z e d t o : \r "
0006640 1 1 1 Q " i t i s b o
0006660 u n d " 7 4 Q " . . . i
0006700 s e v a l u a t e d B E F O
0006720 R E " 5 5 Q " \r n o w t
0006740 r a n s l a t e s s o t h a
0006760 t " 2 6 Q " * * * * W a r
0007000 n i n g : t h e i t e r a t
0007020 i v e s t a t e m e n t : \r "
0007040 ) \r C L I S P F O R E R R D 1
0007060 \r ( L ( 2 T Y P E 1 Y
0007100 0 X ) F 0 F A U L T F N
0007120 ) \0 274 \0 001 \0 003 ` \0 \0 222 261 \0 236 h
0007140 P \t \0 \0 225 k i \n \0 \0 277 o \0 \0 \0 i
0007160 \n \0 \0 277 B 262 I g \0 \0 i \n \0 \0 262 @
0007200 B d g \0 \0 360 226 277 o \0 \0 \0 260 - g \0
0007220 \0 360 225 o \0 \0 \0 260 " B d g \0 \0 360 226
0007240 277 o \0 \0 \0 260 024 g \0 \0 360 264 016 @ 002 001
0007260 i \n \0 \0 277 o \0 \0 \0 i \n \0 \0 277 g \0
0007300 \0 i \n \0 \0 277 @ 225 @ d 003 262 7 277 A 265
0007320 / @ d A \n \0 \0 231 < \0 277 A b \0 277 b
0007340 002 @ A \n \0 \0 277 A 232 k i \n \0 \0 277 A
0007360 \t \0 \0 277 i \t \0 \0 277 277 \b \0 \0 020 003 263
0007400 322 @ i d \v \0 \0 277 A 262 360 A i d \v \0
0007420 \0 260 347 \0 ( 2 7 0 Q L I S P X P
0007440 R I N 2 2 5 6 Q L I S P X P
0007460 R I N 2 2 4 4 Q D W I M E R
0007500 R O R R E T U R N 2 3 7 Q T
0007520 E R P R I 2 3 2 Q \ C L I S
0007540 P F O R E R R B L O C K / C L I
0007560 S P F O R E R R 1 2 2 5 Q L
0007600 I S P X S P A C E S 2 1 5 Q
0007620 \ C L I S P F O R E R R B L O C
0007640 K / C L I S P F O R E R R 1 1
0007660 7 6 Q T A I L P 1 5 4 Q L
0007700 I S P X P R I N T 1 4 4 Q L
0007720 I S P X P R I N 1 1 3 3 Q L
0007740 I S P X P R I N 1 4 5 Q L I
0007760 S P X P R I N T 3 2 Q L I S
0010000 P X P R I N 1 2 1 Q S P A C
0010020 E S 1 3 Q F I X P R I N T I
0010040 N ) \r ( 1 5 0 Q : 1 2 1 Q
0010060 W H A T 1 0 5 Q M I S S I N
0010100 G 7 0 Q T W I C E 5 4 Q
0010120 B O T H 4 1 Q , 2 D W I
0010140 M E S S G A G ) \r ( 1 4 0 Q
0010160 " w h a t ? ( n o i .
0010200 v . s p e c i f i e d ) " 1
0010220 1 4 Q " m i s s i n g o p e
0010240 r a n d " 7 6 Q " o p e r a
0010260 t o r a p p e a r s t w i c
0010300 e " 6 3 Q " c a n ' t u s
0010320 e b o t h o f t h e s e
0010340 o p e r a t o r s t o g e t h
0010360 e r " 2 6 Q " e r r o r i
0010400 n i t e r a t i v e s t a t
0010420 e m e n t " ) \r \ C L I S P F O
0010440 R E R R B L O C K / C L I S P F
0010460 O R E R R 1 D 1 \r ( L ( 1
0010500 Y 0 X ) F 0 I . S .
0010520 F 1 I . S . P T R S ) \0 J
0010540 \0 002 \0 002 h @ P 360 250 o \0 \0 \0 i \n \0
0010560 \0 277 Q 211 d 001 002 001 @ \n \0 \0 244 002 003 265
0010600 365 h 002 001 002 001 265 003 A < \0 277 @ 001 h l
0010620 003 \v \0 \0 i d \v \0 \0 277 @ 002 b \0 d 233
0010640 = 002 360 246 k i \n \0 \0 260 342 h 020 \0 ( 1
0010660 0 4 Q L I S P X S P A C E S
0010700 6 4 Q L I S P X P R I N 2 5
0010720 7 Q R E T D W I M 2 2 7 Q
0010740 T A I L P 1 4 Q L I S P X P
0010760 R I N 1 ) \r N I L \r ( 1 0 Q
0011000 " . . . " ) \r C L I S P D E
0011020 C D 1 \r ( L ( 0 D E C L S
0011040 T ) P 3 F A U L T F N )
0011060 001 021 004 \0 \0 001 @ d 233 d 225 d 3 \b 225 277
0011100 @ h 032 b \0 021 ! 002 H 265 004 @ 020 001 003 262
0011120 025 H 001 001 ` \0 \0 034 242 261 \0 324 H 001 \t \0
0011140 \0 261 \0 203 H d 001 ` \0 \0 034 262 S 277 ` \0
0011160 \0 213 d 001 d g \0 \0 033 Y 265 \t 277 002 003 265
0011200 363 260 d g \0 \0 \n \0 \0 277 d g \0 \0 033 265
0011220 \v d g \0 \0 033 g \0 \0 033 002 H 001 g \0 \0
0011240 033 002 \n \0 \0 001 Y 262 325 d g \0 \0 I \v \0
0011260 \0 277 I g \0 \0 = 004 \v \0 \0 277 260 300 001 g
0011300 \0 \0 033 Z 265 ' H 001 ` \0 \0 034 262 R H 001
0011320 g \0 \0 033 Y d 224 3 \b 262 T I g \0 \0 H
0011340 001 \v \0 \0 277 H 002 X 261 377 a d 003 262 357 277
0011360 ` \0 \0 260 & d 001 J 001 = 002 g \0 \0 033 Y
0011400 001 360 262 025 I 002 J 002 \n \0 \0 001 Y 230 d g
0011420 \0 \0 I \v \0 \0 277 277 002 003 265 333 260 311 021 020
0011440 003 H 001 h ` \0 \0 \v \0 \0 022 265 \r o \0 \0
0011460 \0 H 001 \n \0 \0 h 020 Y 262 254 H I H 002 \v
0011500 \0 \0 277 261 377 005 \0 ( 4 1 3 Q / R P
0011520 L N O D E 3 7 7 Q E R R O R
0011540 3 6 3 Q F I X S P E L L 3
0011560 3 7 Q / P U T 3 2 4 Q N T
0011600 H 2 5 5 Q / P U T 2 0 4 Q
0011620 / P U T 1 7 2 Q / P U T
0011640 1 5 6 Q N T H 1 2 2 Q / R
0011660 E M P R O P 5 2 Q E V A L )
0011700 \r ( 3 6 0 Q D E C L W O R D S
0011720 3 3 3 Q L I S P F N 3 0 7
0011740 Q C L I S P C L A S S D E F
0011760 2 7 4 Q D E C L W O R D S 2
0012000 5 0 Q L I S P F N 2 3 4 Q
0012020 C L I S P C L A S S 2 2 4 Q
0012040 D E C L W O R D S 2 1 3 Q C
0012060 L I S P C L A S S 1 7 7 Q C
0012100 L I S P I N F I X 1 6 6 Q L
0012120 I S P F N 1 5 1 Q C L I S P
0012140 C L A S S 1 4 2 Q C L I S P
0012160 C L A S S D E F 1 3 6 Q C L
0012200 I S P C L A S S 1 2 7 Q C L
0012220 I S P C L A S S D E F 1 1 7 Q
0012240 C L I S P I N F I X 1 0 1 Q
0012260 L I S P F N 7 2 Q C L I S
0012300 P A R I T H O P L S T 6 3 Q
0012320 C L I S P A R I T H C L A S S L
0012340 S T 4 0 Q C L I S P R E C O
0012360 R D T Y P E S ) \r ( 3 7 2 Q
0012400 " i l l e g a l d e c l a r a
0012420 t i o n " ) \r C L I S P D E C 0
0012440 D 1 \r ( L ( 1 F N 0 X
0012460 ) ) \0 026 \0 \0 \0 002 @ ` \0 \0 g \0 \0
0012500 @ 002 A \n \0 \0 032 \v \0 \0 @ 002 002 020 \0 (
0012520 2 0 Q / R P L N O D E 1 4 Q
0012540 \ C L I S P D E C B L O C K /
0012560 C L I S P D E C 1 ) \r ( 6 D E
0012600 C L A R A T I O N S : 3 C O
0012620 M M E N T F L G ) \r ( ) \r \ C L
0012640 I S P D E C B L O C K / C L I S
0012660 P D E C 1 D 1 \r ( L ( 0 X
0012700 ) I 1 F A U L T F N ) \0
0012720 211 \0 \0 \0 002 h d d @ 260 v d d d 001 003
0012740 262 + d 001 002 001 g \0 \0 360 257 d 001 001 ` \0
0012760 \0 034 247 d 001 001 g \0 \0 360 221 001 211 001 001 =
0013000 002 001 002 \t \0 \0 032 h 032 260 3 001 ` \0 \0 034
0013020 225 d 001 h 032 260 ' d 001 h ` \0 \0 h = \b
0013040 h d d = 020 001 ` \0 \0 \n \0 \0 \r \t \0 \0
0013060 263 254 o \0 \0 \0 = 002 001 \n \0 \0 < \0 277 <
0013100 006 003 232 = 004 265 016 = 006 < 002 < 004 277 002 003
0013120 265 213 020 \t \0 \0 < 004 = \b 031 260 362 \0 ( 2
0013140 0 0 Q L A S T 1 4 6 Q E R
0013160 R O R 1 3 2 Q F I X S P E L
0013200 L 1 2 6 Q D U N P A C K 6
0013220 0 Q \ C L I S P D E C B L O C
0013240 K / C L I S P D E C 1 ) \r ( 1 2
0013260 3 Q S K O R L S T 1 1 0 7 Q
0013300 D E C L W O R D S 7 1 Q D
0013320 E C L W O R D S 4 3 Q R E C
0013340 O R D S 3 3 Q C L I S P R E
0013360 C O R D T Y P E S 2 3 Q = )
0013400 \r ( 1 4 0 Q " i l l e g a l
0013420 d e c l a r a t i o n " ) \r G
0013440 E T L O C A L D E C D 1 \r ( L
0013460 ( 1 F N 0 E X P R ) F
0013500 0 F A U L T F N ) \0 255 \0 001
0013520 \0 002 @ 003 264 003 202 261 \0 202 @ 001 ` \0 \0 034
0013540 264 y @ 002 002 h = 002 d 262 p 001 < \0 003 265
0013560 \t = 002 002 < 002 260 362 001 d g \0 \0 360 225 277
0013600 d 002 001 260 360 g \0 \0 360 236 d 002 002 001 002 002
0013620 001 \t \0 \0 001 002 001 260 334 d d 001 ` \0 \0 360
0013640 232 d 002 001 g \0 \0 360 222 002 002 020 001 g \0 \0
0013660 360 230 d A 265 003 P \n \0 \0 020 d 001 d g \0
0013700 \0 360 245 d g \0 \0 360 222 277 i 201 277 h 262 243
0013720 d 002 h = 002 003 265 004 h 020 001 < \0 d 001 g
0013740 \0 \0 360 263 307 001 ` \0 \0 360 233 d 002 001 g \0
0013760 \0 360 223 d 002 002 020 = 002 002 < 002 260 331 \0 (
0014000 1 4 7 Q C L I S P D E C 0 1
0014020 0 1 Q L A S T ) \r ( 2 3 6 Q
0014040 D E C L A R A T I O N S : 2 2
0014060 6 Q C O M M E N T F L G 2 1
0014100 7 Q C L I S P : 1 6 4 Q D
0014120 E C L A R E : 1 5 6 Q D E C
0014140 L A R E 1 3 5 Q C L I S P :
0014160 1 2 4 Q D E C L A R A T I O
0014200 N S : 1 1 4 Q C O M M E N T
0014220 F L G 6 5 Q A D V - P R O G
0014240 5 2 Q B R E A K 1 1 4 Q
0014260 L A M B D A S P L S T ) \r ( ) \r
0014300 C O M P I L E U S E R F N A 0 0
0014320 0 1 D 1 \r ( N A M E E R R O
0014340 R S E T P 0 E X P F 1
0014360 Y ) \0 023 001 001 002 \0 Q 021 001 \0 g \0
0014400 \0 i g \0 \0 \v \0 \0 022 h 032 020 \0 ( 1 5
0014420 Q B R E A K 1 ) \r ( 1 2 Q c
0014440 o m p i l a t i o n 6 E X P
0014460 ) \r ( ) \r C O M P I L E U S E R
0014500 F N D 1 \r ( L ( 0 X ) I
0014520 1 Y F 0 O T H E R V A
0014540 R S ) \0 246 \0 001 \0 002 g \0 \0 \t \0 \0
0014560 243 h c \0 277 A \t \0 \0 265 q A d 001 003 262
0014600 # 001 \t \0 \0 265 031 ` \0 \0 264 ` A \t \0 \0
0014620 A \t \0 \0 265 V A 001 \t \0 \0 d 262 N A 002
0014640 032 020 001 g \0 \0 033 003 263 A 001 ` \0 \0 034
0014660 264 027 A 001 d g \0 \0 360 245 d g \0 \0 360 222
0014700 277 i 201 277 h 221 h 020 ` \0 \0 264 037 A \t \0
0014720 \0 ` \0 \0 226 A ` \0 \0 035 265 355 ` \0 \0 232
0014740 A d 001 ` \0 \0 360 223 002 001 020 A 001 g \0 \0
0014760 033 241 A 020 ` \0 \0 263 317 o \0 \0 \0 i \n \0
0015000 \0 A i \n \0 \0 o \0 \0 \0 \t \0 \0 001 020 \0
0015020 ( 2 4 2 Q C O M P I L E U S E
0015040 R F N A 0 0 0 1 2 3 3 Q P R
0015060 I N T 2 2 6 Q P R I N 1 1
0015100 4 6 Q \ C O M P I L E U S E R
0015120 F N B L O C K / C O M P I L E U
0015140 S E R F N 1 6 0 Q \ C O M P
0015160 I L E U S E R F N B L O C K / C
0015200 H E C K T R A N 5 1 Q \ C O
0015220 M P I L E U S E R F N B L O C K
0015240 / C H E C K T R A N 4 5 Q \
0015260 C O M P I L E U S E R F N B L O
0015300 C K / C O M P I L E U S E R F N
0015320 1 3 2 Q \ C O M P I L E U S
0015340 E R F N B L O C K / C H E C K T
0015360 R A N 1 6 Q \ C O M P I L E
0015400 U S E R F N B L O C K / C H E C
0015420 K T R A N 5 B O U N D P ) \r
0015440 ( 2 1 4 Q D W I M E S S G A G
0015460 2 0 5 Q C L I S P W O R D
0015500 1 7 3 Q C L I S P T R A N F L
0015520 G 1 6 4 Q C L I S P T R A N
0015540 F L G 1 5 6 Q C L I S P A R
0015560 R A Y 1 5 1 Q C L I S P A R
0015600 R A Y 1 4 0 Q D W I M F L G
0015620 1 2 3 Q N L A M B D A 1 1
0015640 5 Q L A M B D A 1 0 4 Q L
0015660 A M B D A S P L S T 7 3 Q C
0015700 L I S P W O R D 3 7 Q D W I
0015720 M F L G 2 O T H E R V A R S
0015740 ) \r ( 2 3 7 Q ( C O M P I L
0015760 E U S E R F N A 0 0 0 1 ) 2 2
0016000 2 Q " u n a b l e t o d w
0016020 i m i f y " ) \r \ C O M P I L
0016040 E U S E R F N B L O C K / C O M
0016060 P I L E U S E R F N 1 A 0 0 0 2
0016100 D 1 \r ( N A M E E R R O R S
0016120 E T F 0 F L G F 1 Y
0016140 F 2 F N F 3 D E F
0016160 F 4 A R G S F 5 O T H
0016200 E R V A R S ) \0 X \0 006 002 \0 ` \0
0016220 \0 265 005 P h 360 027 \0 \0 277 ` \0 \0 264 003 P
0016240 027 \0 \0 277 ` \0 \0 027 \0 \0 277 ` \0 \0 027 \0
0016260 \0 277 Q R T U \n \0 \0 S \f \0 \0 277 ` \0
0016300 \0 ` \0 \0 \n \0 \0 226 ` \0 \0 027 \0 \0 277 `
0016320 \0 \0 ` \0 \0 \n \0 \0 264 \n ` \0 \0 027 \0 \0
0016340 277 h h 032 020 \0 ( 1 1 1 Q T A I L
0016360 P 7 0 Q T A I L P 5 6 Q
0016400 D W I M I F Y 0 5 2 Q U N I
0016420 O N ) \r ( 1 2 1 Q N O F I X V
0016440 A R S L S T 1 1 6 Q N O F I
0016460 X V A R S L S T 0 1 0 6 Q N
0016500 O F I X V A R S L S T 0 1 0 3
0016520 Q N O F I X V A R S L S T 7
0016540 7 Q N O F I X F N S L S T 7
0016560 4 Q N O F I X F N S L S T 0
0016600 6 5 Q N O F I X F N S L S T 0
0016620 6 2 Q N O F I X F N S L S T
0016640 4 2 Q N O F I X V A R S L S
0016660 T 0 3 7 Q N O F I X V A R S
0016700 L S T 3 3 Q N O F I X F N S
0016720 L S T 0 3 0 Q N O F I X F N
0016740 S L S T 2 4 Q F I L E P K G
0016760 F L G 1 6 Q F I L E P K G F
0017000 L G 1 2 Q N O S P E L L F L
0017020 G 2 N O S P E L L F L G ) \r
0017040 ( ) \r \ C O M P I L E U S E R F
0017060 N B L O C K / C O M P I L E U S
0017100 E R F N 1 D 1 \r ( P 0 F L
0017120 G I 0 Y F 1 R E S E
0017140 T V A R S L S T F 2 C O R
0017160 E F L G F 3 F N ) \0 h 001
0017200 003 \0 001 R 003 264 \b S R \n \0 \0 002 021 001 \0
0017220 g \0 \0 ` \0 \0 032 g \0 \0 ` \0 \0 032 Q 032
0017240 032 c 002 h Q < \0 277 o \0 \0 \0 g \0 \0 \n
0017260 \0 \0 = 004 001 002 027 \0 \0 277 = 004 002 < 004 001
0017300 002 027 \0 \0 277 = 002 d Q 360 226 277 = 004 002 c
0017320 002 217 Q \n \0 \0 233 Q k = 006 \v \0 \0 = 006
0017340 002 031 277 243 \b \0 \0 277 h 020 \0 ( 1 4 3 Q
0017360 E R R O R ! 1 3 2 Q N L E
0017400 F T 1 2 2 Q T A I L P 5 6
0017420 Q \ C O M P I L E U S E R F N
0017440 B L O C K / C O M P I L E U S E
0017460 R F N 1 A 0 0 0 2 1 0 Q F A
0017500 S S O C ) \r ( 1 0 0 Q F I L E
0017520 P K G F L G 6 5 Q N O S P E
0017540 L L F L G 5 3 Q I N T E R N
0017560 A L 3 1 Q F I L E P K G F L
0017600 G 2 6 Q F I L E P K G F L G
0017620 2 2 Q N O S P E L L F L G
0017640 1 7 Q N O S P E L L F L G ) \r
0017660 ( 5 0 Q ( \ C O M P I L E U
0017700 S E R F N B L O C K / C O M P I
0017720 L E U S E R F N 1 A 0 0 0 2 ) )
0017740 \r \ C O M P I L E U S E R F N B
0017760 L O C K / C H E C K T R A N D
0020000 1 \r ( L ( 0 X ) ) \0 ; \0 \0
0020020 \0 001 ` \0 \0 226 @ ` \0 \0 035 265 0 ` \0 \0
0020040 264 + @ 001 ` \0 \0 360 264 # @ 002 001 ` \0 \0
0020060 244 ` \0 \0 262 027 @ d 002 001 \n \0 \0 277 @ d
0020100 002 002 001 @ 002 002 002 \v \0 \0 277 020 \0 ( 6 7
0020120 Q / R P L N O D E 5 2 Q C
0020140 L I S P T R A N ) \r ( 4 1 Q #
0020160 C L I S P A R R A Y 3 5 Q C
0020200 L I S P A R R A Y 2 4 Q C L
0020220 I S P T R A N F L G 1 5 Q C
0020240 L I S P T R A N F L G 7 C L
0020260 I S P A R R A Y 2 C L I S P
0020300 A R R A Y ) \r ( ) \r D W I M D
0020320 1 \r ( P 0 X I 0 X )
0020340 \0 i 001 \0 \0 001 @ 265 033 g \0 \0 g \0 \0 \t
0020360 \0 \0 \n \0 \0 g \0 \0 \t \0 \0 g \0 \0 \t \0
0020400 \0 020 ` \0 \0 026 b \0 262 9 g \0 \0 g \0 \0
0020420 \t \0 \0 \n \0 \0 g \0 \0 i \n \0 \0 g \0 \0
0020440 i \n \0 \0 @ 002 260 023 d 001 021 001 \0 H 003 227
0020460 H 001 H 002 \n \0 \0 277 023 002 003 265 355 @ 002 001
0020500 020 o \0 \0 \0 o \0 \0 \0 i \v \0 \0 020 \0 (
0020520 1 4 6 Q E R R O R 1 2 0 Q
0020540 S E T 7 5 Q / S E T A T O M
0020560 V A L 6 6 Q / S E T A T O M
0020600 V A L 5 7 Q / P U T D 5 4
0020620 Q G E T D 3 2 Q / S E T A
0020640 T O M V A L 2 4 Q / S E T A
0020660 T O M V A L 1 6 Q / P U T D
0020700 1 3 Q G E T D ) \r ( 7 1 Q
0020720 A D D S P E L L F L G 6 2 Q
0020740 D W I M F L G 5 1 Q N E W F
0020760 A U L T 1 4 6 Q F A U L T 1
0021000 3 6 Q D W I M O D E L S T
0021020 2 7 Q A D D S P E L L F L G
0021040 2 1 Q D W I M F L G 1 0 Q
0021060 O L D F A U L T 1 5 F A U L
0021100 T 1 ) \r ( 1 4 2 Q " " 1 3
0021120 6 Q " n o t o n D W I M O
0021140 D E L S T . " ) \r R E T D W I M
0021160 2 D 1 \r ( I 3 M I 2
0021200 N I 1 $ T A I L I 0
0021220 X ) \0 026 \0 \0 \0 004 B 244 l 003 b 004 277
0021240 C 243 k b 006 277 @ A B C \f \0 \0 020 \0 (
0021260 2 3 Q R E T D W I M 3 ) \r N I
0021300 L \r ( ) \r R E T D W I M 3 D 1
0021320 \r ( I 3 M 1 I 2 N 1
0021340 I 1 $ T A I L I 0 X )
0021360 \0 M \0 \0 \0 004 @ 003 241 @ 020 j C 361 223
0021400 g \0 \0 020 @ 001 h B C k 331 \f \0 \0 A 262
0021420 033 @ d A 360 232 002 h B k 331 C \f \0 \0 260
0021440 " 002 A B C \f \0 \0 260 031 B j 361 232 @ 002
0021460 A B k 331 C \f \0 \0 207 @ 002 264 006 o \0 \0
0021500 \0 032 020 \0 ( 1 0 0 Q R E T D W I
0021520 M 3 6 0 Q R E T D W I M 3
0021540 4 7 Q R E T D W I M 3 2 6 Q
0021560 R E T D W I M 3 ) \r ( 1 3 Q
0021600 & ) \r ( 1 1 1 Q ( - - ) ) \r
0021620 W T F I X L O A D E F D 1 \r (
0021640 P 2 N O L I N K M E S S P
0021660 1 F A U L T E M 3 P 0
0021700 F A U L T E M 2 I 0 F A U
0021720 L T E M 1 F 3 F A U L T F
0021740 N F 4 D W I M I F Y F L G
0021760 F 5 D W I M I F Y I N G )
0022000 \0 233 003 003 \0 001 021 001 h c 006 T 226 U
0022020 265 003 202 261 \0 215 g \0 \0 @ d 233 3 \b 221 @
0022040 206 @ 001 @ 002 b \0 277 X g \0 \0 ` \0 \0 \f
0022060 \0 \0 i \n \0 \0 X 241 h 020 @ 232 @ 3 \b 246
0022100 @ d 001 003 263 035 277 ` \0 \0 g \0 \0 o \0 \0
0022120 \0 @ h 032 032 ` \0 \0 \f \0 \0 g \0 \0 360 260
0022140 # 001 @ 002 b \0 277 \t \0 \0 Y 005 \a 262 024 o
0022160 \0 \0 \0 I o \0 \0 \0 h g \0 \0 \r 005 \0 \0
0022200 200 I 264 036 i 021 001 002 @ 223 @ 3 \b 227 H g
0022220 \0 \0 \n \0 \0 207 @ H g \0 \0 \v \0 \0 277 i
0022240 020 \0 ( 2 2 6 Q L O A D F N S
0022260 2 1 5 Q L O A D 1 7 0 Q F
0022300 I X S P E L L 1 1 4 2 Q E V
0022320 A L 1 2 3 Q A S K U S E R
0022340 5 6 Q F I N D F I L E 5 2 Q
0022360 P A C K F I L E N A M E ) \r (
0022400 2 2 3 Q S Y S L O A D 2 1 2
0022420 Q S Y S L O A D 1 6 4 Q M
0022440 U S T A P P R O V E 1 2 6 Q
0022460 Y 1 2 0 Q D W I M K E Y L S
0022500 T 1 0 5 Q Y 1 0 2 Q D W
0022520 I M W A I T 4 7 Q C O M P I
0022540 L E . E X T 4 4 Q E X T E N
0022560 S I O N 2 1 Q B O D Y ) \r (
0022600 1 6 0 Q " " 1 5 3 Q " "
0022620 1 1 1 Q " S h a l l I l
0022640 o a d " ) \r C L I S P T R A N
0022660 D 1 \r ( I 1 T R A N I
0022700 0 X ) \0 2 \0 \0 \0 002 ` \0 \0 263 %
0022720 ` \0 \0 265 024 A 264 % @ ` \0 \0 A @ 001 @
0022740 002 032 032 \v \0 \0 020 \t \0 \0 027 \0 \0 277 h 027
0022760 \0 \0 277 @ A ` \0 \0 \v \0 \0 020 \0 ( 5 7
0023000 Q / P U T H A S H 3 6 Q H
0023020 A S H A R R A Y 3 2 Q / R P
0023040 L N O D E ) \r ( 5 4 Q C L I S
0023060 P A R R A Y 4 6 Q # C L I S
0023100 P A R R A Y 4 1 Q C L I S P
0023120 A R R A Y 2 0 Q C L I S P T
0023140 R A N F L G 7 # C L I S P A
0023160 R R A Y 2 C L I S P A R R A
0023200 Y ) \r ( ) \r I . S . O P R A 0 0
0023220 0 1 D 1 \r ( I 1 E X P I
0023240 0 T R A N F 0 U C F
0023260 1 L C ) \0 027 \0 002 \0 002 P A \n
0023300 \0 \0 246 Q A \n \0 \0 264 \n A h ` \0 \0 \v
0023320 \0 \0 020 \0 ( 2 4 Q / P U T H A S
0023340 H 1 2 Q M E M B 4 M E M
0023360 B ) \r ( 2 1 Q C L I S P A R R
0023400 A Y ) \r ( ) \r I . S . O P R D
0023420 1 \r ( P 4 N E W F L G P
0023440 3 O L D P R O P P 2 N E
0023460 W P R O P P 1 L C P 0
0023500 U C I 3 E V A L F L G
0023520 I 2 O T H E R S I 1 F
0023540 O R M I 0 N A M E ) 001 6
0023560 005 \0 \0 004 @ \t \0 \0 021 A 004 @ d H 360 222
0023600 \t \0 \0 Y g \0 \0 033 001 g \0 \0 360 h 360 \
0023620 A 265 8 B 265 % H g \0 \0 g \0 \0 I 032 Z
0023640 \v \0 \0 277 I g \0 \0 J \v \0 \0 277 A g \0
0023660 \0 360 262 i g \0 \0 260 { 003 263 G C 263 A o
0023700 \0 \0 \0 B \n \0 \0 260 z 3 \b 262 310 A g \0
0023720 \0 360 263 301 H g \0 \0 g \0 \0 I A h 032 032
0023740 032 Z \v \0 \0 277 I g \0 \0 033 273 I g \0 \0
0023760 J \v \0 \0 277 I g \0 \0 \n \0 \0 260 E B 262
0024000 227 B 001 g \0 \0 033 001 g \0 \0 360 263 212 C 263
0024020 207 o \0 \0 \0 B \n \0 \0 260 ( C 262 023 A 264
0024040 \a g \0 \0 A 032 B 264 \n g \0 \0 B 032 201 A
0024060 B 032 272 I g \0 \0 033 273 I g \0 \0 J \v \0
0024100 \0 277 J K 364 221 @ 020 L 263 7 H g \0 \0 360
0024120 231 g \0 \0 g \0 \0 \n \0 \0 277 ` \0 \0 i 360
0024140 256 g \0 \0 @ o \0 \0 \0 032 032 i \n \0 \0 277
0024160 ` \0 \0 262 ! ` \0 \0 g \0 \0 \n \0 \0 260 025
0024200 ` \0 \0 H \n \0 \0 277 ` \0 \0 H I h 032 032
0024220 \n \0 \0 277 ` \0 \0 236 @ H 360 221 H 200 I g
0024240 \0 \0 L \v \0 \0 277 @ 020 \0 ( 4 6 1 Q
0024260 M A R K A S C H A N G E D 4 3
0024300 6 Q / N C O N C 4 2 2 Q /
0024320 N C O N C 1 4 1 1 Q M A P H
0024340 A S H 3 7 2 Q L I S P X P R
0024360 I N T 3 4 5 Q / R E M P R O
0024400 P 3 1 4 Q / P U T 2 4 4 Q
0024420 E R R O R 2 0 7 Q / R E M
0024440 P R O P 1 7 7 Q / P U T 1
0024460 6 0 Q / P U T 1 2 2 Q E R
0024500 R O R 6 7 Q / P U T 5 6 Q
0024520 / P U T 1 6 Q L - C A S E
0024540 3 U - C A S E ) \r ( 4 5 5 Q
0024560 I . S . O P R S 4 4 2 Q F
0024600 I L E P K G F L G 4 2 6 Q I
0024620 . S . O P R L S T 4 1 6 Q C
0024640 L I S P F O R W O R D S P L S T
0024660 4 0 6 Q I . S . O P R A 0 0
0024700 0 1 4 0 3 Q C L I S P A R R
0024720 A Y 3 7 6 Q C L I S P A R R
0024740 A Y 3 5 7 Q i . s . o p r
0024760 3 5 1 Q D F N F L G 3 4 2 Q
0025000 I . S . O P R 3 3 7 Q f c
0025020 o l l e c t 3 3 2 Q C O L L
0025040 E C T 3 1 0 Q I . S . O P R
0025060 3 0 2 Q I . S . O P R 2 6
0025100 7 Q = 2 5 7 Q = 2 2 6 Q
0025120 F O R W O R D 2 2 1 Q C L
0025140 I S P W O R D 2 0 4 Q I . S
0025160 . O P R 1 7 3 Q C L I S P W
0025200 O R D 1 6 5 Q C L I S P W O
0025220 R D 1 4 6 Q F O R W O R D
0025240 1 4 3 Q C L I S P W O R D 1
0025260 3 4 Q M O D I F I E R 1 0 2
0025300 Q M O D I F I E R 7 4 Q M
0025320 O D I F I E R 6 3 Q C L I S
0025340 P W O R D 5 0 Q F O R W O R
0025360 D 4 5 Q C L I S P W O R D
0025400 2 7 Q F O R W O R D 2 2 Q
0025420 C L I S P W O R D ) \r ( 3 6 4
0025440 Q ( r e d e f i n e d ) 2 4
0025460 0 Q " O T H E R S m u s t
0025500 b e g i n w i t h a n o p
0025520 e r a t o r " 1 1 6 Q " O T
0025540 H E R S m u s t b e a l
0025560 i s t o f o p e r a t o r s
0025600 a n d o p e r a n d s " ) \r
0025620 S P L I T 8 9 D 1 \r ( P 2
0025640 Z P 1 Y P 0 X I
0025660 1 P O S I 0 N F 3
0025700 L F 4 S P L I T 8 9 F L G
0025720 ) \0 T 003 002 \0 002 021 0 002 S 001 ` \0 \0
0025740 \n \0 \0 X A 225 d A \n \0 \0 202 @ H 034 Y
0025760 d 265 023 @ l \b 360 223 g \0 \0 202 g \0 \0 @
0026000 h 032 032 020 002 227 I 002 \t \0 \0 J 032 272 @ J
0026020 032 Z I H 360 253 H I \n \0 \0 \t \0 \0 J 032
0026040 Z 200 J c \b g \0 \0 J 032 020 \0 ( 1 0 5
0026060 Q P A C K 1 0 2 Q L D I F
0026100 F 6 2 Q P A C K 2 2 Q N
0026120 L E F T 1 2 Q D U N P A C K
0026140 ) \r ( 1 1 7 Q : 4 6 Q A
0026160 4 2 Q B 7 S K O R L S T 3
0026200 ) \r ( ) \r D W I M L O A D F N S
0026220 ? D 1 \r ( P 1 T E M P
0026240 0 F N F 2 F A U L T X
0026260 F 3 F A U L T A P P L Y F L
0026300 G F 4 D W I M I F Y F L G
0026320 F 5 S I D E S F 6 D
0026340 W I M I F Y I N G F 7 T Y
0026360 P E - I N ? F 1 0 Q L I S
0026400 P X H I S T ) \0 S 002 \a \0 \0 S 221
0026420 R 201 R 001 021 021 001 ` \0 \0 264 2 T 222 V 263
0026440 , H 004 l 004 360 264 & H \t \0 \0 263 037 H \t
0026460 \0 \0 Y 264 031 H i d \v \0 \0 I \n \0 \0 Y
0026500 001 H 360 250 I 001 i \n \0 \0 277 h 020 W 016 255
0026520 g \0 \0 W 020 \n \0 \0 002 001 002 c \n 277 R 020
0026540 \0 ( 1 1 1 Q M E M B 7 3 Q
0026560 L I S P X P R I N T 6 0 Q L
0026600 O A D F N S 5 4 Q L I S P X
0026620 P R I N T 4 3 Q E D I T L O
0026640 A D F N S ? 3 5 Q \ D E F I
0026660 N E D P ) \r ( 1 0 4 Q S I D E
0026700 1 3 Q D W I M L O A D F N S
0026720 F L G ) \r ( ) \r C L I S P E R R
0026740 O R D 1 \r ( P 2 I N P
0026760 1 A T P 0 T E M I 1
0027000 F L G I 0 T Y P E F
0027020 3 T A I L F 4 P A R E N
0027040 T F 5 T Y P E - I N ? F
0027060 6 F A U L T F N F 7 F
0027100 A U L T X ) 001 d 003 005 \0 002 ` \0 \0
0027120 h 360 264 003 202 261 \0 371 @ g \0 \0 360 h 360 264
0027140 003 202 261 \0 354 021 0 002 U 252 V \t \0 \0 277 k
0027160 i \n \0 \0 277 @ d 226 3 \b 221 @ 201 @ 001 X
0027200 d k 360 227 277 o \0 \0 \0 261 \0 206 l 002 360 225
0027220 o \0 \0 \0 260 { H g \0 \0 360 263 026 H g \0
0027240 \0 360 255 H g \0 \0 360 247 H d g \0 \0 360 234
0027260 277 o \0 \0 \0 i \n \0 \0 277 H 260 T l 004 360
0027300 225 o \0 \0 \0 260 J H d g \0 \0 360 226 277 o
0027320 \0 \0 \0 260 < g \0 \0 360 225 o \0 \0 \0 260 1
0027340 H d g \0 \0 360 226 277 o \0 \0 \0 260 # g \0
0027360 \0 360 225 o \0 \0 \0 260 030 H d 003 001 g \0 \0
0027400 360 234 277 o \0 \0 \0 i \n \0 \0 277 H 002 001 i
0027420 \n \0 \0 277 @ 003 265 9 T S 360 263 026 o \0 \0
0027440 \0 i \n \0 \0 277 S 001 \t \0 \0 i d \v \0 \0
0027460 277 o \0 \0 \0 i \n \0 \0 277 T 265 004 W 016 S
0027500 \n \0 \0 i d \v \0 \0 277 i \t \0 \0 h 020 002
0027520 001 271 @ 002 002 001 272 I J 360 242 J 263 026 o \0
0027540 \0 \0 i \n \0 \0 277 I \t \0 \0 i d \v \0 \0
0027560 h 020 i \t \0 \0 277 o \0 \0 \0 i \n \0 \0 277
0027600 I d 002 002 \n \0 \0 i o \0 \0 \0 g \0 \0 h
0027620 d i \r \a \0 \0 277 i \t \0 \0 277 o \0 \0 \0
0027640 i \n \0 \0 277 J \t \0 \0 i d \v \0 \0 h 020
0027660 \0 ( 5 4 0 Q L I S P X P R I N
0027700 T 5 3 3 Q R E T D W I M 2
0027720 5 2 6 Q L I S P X P R I N 1
0027740 5 1 5 Q L I S P X T E R P R I
0027760 5 1 0 Q M A P R I N T 4 7
0030000 1 Q R E T D W I M 2 4 6 1 Q
0030020 L I S P X P R I N 1 4 5 0 Q
0030040 L I S P X T E R P R I 4 4 2
0030060 Q L I S P X P R I N T 4 3 5
0030100 Q R E T D W I M 2 4 3 0 Q
0030120 L I S P X P R I N 1 3 7 7 Q
0030140 L I S P X T E R P R I 3 7 2 Q
0030160 L I S P X P R I N 2 3 6 5 Q
0030200 R E T D W I M 2 3 5 3 Q L
0030220 I S P X P R I N 1 3 4 2 Q L
0030240 I S P X P R I N 2 3 3 5 Q R
0030260 E T D W I M 2 3 2 7 Q L I S
0030300 P X P R I N 1 3 0 5 Q L I S
0030320 P X P R I N 1 2 7 5 Q L I S
0030340 P X P R I N 1 1 5 3 Q L I S
0030360 P X P R I N 1 4 6 Q L I S P
0030400 X S P A C E S 4 0 Q F I X P
0030420 R I N T I N ) \r ( 5 0 1 Q % )
0030440 2 6 2 Q B R A C K E T 2 4
0030460 3 Q C A R A T O M 2 2 7 Q
0030500 P H R A S E 2 1 2 Q F I E L
0030520 D N A M E 1 7 6 Q _ 1 4 0
0030540 Q = > 1 3 1 Q - > 1 2 3
0030560 Q : : 1 1 4 Q : 1 6 Q
0030600 A L R E A D Y P R I N T E D 2
0030620 D W I M E S S G A G ) \r ( 5
0030640 2 2 Q " i n " 4 7 6
0030660 Q " . . . " 4 5 5 Q " a
0030700 t " 4 2 4 Q " i n
0030720 " 3 4 7 Q " i n
0030740 " 3 2 3 Q " a t "
0030760 2 7 1 Q " m i s s i n g "
0031000 2 5 1 Q " c a r o r c d
0031020 r o f n o n - l i s t t a
0031040 k e n " 2 3 6 Q " c a n ' t
0031060 p a r s e t h i s p h r a
0031100 s e " 2 2 0 Q " u n d e f i
0031120 n e d f i e l d n a m e "
0031140 2 0 5 Q " i n c o r r e c t
0031160 u s e o f _ " 1 6 7 Q "
0031200 b a d i f s t a t e m e n t
0031220 " 1 4 7 Q " i m p r o p e r
0031240 u s e o f " 1 0 6 Q "
0031260 m i s s i n g o p e r a t o r
0031300 " 7 3 Q " m i s s i n g o
0031320 p e r a n d " ) \r C L I S P %
0031340 D 1 \r ( P 0 C L I S P T E
0031360 M I 0 C L I S P X ) \0 M
0031400 001 \0 003 001 021 020 \0 ` \0 \0 244 ` \0 \0 262 9
0031420 g \0 \0 m 377 ` \0 \0 \n \0 \0 X \n \0 \0 H
0031440 \t \0 \0 277 X 001 ` \0 \0 360 262 035 H 002 @ 360
0031460 262 027 H d 002 001 \n \0 \0 277 H d 002 002 001 H
0031500 002 002 002 \v \0 \0 277 @ 001 g \0 \0 \n \0 \0 020
0031520 \0 ( 1 1 2 Q E V A L 1 0 1 Q
0031540 / R P L N O D E 6 4 Q C L
0031560 I S P T R A N 3 6 Q R E L S
0031600 T K 3 2 Q B L I P V A L 2
0031620 6 Q S T K N T H ) \r ( 1 0 7 Q
0031640 I N T E R N A L 4 4 Q C L
0031660 I S P T R A N F L G 2 3 Q C
0031700 L I S P T R A N F L G 1 6 Q
0031720 E V A L 1 1 Q # C L I S P A
0031740 R R A Y 5 C L I S P A R R A
0031760 Y ) \r ( ) \r N E W Q U O T E D
0032000 1 \r ( P 0 T E M I 0 X
0032020 ) \0 B 001 \0 003 001 @ 002 242 @ 001 020 021 020
0032040 \0 m 377 \t \0 \0 \t \0 \0 X g \0 \0 360 263 035
0032060 H \t \0 \0 g \0 \0 \t \0 \0 360 236 H g \0 \0
0032100 g \0 \0 033 \n \0 \0 277 @ 001 020 o \0 \0 \0 g
0032120 \0 \0 @ 032 \n \0 \0 h 020 \0 ( 7 6 Q E
0032140 R R O R 5 6 Q / P U T D 4
0032160 1 Q G E T D 3 3 Q G E T D
0032200 2 0 Q S T K N A M E 1 5 Q
0032220 S T K N T H ) \r ( 7 1 Q Q U
0032240 O T E 5 2 Q S U B R 4 7 Q
0032260 Q U O T E 3 6 Q N E W Q U
0032300 O T E 2 4 Q Q U O T E ) \r (
0032320 6 6 Q " p a r e n t h e s i
0032340 s e r r o r i n " ) \r F I X
0032360 A T O M 2 D 1 \r ( L ( 0 X
0032400 ) ) \0 \b 001 \0 002 \0 e 021 001 \0 H a 020
0032420 \0 N I L \r N I L \r ( ) \r U S E D
0032440 F R E E D 1 \r ( I 0 A F
0032460 0 F R E E V A R S ) \0 \t \0
0032500 001 003 001 @ P \n \0 \0 c \0 020 \0 ( 4 \
0032520 A P P E N D 2 ) \r N I L \r ( ) \r
0032540 ( P R E T T Y C O M P R I N T
0032560 D W I M C O M S ) \r ( R P A Q Q
0032600 D W I M C O M S ( ( F N S
0032620 D W I M N E W Q U O T E N E
0032640 W F A U L T 1 C H E C K T R A
0032660 N ) ( V A R S D W I M O D E
0032700 L S T ( D W I M W A I T 1 0
0032720 ) ( L C A S E F L G T ) )
0032740 \r ( D E C L A R E : D O N T E
0032760 V A L @ L O A D D O C O P Y
0033000 ( P ( S A V E D E F ( Q U O
0033020 T E Q U O T E ) ) ( M O V D
0033040 ( Q U O T E N E W Q U O T E
0033060 ) ( Q U O T E Q U O T E ) )
0033100 ) ) ( F N S \r R E T D W I M
0033120 2 R E T D W I M 3 F I X A T
0033140 O M 2 S P L I T 8 9 W T F I
0033160 X L O A D E F C L I S P % )
0033200 ( C O M S ( F N S V A R S
0033220 B O U N D I N E D I T C H A I N
0033240 \r V A R S B O U N D I N F O R
0033260 M ) ( B L O C K S ( V A R S
0033300 B O U N D I N E D I T C H A I N
0033320 V A R S B O U N D I N E D I T
0033340 C H A I N V A R S B O U N D I
0033360 N F O R M C H E C K T R A N )
0033400 ) ) ( * * \r D W I M L O A
0033420 D F N S ? ) ( F N S D W I M
0033440 L O A D F N S ? ) ( A P P E N
0033460 D V A R S ( D W I M U S E R F
0033500 O R M S ( D W I M L O A D F N
0033520 S ? ) ) ) ( V A R S ( D W I
0033540 M L O A D F N S F L G T ) ) \r
0033560 ( F N S C L I S P L O O K U
0033600 P 0 C L I S P L O O K U P 1
0033620 C L I S P L O O K U P 2 C L I
0033640 S P E R R O R C L I S P D E C
0033660 C L I S P D E C 0 C L I S P
0033700 D E C 1 G E T L O C A L D E C
0033720 ) ( F N S \r C O M P I L E U
0033740 S E R F N C O M P I L E U S E
0033760 R F N 1 U S E D F R E E C L
0034000 I S P T R A N ) ( F N S C L
0034020 I S P F O R E R R C L I S P F
0034040 O R E R R 1 I . S . O P R W
0034060 A R N U S E R ) ( \r D E C L A
0034100 R E : E V A L @ C O M P I L E
0034120 D O N T C O P Y ( A D D V A
0034140 R S ( N L A M L B R E A K 1
0034160 ) ) ) ( B L O C K S ( N E W
0034200 F A U L T 1 B L O C K N E W F
0034220 A U L T 1 C H E C K T R A N
0034240 ( \r E N T R I E S N E W F A U
0034260 L T 1 ) ( G L O B A L V A R S
0034300 # C L I S P A R R A Y ) ( N
0034320 O L I N K F N S W T F I X ) )
0034340 ( C L I S P L O O K U P 0 C
0034360 L I S P L O O K U P 0 C L I S
0034400 P L O O K U P 1 \r C L I S P L
0034420 O O K U P 2 ( G L O B A L V A
0034440 R S D E C L W O R D S C L I
0034460 S P R E C O R D T Y P E S C L
0034500 I S P T R A N F L G ) ( L O C
0034520 A L F R E E V A R S W O R D
0034540 C L A S S C L A S S D E F \r
0034560 V A R 1 V A R 2 ) ) ( C L I
0034600 S P F O R E R R B L O C K W A
0034620 R N U S E R C L I S P F O R E
0034640 R R C L I S P F O R E R R 1
0034660 ( G L O B A L V A R S D W I M
0034700 E S S G A G ) ( E N T R I E S
0034720 \r C L I S P F O R E R R W A
0034740 R N U S E R ) ) ( C L I S P D
0034760 E C B L O C K C L I S P D E C
0035000 C L I S P D E C 0 C L I S P
0035020 D E C 1 G E T L O C A L D E C
0035040 ( G L O B A L V A R S \r C L
0035060 I S P R E C O R D T Y P E S D
0035100 E C L W O R D S C L I S P A R
0035120 I T H O P L S T C L I S P A R
0035140 I T H C L A S S L S T C O M M
0035160 E N T F L G S K O R L S T 1 )
0035200 ( E N T R I E S C L I S P D
0035220 E C \r C L I S P D E C 0 G E
0035240 T L O C A L D E C ) ( L O C A
0035260 L F R E E V A R S F A U L T F
0035300 N ) ) ( C O M P I L E U S E R
0035320 F N B L O C K C O M P I L E U
0035340 S E R F N C O M P I L E U S E
0035360 R F N 1 \r C H E C K T R A N
0035400 ( E N T R I E S C O M P I L E
0035420 U S E R F N ) ( S P E C V A R
0035440 S E X P ) ( G L O B A L V A
0035460 R S D W I M E S S G A G C L
0035500 I S P T R A N F L G C L I S P
0035520 A R R A Y \r D W I M F L G N
0035540 O F I X V A R S L S T 0 N O F
0035560 I X F N S L S T N O F I X F N
0035600 S L S T 0 N O F I X V A R S L
0035620 S T F I L E P K G F L G N O
0035640 S P E L L F L G # C L I S P A
0035660 R R A Y ) ) ( N I L \r D W I
0035700 M ( G L O B A L V A R S D W
0035720 I M O D E L S T D W I M F L G
0035740 A D D S P E L L F L G ) R E
0035760 T D W I M 2 R E T D W I M 3
0036000 W T F I X L O A D E F ( G L O
0036020 B A L V A R S D W I M K E Y L
0036040 S T \r D W I M W A I T L C A
0036060 S E F L G N O L I N K M E S S
0036100 ) ( L I N K F N S . T )
0036120 ( N O L I N K F N S W T F I X
0036140 ) C L I S P T R A N ( G L O
0036160 B A L V A R S R E C O R D S T
0036200 A T S \r C L I S P T R A N F L
0036220 G C L I S P A R R A Y # C L
0036240 I S P A R R A Y ) I . S . O P
0036260 R ( G L O B A L V A R S I .
0036300 S . O P R S L S T C L I S P F
0036320 O R W O R D S P L S T I . S .
0036340 O P R L S T \r F I L E P K G F
0036360 L G D F N F L G ) ) ( N I L
0036400 S P L I T 8 9 ( G L O B A L
0036420 V A R S S K O R L S T 3 ) )
0036440 ( N I L D W I M L O A D F N S
0036460 ? ( G L O B A L V A R S D W
0036500 I M L O A D F N S F L G ) ) \r
0036520 ( N I L C L I S P E R R O R
0036540 ( G L O B A L V A R S D W I M
0036560 E S S G A G ) ) ( N I L C L
0036600 I S P % ( G L O B A L V A R
0036620 S C L I S P T R A N F L G C
0036640 L I S P A R R A Y # C L I S P
0036660 A R R A Y \r ) ) ) ( D E C L A
0036700 R E : D O N T E V A L @ L O A
0036720 D D O E V A L @ C O M P I L E
0036740 D O N T C O P Y C O M P I L
0036760 E R V A R S ( A D D V A R S
0037000 ( N L A M A U S E D F R E E
0037020 C L I S P % \r N E W Q U O T
0037040 E ) ( N L A M L ) ( L A M A
0037060 F I X A T O M 2 ) ) ) ) ) \r (
0037100 R P A Q Q D W I M O D E L S T
0037120 ( ( C C A U T I O U S ( A
0037140 P P R O V E F L G . T ) )
0037160 ( T T R U S T I N G ( A P P
0037200 R O V E F L G ) ) ) ) \r ( R P A
0037220 Q Q D W I M W A I T 1 0 ) \r
0037240 ( R P A Q Q L C A S E F L G
0037260 T ) \r ( S A V E D E F ( Q U O
0037300 T E Q U O T E ) ) \r ( M O V D
0037320 ( Q U O T E N E W Q U O T E
0037340 ) ( Q U O T E Q U O T E ) )
0037360 \r ( A P P E N D T O V A R D W
0037400 I M U S E R F O R M S ( D W I
0037420 M L O A D F N S ? ) ) \r ( R P A
0037440 Q Q D W I M L O A D F N S F L
0037460 G T ) \r ( P U T P R O P S D
0037500 W I M C O P Y R I G H T ( "
0037520 X e r o x C o r p o r a t i o
0037540 n " 1 9 8 2 1 9 8 3 1 9 8
0037560 4 1 9 8 5 ) ) \r N I L \r
0037575