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