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