$ od -c -N 50000 [eris]<Lisp>Harmony>SOURCES>CLISPIFY.DCOM!1
0000000 ( F I L E C R E A T E D " 1 6
0000020 - A u g - 8 4 1 4 : 2 1 : 5 4
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 > C L I S P I
0000120 F Y . ; 4 ) \r " 1 5 - A u g -
0000140 8 4 1 9 : 5 0 : 4 8 " b r e
0000160 c o m p i l e d c h a n g e s
0000200 : C L I S P I F Y F N S C L
0000220 I S P I F Y C L I S P I F Y 2
0000240 A C L I S P I F Y 2 B C L I
0000260 S P 3 A \r C L I S P A C K U P
0000300 C L I S P I F Y M A T C H U P
0000320 C L I S P I F Y C R O P S i
0000340 n " I N T E R L I S P - D 1
0000360 5 - A u g - 8 4 . . . " d a
0000400 t e d " 1 5 - A u g - 8 4 2
0000420 0 : 0 6 : 0 6 " ) \r ( F I L E C
0000440 R E A T E D " 1 6 - A u g - 8
0000460 4 1 4 : 2 0 : 2 2 " { E R I
0000500 S } < L I S P C O R E > S O U R
0000520 C E S > C L I S P I F Y . ; 4
0000540 3 0 7 1 6 4 Q c h a n g e s
0000560 t o : ( F N S \r C L I S P I
0000600 F Y F N S C L I S P I F Y C
0000620 L I S P I F Y 2 A C L I S P I
0000640 F Y 2 B C L I S P 3 A C L I
0000660 S P A C K U P C L I S P I F Y
0000700 M A T C H U P C L I S P I F Y
0000720 C R O P S ) p r e v i o u s
0000740 \r d a t e : " 1 5 - A u g - 8
0000760 4 0 0 : 5 1 : 3 6 " { E R I
0001000 S } < L I S P C O R E > S O U R
0001020 C E S > C L I S P I F Y . ; 3 )
0001040 \r C L I S P I F Y F N S A 0 0 0
0001060 1 D 1 \r ( N A M E E R R O R
0001100 S E T L ( 2 E R R O R S E
0001120 T . W 1 E R R O R S E T . V
0001140 0 E R R O R S E T . U ) F
0001160 0 X ) \0 \b \0 001 \0 003 P \t \0 \0
0001200 h 032 020 \0 ( 3 C L I S P I F Y )
0001220 \r N I L \r ( ) \r C L I S P I F Y
0001240 F N S D 1 \r ( L ( 0 F N S
0001260 ) P 5 X ) \0 242 006 \0 003 001 j
0001300 \t \0 \0 021 021 001 021 0 004 @ d 002 222 261 \0 206
0001320 d 001 003 236 277 g \0 \0 @ 001 h g \0 \0 \f \0
0001340 \0 260 r 001 g \0 \0 \n \0 \0 003 265 h ` \0 \0
0001360 236 @ 001 l F ` \0 \0 h @ \r 005 \0 \0 265 004
0001400 @ 001 g \0 \0 033 226 @ 001 \t \0 \0 265 G g \0
0001420 \0 @ 001 g \0 \0 \v \0 \0 260 : d 001 021 001 005
0001440 j \t \0 \0 Y H 331 n u 0 361 262 024 I 270 M
0001460 i d \v \0 \0 277 o \0 \0 \0 i \n \0 \0 277 o
0001500 \0 \0 \0 i \n \0 \0 022 Z 003 226 K 265 \f J \
0001520 [ 277 002 003 265 307 L 020 \t \0 \0 [ J 031 260 363
0001540 \0 ( 2 3 3 Q L A S T 2 0 7 Q
0001560 C L I S P I F Y F N S A 0 0 0
0001600 1 1 7 6 Q P R I N 1 1 6 5
0001620 Q P R I N 2 1 4 4 Q C L O
0001640 C K 1 3 1 Q S T K E V A L
0001660 1 1 4 Q F I L E F N S L S T
0001700 7 6 Q M I S S P E L L E D ?
0001720 5 2 Q E V A L V 4 1 Q S T
0001740 K E V A L 3 C L O C K ) \r (
0001760 1 2 6 Q I N T E R N A L 1 2
0002000 1 Q C L I S P I F Y F N S 1
0002020 0 5 Q F I L E 7 0 Q F I L
0002040 E L S T 6 0 Q D W I M F L G
0002060 4 7 Q C L I S P I F Y F N S
0002100 3 6 Q I N T E R N A L 3 0
0002120 Q C L I S P I F Y F N S ) \r (
0002140 2 0 3 Q ( D U M M Y . F O R
0002160 . E R R O R S E T ) 1 7 2 Q
0002200 " , " ) \r C L I S P I F Y D
0002220 1 \r ( L ( 1 E D I T C H A I
0002240 N 0 X ) P 1 5 Q C L I
0002260 S P I S T A T E P 1 4 Q L
0002300 S T P 1 3 Q T A I L P
0002320 1 2 Q S E G P 1 1 Q F O
0002340 R M P 1 0 Q S U B P A R E
0002360 N T P 7 P A R E N T P
0002400 6 V A R S P 5 E X P R
0002420 P 4 D E C L S T P 3 C
0002440 L T Y P 0 P 2 O P R 0 P
0002460 1 C L I S P I F Y F N F
0002500 1 6 Q L A S T A I L F 1 7
0002520 Q A T M ) \0 306 016 002 \0 002 021 340 \r
0002540 @ 003 242 A 262 . A 265 005 @ 260 3 001 _ 016 277
0002560 W 034 X A 001 \n \0 \0 223 H _ 026 277 W 036 Y
0002600 003 265 \r A \t \0 \0 276 A \t \0 \0 001 216 001 271
0002620 260 363 @ \t \0 \0 X 001 271 H 002 _ 022 275 I 243
0002640 g \0 \0 271 M I \n \0 \0 \ O 022 263 Q A 244
0002660 @ \t \0 \0 020 @ O 016 \n \0 \0 236 O 016 _ 022
0002700 @ \t \0 \0 X d 001 H 002 032 020 A 001 001 g \0
0002720 \0 360 263 033 A 001 001 g \0 \0 360 262 035 @ d A
0002740 001 002 001 360 263 025 d O 016 034 002 234 277 @ 001 _
0002760 022 @ \t \0 \0 h 032 020 @ \t \0 \0 020 M \t \0
0003000 \0 X I 265 003 020 \t \0 \0 245 I i \n \0 \0 277
0003020 I H \n \0 \0 ` \0 \0 226 I g \0 \0 \n \0 \0
0003040 I 020 \0 ( 3 0 2 Q M A R K A S C
0003060 H A N G E D 2 6 7 Q / P U T
0003100 D 2 6 1 Q D W I M U N S A V
0003120 E D E F 2 5 3 Q \ D E F I N
0003140 E D P 2 4 3 Q \ C L I S P I
0003160 F Y B L O C K / C L I S P I F Y
0003200 2 2 3 6 Q C L I S P I F Y 2
0003220 A 2 2 7 Q \ C L I S P I F Y
0003240 B L O C K / C L I S P I F Y 1
0003260 1 4 6 Q \ C L I S P I F Y B L
0003300 O C K / C L I S P I F Y 1 1 3
0003320 5 Q T A I L P 1 2 6 Q \ C
0003340 L I S P I F Y B L O C K / C L I
0003360 S P I F Y 2 1 1 3 Q G E T L
0003400 O C A L D E C 7 0 Q E X P R
0003420 C H E C K 5 6 Q L A S T 5
0003440 1 Q V A R S B O U N D I N E D
0003460 I T C H A I N 3 2 Q T A I L
0003500 P ) \r ( 2 7 7 Q F N S 2 7 2
0003520 Q F I L E P K G F L G 1 7 4
0003540 Q S E L E C T Q 1 6 3 Q C
0003560 O N D 1 0 5 Q T Y P E - I N
0003600 ) \r ( ) \r \ C L I S P I F Y B L
0003620 O C K / C L I S P I F Y 1 D 1
0003640 \r ( L ( 3 B R O A D S C O P
0003660 E ) P 4 L S T P 2 S
0003700 E G P 1 P A R E N T I
0003720 5 S U B P A R E N T I 4
0003740 N O V A L F L G I 2 C L T
0003760 Y P 0 I 1 O P R 0 I 0
0004000 T A I L F 6 F O R M )
0004020 \0 303 006 001 \0 006 @ V 021 B 005 E 265 \a @ b
0004040 \n 277 212 @ 360 247 E k @ \v \0 \0 001 275 D g
0004060 \0 \0 360 226 @ \t \0 \0 b \b 277 @ 265 017 L 241
0004100 H 020 H 262 023 L H \n \0 \0 020 003 252 H 263 367
0004120 L \t \0 \0 @ 031 L 020 A 265 026 M 004 l 004 361
0004140 263 , M m 377 ) l ' 360 262 # @ 001 260 1 i
0004160 360 263 352 L 265 017 A g \0 \0 033 262 340 A h 032
0004200 274 260 332 A h 032 \n \0 \0 277 260 321 @ 001 D i
0004220 360 265 \n D 264 \a @ D 360 h 360 \n \0 \0 273 @
0004240 001 275 J 253 K @ 001 360 226 A 244 B i 360 262
0004260 @ H 360 251 L H @ \n \0 \0 \n \0 \0 274 J 222
0004300 L K 203 L K h 032 \n \0 \0 274 @ 002 270 @ 002
0004320 b \0 277 h 272 261 377 f \0 ( 2 6 3 Q \
0004340 N C O N C 2 2 4 6 Q \ N C O
0004360 N C 2 2 4 3 Q L D I F F 2
0004400 0 7 Q \ C L I S P I F Y B L O
0004420 C K / C L I S P I F Y 2 1 6 2
0004440 Q \ N C O N C 2 7 5 Q F L
0004460 A S T 6 3 Q \ N C O N C 2
0004500 4 1 Q L A S T 2 5 Q N L E
0004520 F T ) \r ( 1 4 3 Q U N A R Y O
0004540 P 3 3 Q N O T L A S T ) \r (
0004560 ) \r \ C L I S P I F Y B L O C K
0004600 / C L I S P I F Y 2 D 1 \r ( I
0004620 2 N E G F L G I 1 N O
0004640 V A L F L G I 0 F O R M
0004660 F 0 O P R 0 F 1 C L T
0004700 Y P 0 ) \0 6 \0 002 \0 003 @ d 262 2 d
0004720 004 l 004 360 262 $ 277 P 262 037 Q 262 034 @ d `
0004740 \0 \0 034 262 025 277 g \0 \0 \t \0 \0 265 003 207 g
0004760 \0 \0 i \v \0 \0 277 @ \t \0 \0 265 004 260 372 020
0005000 \0 ( 5 7 Q C L I S P I F Y 2 B
0005020 5 2 Q R E T E V A L 4 0 Q
0005040 S T K P O S ) \r ( 4 6 Q F O
0005060 R M 3 5 Q C L I S P I F Y 2
0005100 B 2 6 Q C L I S P C H A R S
0005120 ) \r ( ) \r C L I S P I F Y 2 A
0005140 D 1 \r ( L ( 1 F L G ) P
0005160 1 S E G I 0 F O R M )
0005200 \0 027 002 \0 \0 002 021 001 @ \t \0 \0 X I 227
0005220 A 223 d d 002 242 H 020 H h 032 020 \0 ( 6
0005240 \ C L I S P I F Y B L O C K / C
0005260 L I S P I F Y 2 ) \r N I L \r ( )
0005300 \r C L I S P I F Y 2 B D 1 \r (
0005320 P 1 7 Q F O R M P 1 3 Q
0005340 S U B P A R E N T P 1 2 Q
0005360 P A R E N T P 1 1 Q C L
0005400 T Y P 0 P 1 0 Q O P R 0
0005420 I 0 F O R M F 2 0 Q V
0005440 A R S F 2 1 Q N O V A L F
0005460 L G F 2 2 Q C L T Y P 0
0005500 F 2 3 Q N E G F L G F 2
0005520 4 Q O P R 0 F 2 5 Q T A
0005540 I L F 2 6 Q P A R E N T
0005560 F 2 7 Q S U B P A R E N T
0005600 F 3 0 Q L A M B D A S P L S
0005620 T ) \a U 020 \t \0 001 021 200 \a @ 003 265 8
0005640 W $ 003 227 @ g \0 \0 033 X 265 \v I 265 003 202
0005660 261 \a < @ 020 001 W $ 001 g \0 \0 033 001 360 262
0005700 355 ` \0 \0 231 H d 002 003 241 002 201 002 001 271 W
0005720 * c $ 277 260 330 001 003 224 @ \t \0 \0 020 @ 001
0005740 d g \0 \0 360 225 277 @ \t \0 \0 020 d g \0 \0
0005760 360 230 277 o \0 \0 \0 \t \0 \0 020 d g \0 \0 360
0006000 230 277 o \0 \0 \0 \t \0 \0 020 d g \0 \0 360 246
0006020 d g \0 \0 360 262 036 277 @ 001 @ 001 @ 002 001 @
0006040 002 002 001 \v \0 \0 360 242 261 002 235 m 377 h 032 \t
0006060 \0 \0 020 d g \0 \0 360 262 * 277 @ 002 002 001 X
0006100 d 005 001 245 d 005 002 241 005 003 242 261 002 z @ d
0006120 002 002 002 222 261 002 r 277 H \t \0 \0 h 032 \t \0
0006140 \0 020 d g \0 \0 360 246 d g \0 \0 360 262 6 `
0006160 \0 \0 242 261 002 Q @ 002 002 001 d 005 001 245 d 005
0006200 002 241 005 003 242 261 002 ? @ 001 @ 001 @ 002 001 \n
0006220 \0 \0 360 242 261 002 0 @ 002 002 001 k 331 h 032 \t
0006240 \0 \0 020 d g \0 \0 360 253 d g \0 \0 360 245 d
0006260 g \0 \0 360 231 277 @ g \0 \0 i \v \0 \0 020 d
0006300 g \0 \0 360 253 d g \0 \0 360 245 d g \0 \0 360
0006320 231 277 @ g \0 \0 i \v \0 \0 020 d g \0 \0 360
0006340 222 261 006 \n d g \0 \0 360 222 261 006 001 d g \0
0006360 \0 360 222 261 005 370 d g \0 \0 360 262 030 277 @ d
0006400 002 001 g \0 \0 360 242 261 005 345 277 g \0 \0 @ 002
0006420 002 032 020 d g \0 \0 360 262 ; 277 g \0 \0 g \0
0006440 \0 033 242 261 001 242 @ d 002 242 261 005 302 h 274 273
0006460 K 002 [ 252 L ` \0 \0 262 026 g \0 \0 260 024 L
0006500 K 001 K 002 L \v \0 \0 \n \0 \0 274 260 344 g \0
0006520 \0 030 020 d g \0 \0 360 246 d g \0 \0 360 262 ^
0006540 277 g \0 \0 g \0 \0 033 242 261 001 \ W " 242 261
0006560 001 V W , W . \n \0 \0 @ 001 d g \0 \0 360
0006600 236 277 @ \t \0 \0 ` \0 \0 262 305 g \0 \0 260 303
0006620 g \0 \0 360 262 $ @ 002 002 002 222 261 001 ) g \0
0006640 \0 @ 002 001 h 032 032 @ 002 002 032 \t \0 \0 ` \0
0006660 \0 262 235 g \0 \0 260 233 \b \0 \0 020 d g \0 \0
0006700 360 262 } 277 021 @ \v @ \t \0 \0 @ _ 024 d 002
0006720 _ 026 @ 002 001 i \n \0 \0 X @ 002 002 002 264 I
0006740 021 0 016 @ 002 260 ; d 001 021 001 017 O 036 d 003
0006760 262 025 001 O 036 002 h d d W " 265 005 g \0 \0
0007000 \r 005 \0 \0 032 022 _ 030 277 O 032 265 \t O 030 h
0007020 032 _ 034 202 O 030 & _ 032 277 ] 002 002 264 004 M
0007040 002 003 265 305 O 034 022 Y g \0 \0 H I @ \t \0
0007060 \0 001 i \n \0 \0 \n \0 \0 \n \0 \0 032 020 d g
0007100 \0 \0 360 262 026 277 @ 002 h d d g \0 \0 \r 005
0007120 \0 \0 X @ H \n \0 \0 020 d g \0 \0 360 262 /
0007140 277 @ 002 001 003 237 @ 002 001 001 g \0 \0 033 226 @
0007160 002 001 \t \0 \0 020 g \0 \0 @ 002 001 h h 032 032
0007200 032 W " W & h c & 277 \v \0 \0 020 d g \0
0007220 \0 360 227 277 @ 002 001 \t \0 \0 020 d g \0 \0 360
0007240 262 L 277 @ 002 001 W 032 c @ 002 002 002 262
0007260 025 @ 001 @ 002 001 g \0 \0 @ 002 002 032 h 032 032
0007300 032 b \0 277 277 @ 001 g \0 \0 033 X 242 261 002 +
0007320 @ d 001 g \0 \0 360 222 261 002 ! 277 o \0 \0 \0
0007340 o \0 \0 \0 H \v \0 \0 \t \0 \0 020 d g \0 \0
0007360 360 262 B 277 ` \0 \0 242 261 002 375 g \0 \0 g \0
0007400 \0 033 242 261 002 362 g \0 \0 @ 002 001 @ 002 002 001
0007420 X d 262 025 d 005 001 245 d 005 002 241 005 003 265 \t
0007440 g \0 \0 H h 032 032 h 032 032 032 W " W & \v
0007460 \0 \0 020 d g \0 \0 360 246 d g \0 \0 360 262 4
0007500 277 @ 002 002 002 Y 002 h 360 264 004 W ( 021 001 \b
0007520 @ 002 001 I 001 h 032 g \0 \0 \v \0 \0 X 023 I
0007540 002 Y 241 H 020 H I 001 I 002 \t \0 \0 032 \n \0
0007560 \0 020 d g \0 \0 360 246 d g \0 \0 360 262 ; 277
0007600 @ l 004 \n \0 \0 242 261 377 > @ 002 002 001 d g
0007620 \0 \0 360 245 d g \0 \0 360 222 277 i 201 277 h 242
0007640 261 377 % @ \t \0 \0 @ 002 002 002 001 @ 002 001 h
0007660 032 g \0 \0 \v \0 \0 020 d g \0 \0 360 246 d g
0007700 \0 \0 360 262 > 277 @ l 006 \n \0 \0 242 261 376 370
0007720 @ 002 002 001 X g \0 \0 360 250 H g \0 \0 360 242
0007740 261 376 345 @ 002 002 002 002 001 X g \0 \0 360 250 H
0007760 g \0 \0 360 242 261 376 320 @ g \0 \0 i \v \0 \0
0010000 020 g \0 \0 360 222 261 002 345 @ d 001 ` \0 \0 360
0010020 232 002 002 b \0 d h @ \v \0 \0 020 001 ` \0 \0
0010040 034 222 261 002 311 @ 001 g \0 \0 033 ^ g \0 \0 360
0010060 263 026 N 003 225 g \0 \0 N 034 252 @ d 001 W 0
0010100 034 242 261 376 204 277 @ \t \0 \0 222 261 376 z @ 001
0010120 g \0 \0 033 Y 003 234 ` \0 \0 230 I d 002 003 241
0010140 002 203 002 200 @ 001 @ d 002 001 243 277 h 260 Y 002
0010160 001 003 255 @ 002 001 W 032 c 277 @ 002 001 260
0010200 G 021 0 016 @ 002 001 260 9 d 001 _ 016 d 003 251
0010220 W 032 c 277 O 016 260 023 001 W 032 c
0010240 277 O 016 001 O 016 002 \t \0 \0 032 _ 030 277 O 032
0010260 265 \t O 030 h 032 _ 034 202 O 030 & _ 032 277 002
0010300 003 265 310 O 034 022 @ 002 002 \t \0 \0 h @ 001 g
0010320 \0 \0 033 264 003 @ h g \0 \0 H \n \0 \0 221 i
0010340 217 g \0 \0 H \n \0 \0 264 \t W " 265 005 g \0
0010360 \0 \r 005 \0 \0 032 032 020 @ 001 g \0 \0 033 X 265
0010400 & @ 001 g \0 \0 033 X 262 N W & 254 W ( 251
0010420 W $ 246 H ` \0 \0 034 262 > H @ H g \0 \0
0010440 033 \v \0 \0 020 g \0 \0 033 Z 262 327 @ 001 @ 001
0010460 @ 002 001 @ 002 002 001 H d g \0 \0 033 \r 005 \0
0010500 \0 360 262 024 H g \0 \0 033 g \0 \0 033 265 003 H
0010520 @ J \v \0 \0 020 @ 001 g \0 \0 033 X 236 @ 002
0010540 g \0 \0 H \v \0 \0 b \0 023 261 372 / @ 001 g
0010560 \0 \0 033 X 265 035 @ 001 g \0 \0 033 X d 003 242
0010600 261 \0 311 277 @ H 001 H 001 g \0 \0 033 \v \0 \0
0010620 020 g \0 \0 033 Y 262 340 g \0 \0 I \n \0 \0 002
0010640 001 Z 265 3 H g \0 \0 033 262 n @ 002 g \0 \0
0010660 I \n \0 \0 002 001 265 003 i g \0 \0 \v \0 \0 Z
0010700 H I 001 J I 002 001 h 032 \n \0 \0 032 g \0 \0
0010720 i \f \0 \0 020 g \0 \0 360 262 8 ` \0 \0 262 027
0010740 H g \0 \0 033 236 W " 253 @ 021 001 \n @ \t \0
0010760 \0 022 X 265 \t @ h @ \v \0 \0 020 001 g \0 \0
0011000 360 242 261 375 a g \0 \0 H g \0 \0 i \f \0 \0
0011020 020 @ k J 017 016 020 @ 002 002 g \0 \0 I \n \0
0011040 \0 002 001 265 003 i g \0 \0 \v \0 \0 Z H @ 002
0011060 001 \t \0 \0 I 001 J I 002 001 h 032 \n \0 \0 032
0011100 032 g \0 \0 i \f \0 \0 020 262 024 @ 001 g \0 \0
0011120 033 Y @ 001 360 226 I h 032 \t \0 \0 020 @ 001 g
0011140 \0 \0 033 003 265 003 202 261 374 201 @ 001 g \0 \0 033
0011160 X 230 H 001 H 002 \n \0 \0 265 s @ d 001 004 l
0011200 004 360 262 034 001 \t \0 \0 263 025 @ d 001 g \0 \0
0011220 033 233 \t \0 \0 246 @ h @ \v \0 \0 020 @ 001 i
0011240 \n \0 \0 263 H ` \0 \0 225 @ \t \0 \0 265 ? @
0011260 d 001 004 l 004 360 225 001 \t \0 \0 260 026 001 003 262
0011300 & @ d 001 001 g \0 \0 360 263 035 001 001 g \0 \0
0011320 360 263 024 @ d ` \0 \0 035 233 h ` \0 \0 \v \0
0011340 \0 023 261 370 267 @ 002 222 261 377 \r @ 020 \0 ( 3
0011360 5 0 7 Q P U T H A S H 3 4 4
0011400 1 Q F G E T D 3 4 2 3 Q C
0011420 L I S P I F Y U S E R F N 3 4
0011440 1 1 Q C L I S P N O E V A L
0011460 3 4 0 2 Q \ C L I S P I F Y B
0011500 L O C K / C L I S P I F Y 1 3
0011520 3 7 3 Q \ C L I S P I F Y B L
0011540 O C K / C L I S P I F Y 2 D 3
0011560 3 5 6 Q \ D E F I N E D P 3
0011600 3 3 7 Q \ C L I S P I F Y B L
0011620 O C K / C L I S P I F Y M A P S
0011640 3 3 0 2 Q \ C L I S P I F Y
0011660 B L O C K / C L I S P I F Y C R
0011700 O P S 0 3 2 5 6 Q \ C L I S
0011720 P I F Y B L O C K / C L I S P 3
0011740 3 2 4 5 Q \ A P P E N D 2
0011760 3 2 3 2 Q \ C L I S P I F Y B
0012000 L O C K / C L I S P I F Y 2 3
0012020 2 2 2 Q \ C L I S P I F Y B L
0012040 O C K / C L I S P I F Y 1 3 2
0012060 0 7 Q M E M B 3 1 6 6 Q \
0012100 C L I S P I F Y B L O C K / C L
0012120 I S P 3 3 1 4 1 Q \ C L I S
0012140 P I F Y B L O C K / C L I S P I
0012160 F Y 2 C 3 1 2 7 Q \ C L I S
0012200 P I F Y B L O C K / S H R I E K
0012220 I F Y 3 0 7 2 Q \ C L I S P
0012240 I F Y B L O C K / C L I S P 3
0012260 3 0 6 2 Q \ A P P E N D 2 3
0012300 0 4 5 Q \ C L I S P I F Y B L
0012320 O C K / C L I S P I F Y 1 3 0
0012340 3 2 Q M E M B 3 0 0 5 Q M
0012360 E M B 2 7 6 6 Q \ C L I S P
0012400 I F Y B L O C K / C L I S P I F
0012420 Y R P L A C 2 7 1 5 Q L S U
0012440 B S T 2 6 7 3 Q \ C L I S P
0012460 I F Y B L O C K / C L I S P 3
0012500 2 6 4 7 Q \ C L I S P I F Y B
0012520 L O C K / C L I S P I F Y L O O
0012540 K U P 2 6 1 2 Q \ C L I S P
0012560 I F Y B L O C K / C L I S P 3
0012600 2 5 3 3 Q \ C L I S P I F Y B
0012620 L O C K / C L I S P I F Y 1 2
0012640 5 1 6 Q M E M B 2 5 0 4 Q
0012660 M E M B 2 4 6 2 Q \ C L I S
0012700 P I F Y B L O C K / W H I L E D
0012720 O U N T I L 2 4 2 0 Q \ C L
0012740 I S P I F Y B L O C K / C L I S
0012760 P I F Y 1 2 2 6 0 Q \ C L I
0013000 S P I F Y B L O C K / C L I S P
0013020 I F Y 2 D 2 2 0 1 Q \ C L I
0013040 S P I F Y B L O C K / C L I S P
0013060 I F Y 1 2 1 4 6 Q \ C L I S
0013100 P I F Y B L O C K / C L I S P I
0013120 F Y R P L A C 2 0 6 2 Q E Q
0013140 L E N G T H 2 0 3 5 Q \ C L
0013160 I S P I F Y B L O C K / C L I S
0013200 P I F Y C R O P S 2 0 1 5 Q
0013220 \ C L I S P I F Y B L O C K / C
0013240 L I S P 4 1 7 5 4 Q E Q L E
0013260 N G T H 1 7 2 7 Q \ N C O N
0013300 C 2 1 7 2 3 Q \ C L I S P I
0013320 F Y B L O C K / C L I S P I F Y
0013340 1 1 7 0 3 Q \ C L I S P I F
0013360 Y B L O C K / C L I S P I F Y C
0013400 R O P S 1 6 3 0 Q \ C L I S
0013420 P I F Y B L O C K / C L I S P I
0013440 F Y 2 1 5 2 1 Q \ C L I S P
0013460 I F Y B L O C K / C L I S P I F
0013500 Y C R O P S 0 1 5 1 6 Q S U
0013520 B P A I R 1 4 0 0 Q \ C L I
0013540 S P I F Y B L O C K / C L I S P
0013560 I F Y N O T 1 3 6 2 Q \ C L
0013600 I S P I F Y B L O C K / C L I S
0013620 P I F Y 2 1 3 3 3 Q \ C L I
0013640 S P I F Y B L O C K / C L I S P
0013660 I F Y N O T 1 2 7 6 Q \ C L
0013700 I S P I F Y B L O C K / C L I S
0013720 P I F Y 2 C 1 2 7 0 Q \ C L
0013740 I S P I F Y B L O C K / C L I S
0013760 P I F Y 1 1 2 4 2 Q \ N C O
0014000 N C 2 1 2 3 7 Q \ N C O N C
0014020 2 1 2 3 4 Q C L I S P I F Y
0014040 2 A 1 2 2 7 Q L A S T 1 1
0014060 5 2 Q \ C L I S P I F Y B L O
0014100 C K / C L I S P I F Y 1 1 0 7
0014120 7 Q C L I S P I F Y 2 A 1 0
0014140 6 1 Q \ C L I S P I F Y B L O
0014160 C K / C L I S P 4 1 0 4 1 Q
0014200 S H O U L D N T 1 0 2 4 Q \
0014220 C L I S P I F Y B L O C K / C L
0014240 I S P C O N D 7 5 4 Q \ C L
0014260 I S P I F Y B L O C K / C L I S
0014300 P A N D 7 3 7 Q \ C L I S P
0014320 I F Y B L O C K / C L I S P 4
0014340 6 6 1 Q \ N C O N C 2 6 5 6
0014360 Q \ C L I S P I F Y B L O C K
0014400 / C L I S P C O N D 5 0 0 Q
0014420 \ C L I S P I F Y B L O C K / C
0014440 L I S P I F Y R P L A C 4 4 4
0014460 Q \ C L I S P I F Y B L O C K
0014500 / C L I S P I F Y R P L A C 4
0014520 1 0 Q \ C L I S P I F Y B L O
0014540 C K / C L I S P I F Y C R O P S
0014560 0 3 7 0 Q \ C L I S P I F Y
0014600 B L O C K / C L I S P I F Y L O
0014620 O K U P 3 0 7 Q \ C L I S P
0014640 I F Y B L O C K / C L I S P I F
0014660 Y C R O P S 0 3 0 2 Q M I N
0014700 U S 2 3 0 Q \ C L I S P I F
0014720 Y B L O C K / C L I S P I F Y C
0014740 R O P S 0 2 1 4 Q \ C L I S
0014760 P I F Y B L O C K / C L I S P I
0015000 F Y L O O K U P 1 5 7 Q \ C
0015020 L I S P I F Y B L O C K / C L I
0015040 S P I F Y C R O P S 0 1 4 0 Q
0015060 \ C L I S P I F Y B L O C K /
0015100 C L I S P I F Y C R O P S 0 1
0015120 2 1 Q \ C L I S P I F Y B L O
0015140 C K / C L I S P I F Y 2 C 1 0
0015160 3 Q \ C L I S P I F Y B L O C
0015200 K / C L I S P I F Y 1 ) \r ( 3 5
0015220 0 4 Q C L I S P A R R A Y 3
0015240 4 7 6 Q C L I S P A R R A Y
0015260 3 4 6 6 Q N L A M B D A 3 4
0015300 5 6 Q L A M B D A 3 4 1 6 Q
0015320 C L I S P I F Y U S E R F N
0015340 3 3 6 6 Q C L I S P W O R D
0015360 3 3 2 5 Q C L M A P S 3 3 1
0015400 0 Q A C C E S S F N 3 2 6 6
0015420 Q A C C E S S F N 3 2 5 2 Q
0015440 B R A C K E T 3 2 1 7 Q B
0015460 R A C K E T 3 2 0 3 Q S E P
0015500 A R A T O R 3 1 6 2 Q B R A
0015520 C K E T 3 1 5 6 Q < 3 1 4
0015540 6 Q < 3 1 1 2 Q C L I S P
0015560 T Y P E 3 1 0 4 Q C L I S P
0015600 F L G 3 0 7 6 Q S H R I E K
0015620 I F Y 3 0 6 6 Q B R A C K E
0015640 T 3 0 4 2 Q B R A C K E T
0015660 3 0 2 6 Q S E P A R A T O R
0015700 3 0 1 6 Q U N A R Y O P 3 0
0015720 0 1 Q C L I S P I F Y 2 7 7
0015740 2 Q C L I S P B R A C K E T
0015760 2 7 6 2 Q A C C E S S F N 2
0016000 7 4 1 Q S E T F N 2 7 3 0 Q
0016020 C L I S P B R A C K E T 2 7
0016040 1 1 Q * 2 7 0 1 Q C L I S
0016060 P F O R M 2 6 6 2 Q C L I S
0016100 P I N F I X 2 6 5 6 Q L I S
0016120 P F N 2 6 4 2 Q C L I S P C
0016140 L A S S D E F 2 6 1 6 Q C L
0016160 I S P T Y P E 2 6 0 6 Q C L
0016200 I S P T Y P E 2 5 7 5 Q C L
0016220 I S P C H A R S 2 5 5 4 Q C
0016240 L I S P I N F I X 2 5 4 3 Q
0016260 C L I S P C L A S S 2 5 2 7 Q
0016300 N O T L A S T 2 5 1 2 Q P
0016320 R O G N 2 5 0 0 Q L A B E L
0016340 S 2 4 7 0 Q C L I S P W O R
0016360 D 2 3 0 0 Q L C A S E F L G
0016400 2 2 7 1 Q C L I S P W O R D
0016420 2 2 3 6 Q B I N D S 2 2 2
0016440 5 Q B I N D S 2 2 2 0 Q I
0016460 N F O 2 2 0 6 Q C L I S P C
0016500 H A R S 2 1 6 5 Q C L I S P
0016520 T R A N F L G 2 1 5 2 Q A S
0016540 S E M B L E 2 1 4 2 Q r e p
0016560 l a c e 2 1 3 1 Q w i t h
0016600 2 1 2 3 Q W I T H 2 1 0 4 Q
0016620 o f 2 0 7 6 Q O F 2 0 5
0016640 0 Q R E P L A C E 2 0 4 2 Q
0016660 r e p l a c e 2 0 3 2 Q f
0016700 e t c h 1 7 7 6 Q O F 1 7
0016720 7 0 Q o f 1 7 4 2 Q F E T
0016740 C H 1 7 3 4 Q f e t c h 1
0016760 7 0 0 Q m a t c h 1 6 4 3 Q
0017000 M A T C H 1 6 3 5 Q m a t
0017020 c h 1 6 1 1 Q Q U O T E 1
0017040 5 5 7 Q S E T Q 1 5 4 7 Q
0017060 C L I S P T Y P E 1 5 4 4 Q
0017100 _ 1 5 3 5 Q C L I S P F L G
0017120 1 5 2 6 Q S E T Q Q 1 4 7
0017140 4 Q G E T P R O P L I S T 1
0017160 4 6 0 Q C R O P S 1 4 3 7 Q
0017200 P R O G 1 1 4 0 5 Q S E T
0017220 Q 1 3 6 7 Q N O T 1 3 3 7
0017240 Q E Q 1 3 2 3 Q C L I S P
0017260 T Y P E 1 3 0 3 Q N U L L
0017300 1 2 6 4 Q N O T L A S T 1 2
0017320 5 0 Q P R O G N 1 2 2 1 Q
0017340 S E L E C T Q 1 1 4 6 Q N O
0017360 T L A S T 1 0 4 6 Q S E L E
0017400 C T Q 1 0 3 4 Q i f 1 0 2
0017420 7 Q L C A S E F L G 1 0 0 7
0017440 Q N O T 7 7 1 Q O R 7 6
0017460 4 Q i f 7 5 7 Q L C A S E
0017500 F L G 7 4 5 Q A N D 7 1 5
0017520 Q C L I S P W O R D 7 1 2 Q
0017540 I F 7 0 3 Q O R 6 7 5 Q
0017560 A N D 6 6 7 Q I F 6 4 3
0017600 Q i f 6 3 6 Q L C A S E F
0017620 L G 6 0 7 Q C L I S P W O R
0017640 D 6 0 4 Q I F 5 7 5 Q C
0017660 O N D 5 6 4 Q C L I S P :
0017700 5 5 3 Q D E C L A R A T I O N
0017720 S : 5 4 0 Q * 5 2 7 Q D
0017740 E C L A R E 5 1 6 Q G O 5
0017760 0 5 Q C L I S P : 4 7 4 Q
0020000 : : 1 4 6 5 Q / R P L A C D
0020020 4 5 7 Q F R P L A C D 4 5
0020040 1 Q R P L A C D 4 4 0 Q :
0020060 1 4 3 1 Q / R P L A C A 4
0020100 2 3 Q F R P L A C A 4 1 5 Q
0020120 R P L A C A 3 3 0 Q C L :
0020140 F L G 3 2 2 Q F N T H 3 1
0020160 4 Q N T H 2 3 5 Q N L E F
0020200 T 1 7 2 Q F L A S T 1 6 4
0020220 Q L A S T 1 4 5 Q C D R
0020240 1 2 6 Q C A R 1 1 2 Q F U
0020260 N C T I O N 5 2 Q L C A S E
0020300 F L G 4 2 Q C L I S P W O R
0020320 D 1 6 Q C L I S P W O R D )
0020340 \r ( 1 5 1 2 Q ( : 1 : : 1
0020360 ) 1 5 0 6 Q ( A D ) 1 5
0020400 4 Q ( : : 1 ) 1 3 5 Q ( :
0020420 1 ) ) \r \ C L I S P I F Y B L O
0020440 C K / C L I S P I F Y 2 C D 1
0020460 \r ( L ( 1 X ) I 2 S U
0020500 B P A R E N T I 0 F O R M
0020520 ) \0 = 001 \0 \0 003 A 265 0 @ 002 h d d
0020540 @ 001 g \0 \0 033 021 001 \0 H g \0 \0 360 265 016
0020560 H 003 264 \n g \0 \0 H 034 264 003 i 022 264 005 g
0020600 \0 \0 B \r 006 \0 \0 b 002 @ 002 360 244 @ 001 A
0020620 032 020 @ 020 \0 ( 5 6 Q \ C L I S P
0020640 I F Y B L O C K / C L I S P I F
0020660 Y 1 ) \r ( 5 1 Q N O T L A S T
0020700 3 6 Q P R O G N 2 4 Q P
0020720 R O G N 1 4 Q I N F O ) \r (
0020740 ) \r \ C L I S P I F Y B L O C K
0020760 / C L I S P I F Y 2 D D 1 \r (
0021000 I 0 F O R M F 1 V A R
0021020 S ) \0 ` 001 001 \0 001 021 020 \0 @ 002 001 X
0021040 d 262 V 004 l 004 360 264 P H d g \0 \0 033 255
0021060 k \n \0 \0 X ` \0 \0 \n \0 \0 264 < H g \0
0021100 \0 033 h 360 264 3 @ 002 001 X \t \0 \0 h 360 264
0021120 ( H Q \n \0 \0 h 360 264 037 H ` \0 \0 \n \0
0021140 \0 h 360 264 024 H g \0 \0 033 h 360 264 \v H `
0021160 \0 \0 \n \0 \0 h 360 020 \0 ( 1 3 3 Q M
0021200 E M B 1 0 7 Q M E M B 7 4
0021220 Q M E M B 6 3 Q B O U N D
0021240 P 4 1 Q M E M B 3 2 Q N
0021260 T H C H A R ) \r ( 1 3 0 Q G L
0021300 O B A L V A R S 1 1 7 Q G L
0021320 O B A L V A R 1 0 4 Q N O F
0021340 I X V A R S L S T 4 7 Q U N
0021360 A R Y O P 3 6 Q C L I S P C
0021400 H A R S 2 4 Q C L I S P T Y
0021420 P E ) \r ( ) \r \ C L I S P I F Y
0021440 B L O C K / C L I S P 3 D 1 \r
0021460 ( L ( 3 F L G 2 C L T Y
0021500 P 1 X 0 O P R ) P 3
0021520 C L I S P I S T A T E F 4
0021540 C L T Y P 0 F 5 N E G F
0021560 L G F 6 P A R E N T F
0021600 7 T A I L F 1 0 Q S E G
0021620 F 1 1 Q S U B P A R E N T
0021640 F 1 2 Q O P R 0 ) 001 T 004
0021660 \a \0 004 @ g \0 \0 033 021 1 003 B 242 261 001 3
0021700 ` \0 \0 242 261 001 , A 002 271 C 222 A 260 p @
0021720 g \0 \0 360 227 @ I 001 h 032 032 260 b U 262 "
0021740 ` \0 \0 230 @ d g \0 \0 033 263 027 277 @ g \0
0021760 \0 033 Z 233 h c \n 277 i b 006 277 J b \0 200
0022000 @ g \0 \0 033 263 # I 002 263 037 @ g \0 \0 033
0022020 \t \0 \0 l 002 360 230 A 001 A 002 \t \0 \0 032 020
0022040 A 002 001 h h 032 032 271 V 226 V W 022 \n \0 \0
0022060 277 A \t \0 \0 277 I @ B H \f \0 \0 Y 001 g
0022100 \0 \0 360 222 261 \0 216 I 001 d 005 001 245 d 005 002
0022120 241 005 003 225 j I 001 363 263 z W 024 263 b T 265
0022140 \a H 262 M 260 n g \0 \0 360 247 T d g \0 \0
0022160 360 223 277 i 260 _ 003 244 \b \0 \0 260 X W 016 T
0022200 002 360 264 Q W 016 002 262 025 W 016 002 001 g \0 \0
0022220 033 001 T 001 g \0 \0 033 001 360 264 9 I 210 d 001
0022240 g \0 \0 033 003 244 002 003 265 366 h 262 310 260 % `
0022260 \0 \0 263 301 V 001 i \n \0 \0 h 360 260 027 I 001
0022300 004 l 004 360 225 I 001 \t \0 \0 246 @ B \n \0 \0
0022320 262 % h c 020 277 I \t \0 \0 272 I 001 004 l 004
0022340 360 262 # I 001 \t \0 \0 262 034 C c \n h c 020
0022360 A \t \0 \0 020 H 227 T g \0 \0 360 221 h 200 i
0022400 c 020 I 020 J 020 \0 ( 5 0 0 Q \ C L
0022420 I S P I F Y B L O C K / C L I S
0022440 P I F Y 2 C 4 6 4 Q C L I S
0022460 P N O E V A L 4 4 6 Q C L I
0022500 S P 3 A 4 3 4 Q \ C L I S P
0022520 I F Y B L O C K / C L I S P 3 B
0022540 4 2 6 Q \ D E F I N E D P
0022560 4 0 6 Q C L I S P N O E V A L
0022600 3 0 7 Q S H O U L D N T 2
0022620 1 1 Q \ C L I S P I F Y B L O
0022640 C K / C L I S P I F Y 1 2 0 1
0022660 Q \ C L I S P I F Y B L O C K
0022700 / C L I S P 4 1 7 4 Q \ C L
0022720 I S P I F Y B L O C K / C L I S
0022740 P 4 1 5 2 Q \ C L I S P I F
0022760 Y B L O C K / C L I S P I F Y 1
0023000 1 3 7 Q A R G T Y P E ) \r (
0023020 5 0 7 Q B R A C K E T 3 7 6
0023040 Q C L I S P I F Y P A C K F L
0023060 G 3 5 7 Q C L I S P W O R D
0023100 3 4 3 Q C L I S P W O R D
0023120 3 3 4 Q C L I S P W O R D 2
0023140 7 4 Q I S 2 6 5 Q C O N D
0023160 2 1 6 Q - 1 3 3 Q L I S
0023200 P F N 1 2 0 Q U N A R Y O P
0023220 7 5 Q C L I S P N E G 6 5
0023240 Q C L I S P I F Y I S P R O P
0023260 5 7 Q C L I S P I F Y E N G
0023300 L S H F L G 3 7 Q ' 1 7 Q
0023320 C L I S P F L G 3 B R O A
0023340 D S C O P E ) \r ( ) \r C L I S P
0023360 3 A D 1 \r ( L ( 0 L ) F
0023400 1 P A R E N T F 2 S E
0023420 G ) \0 > 001 002 \0 001 @ \t \0 \0 b \0 Q
0023440 001 d g \0 \0 360 245 d g \0 \0 360 224 277 @ 002
0023460 260 277 Q 001 g \0 \0 033 021 001 \0 H g \0 \0
0023500 360 265 016 H 003 264 \n g \0 \0 H 034 264 003 i 022
0023520 222 h c 004 @ 020 \0 ( 3 C L I S P A
0023540 C K U P ) \r ( 6 0 Q L A B E L
0023560 S 4 6 Q L A B E L S 3 6 Q
0023600 I N F O 2 1 Q S E T N 1
0023620 3 Q S E L E C T Q ) \r ( ) \r \
0023640 C L I S P I F Y B L O C K / C L
0023660 I S P 3 B D 1 \r ( L ( 1 C
0023700 L T Y P 0 O P R ) F 0
0023720 C L T Y P 0 F 1 O P R 0
0023740 F 2 L S T F 3 T A I L
0023760 ) \0 = \0 004 \0 002 Q 264 : P g \0 \0 360
0024000 h 360 264 1 A g \0 \0 360 h 360 264 ( R 262 032
0024020 A P \n \0 \0 265 036 A 003 235 A 002 P d 004 l
0024040 004 361 220 002 375 361 265 \r S 002 264 \t P A \n \0
0024060 \0 h 360 020 \0 ( 7 0 Q \ C L I S P
0024100 I F Y B L O C K / C L S T O P S
0024120 C A N ? 3 4 Q \ C L I S P I
0024140 F Y B L O C K / C L S T O P S C
0024160 A N ? ) \r ( 1 7 Q B R A C K E
0024200 T 6 B R A C K E T ) \r ( ) \r
0024220 C L I S P A C K U P D 1 \r ( L
0024240 ( 0 L ) ) 001 243 006 \0 \0 001 @ 021
0024260 Q 005 H d 001 004 l 004 361 222 277 260 z 001 g \0
0024300 \0 360 262 ; J 001 ` \0 \0 034 227 J 001 g \0 \0
0024320 360 262 030 I J \n \0 \0 277 H 002 001 004 l 004 361
0024340 263 031 H d 002 \n \0 \0 216 I H d 002 001 004 l
0024360 004 361 240 002 \n \0 \0 X 277 h \ 260 E H d 001
0024400 ` \0 \0 034 227 d 001 g \0 \0 360 262 T 001 004 l
0024420 004 360 262 F g \0 \0 ` \0 \0 H 001 006 \0 \0 323
0024440 340 320 311 \0 034 256 ` \0 \0 265 $ ` \0 \0 H 001
0024460 \n \0 \0 262 % h 274 I d 225 J \n \0 \0 277 h
0024500 271 h 275 H Z 265 003 202 261 \0 377 @ 020 i 360 247
0024520 H 001 ` \0 \0 034 260 335 H 274 M 262 334 260 344 001
0024540 g \0 \0 033 [ 262 S H d 001 K 001 360 262 036 277
0024560 J 001 K 001 360 263 025 H 001 g \0 \0 033 262 ; I
0024600 J \n \0 \0 277 h \ Y 260 1 H 001 K 002 001 360
0024620 262 ( H 002 001 K 002 001 360 263 037 I 265 003 L [
0024640 d 001 g \0 \0 360 246 d 001 g \0 \0 360 220 002 H
0024660 \n \0 \0 270 h \ 260 212 I 244 L 265 003 H 271 H
0024700 d 001 g \0 \0 360 262 027 002 001 g \0 \0 360 262 026
0024720 H g \0 \0 030 235 H d 002 002 031 277 206 001 g \0
0024740 \0 360 264 ` L 262 ; H 002 001 [ d 005 001 245 d
0024760 005 002 241 005 003 262 + j K 363 262 & H 001 g \0
0025000 \0 360 224 H g \0 \0 214 g \0 \0 g \0 \0 033 264
0025020 3 H g \0 \0 030 264 , H 002 K \t \0 \0 260 !
0025040 H 001 g \0 \0 360 264 034 H d 002 001 g \0 \0 360
0025060 232 g \0 \0 030 277 H d 002 002 031 203 g \0 \0 030
0025100 277 h 274 i 261 376 376 002 X 242 261 376 355 261 376 e
0025120 \0 ( 5 5 7 Q M I N U S 4 0 4
0025140 Q \ C L I S P I F Y B L O C K
0025160 / C L I S P 3 C 3 2 5 Q \ C
0025200 L I S P I F Y B L O C K / C L I
0025220 S P 3 C 2 1 7 Q \ C L I S P
0025240 I F Y B L O C K / C L I S P 3 C
0025260 2 0 4 Q S T R P O S L 1 1
0025300 0 Q \ C L I S P I F Y B L O C
0025320 K / C L I S P 3 C 7 1 Q \ C
0025340 L I S P I F Y B L O C K / C L I
0025360 S P 3 C 5 1 Q \ C L I S P I
0025400 F Y B L O C K / C L I S P 3 C )
0025420 \r ( 6 2 0 Q - 6 0 5 Q +
0025440 6 0 0 Q - 5 6 6 Q + - 5
0025460 4 6 Q - 5 3 7 Q C L I S P
0025500 T Y P E 5 3 4 Q - 5 3 0 Q
0025520 + 5 2 2 Q + - 4 6 2 Q
0025540 + - 4 4 5 Q + - 4 3 6 Q
0025560 - 4 2 6 Q + 3 7 5 Q -
0025600 3 6 6 Q + 3 1 5 Q U N A R
0025620 Y O P 2 6 4 Q C L I S P B R
0025640 A C K E T 2 4 6 Q F U N N Y
0025660 A T O M L S T 1 7 7 Q C L I
0025700 S P C H A R R A Y 1 7 2 Q F
0025720 U N N Y A T O M L S T 1 6 0 Q
0025740 L I T A T O M 1 5 3 Q \ P
0025760 L I S T S P A C E 1 5 0 Q C
0026000 L I S P T Y P E 1 3 3 Q !
0026020 1 2 4 Q C L I S P C H A R S
0026040 4 1 Q ! 3 2 Q C L I S P C
0026060 H A R S 2 2 Q ' ) \r ( ) \r \
0026100 C L I S P I F Y B L O C K / C L
0026120 I S P 3 C A 0 0 0 5 D 1 \r ( N
0026140 A M E E R R O R S E T L (
0026160 2 E R R O R S E T . W 1 E
0026200 R R O R S E T . V 0 E R R O
0026220 R S E T . U ) F 0 P R X F
0026240 L G F 1 L 1 ) \0 \f \0 002 \0
0026260 003 h c \0 277 Q \t \0 \0 h 032 020 \0 ( 7
0026300 P A C K ) \r N I L \r ( ) \r \ C L
0026320 I S P I F Y B L O C K / C L I S
0026340 P 3 C D 1 \r ( L ( 1 L 2 )
0026360 I 0 L 1 F 4 R E S E
0026400 T V A R S L S T F 5 P R X
0026420 F L G F 6 S E G ) \0 203 004
0026440 003 \0 002 A 002 021 1 003 @ 241 A 020 A d @ 360
0026460 264 004 @ 020 031 ` \0 \0 262 g g \0 \0 U 032 T
0026500 032 c \b Z 273 o \0 \0 \0 g \0 \0 \n \0 \0 J
0026520 001 002 c \n 277 K d T 360 225 277 J 002 c \b 215
0026540 T \n \0 \0 231 T k K \v \0 \0 J 002 031 277 265
0026560 005 \b \0 \0 001 271 V 224 I \t \0 \0 203 I \t \0
0026600 \0 263 036 I ` \0 \0 034 263 027 I d 005 001 245 d
0026620 005 002 241 005 003 250 @ I 030 277 @ H 031 @ 020 A
0026640 d H 031 277 020 \0 ( 1 3 5 Q F N T Y
0026660 P 1 3 0 Q B O U N D P 1 2
0026700 0 Q E R R O R ! 1 0 7 Q N
0026720 L E F T 1 0 0 Q T A I L P
0026740 5 3 Q \ C L I S P I F Y B L O
0026760 C K / C L I S P 3 C A 0 0 0 5 )
0027000 \r ( 1 4 3 Q F U N N Y A T O M
0027020 L S T 5 0 Q I N T E R N A L
0027040 3 1 Q P R X F L G 2 4 Q
0027060 C L I S P I F Y P A C K F L G )
0027100 \r ( 4 5 Q ( D U M M Y . F O
0027120 R . E R R O R S E T ) ) \r \ C L
0027140 I S P I F Y B L O C K / C L I S
0027160 P 4 A 0 0 0 7 D 1 \r ( N A M E
0027200 E R R O R S E T L ( 2 E
0027220 R R O R S E T . W 1 E R R O
0027240 R S E T . V 0 E R R O R S E
0027260 T . U ) P 0 D W I M I F Y
0027300 F L G F 1 E X P F 2
0027320 S U B P A R E N T F 3 C L
0027340 I S P I F Y F N F 4 F L G
0027360 ) \0 # 001 004 \0 003 i 027 \0 \0 277 g \0 \0
0027400 021 001 \0 Q R 265 003 d h d d S g \0 \0 \r
0027420 \a \0 \0 c \b 023 h h 032 020 \0 ( 3 2 Q
0027440 D W I M I F Y 0 ? ) \r ( 2 6 Q
0027460 L I N E A R 7 C L I S P I F
0027500 Y 3 N O S P E L L F L G ) \r
0027520 ( ) \r \ C L I S P I F Y B L O C
0027540 K / C L I S P 4 D 1 \r ( P 3
0027560 F L G I 1 S U B P A R E
0027600 N T I 0 E X P F 6 R
0027620 E S E T V A R S L S T F 7
0027640 V A R S ) 001 035 006 002 \0 002 ` \0 \0 264
0027660 003 202 261 001 025 @ 001 g \0 \0 360 222 261 001 \n @
0027700 001 g \0 \0 033 021 001 \0 H g \0 \0 360 265 016 H
0027720 003 264 \n g \0 \0 H 034 264 003 i 022 222 261 \0 351
0027740 @ ` \0 \0 035 222 261 \0 340 A 265 U @ 260 R d
0027760 021 ! 002 H 001 H 272 277 J 001 004 l 004 360 264 >
0030000 J 001 \t \0 \0 h 360 264 5 J 001 W 016 034 h 360
0030020 264 , J @ 360 264 \a J 001 \t \0 \0 h 360 264 036
0030040 k 271 ` \0 \0 J 001 I \v \0 \0 Y 241 h 214 J
0030060 001 I \n \0 \0 g \0 \0 033 262 = I 022 244 002 003
0030100 265 257 h 264 003 202 261 \0 201 021 @ 005 g \0 \0 `
0030120 \0 \0 032 V 032 c \f \ 275 o \0 \0 \0 g \0 \0
0030140 \n \0 \0 L 001 002 027 \0 \0 277 M d V 360 233 277
0030160 L 002 c \f 260 025 I k 330 260 250 V \n \0 \0 231
0030200 V k M \v \0 \0 L 002 031 277 243 \b \0 \0 277 g
0030220 \0 \0 m 377 J d \f \0 \0 Z 265 022 g \0 \0 d
0030240 d \t \0 \0 \n \0 \0 \n \0 \0 260 034 g \0 \0 \n
0030260 \0 \0 @ 360 221 K 250 J g \0 \0 i \v \0 \0 205
0030300 J h i \v \0 \0 h 020 \0 ( 4 3 1 Q R
0030320 E T F R O M 4 2 2 Q R E T E
0030340 V A L 4 0 5 Q S T K E V A L
0030360 3 7 5 Q R E T F R O M 3 7
0030400 2 Q A P P L Y 3 6 7 Q S T
0030420 K A R G S 3 5 4 Q S T K P O
0030440 S 3 4 1 Q E R R O R ! 3 3
0030460 1 Q N L E F T 3 2 2 Q T A
0030500 I L P 2 6 6 Q \ C L I S P I
0030520 F Y B L O C K / C L I S P 4 A 0
0030540 0 0 7 2 1 0 Q N T H C H A R
0030560 1 7 6 Q S T R P O S L 1 5
0030600 7 Q F G E T D 1 3 0 Q B O
0030620 U N D P ) \r ( 4 1 6 Q F O R M
0030640 4 0 2 Q F O R M 3 6 2 Q
0030660 C L I S P I F Y 3 4 5 Q C L
0030700 I S P I F Y 2 B 2 7 4 Q N O
0030720 S P E L L F L G 2 6 3 Q I N
0030740 T E R N A L 2 4 5 Q N O S P
0030760 E L L F L G 2 4 2 Q N O S P
0031000 E L L F L G 2 1 3 Q C L I S
0031020 P T Y P E 1 7 0 Q C L I S P
0031040 C H A R R A Y 6 7 Q C L I S
0031060 P A R R A Y 5 1 Q L A B E L
0031100 S 3 7 Q L A B E L S 2 7 Q
0031120 I N F O 1 5 Q S E T Q 2
0031140 C L I S P F L G ) \r ( 2 6 0
0031160 Q ( D U M M Y . F O R . E R R
0031200 O R S E T ) ) \r \ C L I S P I F
0031220 Y B L O C K / C L I S P C O N D
0031240 D 1 \r ( L ( 2 V A L 1
0031260 C P Y F L G 0 C L A U S E )
0031300 P 5 S U B P A R E N T P
0031320 4 P A R E N T P 1 O P
0031340 R 0 P 0 C L T Y P 0 F
0031360 6 S E G ) \0 i 006 001 \0 003 g \0 \0
0031400 021 Q 005 B 262 034 @ d 001 i 360 262 026 277 ` \0
0031420 \0 223 g \0 \0 202 g \0 \0 @ 002 \t \0 \0 032 020
0031440 @ 002 264 024 ` \0 \0 223 g \0 \0 202 g \0 \0 @
0031460 002 A \n \0 \0 032 Z @ 001 \t \0 \0 [ ` \0 \0
0031500 223 g \0 \0 202 g \0 \0 V 231 h c \f 277 K J
0031520 \n \0 \0 216 K d \t \0 \0 226 277 K J \n \0 \0
0031540 201 J 032 032 020 \0 ( 1 4 2 Q \ A P P
0031560 E N D 2 1 3 3 Q \ C L I S P
0031600 I F Y B L O C K / C L R E M P A
0031620 R S 1 2 5 Q \ N C O N C 2
0031640 7 6 Q \ C L I S P I F Y B L O
0031660 C K / C L I S P I F Y 2 6 7 Q
0031700 \ C L I S P I F Y B L O C K /
0031720 C L I S P C O N D 1 4 0 Q \
0031740 C L I S P I F Y B L O C K / C L
0031760 I S P C O N D 1 ) \r ( 1 1 2 Q
0032000 E L S E I F 1 0 6 Q e l s e
0032020 i f 1 0 2 Q L C A S E F L G
0032040 6 1 Q T H E N 5 5 Q t h
0032060 e n 5 1 Q L C A S E F L G
0032100 3 3 Q E L S E 2 7 Q e l s
0032120 e 2 3 Q L C A S E F L G 2
0032140 C O N D ) \r ( ) \r \ C L I S P
0032160 I F Y B L O C K / C L I S P C O
0032200 N D 1 D 1 \r ( L ( 1 C P Y
0032220 F L G 0 L ) F 1 N O V
0032240 A L F L G ) \0 Q 001 001 \0 002 021 020 \0
0032260 @ h @ 002 h 360 264 005 g \0 \0 h Q 265 005 g
0032300 \0 \0 \r 005 \0 \0 X d 002 263 ! d 001 \t \0 \0
0032320 262 032 A 262 024 H 001 \t \0 \0 @ 001 \t \0 \0 360
0032340 225 H 001 \t \0 \0 020 H 001 020 A 236 H \t \0 \0
0032360 @ \t \0 \0 360 224 H \t \0 \0 020 H 020 \0 ( 1
0032400 1 4 Q \ A P P E N D 2 1 0 6
0032420 Q F L A S T 1 0 2 Q F L A
0032440 S T 7 0 Q \ A P P E N D 2
0032460 6 1 Q F L A S T 5 4 Q F L
0032500 A S T 4 2 Q \ C L I S P I F
0032520 Y B L O C K / C L R E M P A R S
0032540 3 0 Q \ C L I S P I F Y B L
0032560 O C K / C L I S P I F Y 1 ) \r (
0032600 2 4 Q N O T L A S T 1 5 Q
0032620 C O N D ) \r ( ) \r \ C L I S P I
0032640 F Y B L O C K / C L I S P A N D
0032660 D 1 \r ( I 0 F O R M ) \0
0032700 ; 002 \0 \0 001 021 001 @ \t \0 \0 @ d 002 002
0032720 002 227 002 002 001 \t \0 \0 223 @ 002 260 @ d 002
0032740 002 207 d Y 001 I \n \0 \0 244 002 003 265 366 h 265
0032760 006 @ \t \0 \0 X \n \0 \0 H 032 \t \0 \0 020 \0
0033000 ( 7 0 Q \ C L I S P I F Y B L
0033020 O C K / C L I S P C O N D 6 3
0033040 Q L D I F F 5 7 Q F L A S
0033060 T 4 3 Q \ C L I S P I F Y B
0033100 L O C K / C L I S P A N D 1 2
0033120 2 Q \ C L I S P I F Y B L O C
0033140 K / C L I S P A N D 1 6 \ C
0033160 L I S P I F Y B L O C K / C L I
0033200 S P 4 ) \r N I L \r ( ) \r \ C L I
0033220 S P I F Y B L O C K / C L I S P
0033240 A N D 1 D 1 \r ( L ( 0 $ F
0033260 O R M ) ) \0 260 \0 \0 \0 001 @ 003 242 261
0033300 \0 241 @ 001 d g \0 \0 360 222 261 \0 224 d g \0
0033320 \0 360 222 261 \0 213 d g \0 \0 360 222 261 \0 202 d
0033340 g \0 \0 360 263 z d g \0 \0 360 263 s d g \0
0033360 \0 360 263 l d g \0 \0 360 263 e d g \0 \0 360
0033400 263 ^ d g \0 \0 360 224 277 @ 002 001 020 d g \0
0033420 \0 360 230 277 @ 002 002 001 b \0 260 243 d g \0 \0
0033440 360 225 277 @ 002 002 001 020 d g \0 \0 360 245 d g
0033460 \0 \0 360 227 277 @ 002 001 b \0 260 203 g \0 \0 360
0033500 264 * @ \t \0 \0 001 001 \t \0 \0 264 037 @ 212 d
0033520 001 \t \0 \0 001 \t \0 \0 264 022 002 003 265 363 i 020
0033540 @ 004 l 004 360 262 371 @ i 360 020 \0 ( 2 3 3
0033560 Q \ C L I S P I F Y B L O C K
0033600 / C L I S P A N D 1 2 2 7 Q
0033620 F L A S T 2 1 6 Q \ C L I S
0033640 P I F Y B L O C K / C L I S P A
0033660 N D 1 2 1 1 Q F L A S T ) \r
0033700 ( 2 0 2 Q C O N D 1 6 5 Q
0033720 P R I N 1 1 5 7 Q P R I N T
0033740 1 4 3 Q S E T Q Q 1 2 4 Q
0033760 S E T Q 1 1 1 Q Q U O T E
0034000 1 0 2 Q / R P L A C D 7 3
0034020 Q / R P L A C A 6 4 Q F R
0034040 P L A C D 5 5 Q F R P L A C
0034060 A 4 6 Q R P L A C D 3 5 Q
0034100 R P L A C A 2 4 Q L I S T
0034120 1 3 Q C O N S ) \r ( ) \r \ C
0034140 L I S P I F Y B L O C K / C L I
0034160 S P I F Y N O T D 1 \r ( I 0
0034200 F O R M F 2 N E G F L G
0034220 ) \0 > 002 001 \0 001 021 001 R h 360 c 004
0034240 @ \t \0 \0 X R 240 020 ` \0 \0 262 " g \0 \0
0034260 g \0 \0 033 262 031 g \0 \0 g \0 \0 033 Y 235 g
0034300 \0 \0 d H h 032 032 I i \f \0 \0 020 g \0 \0
0034320 H h 032 032 020 \0 ( 6 3 Q \ C L I S
0034340 P I F Y B L O C K / C L I S P 3
0034360 1 3 Q C L I S P I F Y 2 B )
0034400 \r ( 6 7 Q N O T 5 1 Q ~
0034420 4 3 Q C L I S P T Y P E 4 0
0034440 Q ~ 3 2 Q C L I S P I N F
0034460 I X 2 7 Q N O T 2 2 Q C
0034500 L I S P F L G ) \r ( ) \r C L I S
0034520 P I F Y M A T C H U P D 1 \r (
0034540 L ( 3 A L S T 2 $ V A R
0034560 S 1 $ L S T 0 P A T ) )
0034600 \0 221 \0 \0 \0 004 A 003 264 003 202 261 \0 201 @
0034620 d 001 B 034 262 - 001 C \n \0 \0 265 034 C @ 001
0034640 A 001 032 h 032 \n \0 \0 b 006 277 @ 002 b \0 262
0034660 _ A 002 b 002 260 323 002 A 001 \n \0 \0 263 356 h
0034700 020 001 A 001 360 263 346 @ d 001 003 262 027 277 A 001
0034720 003 236 @ 001 A 001 B C \f \0 \0 b 006 263 316 h
0034740 020 @ 001 g \0 \0 033 001 g \0 \0 360 226 @ 002 b
0034760 \0 277 260 225 @ d 001 ` \0 \0 034 225 002 b \0 277
0035000 260 207 001 A 001 g \0 \0 033 360 263 241 h 020 A 002
0035020 263 374 C 265 003 i 020 \0 ( 1 2 3 Q C L
0035040 I S P I F Y M A T C H U P 6 5
0035060 Q E Q U A L 4 0 Q \ N C O
0035100 N C 2 2 3 Q F A S S O C ) \r
0035120 ( 2 0 0 Q C L I S P I S P R O
0035140 P 1 6 2 Q C L I S P I S N O
0035160 I S E W O R D S 1 4 3 Q I S
0035200 W O R D 1 3 6 Q C L I S P C
0035220 L A S S ) \r ( ) \r \ C L I S P I
0035240 F Y B L O C K / C L R E M P A R
0035260 S D 1 \r ( L ( 0 X ) ) \0
0035300 I \0 \0 \0 001 ` \0 \0 264 D @ 003 264 @ @ 002
0035320 264 < @ 002 002 002 h 360 264 4 @ 001 004 l 004 361
0035340 h 360 264 * @ 002 001 004 l 004 361 h 360 264 037 @
0035360 002 002 001 004 l 004 361 h 360 264 023 @ 001 \t \0 \0
0035400 264 \f ` \0 \0 @ 001 \n \0 \0 h 360 020 \0 ( 1
0035420 0 4 Q S T R P O S L 7 2 Q
0035440 \ D E F I N E D P ) \r ( 7 7 Q
0035460 C L I S P C H A R R A Y 2 C
0035500 L R E M P A R S F L G ) \r ( ) \r
0035520 \ C L I S P I F Y B L O C K / C
0035540 L I S P I F Y C R O P S 0 D 1
0035560 \r ( L ( 0 C R O P S L S T )
0035600 F 0 F O R M ) \0 017 \0 001 \0
0035620 001 P \t \0 \0 P 002 001 @ P 001 \v \0 \0 020 \0
0035640 ( 1 4 Q \ C L I S P I F Y B L
0035660 O C K / C L I S P I F Y C R O P
0035700 S 3 \ C L I S P I F Y B L O
0035720 C K / C L I S P 4 ) \r N I L \r (
0035740 ) \r \ C L I S P I F Y B L O C K
0035760 / C L I S P I F Y C R O P S D
0036000 1 \r ( L ( 3 Y 2 C R O P
0036020 F N 1 C R O P S L S T 0
0036040 X ) P 6 C L T Y P 0 P
0036060 5 O P R 0 P 3 S U B P A
0036100 R E N T P 2 P A R E N T
0036120 F 7 S E G F 1 0 Q O P
0036140 R 0 F 1 1 Q P A R E N T
0036160 F 1 2 Q F O R M ) 001 261 \a 004
0036200 \0 004 W 022 021 A 004 A 001 265 003 C Y 265 034 C
0036220 263 i ` \0 \0 234 ` \0 \0 230 g \0 \0 g \0 \0
0036240 033 263 X W 024 \t \0 \0 020 004 l 004 360 262 I
0036260 ` \0 \0 034 263 ; B g \0 \0 360 246 B g \0 \0
0036300 360 262 316 o \0 \0 \0 I \n \0 \0 260 " B g \0
0036320 \0 360 246 B g \0 \0 360 262 267 I 214 d 001 274 o
0036340 \0 \0 \0 L \n \0 \0 244 002 003 265 362 h 262 242 g
0036360 \0 \0 g \0 \0 \n \0 \0 277 021 006 ` \0 \0 230
0036400 g \0 \0 ] g \0 \0 033 276 @ \t \0 \0 Y 023 W
0036420 016 263 ( I h 032 271 ` \0 \0 264 9 I d 001 003
0036440 262 x 277 ` \0 \0 d i 360 262 J 277 I 001 002 002
0036460 263 " I 001 002 001 003 260 e ` \0 \0 230 I 002 001
0036500 ` \0 \0 360 263 323 I \t \0 \0 Y 002 264 \a I h
0036520 032 271 h c 016 277 C 222 261 \0 320 B d g \0 \0
0036540 360 242 261 \0 261 277 g \0 \0 A 001 g \0 \0 I 032
0036560 032 032 020 g \0 \0 360 236 I 001 205 d 001 003 263 036
0036600 002 003 265 371 h 260 027 ` \0 \0 003 262 023 I 001 k
0036620 ` \0 \0 017 016 h 360 203 001 \t \0 \0 263 266 W 020
0036640 g \0 \0 360 262 ! i c 016 277 I d 002 001 ` \0
0036660 \0 360 251 277 ` \0 \0 A 032 b 002 277 I A \t \0
0036700 \0 \n \0 \0 020 I d 002 001 ` \0 \0 360 226 d 002
0036720 002 031 277 I 210 002 241 I 204 \b \0 \0 277 h d 002
0036740 A \n \0 \0 C B \v \0 \0 031 277 i c 016 277 g
0036760 \0 \0 d g \0 \0 033 \n \0 \0 231 h c 016 H Z
0037000 I \t \0 \0 020 C 263 % W 020 263 ! H Z I \t
0037020 \0 \0 020 g \0 \0 360 233 B I g \0 \0 A 032 \n
0037040 \0 \0 032 020 B I 032 020 B 265 004 I 020 I 032 h
0037060 032 020 \0 ( 6 3 7 Q \ A P P E N D
0037100 2 6 1 7 Q C L I S P 3 A 6
0037120 0 1 Q C L I S P 3 A 5 6 7 Q
0037140 \ C L I S P I F Y B L O C K /
0037160 C L I S P 3 B 5 4 6 Q \ C L
0037200 I S P I F Y B L O C K / C L I S
0037220 P I F Y C R O P S 1 5 4 1 Q
0037240 \ N C O N C 2 5 3 1 Q S H O
0037260 U L D N T 5 0 1 Q \ N C O N
0037300 C 2 4 7 6 Q \ A P P E N D 2
0037320 4 3 1 Q C L I S P N O E V A
0037340 L 3 0 7 Q C L I S P 3 A 2
0037360 1 2 Q \ C L I S P I F Y B L O
0037400 C K / C L I S P I F Y 2 1 6 5
0037420 Q R E T E V A L 1 4 4 Q S
0037440 T R P O S 1 1 0 Q S T R P O
0037460 S 4 5 Q \ C L I S P I F Y B
0037500 L O C K / C L I S P I F Y 2 C )
0037520 \r ( 6 3 2 Q w i t h 6 2 3 Q
0037540 m a t c h 5 6 3 Q C L I S
0037560 P T Y P E 5 5 7 Q : 5 1 1
0037600 Q C A R / C D R S T R I N G
0037620 4 6 4 Q C A R / C D R S T R I
0037640 N G 4 5 6 Q C A R / C D R S
0037660 T R I N G 4 4 0 Q : 4 2 0
0037700 Q C L : F L G 4 0 7 Q C L
0037720 : F L G 3 6 3 Q A L L 3 5
0037740 3 Q o f 3 4 6 Q f e t c h
0037760 3 3 5 Q f e t c h 3 0 0 Q
0040000 C A R / C D R S T R I N G 2
0040020 7 1 Q C L : F L G 2 4 3 Q
0040040 C L : F L G 2 2 7 Q C L : F
0040060 L G 2 0 4 Q C L I S P T Y P
0040100 E 2 0 0 Q : 1 7 4 Q C L
0040120 : F L G 1 6 2 Q F O R M 1
0040140 5 7 Q C L I S P I F Y 2 B 1
0040160 2 4 Q r e p l a c e 1 1 6 Q
0040200 f e t c h 7 5 Q r e p l a
0040220 c e 6 7 Q f e t c h 6 0 Q
0040240 C L I S P C H A R S 3 5 Q
0040260 C L I S P T Y P E 3 2 Q :
0040300 2 6 Q C L : F L G 2 2 Q C
0040320 L I S P F L G ) \r ( 1 4 0 Q
0040340 " . " 1 0 4 Q " . " ) \r \ C
0040360 L I S P I F Y B L O C K / C L I
0040400 S P I F Y C R O P S 1 D 1 \r (
0040420 L ( 2 C R O P F N 1 Y
0040440 0 $ L S T ) ) 001 \f \b \0 \0 003 021
0040460 P 004 @ 265 030 A d 262 030 273 h b 002 277 K g
0040500 \0 \0 360 262 ; J 263 # k 260 ) 001 [ 260 362 273
0040520 J 231 I g \0 \0 d H 032 032 032 270 K 225 K H
0040540 \n \0 \0 270 H \t \0 \0 020 j I 363 221 I 202 I
0040560 k 330 g \0 \0 H 032 032 270 h 272 261 \0 270 K d
0040600 g \0 \0 360 262 ( 277 J 246 i 272 k 271 261 \0 246
0040620 I m 377 360 246 I k 330 271 261 \0 232 m 377 g \0
0040640 \0 d H 032 032 032 270 k 271 261 \0 212 d 005 001 245
0040660 d 005 002 241 005 003 262 " J 245 i 272 K 271 260 u
0040700 K j 361 225 K I 330 271 260 k I g \0 \0 d H
0040720 032 032 032 270 K 271 260 ] J 264 \r I g \0 \0 d
0040740 H 032 032 032 270 h 272 K 003 242 K 260 A B g \0
0040760 \0 360 222 K 260 8 K d 002 262 2 001 021 0 \a K
0041000 260 027 d 001 274 g \0 \0 L h 032 032 ] 003 227 N
0041020 265 023 M _ 016 ^ 277 002 003 265 351 O 016 022 032 \t
0041040 \0 \0 210 \t \0 \0 ^ M 031 260 355 001 g \0 \0 H
0041060 032 032 270 @ 002 b \0 261 376 374 \0 ( 3 6 6 Q
0041100 L A S T 3 6 2 Q P A C K
0041120 7 0 Q D R E V E R S E 6 3 Q
0041140 \ A P P E N D 2 ) \r ( 3 7 7 Q
0041160 : 3 3 0 Q % . 3 0 1 Q
0041200 m a t c h 2 5 7 Q : 2 3 6
0041220 Q : 1 6 1 Q : 1 2 3 Q
0041240 : : 1 1 0 5 Q : 4 6 Q :
0041260 2 2 Q : 1 ) \r ( ) \r \ C L I
0041300 S P I F Y B L O C K / C L I S P
0041320 I F Y R P L A C D 1 \r ( L (
0041340 2 : F L G 1 T Y P 0 X
0041360 ) P 1 4 Q T A I L P 1
0041400 3 Q L S T P 1 2 Q S U B
0041420 P A R E N T P 1 1 Q P A R
0041440 E N T P 2 C L T Y P 0 P
0041460 1 O P R 0 F 1 5 Q S E
0041500 G F 1 6 Q C L T Y P 0 F
0041520 1 7 Q P A R E N T ) 001 * \r
0041540 003 \0 003 W 034 g \0 \0 d g \0 \0 033 W 036 021
0041560 t \n J 237 ` \0 \0 233 ` \0 \0 227 g \0 \0 g
0041600 \0 \0 033 244 @ \t \0 \0 020 @ \t \0 \0 277 A g
0041620 \0 \0 360 262 026 @ 002 002 002 001 276 @ 002 002 002 002
0041640 002 _ 016 277 @ 002 001 260 G @ 001 @ 001 @ 002 001
0041660 @ 002 002 001 \v \0 \0 360 262 314 @ 002 001 276 @ 002
0041700 @ 001 g \0 \0 033 265 ! @ d 001 \t \0 \0 250 277
0041720 @ 001 \t \0 \0 265 022 @ 001 g \0 \0 @ 001 \t \0
0041740 \0 \t \0 \0 \v \0 \0 \n \0 \0 _ 016 277 A _ 020
0041760 277 B 263 / A @ 002 O 016 \n \0 \0 032 \t \0 \0
0042000 274 H h 360 c 032 277 K _ 022 277 L O 016 001 262
0042020 o g \0 \0 i 021 021 \f O 016 001 \t \0 \0 022 260
0042040 e N d 003 264 ! 001 g \0 \0 033 ] 262 027 o \0
0042060 \0 \0 o \0 \0 \0 M \v \0 \0 ] 226 N 002 001 M
0042100 N 001 202 N h d O 020 \f \0 \0 \ 002 263 264 h
0042120 c 032 277 A g \0 \0 360 262 031 A O 020 g \0 \0
0042140 L g \0 \0 O 016 \t \0 \0 032 \n \0 \0 032 032 032
0042160 020 @ 001 L O 016 \t \0 \0 \n \0 \0 032 020 g \0
0042200 \0 h h 032 032 \n \0 \0 \t \0 \0 020 \0 ( 4 4
0042220 7 Q C L I S P 3 A 4 4 4 Q
0042240 \ N C O N C 2 4 3 0 Q \ N C
0042260 O N C 2 4 2 5 Q \ C L I S P
0042300 I F Y B L O C K / C L I S P I F
0042320 Y 1 4 1 1 Q \ N C O N C 2
0042340 4 0 5 Q \ C L I S P I F Y B L
0042360 O C K / C L I S P I F Y 1 3 4
0042400 7 Q \ C L I S P I F Y B L O C
0042420 K / C L I S P I F Y C R O P S
0042440 3 2 6 Q S U B P A I R 2 7 2
0042460 Q C L I S P I F Y 2 A 2 3 4
0042500 Q C L I S P I F Y 2 A 2 3 0
0042520 Q L D I F F 2 0 6 Q N T H
0042540 2 0 3 Q P U T P R O P 2 0
0042560 0 Q L E N G T H 1 7 5 Q S
0042600 M A R T A R G L I S T 1 6 1 Q
0042620 N A R G S 1 5 2 Q S U B R
0042640 P 1 2 3 Q \ C L I S P I F Y
0042660 B L O C K / C L I S P I F Y L O
0042700 O K U P 5 1 Q \ C L I S P I
0042720 F Y B L O C K / C L I S P 4 4
0042740 4 Q \ C L I S P I F Y B L O C
0042760 K / C L I S P I F Y 2 C ) \r ( 4
0043000 3 5 Q _ 4 0 0 Q w i t h
0043020 3 7 4 Q o f 3 6 3 Q r e p
0043040 l a c e 3 0 6 Q C R O P S
0043060 2 6 0 Q _ 1 7 0 Q N A R G
0043100 S 1 4 1 Q N A R G S 5 6 Q
0043120 r e p l a c e 3 6 Q C L I
0043140 S P T Y P E 3 3 Q : 2 7 Q
0043160 C L : F L G 2 3 Q C L I S
0043200 P F L G 1 0 Q C L I S P T Y
0043220 P E 4 _ ) \r ( 3 2 2 Q (
0043240 : 1 : : 1 ) 3 1 6 Q ( A
0043260 D ) ) \r \ C L I S P I F Y B L O
0043300 C K / C L I S P I F Y M A P S
0043320 D 1 \r ( L ( 1 O P R 0 I
0043340 N - O N ) F 4 F O R M )
0043360 \0 322 004 001 \0 002 T 002 002 001 T 002 002 002 001 021
0043400 " 003 H 003 264 = H 001 g \0 \0 360 264 5 H 002
0043420 001 X 003 225 H 002 001 002 263 ( I 262 031 I 003 264
0043440 " I 001 g \0 \0 360 264 032 I 002 001 Y 003 224 I
0043460 002 001 002 253 T 001 T 001 T 002 001 \n \0 \0 360 241
0043500 h 020 H 003 265 016 T 002 001 g \0 \0 360 227 g \0
0043520 \0 206 002 001 001 202 g \0 \0 Z A g \0 \0 360 262
0043540 032 H 003 002 002 002 263 332 H g \0 \0 J g \0 \0
0043560 h 032 032 032 \n \0 \0 263 311 J 264 021 ` \0 \0 223
0043600 g \0 \0 202 g \0 \0 J h 032 032 @ h 032 T 002
0043620 001 \t \0 \0 [ d 002 253 d 001 \t \0 \0 225 277 K
0043640 001 \t \0 \0 I ` \0 \0 223 g \0 \0 202 g \0 \0
0043660 J \v \0 \0 H A J \v \0 \0 \n \0 \0 \n \0 \0
0043700 \n \0 \0 \n \0 \0 020 \0 ( 3 1 7 Q \ N
0043720 C O N C 2 3 1 4 Q \ N C O N
0043740 C 2 3 1 1 Q \ N C O N C 2
0043760 3 0 6 Q \ N C O N C 2 3 0 3
0044000 Q \ C L I S P I F Y B L O C K
0044020 / C L M A P S 2 2 7 5 Q \ C
0044040 L I S P I F Y B L O C K / C L M
0044060 A P S 2 2 5 5 Q \ A P P E N
0044100 D 2 2 4 6 Q \ C L I S P I F
0044120 Y B L O C K / C L R E M P A R S
0044140 2 3 5 Q C L I S P I F Y 2 A
0044160 2 0 0 Q E D I T F I N D P
0044200 1 0 7 Q \ C L I S P I F Y B L
0044220 O C K / C L I S P I F Y L O O K
0044240 U P ) \r ( 2 7 1 Q B Y 2 6 5
0044260 Q b y 2 6 1 Q L C A S E F
0044300 L G 2 2 0 Q F O R 2 1 4 Q
0044320 f o r 2 1 0 Q L C A S E F
0044340 L G 1 7 1 Q - - 1 6 5 Q
0044360 S E T Q 1 4 7 Q s u b s e t
0044400 1 4 2 Q X 1 3 2 Q Y 1
0044420 2 5 Q X 5 7 Q F U N C T I
0044440 O N 2 4 Q F U N C T I O N )
0044460 \r ( ) \r \ C L I S P I F Y B L O
0044500 C K / C L M A P S 1 D 1 \r ( L
0044520 ( 0 F N ) ) \0 > \0 \0 \0 001 @
0044540 001 g \0 \0 360 243 @ 002 001 020 g \0 \0 @ 002 002
0044560 262 " @ 002 001 001 \t \0 \0 263 031 @ 002 001 207 d
0044600 001 004 l 004 361 245 002 003 265 367 i 201 277 h 222 @
0044620 002 207 g \0 \0 h 032 @ 002 032 032 020 \0 ( 3 1
0044640 Q \ D E F I N E D P ) \r ( 6 5
0044660 Q X 1 5 Q L A M B D A 4
0044700 F / L ) \r ( ) \r \ C L I S P I
0044720 F Y B L O C K / C L M A P S 2
0044740 D 1 \r ( L ( 2 V A R 1 W
0044760 O R D 0 D E F ) P 4 C
0045000 L T Y P 0 P 3 O P R 0 )
0045020 001 K 005 \0 \0 003 @ 264 003 202 261 001 E 021 P 004
0045040 A g \0 \0 360 262 ` \0 \0 223 g \0 \0 202 g
0045060 \0 \0 b 002 277 ` \0 \0 223 g \0 \0 202 g \0 \0
0045100 B h 032 032 271 @ 003 263 030 @ d \t \0 \0 226 277
0045120 @ h 032 261 \0 327 B h 032 032 h 032 261 \0 316 A
0045140 g \0 \0 360 263 027 A g \0 \0 360 256 A g \0 \0
0045160 360 250 A g \0 \0 360 242 261 \0 254 @ d 002 002 002
0045200 222 261 \0 244 002 002 001 X d 001 g \0 \0 360 227 d
0045220 002 002 243 002 001 Z 217 001 g \0 \0 360 242 261 \0 207
0045240 H 002 Z 002 002 h 360 262 } J Y 002 270 I d 001
0045260 001 g \0 \0 360 262 023 001 002 001 271 ` \0 \0 224 g
0045300 \0 \0 260 023 g \0 \0 214 001 271 ` \0 \0 223 g \0
0045320 \0 202 g \0 \0 I \t \0 \0 Z d 002 250 d 001 \t
0045340 \0 \0 222 277 J 001 032 271 A g \0 \0 360 246 A g
0045360 \0 \0 360 262 / H \t \0 \0 Z 001 002 002 263 % J
0045400 001 001 g \0 \0 360 262 034 ` \0 \0 223 g \0 \0 202
0045420 g \0 \0 b 002 277 H J \n \0 \0 J 001 002 \n \0
0045440 \0 204 H 202 @ 002 002 \t \0 \0 X @ 003 265 026 A
0045460 H d 002 250 d 001 \t \0 \0 222 277 H 001 I \n \0
0045500 \0 032 020 002 001 002 247 @ 002 001 001 B 360 263 342 A
0045520 @ 001 @ 002 001 H 032 032 I 032 B h 032 032 032 020
0045540 \0 ( 4 5 2 Q \ A P P E N D 2
0045560 4 4 2 Q \ C L I S P I F Y B L
0045600 O C K / C L R E M P A R S 4 2
0045620 3 Q \ C L I S P I F Y B L O C
0045640 K / C L I S P I F Y 1 4 1 2 Q
0045660 \ N C O N C 2 4 0 4 Q L D
0045700 I F F 3 4 2 Q F L A S T 3
0045720 1 3 Q \ C L I S P I F Y B L O
0045740 C K / C L R E M P A R S 3 0 2
0045760 Q C L I S P I F Y 2 A 6 7 Q
0046000 F N T Y P ) \r ( 3 7 4 Q C O
0046020 L L E C T 3 7 0 Q c o l l e
0046040 c t 3 6 4 Q L C A S E F L G
0046060 3 5 6 Q L I S T 3 3 3 Q
0046100 j o i n 3 2 5 Q J O I N 2
0046120 7 6 Q W H E N 2 7 2 Q w h
0046140 e n 2 6 6 Q L C A S E F L G
0046160 2 6 0 Q U N L E S S 2 5 3
0046200 Q u n l e s s 2 4 7 Q L C
0046220 A S E F L G 2 3 5 Q N O T
0046240 2 0 4 Q A N D 1 6 6 Q C O
0046260 N D 1 3 7 Q j o i n 1 3 1
0046300 Q d o 1 2 3 Q J O I N 1
0046320 1 4 Q D O 5 1 Q C O L L E
0046340 C T 4 5 Q c o l l e c t 4
0046360 1 Q L C A S E F L G 3 3 Q
0046400 W H E N 2 7 Q w h e n 2 3
0046420 Q L C A S E F L G 1 5 Q s
0046440 u b s e t ) \r ( ) \r \ C L I S P
0046460 I F Y B L O C K / S H R I E K I
0046500 F Y D 1 \r ( L ( 0 L O O K
0046520 A T ) P 5 S U B P A R E N
0046540 T P 4 P A R E N T P 2
0046560 R E S U L T P P 1 C L T
0046600 Y P 0 P 0 O P R 0 F 6
0046620 F O R M ) \0 226 006 001 \0 001 g \0 \0
0046640 d g \0 \0 033 021 B 005 @ 001 [ d g \0 \0 360
0046660 245 d g \0 \0 360 232 g \0 \0 \t \0 \0 360 263 031
0046700 h 020 g \0 \0 360 245 K g \0 \0 360 231 K g \0
0046720 \0 \t \0 \0 360 264 354 V \t \0 \0 g \0 \0 h 032
0046740 Z @ g \0 \0 i \v \0 \0 J 002 264 \v J g \0
0046760 \0 h 032 \n \0 \0 Z d 002 001 004 l 004 360 236 d
0047000 002 001 \t \0 \0 227 J 002 001 \t \0 \0 264 265 g \0
0047020 \0 g \0 \0 033 250 J g \0 \0 \n \0 \0 263 243 g
0047040 \0 \0 g \0 \0 033 250 J g \0 \0 \n \0 \0 263 222
0047060 J 020 \0 ( 2 2 0 Q E D I T F I N
0047100 D P 1 7 7 Q E D I T F I N D
0047120 P 1 5 6 Q B O U N D P 1 4
0047140 7 Q F N T Y P 1 3 0 Q \ N
0047160 C O N C 2 1 1 3 Q \ C L I S
0047200 P I F Y B L O C K / S H R K F Y
0047220 7 5 Q \ C L I S P I F Y B L
0047240 O C K / C L I S P 4 6 6 Q \
0047260 C L I S P I F Y B L O C K / C L
0047300 I S P I F Y L O O K U P 3 7 Q
0047320 \ C L I S P I F Y B L O C K /
0047340 C L I S P I F Y L O O K U P ) \r
0047360 ( 2 1 5 Q ! ! 2 0 7 Q C L
0047400 I S P W O R D 2 0 4 Q ! !
0047420 1 7 4 Q ! 1 6 6 Q C L I S
0047440 P W O R D 1 6 3 Q ! 1 2 3
0047460 Q > 1 0 7 Q S T A R T I N
0047500 G 1 0 0 Q < 6 3 Q N C O
0047520 N C 1 5 5 Q / N C O N C 1
0047540 4 7 Q N C O N C 1 3 4 Q N
0047560 C O N C 2 7 Q / N C O N C
0047600 2 1 Q N C O N C 6 C L I S
0047620 P T Y P E 2 < ) \r ( ) \r \ C
0047640 L I S P I F Y B L O C K / S H R
0047660 K F Y D 1 \r ( L ( 2 S T A
0047700 G E F L A G 1 W O R K F L A
0047720 G 0 L O O K A T ) P 1 6
0047740 Q F O R M F 1 7 Q R E S
0047760 U L T P F 2 0 Q F O R M
0050000 F 2 1 Q C L I S P I F Y F N
0050020 ) \a u 017 003 \0 003 i 021 321 \r @ 001 Y 003
0050040 265 g \0 \0 276 @ 002 272 A g \0 \0 360 250 A
0050060 d g \0 \0 360 262 0 277 B 262 025 g \0 \0 260 031
0050100 001 274 I 002 [ 002 _ 016 277 g \0 \0 260 331 J 223
0050120 g \0 \0 202 g \0 \0 275 B 262 L h b 004 277 i
0050140 _ 030 277 260 B g \0 \0 360 262 032 B 235 g \0 \0
0050160 275 h b 004 277 i _ 030 277 260 , J 263 % g \0
0050200 \0 260 # A d g \0 \0 360 236 277 B 227 h b 004
0050220 277 i _ 030 277 g \0 \0 212 g \0 \0 360 242 261 \0
0050240 204 g \0 \0 275 J 265 q M g \0 \0 360 252 M d
0050260 g \0 \0 360 242 261 001 323 277 N d g \0 \0 360 242
0050300 261 \0 367 277 I 242 261 \0 323 W 036 M I h 032 032
0050320 \n \0 \0 277 I g \0 \0 360 263 3 I g \0 \0 360
0050340 263 , I g \0 \0 360 263 % I g \0 \0 360 263 036
0050360 I g \0 \0 360 263 027 I g \0 \0 360 256 I g \0
0050400 \0 360 250 I g \0 \0 360 242 261 002 215 W @ W
0050420 " \v \0 \0 261 002 201 A B \v \0 \0 002 _ 022 277
0050440 260 210 A g \0 \0 360 250 A d g \0 \0 360 262 035
0050460 277 B 223 g \0 \0 202 g \0 \0 275 B 242 261 377 h
0050500 h b 004 277 i _ 030 277 261 377 ] g \0 \0 360 242
0050520 261 377 U J 265 036 I g \0 \0 360 263 025 I g \0
0050540 \0 360 254 I g \0 \0 360 246 I d g \0 \0 360 233
0050560 h 020 I b 002 277 b \0 023 261 376 237 g \0 \0 360
0050600 256 I g \0 \0 360 250 I g \0 \0 360 242 261 377 030
0050620 W 036 h h 032 \n \0 \0 020 O 030 242 261 001 372 J
0050640 002 222 261 001 364 J 242 261 001 357 W 036 M h h 032
0050660 032 \n \0 \0 261 001 341 g \0 \0 360 242 261 001 332 K
0050700 262 \ L d g \0 \0 360 245 d g \0 \0 360 224 _
0050720 024 261 001 307 g \0 \0 360 236 O 016 243 i _ 032 277
0050740 g \0 \0 _ 024 261 001 263 L d g \0 \0 360 222 261
0050760 001 241 d g \0 \0 360 222 261 001 230 d g \0 \0 360
0051000 222 261 001 217 d g \0 \0 360 222 261 001 206 g \0 \0
0051020 360 225 M _ 024 261 001 203 M 261 001 w L g \0 \0
0051040 360 263 036 L g \0 \0 360 263 027 L g \0 \0 360 256
0051060 L g \0 \0 360 250 L d g \0 \0 360 262 ! 277 O
0051100 030 242 261 001 T J 002 222 261 001 N J 242 261 001 I
0051120 W 036 M h h 032 032 \n \0 \0 261 001 ; g \0 \0
0051140 360 254 L g \0 \0 360 246 L g \0 \0 360 262 027 W
0051160 036 M g \0 \0 h g \0 \0 h 032 032 032 032 \n \0
0051200 \0 261 001 024 M 261 001 \v g \0 \0 360 242 261 001 \t
0051220 N d g \0 \0 360 262 O 277 W 036 I h 032 \n \0
0051240 \0 277 I g \0 \0 360 263 3 I g \0 \0 360 263 ,
0051260 I g \0 \0 360 263 % I g \0 \0 360 263 036 I g
0051300 \0 \0 360 263 027 I g \0 \0 360 256 I g \0 \0 360
0051320 250 I g \0 \0 360 242 261 \0 277 W @ W " \v
0051340 \0 \0 261 \0 263 g \0 \0 360 242 261 \0 254 K 262 P
0051360 L d g \0 \0 360 253 d g \0 \0 360 245 d g \0
0051400 \0 360 224 _ 024 261 \0 223 g \0 \0 360 263 026 L g
0051420 \0 \0 360 255 L g \0 \0 360 247 L d g \0 \0 360
0051440 227 277 h 270 L _ 024 260 q g \0 \0 360 264 \t g
0051460 \0 \0 _ 024 260 d 270 g \0 \0 _ 024 260 \ L g
0051500 \0 \0 360 263 035 L g \0 \0 360 263 026 L g \0 \0
0051520 360 255 L g \0 \0 360 247 L d g \0 \0 360 232 277
0051540 W 036 h h 032 \n \0 \0 260 - g \0 \0 360 254 L
0051560 g \0 \0 360 246 L g \0 \0 360 262 023 W 036 g \0
0051600 \0 h g \0 \0 h 032 032 032 \n \0 \0 207 g \0 \0
0051620 _ 024 277 h X 277 O 024 g \0 \0 360 251 O 024 d
0051640 g \0 \0 360 262 023 277 W 036 O 024 h 032 \n \0 \0
0051660 I \t \0 \0 261 003 ! g \0 \0 360 230 W 036 I \t
0051700 \0 \0 261 003 023 O 024 d g \0 \0 360 263 - d g
0051720 \0 \0 360 263 & d g \0 \0 360 263 037 d g \0 \0
0051740 360 263 030 d g \0 \0 360 257 d g \0 \0 360 251 g
0051760 \0 \0 360 242 261 002 345 O 024 g \0 \0 360 251 O 024
0052000 d g \0 \0 360 262 026 277 O 024 g \0 \0 \t \0 \0
0052020 360 263 ) g \0 \0 _ 026 261 002 303 g \0 \0 360 247
0052040 O 024 g \0 \0 360 262 024 O 024 g \0 \0 \t \0 \0
0052060 360 247 g \0 \0 _ 026 261 002 244 I 021 001 016 K O
0052100 024 i \v \0 \0 _ 020 023 O 020 002 _ 020 242 261 001
0052120 320 M g \0 \0 360 252 M d g \0 \0 360 242 261 001
0052140 201 277 J 262 032 H 235 A g \0 \0 360 227 g \0 \0
0052160 _ 026 261 002 i g \0 \0 _ 026 261 002 a A d g
0052200 \0 \0 360 262 { 277 O 024 g \0 \0 360 263 + O 024
0052220 g \0 \0 360 263 # O 024 g \0 \0 360 263 033 O 024
0052240 g \0 \0 360 263 023 O 024 g \0 \0 360 251 O 024 d
0052260 g \0 \0 360 262 , 277 O 030 227 g \0 \0 _ 026 261
0052300 002 034 O 024 g \0 \0 360 246 O 024 g \0 \0 360 227
0052320 g \0 \0 _ 026 261 002 006 g \0 \0 _ 026 261 001 376
0052340 g \0 \0 360 242 261 001 364 O 030 242 O 032 227 g \0
0052360 \0 _ 026 261 001 350 g \0 \0 _ 026 261 001 340 g \0
0052400 \0 360 262 Z O 024 g \0 \0 360 263 031 O 024 g \0
0052420 \0 360 257 O 024 g \0 \0 360 250 O 024 d g \0 \0
0052440 360 230 277 g \0 \0 _ 026 261 001 263 g \0 \0 360 250
0052460 O 024 d g \0 \0 360 230 277 g \0 \0 _ 026 261 001
0052500 235 g \0 \0 360 242 261 001 223 O 032 227 g \0 \0 _
0052520 026 261 001 212 g \0 \0 _ 026 261 001 202 A g \0 \0
0052540 360 250 A d g \0 \0 360 262 a 277 O 024 g \0 \0
0052560 360 263 023 O 024 g \0 \0 360 251 O 024 d g \0 \0
0052600 360 262 ! 277 O 030 227 g \0 \0 _ 026 261 001 O O
0052620 016 227 g \0 \0 _ 026 261 001 D g \0 \0 _ 026 261
0052640 001 < g \0 \0 360 263 033 O 024 g \0 \0 360 263 023
0052660 O 024 g \0 \0 360 251 O 024 g \0 \0 360 242 261 001
0052700 033 g \0 \0 _ 026 261 001 025 g \0 \0 360 250 A g
0052720 \0 \0 360 242 261 001 005 g \0 \0 _ 026 261 \0 377 g
0052740 \0 \0 360 242 261 \0 365 O 020 001 004 l 004 360 262 031
0052760 O 020 001 \t \0 \0 237 O 020 001 \t \0 \0 250 W 036
0053000 @ 001 h 032 261 \0 321 W 036 g \0 \0 h 032 O 020
0053020 g \0 \0 h 032 \n \0 \0 \n \0 \0 261 \0 272 M g
0053040 \0 \0 360 250 M d g \0 \0 360 262 ^ 277 O 024 g
0053060 \0 \0 360 263 033 O 024 g \0 \0 360 263 023 O 024 g
0053100 \0 \0 360 251 O 024 d g \0 \0 360 262 032 277 O 030
0053120 242 261 \0 210 J 002 222 261 \0 202 J 262 ~ W 036 M
0053140 h h 032 260 q g \0 \0 360 256 O 024 g \0 \0 360
0053160 247 O 024 g \0 \0 360 262 b W 036 M g \0 \0 h
0053200 g \0 \0 h 032 032 260 M g \0 \0 360 262 M O 024
0053220 g \0 \0 360 263 031 O 024 g \0 \0 360 257 O 024 g
0053240 \0 \0 360 250 O 024 d g \0 \0 360 227 277 W 036 h
0053260 h 032 260 # g \0 \0 360 256 O 024 g \0 \0 360 247
0053300 O 024 g \0 \0 360 262 023 W 036 g \0 \0 h g \0
0053320 \0 h 032 032 032 \n \0 \0 277 O 026 g \0 \0 360 225
0053340 W 036 O 020 260 r O 026 d g \0 \0 360 262 = 277
0053360 O 020 001 004 l 004 360 262 033 O 020 001 \t \0 \0 262
0053400 023 O 020 001 \t \0 \0 251 W 036 M @ 001 h 032 032
0053420 260 F W 036 M g \0 \0 h 032 032 O 020 g \0 \0
0053440 h 032 \n \0 \0 \n \0 \0 260 . g \0 \0 360 262 ,
0053460 M g \0 \0 360 247 M d g \0 \0 360 233 277 W 036
0053500 M I \t \0 \0 h 032 032 214 g \0 \0 360 233 W 036
0053520 I \t \0 \0 h 032 \n \0 \0 277 O 022 225 W 036 O
0053540 022 260 % O 030 236 A d g \0 \0 360 230 277 W 036
0053560 h h 032 260 023 A g \0 \0 360 235 J 233 W 036 g
0053600 \0 \0 h h 032 032 \n \0 \0 W 036 020 \0 ( 3 5
0053620 6 0 Q \ N C O N C 2 3 5 0 0
0053640 Q \ N C O N C 2 3 4 7 3 Q
0053660 \ C L I S P I F Y B L O C K / C
0053700 L I S P I F Y 2 C 3 4 5 4 Q
0053720 \ C L I S P I F Y B L O C K / C
0053740 L I S P I F Y 2 C 3 4 1 7 Q
0053760 \ N C O N C 2 3 4 1 4 Q \ N
0054000 C O N C 2 3 3 5 6 Q B O U N
0054020 D P 3 3 4 6 Q F N T Y P 3
0054040 2 7 7 Q \ N C O N C 2 3 0 0
0054060 2 Q \ N C O N C 2 2 7 7 7 Q
0054100 \ N C O N C 2 2 7 4 4 Q B
0054120 O U N D P 2 7 3 5 Q F N T Y
0054140 P 2 0 5 4 Q \ C L I S P I F
0054160 Y B L O C K / S H R K F Y 2 2
0054200 0 2 7 Q \ C L I S P I F Y B L
0054220 O C K / C L I S P I F Y L O O K
0054240 U P 1 7 6 7 Q \ C L I S P I
0054260 F Y B L O C K / C L I S P I F Y
0054300 L O O K U P 1 6 5 1 Q C L I
0054320 S P I F Y 2 A 1 6 3 3 Q C L
0054340 I S P I F Y 2 A 1 6 2 7 Q \
0054360 N C O N C 2 1 5 6 3 Q \ N C
0054400 O N C 2 1 5 1 7 Q \ N C O N
0054420 C 2 1 3 1 1 Q D W I M I F Y
0054440 1 A 1 2 1 0 Q \ N C O N C 2
0054460 1 1 5 0 Q \ N C O N C 2 1
0054500 1 0 1 Q \ N C O N C 2 6 3 3
0054520 Q \ N C O N C 2 5 7 7 Q \
0054540 N C O N C 2 4 0 3 Q \ C L I
0054560 S P I F Y B L O C K / S H R K F
0054600 Y 2 3 7 3 Q D W I M I F Y 1
0054620 A 2 7 2 Q \ N C O N C 2 ) \r
0054640 ( 3 5 5 1 Q ! 3 5 4 0 Q A
0054660 P P E N D 3 5 2 2 Q N C O N
0054700 C 1 3 4 6 3 Q L I S T I T
0054720 3 4 4 2 Q ! ! 3 4 3 3 Q !
0054740 3 4 2 4 Q C L I S P I F Y 2
0054760 C I T 3 4 0 7 Q > 3 3 7 7
0055000 Q < 3 3 2 3 Q O P A N G L
0055020 E 3 3 0 5 Q O F F A N G L E
0055040 S 3 2 7 0 Q > 3 2 6 4 Q
0055060 < 3 2 5 4 Q / N C O N C 1
0055100 3 2 4 5 Q N C O N C 1 3 2 3
0055120 6 Q C O N S 3 2 2 1 Q / N
0055140 C O N C 3 2 1 1 Q L I S T
0055160 3 2 0 2 Q N C O N C 3 1 7 2
0055200 Q A P P E N D 3 1 6 2 Q L
0055220 I S T I T 3 1 5 2 Q > 3 1
0055240 4 6 Q < 3 1 3 5 Q / N C O
0055260 N C 1 3 1 2 6 Q N C O N C 1
0055300 3 1 1 7 Q C O N S 3 0 6 1
0055320 Q / N C O N C 3 0 5 1 Q L
0055340 I S T 3 0 4 1 Q N C O N C
0055360 3 0 3 1 Q A P P E N D 3 0 2
0055400 0 Q ! 3 0 1 1 Q ! ! 2 7
0055420 7 2 Q > 2 7 6 3 Q < 2 7
0055440 1 1 Q L I S T I T 2 7 0 1 Q
0055460 O P A N G L E 2 6 7 1 Q /
0055500 N C O N C 1 2 6 6 3 Q N C O
0055520 N C 1 2 6 5 3 Q O P A N G L
0055540 E 2 6 4 3 Q / N C O N C 1
0055560 2 6 3 4 Q / N C O N C 2 6 2
0055600 4 Q N C O N C 1 2 6 1 4 Q
0055620 N C O N C 2 6 0 4 Q O P A N
0055640 G L E 2 5 7 4 Q O F F A N G
0055660 L E S 2 5 6 1 Q O P A N G L
0055700 E 2 5 4 7 Q C O N S 2 5 3
0055720 7 Q A P P E N D 2 5 2 7 Q
0055740 L I S T 2 5 1 6 Q / N C O N
0055760 C 2 5 0 7 Q N C O N C 2 4
0056000 7 6 Q O F F A N G L E S 2 4
0056020 6 6 Q O P A N G L E 2 4 5 3
0056040 Q A P P E N D 2 4 4 3 Q O
0056060 F F A N G L E S 2 4 3 5 Q L
0056100 I S T 2 4 2 5 Q C O N S 2
0056120 4 1 5 Q O P A N G L E 2 4 0
0056140 7 Q / N C O N C 1 2 3 7 7 Q
0056160 / N C O N C 2 3 7 0 Q N C
0056200 O N C 1 2 3 6 0 Q N C O N C
0056220 2 3 5 0 Q C O N S 2 3 4 0
0056240 Q O F F A N G L E S 2 3 3 0
0056260 Q O P A N G L E 2 3 1 2 Q
0056300 A P P E N D 2 3 0 2 Q O P A
0056320 N G L E 2 2 7 2 Q O F F A N
0056340 G L E S 2 2 6 5 Q C O N S
0056360 2 2 5 6 Q L I S T 2 2 4 4 Q
0056400 O P A N G L E 2 2 3 2 Q /
0056420 N C O N C 1 2 2 2 2 Q / N C
0056440 O N C 2 2 1 2 Q L I S T 2
0056460 2 0 2 Q N C O N C 1 2 1 7 2
0056500 Q N C O N C 2 1 6 2 Q C O
0056520 N S 2 1 5 1 Q A P P E N D
0056540 2 1 3 7 Q O P A N G L E 2 1
0056560 2 7 Q O F F A N G L E S 2 1
0056600 2 2 Q A P P E N D 2 1 0 3 Q
0056620 ! 2 0 7 4 Q ! ! 2 0 3 4
0056640 Q C L I S P I F Y 2 C I T 2
0056660 0 2 4 Q N C O N C 1 2 0 1 4
0056700 Q / N C O N C 1 2 0 0 5 Q
0056720 N C O N C 1 1 7 7 5 Q C L I
0056740 S P I F Y 2 C I T 1 7 6 4 Q
0056760 N C O N C 1 7 5 3 Q / N C O
0057000 N C 1 7 4 3 Q N C O N C 1
0057020 7 3 1 Q / N C O N C 1 1 7 2
0057040 4 Q / N C O N C 1 7 1 6 Q
0057060 N C O N C 1 1 7 0 7 Q N C O
0057100 N C 1 7 0 0 Q L I S T 1 6
0057120 7 1 Q C O N S 1 6 6 2 Q A
0057140 P P E N D 1 6 4 1 Q A D D I
0057160 T O N 1 6 1 2 Q ! 1 6 0 2
0057200 Q ! ! 1 5 6 7 Q A D D I T
0057220 O N 1 5 5 4 Q > 1 5 5 0 Q
0057240 < 1 5 4 0 Q / N C O N C 1
0057260 1 5 3 2 Q N C O N C 1 1 5
0057300 2 4 Q C O N S 1 5 0 4 Q /
0057320 N C O N C 1 4 7 5 Q Q U O T
0057340 E 1 4 6 7 Q L I S T 1 4 6
0057360 0 Q N C O N C 1 4 5 1 Q A
0057400 P P E N D 1 4 4 1 Q A D D I
0057420 T O N 1 4 3 1 Q A D D I T O
0057440 N 1 4 2 3 Q Q U O T E 1 4
0057460 0 6 Q / N C O N C 1 1 3 7 7
0057500 Q / N C O N C 1 3 7 1 Q N
0057520 C O N C 1 1 3 6 2 Q N C O N
0057540 C 1 3 5 0 Q A P P E N D 1
0057560 3 4 2 Q L I S T 1 3 3 4 Q
0057600 C O N S 1 3 1 7 Q I T S A L
0057620 I S T 1 2 7 4 Q Q U O T E
0057640 1 2 6 6 Q / N C O N C 1 1 2
0057660 6 0 Q / N C O N C 1 2 5 1 Q
0057700 N C O N C 1 1 2 4 2 Q N C
0057720 O N C 1 2 3 3 Q L I S T 1
0057740 2 2 4 Q C O N S 1 2 1 5 Q
0057760 A P P E N D 1 1 7 4 Q E L E
0060000 M E N T A L 1 1 6 2 Q L I S
0060020 T I T 1 1 4 0 Q > 1 1 3 4
0060040 Q < 1 1 2 3 Q / N C O N C
0060060 1 1 1 1 5 Q N C O N C 1 1
0060100 1 0 7 Q C O N S 1 0 4 2 Q
0060120 / N C O N C 1 0 3 3 Q Q U O
0060140 T E 1 0 2 5 Q L I S T 1 0
0060160 1 6 Q N C O N C 1 0 0 7 Q
0060200 A P P E N D 7 6 7 Q Q U O T
0060220 E 7 5 7 Q / N C O N C 1 7
0060240 4 6 Q / N C O N C 7 3 5 Q
0060260 N C O N C 1 7 2 4 Q N C O N
0060300 C 7 1 2 Q A P P E N D 6 7
0060320 6 Q A P P E N D 6 6 4 Q C
0060340 O N S 6 5 6 Q L I S T 6 4
0060360 1 Q I T S A L I S T 5 6 2 Q
0060400 / N C O N C 1 5 5 4 Q N C
0060420 O N C 1 5 4 6 Q C O N S 5
0060440 2 5 Q / N C O N C 5 1 6 Q
0060460 N C O N C 5 1 0 Q A P P E N
0060500 D 5 0 1 Q L I S T 4 6 5 Q
0060520 S T A R T I N G 4 4 1 Q L
0060540 I S T I T 4 3 5 Q ! ! 4 2
0060560 4 Q / N C O N C 1 4 1 5 Q
0060600 N C O N C 1 3 5 6 Q Q U O T
0060620 E 3 5 0 Q / N C O N C 1 3
0060640 4 2 Q / N C O N C 3 3 3 Q
0060660 N C O N C 1 3 2 4 Q N C O N
0060700 C 3 1 5 Q L I S T 3 0 6 Q
0060720 C O N S 2 7 7 Q A P P E N
0060740 D 2 4 5 Q E L E M E N T A L
0060760 2 3 2 Q ! 2 2 3 Q ! !
0061000 2 1 3 Q L I S T I T 2 0 3 Q
0061020 L I S T 1 7 7 Q ! 1 5 7
0061040 Q A P P E N D 1 5 0 Q !
0061060 1 2 7 Q L I S T I T 1 1 7 Q
0061100 C O N S 7 6 Q ! 7 2 Q
0061120 ! ! 6 3 Q I T S A L I S T
0061140 4 5 Q ! ! 3 3 Q / N C O N
0061160 C 2 4 Q N C O N C 1 4 Q
0061200 E L E M E N T A L ) \r ( ) \r \ C
0061220 L I S P I F Y B L O C K / S H R
0061240 K F Y 2 D 1 \r ( L ( 2 S T
0061260 A G E F L A G 1 W O R K F L
0061300 A G 0 L O O K A T ) P 0
0061320 R E S U L T P ) \0 022 001 \0 \0 003
0061340 021 020 \0 g \0 \0 h 032 X @ A B \v \0 \0 H
0061360 020 \0 ( 1 6 Q \ C L I S P I F Y
0061400 B L O C K / S H R K F Y ) \r ( 5
0061420 T E M P A T O M ) \r ( ) \r \ C
0061440 L I S P I F Y B L O C K / C L I
0061460 S P I F Y L O O K U P D 1 \r (
0061500 L ( 4 C L A S S D E F 3
0061520 C L A S S 2 V A R 2 1 V
0061540 A R 1 0 W O R D ) F 1
0061560 D E C L S T ) \0 W 001 001 \0 005 021 020
0061600 \0 C 247 @ g \0 \0 033 b 006 277 D 247 C g \0
0061620 \0 033 b \b 277 C 235 Q 233 @ A B Q h C D
0061640 \r \a \0 \0 216 @ g \0 \0 033 265 \n C g \0 \0
0061660 033 265 003 @ X D 001 g \0 \0 360 262 027 d d D
0061700 002 001 360 236 277 A 005 003 243 B 005 003 224 D 002 002
0061720 001 020 H 020 \0 ( 4 5 Q C L I S P L
0061740 O O K U P 0 ) \r ( 7 3 Q A R I
0061760 T H 6 1 Q L I S P F N 5 2
0062000 Q L I S P F N 2 2 Q C L I
0062020 S P C L A S S D E F 1 0 Q C
0062040 L I S P C L A S S ) \r ( ) \r \ C
0062060 L I S P I F Y B L O C K / C L S
0062100 T O P S C A N ? D 1 \r ( L (
0062120 1 C L T Y P 0 C L T Y P X
0062140 ) ) \0 034 \0 \0 \0 002 @ 264 031 A d 262 025
0062160 d 004 l 004 361 220 002 @ d 004 l 004 361 220 001 375
0062200 361 h 360 020 \0 N I L \r N I L \r ( ) \r
0062220 \ C L I S P I F Y B L O C K / W
0062240 H I L E D O U N T I L D 1 \r (
0062260 L ( 0 $ F O R M ) ) \0 205 \a
0062300 \0 \0 001 021 p 006 @ 271 I 265 004 @ 020 001 004 l
0062320 004 361 224 I 002 Y 260 363 I 001 270 I Z 002 Y d
0062340 001 003 262 347 001 [ 001 g \0 \0 360 262 335 K 002 001
0062360 \t \0 \0 \ 001 003 001 g \0 \0 360 262 315 L 001 002
0062400 001 H 360 262 305 K 002 001 g \0 \0 i \v \0 \0 263
0062420 271 K 002 001 002 L \n \0 \0 276 g \0 \0 K 002 001
0062440 001 N 264 \a g \0 \0 N 032 032 032 K 002 002 \t \0
0062460 \0 032 275 @ J \n \0 \0 H M 032 I 002 \t \0 \0
0062500 \n \0 \0 \n \0 \0 020 \0 ( 2 0 2 Q \ N
0062520 C O N C 2 1 7 7 Q \ N C O N
0062540 C 2 1 7 4 Q \ C L I S P I F
0062560 Y B L O C K / W H I L E D O U N
0062600 T I L 1 6 4 Q L D I F F 1
0062620 5 5 Q \ C L I S P I F Y B L O
0062640 C K / W H I L E D O 1 1 2 5 Q
0062660 L D I F F 1 1 3 Q E D I T
0062700 F I N D P 5 7 Q L A S T ) \r
0062720 ( 1 4 3 Q D O 1 3 1 Q W H
0062740 I L E 1 0 7 Q R E T U R N
0062760 6 6 Q G O 4 6 Q C O N D )
0063000 \r ( ) \r \ C L I S P I F Y B L O
0063020 C K / W H I L E D O 1 D 1 \r (
0063040 L ( 0 X ) ) \0 034 \0 \0 \0 001 @
0063060 d 240 020 002 254 @ 001 001 i 360 226 @ 001 002 \t \0
0063100 \0 020 g \0 \0 @ 032 h 032 020 \0 ( 2 1 Q
0063120 \ A P P E N D 2 ) \r ( 2 5 Q C
0063140 O N D ) \r ( ) \r L O W E R C A S
0063160 E D 1 \r ( P 2 X P 1
0063200 T E M P 0 F N I 0 F
0063220 L G ) \0 p 003 \0 \0 001 ` \0 \0 021 001
0063240 ` \0 \0 244 h 027 \0 \0 277 @ 223 g \0 \0 202 g
0063260 \0 \0 270 g \0 \0 g \0 \0 \n \0 \0 277 o \0 \0
0063300 \0 260 " d 001 021 001 002 J g \0 \0 J g \0 \0
0063320 033 Y 001 k H 017 016 I 002 k H 017 016 032 \v \0
0063340 \0 023 002 003 265 337 g \0 \0 g \0 \0 g \0 \0 k
0063360 H 017 016 \v \0 \0 277 g \0 \0 g \0 \0 g \0 \0
0063400 k H 017 016 \v \0 \0 023 020 \0 ( 1 5 4 Q
0063420 / P U T 1 3 3 Q / P U T 1
0063440 0 6 Q / P U T 4 1 Q R P A
0063460 Q ) \r ( 1 4 5 Q A N D 1 4 2
0063500 Q C L I S P I N F I X 1 3 7
0063520 Q A N D 1 2 4 Q O R 1 2
0063540 1 Q C L I S P I N F I X 1 1
0063560 6 Q O R 6 5 Q C L M A P S
0063600 6 1 Q C L M A P S 3 6 Q
0063620 F L G 3 3 Q L C A S E F L G
0063640 2 7 Q U - C A S E 2 3 Q
0063660 L - C A S E 1 5 Q C H C O N
0063700 L S T 1 0 Q C H C O N L S T
0063720 2 L C A S E F L G ) \r ( 4 6
0063740 Q ( M A P C M A P M A P C
0063760 A R M A P L I S T M A P C O
0064000 N C M A P C O N ) ) \r C L D I
0064020 S A B L E A 0 0 6 4 D 1 \r ( N
0064040 A M E E R R O R S E T L (
0064060 2 E R R O R S E T . W 1 E
0064100 R R O R S E T . V 0 E R R O
0064120 R S E T . U ) F 0 T E M )
0064140 \0 030 \0 001 \0 003 h 027 \0 \0 027 \0 \0 277 P
0064160 001 h o \0 \0 \0 \v \0 \0 277 h h 032 020 \0 (
0064200 2 1 Q D W I M I F Y 0 ) \r ( 6
0064220 N O F I X V A R S L S T 0 3
0064240 N O F I X F N S L S T 0 ) \r (
0064260 1 6 Q ( B O D Y $ $ V A L )
0064300 ) \r C L D I S A B L E D 1 \r (
0064320 P 6 X P 5 M A C R O Y
0064340 P 4 M A C R O X P 3
0064360 B R A C K E T P 2 O P 1
0064400 P 1 F L G P 0 T E M
0064420 I 0 O P F 7 R E S E T
0064440 V A R S L S T ) 001 L \a 001 \0 001 021
0064460 @ 003 @ \t \0 \0 Z @ g \0 \0 033 [ @ g \0
0064500 \0 360 255 @ g \0 \0 360 247 @ d g \0 \0 360 224
0064520 277 g \0 \0 210 g \0 \0 360 264 005 g \0 \0 X 265
0064540 \b o \0 \0 \0 260 y g \0 \0 033 X 262 365 g \0
0064560 \0 ` \0 \0 032 g \0 \0 ` \0 \0 032 W 016 032 032
0064600 c 016 021 021 005 W 016 275 o \0 \0 \0 g \0 \0 \n
0064620 \0 \0 L 001 002 027 \0 \0 277 L 002 \ 001 002 027 \0
0064640 \0 277 M d W 016 360 225 277 L 002 c 016 217 W 016
0064660 \n \0 \0 232 W 016 k M \v \0 \0 L 002 031 277 243
0064700 \b \0 \0 277 023 260 234 d 001 021 001 006 @ N \n \0
0064720 \0 221 i 271 J N \n \0 \0 221 i 271 023 002 003 265
0064740 350 o \0 \0 \0 260 025 d 001 021 001 006 N @ N \t
0064760 \0 \0 \n \0 \0 \n \0 \0 023 002 003 265 354 @ ` \0
0065000 \0 \n \0 \0 262 R g \0 \0 @ ` \0 \0 \n \0 \0
0065020 \n \0 \0 277 g \0 \0 ` \0 \0 \t \0 \0 \n \0 \0
0065040 277 i 271 @ d g \0 \0 360 231 277 g \0 \0 \t \0
0065060 \0 277 260 $ g \0 \0 360 230 g \0 \0 \t \0 \0 277
0065100 260 026 @ d g \0 \0 360 230 277 g \0 \0 \t \0 \0
0065120 277 203 222 K 265 \a I 264 003 @ 020 001 \t \0 \0 277
0065140 K 002 001 \t \0 \0 277 g \0 \0 K \n \0 \0 002 001
0065160 X 262 345 H \t \0 \0 277 260 336 \0 ( 5 0 7 Q
0065200 C L D I S A B L E 4 7 6 Q
0065220 M E M B 4 6 6 Q C L D I S A
0065240 B L E 4 5 7 Q C L D I S A B
0065260 L E 4 4 0 Q C L D I S A B L
0065300 E 4 1 7 Q C L D I S A B L E
0065320 4 0 1 Q C L D I S A B L E
0065340 3 6 0 Q / S E T A T O M V A L
0065360 3 5 5 Q M A K E B I T T A B
0065400 L E 3 4 3 Q / S E T A T O M
0065420 V A L 3 4 0 Q R E M O V E
0065440 3 2 4 Q M E M B 3 1 0 Q /
0065460 S E T A T O M V A L 3 0 5 Q
0065500 R E M O V E 3 0 2 Q G E T T
0065520 O P V A L 2 5 1 Q / R E M P
0065540 R O P 2 4 1 Q / R E M P R O
0065560 P 2 2 3 Q E R R O R ! 2 1
0065600 3 Q N L E F T 2 0 3 Q T A
0065620 I L P 1 4 2 Q C L D I S A B
0065640 L E A 0 0 6 4 6 L - C A S E
0065660 ) \r ( 4 7 2 Q S E P A R A T O
0065700 R 4 3 5 Q ! ! 4 2 7 Q !
0065720 4 1 4 Q - 4 0 7 Q + -
0065740 3 7 6 Q + - 3 7 0 Q - 3
0065760 5 2 Q C L I S P C H A R S 3
0066000 4 7 Q C L I S P C H A R R A Y
0066020 3 3 5 Q C L I S P C H A R S
0066040 3 3 1 Q C L I S P C H A R S
0066060 3 2 1 Q C L I S P C H A R S
0066100 1 6 1 Q N O F I X V A R S L
0066120 S T 0 1 5 0 Q N O F I X F N
0066140 S L S T 0 1 3 7 Q I N T E R
0066160 N A L 1 1 3 Q N O F I X V A
0066200 R S L S T 0 1 1 0 Q N O F I
0066220 X V A R S L S T 0 1 0 4 Q N
0066240 O F I X F N S L S T 0 1 0 1 Q
0066260 N O F I X F N S L S T 0 7 2
0066300 Q I . S . O P R 5 6 Q s u
0066320 m 5 0 Q + 4 4 Q j o i n
0066340 3 6 Q > 2 7 Q ! 2 1 Q
0066360 < 1 3 Q C L I S P B R A C
0066400 K E T ) \r ( 2 6 5 Q ( I . S .
0066420 O P R L S T C L I S P F O R W
0066440 O R D S P L S T C L I S P I N
0066460 F I X S P L S T ) 1 3 4 Q (
0066500 D U M M Y . F O R . E R R O R S
0066520 E T ) 6 5 Q ( C L I S P T Y
0066540 P E U N A R Y O P C L I S P
0066560 C L A S S C L I S P C L A S S
0066600 D E F C L I S P N E G C L I
0066620 S P I N F I X B R O A D S C O
0066640 P E C L I S P F O R M I . S
0066660 . O P R C L I S P W O R D C
0066700 L M A P S S E T F N C L I S
0066720 P B R A C K E T ) ) \r N E W I S
0066740 W O R D 1 D 1 \r ( P 3 X
0066760 I 1 $ V A R S I 0 $ L
0067000 S T ) \0 Y 004 \0 \0 002 021 0 002 @ 260 G
0067020 d 001 021 001 003 K A \n \0 \0 263 . K ` \0 \0
0067040 \n \0 \0 263 % K ` \0 \0 \n \0 \0 263 034 K d
0067060 ` \0 \0 \n \0 \0 255 277 g \0 \0 K ` \0 \0 032
0067100 \n \0 \0 277 K h 032 200 h 022 X 003 226 I 265 \f
0067120 H Z Y 277 002 003 265 272 J 020 \t \0 \0 Y H 031
0067140 260 363 \0 ( 1 2 2 Q L A S T 7 0
0067160 Q / S E T A T O M V A L 5 3
0067200 Q M E M B 4 1 Q M E M B
0067220 3 0 Q M E M B 1 7 Q M E M
0067240 B ) \r ( 6 4 Q C L I S P I S W
0067260 O R D S P L S T 6 0 Q C L I
0067300 S P I S W O R D S P L S T 5 0
0067320 Q C L I S P I S W O R D S P L
0067340 S T 3 6 Q C L I S P I S V E
0067360 R B S 2 5 Q C L I S P I S N
0067400 O I S E W O R D S ) \r N I L \r N
0067420 E W I S W O R D D 1 \r ( P 6
0067440 Y P 5 X P 2 K E Y
0067460 P 1 T E M 2 P 0 T E
0067500 M 1 I 3 V A R S I 2
0067520 F O R M I 1 P L U I 0
0067540 S I N G ) \0 265 \a \0 \0 004 021 0 002
0067560 C 002 002 230 o \0 \0 \0 C \n \0 \0 277 @ C \n
0067600 \0 \0 X 001 Z A C \n \0 \0 H 021 " 006 L 003
0067620 265 003 205 001 275 K 003 265 * 023 J g \0 \0 J g
0067640 \0 \0 033 C @ B h 032 032 032 \n \0 \0 \v \0 \0
0067660 B 001 g \0 \0 B 001 g \0 \0 033 X 265 S J 260
0067700 ] 001 276 M g \0 \0 033 263 ? M \t \0 \0 270 M
0067720 g \0 \0 N d M 360 225 277 H h 032 260 036 \t \0
0067740 \0 Y g \0 \0 M \v \0 \0 277 N g \0 \0 M \v
0067760 \0 \0 277 H N I h 032 032 032 \v \0 \0 277 H g
0070000 \0 \0 M \v \0 \0 277 L 002 274 K 002 273 260 201 003
0070020 225 H J \n \0 \0 204 H J h 032 032 \v \0 \0 J
0070040 020 \0 ( 2 6 1 Q / P U T P R O P
0070060 2 5 0 Q / N C O N C 1 2 3
0070100 0 Q / P U T P R O P 2 1 7 Q
0070120 / P U T P R O P 2 0 4 Q /
0070140 P U T P R O P 1 7 3 Q / P U
0070160 T P R O P 1 6 3 Q L - C A S
0070200 E 1 4 0 Q L - C A S E 1 0
0070220 2 Q / P U T P R O P 7 7 Q
0070240 / N C O N C 3 4 Q N E W I S
0070260 W O R D 1 2 4 Q N E W I S W
0070300 O R D 1 1 6 Q E R R O R ) \r
0070320 ( 2 2 4 Q C L I S P I S P R O
0070340 P 2 0 0 Q C L I S P I S P R
0070360 O P 1 6 7 Q C L I S P I S P
0070400 R O P 1 4 5 Q C L I S P I S
0070420 P R O P 1 3 1 Q C L I S P I
0070440 S P R O P 1 1 4 Q C L I S P
0070460 I F Y I S P R O P 1 0 7 Q C
0070500 L I S P I F Y I S P R O P 6 4
0070520 Q C L I S P I S F O R M 6 0
0070540 Q C L I S P I S F O R M ) \r (
0070560 1 2 Q " t o o m a n y v a
0070600 r i a b l e s " ) \r ( P R E T T
0070620 Y C O M P R I N T C L I S P I
0070640 F Y C O M S ) \r ( R P A Q Q C
0070660 L I S P I F Y C O M S ( ( F N
0070700 S C L I S P I F Y F N S C L
0070720 I S P I F Y C L I S P I F Y 1
0070740 C L I S P I F Y 2 C L I S P
0070760 I F Y 2 A C L I S P I F Y 2 B
0071000 C L I S P I F Y 2 C \r C L I
0071020 S P I F Y 2 D C L I S P 3 C
0071040 L I S P 3 A C L I S P 3 B C
0071060 L I S P A C K U P C L I S P 3
0071100 C C L I S P 4 C L I S P C O
0071120 N D C L I S P C O N D 1 C L
0071140 I S P A N D C L I S P A N D 1
0071160 \r C L I S P I F Y N O T C L
0071200 I S P I F Y M A T C H U P C L
0071220 R E M P A R S C L I S P I F Y
0071240 C R O P S 0 C L I S P I F Y C
0071260 R O P S C L I S P I F Y C R O
0071300 P S 1 C L I S P I F Y R P L A
0071320 C \r C L I S P I F Y M A P S
0071340 C L M A P S 1 C L M A P S 2
0071360 C L S T O P S C A N ? C L I S
0071400 P I F Y L O O K U P L O W E R
0071420 C A S E S H R I E K I F Y S
0071440 H R K F Y S H R K F Y 2 \r W
0071460 H I L E D O U N T I L W H I L
0071500 E D O 1 C L D I S A B L E N
0071520 E W I S W O R D N E W I S W O
0071540 R D 1 ) ( I N I T V A R S (
0071560 F U N N Y A T O M L S T ) ( C
0071600 L R E M P A R S F L G N I L )
0071620 ( \r C L : F L G T ) ( C L
0071640 I S P I F Y P A C K F L G T )
0071660 ( C L I S P I F Y E N G L S H
0071700 F L G ) ( C L I S P I F Y U S
0071720 E R F N ) ) ( V A R S C A R
0071740 / C D R S T R I N G ) ( U S E
0071760 R M A C R O S \r C L ) ( P R
0072000 O P C L I S P F O R M Z E R
0072020 O P A D D 1 S U B 1 N E Q
0072040 ) ( P R O P C L I S P B R A
0072060 C K E T C O N S L I S T A
0072100 P P E N D N C O N C N C O N
0072120 C 1 / N C O N C \r / N C O N
0072140 C 1 ) ( P R O P C L I S P T
0072160 Y P E ~ E Q U A L ~ M E M B
0072200 E R ~ M E M B ) ( P R O P
0072220 C L M A P S M A P C M A P
0072240 M A P C A R M A P L I S T M
0072260 A P C O N C M A P C O N \r S
0072300 U B S E T ) ( B L O C K S (
0072320 C L I S P I F Y B L O C K C L
0072340 I S P I F Y F N S C L I S P I
0072360 F Y C L I S P I F Y 1 C L I
0072400 S P I F Y 2 C L I S P I F Y 2
0072420 A C L I S P I F Y 2 B \r C L
0072440 I S P I F Y 2 C C L I S P I F
0072460 Y 2 D C L I S P 3 C L I S P
0072500 3 A C L I S P 3 B C L I S P
0072520 A C K U P C L I S P 3 C C L
0072540 I S P 4 C L I S P C O N D C
0072560 L I S P C O N D 1 C L I S P A
0072600 N D \r C L I S P A N D 1 C L
0072620 I S P I F Y N O T C L I S P I
0072640 F Y M A T C H U P C L R E M P
0072660 A R S C L I S P I F Y C R O P
0072700 S 0 C L I S P I F Y C R O P S
0072720 C L I S P I F Y C R O P S 1
0072740 \r C L I S P I F Y R P L A C C
0072760 L I S P I F Y M A P S C L M A
0073000 P S 1 C L M A P S 2 S H R I
0073020 E K I F Y S H R K F Y S H R
0073040 K F Y 2 C L I S P I F Y L O O
0073060 K U P C L S T O P S C A N ?
0073100 \r W H I L E D O U N T I L W H
0073120 I L E D O 1 ( E N T R I E S
0073140 C L I S P I F Y F N S C L I S
0073160 P I F Y C L I S P A C K U P
0073200 C L I S P I F Y M A T C H U P
0073220 C L I S P I F Y 2 A C L I S P
0073240 3 A ) ( \r S P E C V A R S E
0073260 X P R V A R S D W I M I F Y
0073300 F L G D W I M I F Y I N G D
0073320 W I M I F Y 0 C H A N G E ) (
0073340 L O C A L F R E E V A R S D E
0073360 C L S T C L T Y P 0 O P R 0
0073400 L S T S E G \r T A I L F
0073420 O R M P A R E N T S U B P A
0073440 R E N T N O V A L F L G N E
0073460 G F L G R E S U L T P S A F
0073500 E F L A G V A R S C L I S P
0073520 I S T A T E T Y P E - I N ?
0073540 S I D E S C L I S P I F Y F N
0073560 \r ) ( G L O B A L V A R S C
0073600 A R / C D R S T R I N G C L :
0073620 F L G C L I S P A R R A Y C
0073640 L I S P C H A R R A Y C L I S
0073660 P C H A R S C L I S P F L G
0073700 C L I S P I F Y E N G L S H F L
0073720 G \r C L I S P I F Y P A C K F
0073740 L G C L I S P I F Y S T A T S
0073760 C L I S P I F Y U S E R F N
0074000 C L I S P I S N O I S E W O R D
0074020 S C L I S P I S V E R B S C
0074040 L I S P T R A N F L G C L R E
0074060 M P A R S F L G \r C O M M E N
0074100 T F L G D W I M F L G F I L
0074120 E L S T F I L E P K G F L G
0074140 F U N N Y A T O M L S T G L O
0074160 B A L V A R S L C A S E F L G
0074200 N O F I X V A R S L S T N O
0074220 S P E L L F L G ) ( \r R E T F
0074240 N S C L I S P I F Y 2 B ) (
0074260 N O L I N K F N S C L I S P I
0074300 F Y U S E R F N ) ) ( N I L
0074320 L O W E R C A S E ( G L O B A
0074340 L V A R S C H C O N L S T L
0074360 C A S E F L G ) ) ( N I L \r
0074400 C L D I S A B L E ( G L O B A
0074420 L V A R S C L I S P C H A R S
0074440 C L I S P C H A R R A Y N O
0074460 F I X F N S L S T 0 N O F I X
0074500 V A R S L S T 0 ) ) ( N I L
0074520 N E W I S W O R D 1 ( G L O B
0074540 A L V A R S \r C L I S P I S N
0074560 O I S E W O R D S C L I S P I
0074600 S V E R B S C L I S P I S W O
0074620 R D S P L S T ) ) ) ( P ( L
0074640 O W E R C A S E T ) ) ( D E
0074660 C L A R E : D O E V A L @ C O
0074700 M P I L E \r D O N T C O P Y
0074720 ( R E C O R D S C L I S P I S
0074740 T A T E M A T C H U P ) ) (
0074760 D E C L A R E : D O N T E V A
0075000 L @ L O A D D O E V A L @ C O
0075020 M P I L E D O N T C O P Y C
0075040 O M P I L E R V A R S ( \r A D
0075060 D V A R S ( N L A M A C L I
0075100 S P I F Y F N S ) ( N L A M L
0075120 ) ( L A M A ) ) ) ) ) \r ( R P
0075140 A Q ? F U N N Y A T O M L S T
0075160 ) \r ( R P A Q ? C L R E M P A
0075200 R S F L G N I L ) \r ( R P A Q
0075220 ? C L : F L G T ) \r ( R P A
0075240 Q ? C L I S P I F Y P A C K F
0075260 L G T ) \r ( R P A Q ? C L I
0075300 S P I F Y E N G L S H F L G ) \r
0075320 ( R P A Q ? C L I S P I F Y U
0075340 S E R F N ) \r ( R P A Q Q C A
0075360 R / C D R S T R I N G " C A R
0075400 / 2 1 - " ) \r ( A D D T O V A R
0075420 E D I T M A C R O S ( C L
0075440 N I L ( B I N D ( I F ( N
0075460 U L L ( C D R L ) ) ( ( I
0075500 F ( M E M B ( # # 1 ) L
0075520 A M B D A S P L S T ) ( ( M A
0075540 R K # 3 ) 3 U P ) \r ( (
0075560 E ( P R O G N ( S E T Q Q
0075600 C O M C L ) ( P R I N T (
0075620 Q U O T E c a n ' t ) T T
0075640 ) ( E R R O R ! ) ) ) ) ) )
0075660 N I L ) ( I F ( T A I L P
0075700 ( S E T Q # 1 ( # # ) ) (
0075720 # # \r ! 0 ( E ( S E T Q
0075740 # 2 L ) T ) ) ) ( ( I :
0075760 ( C L I S P I F Y # 1 # 2
0076000 ) ) ( L O 1 ) ) ( ( C O M
0076020 S ( C O N S ( Q U O T E :
0076040 ) ( C L I S P I F Y # 1 #
0076060 2 ) ) ( A N D ( \r L I S T P
0076100 ( # # 1 ) ) 1 ) ) ) ) (
0076120 I F # 3 ( ( \ # 3 ) ) N
0076140 I L ) ) ) ) \r ( A D D T O V A R
0076160 E D I T C O M S A C L ) \r (
0076200 P U T P R O P S Z E R O P C
0076220 L I S P F O R M ( E Q * 0
0076240 ) ) \r ( P U T P R O P S A D D
0076260 1 C L I S P F O R M ( I P L
0076300 U S * 1 ) ) \r ( P U T P R O
0076320 P S S U B 1 C L I S P F O R
0076340 M ( I P L U S * - 1 ) ) \r
0076360 ( P U T P R O P S N E Q C L
0076400 I S P F O R M ( N O T ( E Q
0076420 . * ) ) ) \r ( P U T P R O P
0076440 S C O N S C L I S P B R A C
0076460 K E T < ) \r ( P U T P R O P S
0076500 L I S T C L I S P B R A C K
0076520 E T < ) \r ( P U T P R O P S
0076540 A P P E N D C L I S P B R A C
0076560 K E T < ) \r ( P U T P R O P S
0076600 N C O N C C L I S P B R A C
0076620 K E T < ) \r ( P U T P R O P S
0076640 N C O N C 1 C L I S P B R A
0076660 C K E T < ) \r ( P U T P R O P
0076700 S / N C O N C C L I S P B R
0076720 A C K E T < ) \r ( P U T P R O
0076740 P S / N C O N C 1 C L I S P
0076760 B R A C K E T < ) \r ( P U T P
0077000 R O P S ~ E Q U A L C L I S
0077020 P T Y P E N I L ) \r ( P U T P
0077040 R O P S ~ M E M B E R C L I
0077060 S P T Y P E N I L ) \r ( P U T
0077100 P R O P S ~ M E M B C L I S
0077120 P T Y P E N I L ) \r ( P U T P
0077140 R O P S M A P C C L M A P S
0077160 ( i n . d o ) ) \r ( P U T
0077200 P R O P S M A P C L M A P S
0077220 ( o n . d o ) ) \r ( P U T
0077240 P R O P S M A P C A R C L M
0077260 A P S ( i n . c o l l e c
0077300 t ) ) \r ( P U T P R O P S M A
0077320 P L I S T C L M A P S ( o n
0077340 . c o l l e c t ) ) \r ( P U
0077360 T P R O P S M A P C O N C C
0077400 L M A P S ( i n . j o i n
0077420 ) ) \r ( P U T P R O P S M A P
0077440 C O N C L M A P S ( o n .
0077460 j o i n ) ) \r ( P U T P R O P
0077500 S S U B S E T C L M A P S
0077520 ( i n . s u b s e t ) ) \r (
0077540 L O W E R C A S E T ) \r ( P U
0077560 T P R O P S C L I S P I F Y
0077600 C O P Y R I G H T ( N O N E )
0077620 ) \r N I L \r
0077626