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