$ od -c -N 50000 [eris]<LispCore>CML>MORGUE>cl-env-methods.dcom!1
0000000 ( F I L E C R E A T E D " 3 0
0000020 - A p r - 8 6 1 7 : 3 2 : 4 9
0000040 " ( " c o m p i l e d o n
0000060 " . { E R I S } < C O M M O
0000100 N L O O P S > P C L > C L - E N
0000120 V - M E T H O D S . ; 1 4 ) \r
0000140 " 1 2 - N o v - 8 5 1 4 : 5 9
0000160 : 2 3 " " C O M P I L E . F I
0000200 L E d " i n " I N T E R L I
0000220 S P - D 2 2 - M a r - 8 6 .
0000240 . . " d a t e d " 2 2 - M a
0000260 r - 8 6 1 7 : 0 7 : 0 7 " ) \r
0000300 ( F I L E C R E A T E D " 3 0
0000320 - A p r - 8 6 1 7 : 3 2 : 0 4
0000340 " { E R I S } < C O M M O N L
0000360 O O P S > P C L > C L - E N V -
0000400 M E T H O D S . ; 1 4 4 1 9 8
0000420 c h a n g e s t o : ( V A
0000440 R S \r C L - E N V - M E T H O
0000460 D S C O M S ) ( F N S ( $ M
0000500 E T H O D P R I N T - I N S T
0000520 A N C E O B J E C T ) ) p r
0000540 e v i o u s d a t e : " 1 4
0000560 - M a r - 8 6 1 4 : 4 9 : 2 8
0000600 " \r { E R I S } < C O M M O N
0000620 L O O P S > P C L > C L - E N V
0000640 - M E T H O D S . ; 1 2 ) \r ( P
0000660 R E T T Y C O M P R I N T C L
0000700 - E N V - M E T H O D S C O M S
0000720 ) \r ( R P A Q Q C L - E N V -
0000740 M E T H O D S C O M S ( ( P
0000760 ( M A K E - S P E C I A L I Z A
0001000 B L E ( Q U O T E / P U T )
0001020 ) ( M A K E - S P E C I A L I
0001040 Z A B L E ( Q U O T E / P U
0001060 T P R O P ) ) ) \r ( C O M S
0001100 ( F N S ( $ M E T H O D C L
0001120 A S S - S O U R C E C L A S S
0001140 ) ( $ M E T H O D M E T H O
0001160 D - S O U R C E M E T H O D )
0001200 ( $ M E T H O D D E F S T R
0001220 U C T - 2 C L A S S ) ( \r $
0001240 M E T H O D E X P A N D - D E
0001260 F S T R U C T - M A K E - D E F
0001300 I N I T I O N S C L A S S )
0001320 ( $ M E T H O D / P U T P R O
0001340 P M E T H O D ) ( $ M E T H
0001360 O D / P U T M E T H O D ) )
0001400 ) ( \r C O M S ( * T h e s
0001420 e s h o u l d b e l o a d
0001440 e d i n t h i s o r d e r
0001460 s i n c e t h e l a s t
0001500 o n e s p e c i a l i z e s
0001520 a d d - m e t h o d ) ( F N S
0001540 ( $ M E T H O D \r T Y P E -
0001560 S P E C I F I E R - S O U R C E
0001600 - F O R M C L A S S ) ( $ M
0001620 E T H O D T Y P E - S P E C I
0001640 F I E R - S O U R C E - F O R M
0001660 ) ( $ M E T H O D M E T H O
0001700 D - D E S C R I P T I O N \r M
0001720 E T H O D ) ( $ M E T H O D
0001740 A D D - M E T H O D - I N T E R
0001760 N A L D I S C R I M I N A T O
0002000 R M E T H O D ) ) ) ( C O M
0002020 S ( F N S ( $ M E T H O D
0002040 P R I N T - I N S T A N C E O
0002060 B J E C T \r ) ) ) ) ) \r ( M A K
0002100 E - S P E C I A L I Z A B L E
0002120 ( Q U O T E / P U T ) ) \r ( M
0002140 A K E - S P E C I A L I Z A B L
0002160 E ( Q U O T E / P U T P R O
0002200 P ) ) \r ( S E T Q * C U R R E
0002220 N T - M E T H O D * ( L O A D
0002240 - T I M E - M E T H O D ( Q U
0002260 O T E D I S C R I M I N A T O
0002300 R ) ( Q U O T E M E T H O D
0002320 ) ( Q U O T E C L A S S - S
0002340 O U R C E ) ( \r Q U O T E (
0002360 C L A S S ) ) ( Q U O T E (
0002400 C L A S S ) ) ) ) \r ( R E C O R
0002420 D - D E F I N I T I O N ( Q U
0002440 O T E M e t h o d % C L A S
0002460 S - S O U R C E % C L A S S )
0002500 ( Q U O T E D E F U N ) (
0002520 Q U O T E C L A S S - S O U R
0002540 C E ) ( Q U O T E \r D E F M
0002560 E T H ) ) \r M e t h o d % C L
0002600 A S S - S O U R C E % C L A S
0002620 S D 1 \r ( I 0 C L A S S )
0002640 \0 e 003 \0 \0 001 g \0 \0 @ \t \0 \0 g \0
0002660 \0 @ \t \0 \0 \t \0 \0 h 032 032 g \0 \0 021 0
0002700 002 @ \t \0 \0 260 024 d 001 \t \0 \0 270 I 265 \a
0002720 H h 032 Z 201 H & 271 002 003 265 355 J 022 h 032
0002740 032 h 032 032 032 021 0 002 @ \t \0 \0 260 024 d 001
0002760 \t \0 \0 270 I 265 \a H h 032 Z 201 H & 271 002
0003000 003 265 355 J 022 \t \0 \0 032 032 020 \0 ( 1 4 0
0003020 Q \ A P P E N D 2 1 1 3 Q
0003040 S L O T - S O U R C E 1 0 4 Q
0003060 C L A S S - L O C A L - S L O
0003100 T S 4 4 Q C L A S S - N A M
0003120 E 3 5 Q C L A S S - L O C A
0003140 L - S U P E R S 2 0 Q C L A
0003160 S S - N A M E 1 5 Q C L A S
0003200 S - O F 6 C L A S S - N A M
0003220 E ) \r ( 2 6 Q : I N C L U D E
0003240 1 1 Q : C L A S S 2 N D
0003260 E F S T R U C T ) \r ( ) \r ( M E
0003300 T H O D - F U N C T I O N % :
0003320 S E T F - d i s c r i m i n a t
0003340 o r * C U R R E N T - M E T H
0003360 O D * ( S Y M B O L - F U N C
0003400 T I O N ( Q U O T E \r M e t
0003420 h o d % C L A S S - S O U R C
0003440 E % C L A S S ) ) ) \r ( A D D
0003460 - M E T H O D - I N T E R N A L
0003500 ( G E T ( Q U O T E C L A
0003520 S S - S O U R C E ) ( Q U O T
0003540 E D I S C R I M I N A T O R )
0003560 ) * C U R R E N T - M E T H O
0003600 D * ) \r ( Q U O T E C L A S S
0003620 - S O U R C E ) \r ( S E T Q *
0003640 C U R R E N T - M E T H O D *
0003660 ( L O A D - T I M E - M E T H O
0003700 D ( Q U O T E D I S C R I M
0003720 I N A T O R ) ( Q U O T E M
0003740 E T H O D ) ( Q U O T E M E
0003760 T H O D - S O U R C E ) ( \r Q
0004000 U O T E ( M E T H O D ) ) (
0004020 Q U O T E ( M E T H O D ) ) )
0004040 ) \r ( R E C O R D - D E F I N I
0004060 T I O N ( Q U O T E M e t h
0004100 o d % M E T H O D - S O U R C
0004120 E % M E T H O D ) ( Q U O T
0004140 E D E F U N ) ( Q U O T E
0004160 M E T H O D - S O U R C E ) (
0004200 Q U O T E \r D E F M E T H ) )
0004220 \r M e t h o d % M E T H O D -
0004240 S O U R C E % M E T H O D D
0004260 1 \r ( P 2 M E T H O D - D E
0004300 S C R I P T I O N P 1 M E
0004320 T H O D - C O D E P 0 M E
0004340 T H O D - N A M E I 0 M E
0004360 T H O D ) \0 V 003 \0 \0 001 @ \t \0 \0
0004400 021 021 001 H d 003 243 \t \0 \0 003 271 @ g \0 \0
0004420 \n \0 \0 265 $ I 263 " @ \t \0 \0 021 001 002 J
0004440 d g \0 \0 \n \0 \0 \t \0 \0 265 \n o \0 \0 \0
0004460 J \n \0 \0 \n \0 \0 020 g \0 \0 @ \t \0 \0 \t
0004500 \0 \0 @ \t \0 \0 I \t \0 \0 \t \0 \0 032 032 032
0004520 020 \0 ( 1 2 0 Q \ A P P E N D 2
0004540 1 1 5 Q M A K E - O R I G I
0004560 N A L - S O U R C E 1 1 1 Q
0004600 M E T H O D - F U L L - A R G L
0004620 I S T 1 0 5 Q D I S C R I M
0004640 I N A T O R - N A M E 1 0 2 Q
0004660 M E T H O D - D I S C R I M I
0004700 N A T O R 7 2 Q F I N D - D
0004720 E F M E T H 6 7 Q C L : E R
0004740 R O R 5 5 Q S E L E C T - S
0004760 O U R C E - F I L E 5 2 Q W
0005000 H E R E I S 3 7 Q M E T H O
0005020 D - D E S C R I P T I O N 2 6
0005040 Q G E T - S L O T - A L W A Y
0005060 S 1 5 Q G E T D 3 M E T
0005100 H O D - F U N C T I O N ) \r ( 7
0005120 6 Q D E F M E T H 4 7 Q F
0005140 N S 2 3 Q E X P R ) \r ( 6
0005160 3 Q " ~ % % C a n ' t f i n
0005200 d a f i l e f o r ~ S .
0005220 " ) \r ( M E T H O D - F U N C T
0005240 I O N % : S E T F - d i s c r
0005260 i m i n a t o r * C U R R E N
0005300 T - M E T H O D * ( S Y M B O
0005320 L - F U N C T I O N ( Q U O T
0005340 E \r M e t h o d % M E T H O
0005360 D - S O U R C E % M E T H O D
0005400 ) ) ) \r ( A D D - M E T H O D -
0005420 I N T E R N A L ( G E T ( Q
0005440 U O T E M E T H O D - S O U R
0005460 C E ) ( Q U O T E D I S C R
0005500 I M I N A T O R ) ) * C U R R
0005520 E N T - M E T H O D * ) \r ( Q U
0005540 O T E M E T H O D - S O U R C
0005560 E ) \r ( S E T Q * C U R R E N
0005600 T - M E T H O D * ( L O A D -
0005620 T I M E - M E T H O D ( Q U O
0005640 T E D I S C R I M I N A T O R
0005660 ) ( Q U O T E M E T H O D )
0005700 ( Q U O T E D E F S T R U C
0005720 T - 2 ) ( \r Q U O T E ( C L
0005740 A S S ) ) ( Q U O T E ( C L
0005760 A S S N A M E D S - O P T I
0006000 O N S S L O T D S ) ) ) ) \r (
0006020 R E C O R D - D E F I N I T I O
0006040 N ( Q U O T E M e t h o d %
0006060 D E F S T R U C T - 2 % C L
0006100 A S S ) ( Q U O T E D E F U
0006120 N ) ( Q U O T E D E F S T R
0006140 U C T - 2 ) ( Q U O T E D E
0006160 F M E T H \r ) ) \r M e t h o d %
0006200 D E F S T R U C T - 2 % C L
0006220 A S S D 1 \r ( I 3 S L O T
0006240 D S I 2 D S - O P T I O N
0006260 S I 1 N A M E I 0 C
0006300 L A S S ) \0 032 \0 \0 \0 004 o \0 \0 \0
0006320 o \0 \0 \0 @ A B C \r 006 \0 \0 A g \0 \0
0006340 \n \0 \0 277 020 \0 ( 2 6 Q M A R K A
0006360 S C H A N G E D 1 7 Q R U N
0006400 - S U P E R - I N T E R N A L )
0006420 \r ( 2 3 Q C L A S S E S ) \r (
0006440 7 031 ( O R * C U R R E N T
0006460 - M E T H O D * ( F I N D - M
0006500 E T H O D - W I T H - T Y P E -
0006520 S P E C I F I E R S ( G E T
0006540 ( Q U O T E D E F S T R U C T
0006560 - 2 ) ( Q U O T E D I S C R
0006600 I M I N A T O R ) ) ( Q U O T
0006620 E ( C L A S S ) ) ) ) 3 031
0006640 ( G E T ( Q U O T E D E F S
0006660 T R U C T - 2 ) ( Q U O T E
0006700 D I S C R I M I N A T O R ) ) )
0006720 \r ( M E T H O D - F U N C T I O
0006740 N % : S E T F - d i s c r i m
0006760 i n a t o r * C U R R E N T -
0007000 M E T H O D * ( S Y M B O L -
0007020 F U N C T I O N ( Q U O T E
0007040 \r M e t h o d % D E F S T R U
0007060 C T - 2 % C L A S S ) ) ) \r (
0007100 A D D - M E T H O D - I N T E R
0007120 N A L ( G E T ( Q U O T E
0007140 D E F S T R U C T - 2 ) ( Q U
0007160 O T E D I S C R I M I N A T O
0007200 R ) ) * C U R R E N T - M E T
0007220 H O D * ) \r ( Q U O T E D E F
0007240 S T R U C T - 2 ) \r ( S E T Q
0007260 * C U R R E N T - M E T H O D *
0007300 ( L O A D - T I M E - M E T H
0007320 O D ( Q U O T E D I S C R I
0007340 M I N A T O R ) ( Q U O T E
0007360 M E T H O D ) ( Q U O T E \r
0007400 E X P A N D - D E F S T R U C T
0007420 - M A K E - D E F I N I T I O N
0007440 S ) ( Q U O T E ( C L A S S
0007460 ) ) ( Q U O T E ( C L A S S
0007500 N A M E D S - O P T I O N S
0007520 S L O T D S ) ) ) ) \r ( R E C
0007540 O R D - D E F I N I T I O N (
0007560 Q U O T E M e t h o d % E X
0007600 P A N D - D E F S T R U C T - M
0007620 A K E - D E F I N I T I O N S %
0007640 C L A S S ) ( Q U O T E D
0007660 E F U N ) ( Q U O T E \r E X
0007700 P A N D - D E F S T R U C T - M
0007720 A K E - D E F I N I T I O N S )
0007740 ( Q U O T E D E F M E T H )
0007760 ) \r M e t h o d % E X P A N D
0010000 - D E F S T R U C T - M A K E -
0010020 D E F I N I T I O N S % C L A
0010040 S S D 1 \r ( I 3 S L O T D
0010060 S I 2 D S - O P T I O N S
0010100 I 1 N A M E I 0 C L
0010120 A S S ) \0 / \0 \0 \0 004 o \0 \0 \0 o
0010140 \0 \0 \0 o \0 \0 \0 @ A B C \r 006 \0 \0 g
0010160 \0 \0 g \0 \0 A h 032 032 o \0 \0 \0 032 032 o
0010200 \0 \0 \0 032 \n \0 \0 032 020 \0 ( 5 3 Q \
0010220 A P P E N D 2 2 3 Q R U N -
0010240 S U P E R - I N T E R N A L ) \r
0010260 ( 3 1 Q Q U O T E 2 6 Q U
0010300 N M A R K A S C H A N G E D ) \r
0010320 ( 4 7 Q ( ( S E T Q C H A
0010340 N G E D F N S L S T O R I G I
0010360 N A L - C H A N G E D F N S L S
0010400 T ) ) 4 1 Q ( ( Q U O T E
0010420 T Y P E ) ) 1 3 Q 031 ( O R
0010440 * C U R R E N T - M E T H O D *
0010460 ( F I N D - M E T H O D - W I
0010500 T H - T Y P E - S P E C I F I E
0010520 R S ( G E T ( Q U O T E E
0010540 X P A N D - D E F S T R U C T -
0010560 M A K E - D E F I N I T I O N S
0010600 ) ( Q U O T E D I S C R I M
0010620 I N A T O R ) ) ( Q U O T E
0010640 ( C L A S S ) ) ) ) 7 031 ( G
0010660 E T ( Q U O T E E X P A N D
0010700 - D E F S T R U C T - M A K E -
0010720 D E F I N I T I O N S ) ( Q U
0010740 O T E D I S C R I M I N A T O
0010760 R ) ) 3 ( S E T Q O R I G
0011000 I N A L - C H A N G E D F N S L
0011020 S T C H A N G E D F N S L S T
0011040 ) ) \r ( M E T H O D - F U N C T
0011060 I O N % : S E T F - d i s c r
0011100 i m i n a t o r * C U R R E N
0011120 T - M E T H O D * ( S Y M B O
0011140 L - F U N C T I O N ( Q U O T
0011160 E \r M e t h o d % E X P A N
0011200 D - D E F S T R U C T - M A K E
0011220 - D E F I N I T I O N S % C L
0011240 A S S ) ) ) \r ( A D D - M E T H
0011260 O D - I N T E R N A L ( G E T
0011300 ( Q U O T E E X P A N D - D
0011320 E F S T R U C T - M A K E - D E
0011340 F I N I T I O N S ) ( Q U O T
0011360 E D I S C R I M I N A T O R )
0011400 ) \r * C U R R E N T - M E T H
0011420 O D * ) \r ( Q U O T E E X P A
0011440 N D - D E F S T R U C T - M A K
0011460 E - D E F I N I T I O N S ) \r (
0011500 S E T Q * C U R R E N T - M E
0011520 T H O D * ( L O A D - T I M E
0011540 - M E T H O D ( Q U O T E D
0011560 I S C R I M I N A T O R ) ( Q
0011600 U O T E M E T H O D ) ( Q U
0011620 O T E / P U T P R O P ) ( Q
0011640 U O T E \r ( M E T H O D ) )
0011660 ( Q U O T E ( M E T H O D T
0011700 Y P E D E F I N I T I O N ) )
0011720 ) ) \r ( R E C O R D - D E F I N
0011740 I T I O N ( Q U O T E M e t
0011760 h o d % / P U T P R O P % M
0012000 E T H O D ) ( Q U O T E D E
0012020 F U N ) ( Q U O T E / P U T
0012040 P R O P ) ( Q U O T E D E F
0012060 M E T H ) ) \r M e t h o d % /
0012100 P U T P R O P % M E T H O D
0012120 D 1 \r ( P 2 A 4 5 9 9 P
0012140 1 A 4 6 0 0 P 0 A 4 6 0
0012160 1 I 2 D E F I N I T I O N
0012200 I 1 T Y P E I 0 M E
0012220 T H O D ) \0 025 003 \0 \0 003 @ 021 021 001
0012240 A 271 B \t \0 \0 021 001 002 H I J \v \0 \0 020
0012260 \0 ( 2 2 Q P U T - S L O T - A
0012300 L W A Y S 1 1 Q C O P Y ) \r
0012320 N I L \r ( ) \r ( M E T H O D - F
0012340 U N C T I O N % : S E T F - d
0012360 i s c r i m i n a t o r * C U
0012400 R R E N T - M E T H O D * ( S
0012420 Y M B O L - F U N C T I O N (
0012440 Q U O T E \r M e t h o d % /
0012460 P U T P R O P % M E T H O D )
0012500 ) ) \r ( A D D - M E T H O D - I
0012520 N T E R N A L ( G E T ( Q U
0012540 O T E / P U T P R O P ) ( Q
0012560 U O T E D I S C R I M I N A T
0012600 O R ) ) * C U R R E N T - M E
0012620 T H O D * ) \r ( Q U O T E / P
0012640 U T P R O P ) \r ( S E T Q * C
0012660 U R R E N T - M E T H O D * (
0012700 L O A D - T I M E - M E T H O D
0012720 ( Q U O T E D I S C R I M I
0012740 N A T O R ) ( Q U O T E M E
0012760 T H O D ) ( Q U O T E / P U
0013000 T ) ( Q U O T E ( \r M E T H
0013020 O D ) ) ( Q U O T E ( M E T
0013040 H O D T Y P E D E F I N I T
0013060 I O N ) ) ) ) \r ( R E C O R D -
0013100 D E F I N I T I O N ( Q U O T
0013120 E M e t h o d % / P U T %
0013140 M E T H O D ) ( Q U O T E D
0013160 E F U N ) ( Q U O T E / P U
0013200 T ) ( Q U O T E D E F M E T
0013220 H ) ) \r M e t h o d % / P U T
0013240 % M E T H O D D 1 \r ( P 2
0013260 A 4 6 0 3 P 1 A 4 6 0 4
0013300 P 0 A 4 6 0 5 I 2 D
0013320 E F I N I T I O N I 1 T Y
0013340 P E I 0 M E T H O D ) \0
0013360 025 003 \0 \0 003 @ 021 021 001 A 271 B \t \0 \0 021
0013400 001 002 H I J \v \0 \0 020 \0 ( 2 2 Q P
0013420 U T - S L O T - A L W A Y S 1
0013440 1 Q C O P Y ) \r N I L \r ( ) \r
0013460 ( M E T H O D - F U N C T I O N
0013500 % : S E T F - d i s c r i m i
0013520 n a t o r * C U R R E N T - M
0013540 E T H O D * ( S Y M B O L - F
0013560 U N C T I O N ( Q U O T E M
0013600 e t h o d % / P U T % M E T
0013620 H O D ) ) ) \r ( A D D - M E T H
0013640 O D - I N T E R N A L ( G E T
0013660 ( Q U O T E / P U T ) ( Q
0013700 U O T E D I S C R I M I N A T
0013720 O R ) ) * C U R R E N T - M E
0013740 T H O D * ) \r ( Q U O T E / P
0013760 U T ) \r ( S E T Q * C U R R E
0014000 N T - M E T H O D * ( L O A D
0014020 - T I M E - M E T H O D ( Q U
0014040 O T E D I S C R I M I N A T O
0014060 R ) ( Q U O T E M E T H O D
0014100 ) ( Q U O T E \r T Y P E - S
0014120 P E C I F I E R - S O U R C E -
0014140 F O R M ) ( Q U O T E ( C L
0014160 A S S ) ) ( Q U O T E ( C L
0014200 A S S ) ) ) ) \r ( R E C O R D -
0014220 D E F I N I T I O N ( Q U O T
0014240 E M e t h o d % T Y P E - S
0014260 P E C I F I E R - S O U R C E -
0014300 F O R M % C L A S S ) ( Q U
0014320 O T E D E F U N ) ( Q U O T
0014340 E \r T Y P E - S P E C I F I E
0014360 R - S O U R C E - F O R M ) (
0014400 Q U O T E D E F M E T H ) ) \r
0014420 M e t h o d % T Y P E - S P E
0014440 C I F I E R - S O U R C E - F O
0014460 R M % C L A S S D 1 \r ( I
0014500 0 C L A S S ) \0 006 \0 \0 \0 001 @
0014520 \t \0 \0 020 \0 ( 3 C L A S S - N A
0014540 M E ) \r N I L \r ( ) \r ( M E T H
0014560 O D - F U N C T I O N % : S E
0014600 T F - d i s c r i m i n a t o r
0014620 * C U R R E N T - M E T H O D
0014640 * ( S Y M B O L - F U N C T I
0014660 O N ( Q U O T E \r M e t h o
0014700 d % T Y P E - S P E C I F I E
0014720 R - S O U R C E - F O R M % C
0014740 L A S S ) ) ) \r ( A D D - M E T
0014760 H O D - I N T E R N A L ( G E
0015000 T ( Q U O T E T Y P E - S P
0015020 E C I F I E R - S O U R C E - F
0015040 O R M ) ( Q U O T E D I S C
0015060 R I M I N A T O R ) ) * C U R
0015100 R E N T - M E T H O D * ) \r ( Q
0015120 U O T E T Y P E - S P E C I F
0015140 I E R - S O U R C E - F O R M )
0015160 \r ( S E T Q * C U R R E N T -
0015200 M E T H O D * ( L O A D - T I
0015220 M E - M E T H O D ( Q U O T E
0015240 D I S C R I M I N A T O R )
0015260 ( Q U O T E M E T H O D ) (
0015300 Q U O T E \r T Y P E - S P E C
0015320 I F I E R - S O U R C E - F O R
0015340 M ) ( Q U O T E N I L ) (
0015360 Q U O T E ( X ) ) ) ) \r ( R E
0015400 C O R D - D E F I N I T I O N
0015420 ( Q U O T E M e t h o d % T
0015440 Y P E - S P E C I F I E R - S O
0015460 U R C E - F O R M % D e f a u
0015500 l t ) ( Q U O T E D E F U N
0015520 ) ( Q U O T E \r T Y P E - S
0015540 P E C I F I E R - S O U R C E -
0015560 F O R M ) ( Q U O T E D E F
0015600 M E T H ) ) \r M e t h o d % T
0015620 Y P E - S P E C I F I E R - S O
0015640 U R C E - F O R M % D e f a u
0015660 l t D 1 \r ( L ( 0 X ) )
0015700 \0 003 \0 \0 \0 001 @ 020 \0 N I L \r N I L
0015720 \r ( ) \r ( M E T H O D - F U N C
0015740 T I O N % : S E T F - d i s c
0015760 r i m i n a t o r * C U R R E
0016000 N T - M E T H O D * ( S Y M B
0016020 O L - F U N C T I O N ( Q U O
0016040 T E \r M e t h o d % T Y P E
0016060 - S P E C I F I E R - S O U R C
0016100 E - F O R M % D e f a u l t )
0016120 ) ) \r ( A D D - M E T H O D - I
0016140 N T E R N A L ( G E T ( Q U
0016160 O T E T Y P E - S P E C I F I
0016200 E R - S O U R C E - F O R M )
0016220 ( Q U O T E D I S C R I M I N
0016240 A T O R ) ) * C U R R E N T -
0016260 M E T H O D * ) \r ( Q U O T E
0016300 T Y P E - S P E C I F I E R - S
0016320 O U R C E - F O R M ) \r ( S E T
0016340 Q * C U R R E N T - M E T H O
0016360 D * ( L O A D - T I M E - M E
0016400 T H O D ( Q U O T E D I S C
0016420 R I M I N A T O R ) ( Q U O T
0016440 E M E T H O D ) ( Q U O T E
0016460 \r M E T H O D - D E S C R I P
0016500 T I O N ) ( Q U O T E ( M E
0016520 T H O D ) ) ( Q U O T E ( M
0016540 E T H O D ) ) ) ) \r ( R E C O R
0016560 D - D E F I N I T I O N ( Q U
0016600 O T E M e t h o d % M E T H
0016620 O D - D E S C R I P T I O N %
0016640 M E T H O D ) ( Q U O T E D
0016660 E F U N ) ( Q U O T E M E T
0016700 H O D - D E S C R I P T I O N )
0016720 \r ( Q U O T E D E F M E T H
0016740 ) ) \r M e t h o d % M E T H O
0016760 D - D E S C R I P T I O N % M
0017000 E T H O D D 1 \r ( I 0 M E
0017020 T H O D ) \0 1 003 \0 \0 001 g \0 \0 @
0017040 \t \0 \0 \t \0 \0 021 0 002 @ \t \0 \0 260 024 d
0017060 001 \t \0 \0 270 I 265 \a H h 032 Z 201 H & 271
0017100 002 003 265 355 J 022 \t \0 \0 032 032 020 \0 ( 5 4
0017120 Q \ A P P E N D 2 2 7 Q T
0017140 Y P E - S P E C I F I E R - S O
0017160 U R C E - F O R M 2 0 Q M E
0017200 T H O D - T Y P E - S P E C I F
0017220 I E R S 1 1 Q D I S C R I M
0017240 I N A T O R - N A M E 6 M E
0017260 T H O D - D I S C R I M I N A T
0017300 O R ) \r ( 2 $ M E T H O D ) \r
0017320 ( ) \r ( M E T H O D - F U N C T
0017340 I O N % : S E T F - d i s c r
0017360 i m i n a t o r * C U R R E N
0017400 T - M E T H O D * ( S Y M B O
0017420 L - F U N C T I O N ( Q U O T
0017440 E \r M e t h o d % M E T H O
0017460 D - D E S C R I P T I O N % M
0017500 E T H O D ) ) ) \r ( A D D - M E
0017520 T H O D - I N T E R N A L ( G
0017540 E T ( Q U O T E M E T H O D
0017560 - D E S C R I P T I O N ) ( Q
0017600 U O T E D I S C R I M I N A T
0017620 O R ) ) * C U R R E N T - M E
0017640 T H O D * ) \r ( Q U O T E M E
0017660 T H O D - D E S C R I P T I O N
0017700 ) \r ( S E T Q * C U R R E N T
0017720 - M E T H O D * ( L O A D - T
0017740 I M E - M E T H O D ( Q U O T
0017760 E D I S C R I M I N A T O R )
0020000 ( Q U O T E M E T H O D )
0020020 ( Q U O T E \r A D D - M E T H
0020040 O D - I N T E R N A L ) ( Q U
0020060 O T E ( D I S C R I M I N A T
0020100 O R M E T H O D ) ) ( Q U O
0020120 T E ( D I S C R I M I N A T O
0020140 R M E T H O D ) ) ) ) \r ( R E
0020160 C O R D - D E F I N I T I O N
0020200 ( Q U O T E M e t h o d % A
0020220 D D - M E T H O D - I N T E R N
0020240 A L % D I S C R I M I N A T O
0020260 R % M E T H O D ) ( Q U O T
0020300 E D E F U N ) ( Q U O T E
0020320 \r A D D - M E T H O D - I N T E
0020340 R N A L ) ( Q U O T E D E F
0020360 M E T H ) ) \r M e t h o d % A
0020400 D D - M E T H O D - I N T E R N
0020420 A L % D I S C R I M I N A T O
0020440 R % M E T H O D D 1 \r ( I
0020460 1 M E T H O D I 0 D I S
0020500 C R I M I N A T O R ) \0 # \0 \0
0020520 \0 002 o \0 \0 \0 o \0 \0 \0 @ A \f \0 \0 A
0020540 \t \0 \0 A \n \0 \0 277 A \t \0 \0 g \0 \0 \n
0020560 \0 \0 277 020 \0 ( 3 7 Q M A R K A S
0020600 C H A N G E D 3 1 Q M E T H
0020620 O D - D E S C R I P T I O N 2
0020640 4 Q C H A N G E - C O M P I L
0020660 E D - C O D E - N A M E 2 0 Q
0020700 M E T H O D - F U N C T I O N
0020720 1 4 Q R U N - S U P E R - I
0020740 N T E R N A L ) \r ( 3 4 Q F N
0020760 S ) \r ( 7 031 ( O R * C U R
0021000 R E N T - M E T H O D * ( F I
0021020 N D - M E T H O D - W I T H - T
0021040 Y P E - S P E C I F I E R S (
0021060 G E T ( Q U O T E A D D - M
0021100 E T H O D - I N T E R N A L )
0021120 ( Q U O T E D I S C R I M I N
0021140 A T O R ) ) ( Q U O T E ( D
0021160 I S C R I M I N A T O R M E T
0021200 H O D ) ) ) ) 3 031 ( G E T
0021220 ( Q U O T E A D D - M E T H O
0021240 D - I N T E R N A L ) ( Q U O
0021260 T E D I S C R I M I N A T O R
0021300 ) ) ) \r ( M E T H O D - F U N C
0021320 T I O N % : S E T F - d i s c
0021340 r i m i n a t o r * C U R R E
0021360 N T - M E T H O D * ( S Y M B
0021400 O L - F U N C T I O N ( Q U O
0021420 T E \r M e t h o d % A D D -
0021440 M E T H O D - I N T E R N A L %
0021460 D I S C R I M I N A T O R %
0021500 M E T H O D ) ) ) \r ( A D D - M
0021520 E T H O D - I N T E R N A L (
0021540 G E T ( Q U O T E A D D - M
0021560 E T H O D - I N T E R N A L )
0021600 ( Q U O T E D I S C R I M I N
0021620 A T O R ) ) * C U R R E N T -
0021640 M E T H O D * ) \r ( Q U O T E
0021660 A D D - M E T H O D - I N T E R
0021700 N A L ) \r ( S E T Q * C U R R
0021720 E N T - M E T H O D * ( L O A
0021740 D - T I M E - M E T H O D ( Q
0021760 U O T E D I S C R I M I N A T
0022000 O R ) ( Q U O T E M E T H O
0022020 D ) ( Q U O T E P R I N T -
0022040 I N S T A N C E ) ( \r Q U O T
0022060 E ( O B J E C T ) ) ( Q U O
0022100 T E ( I N S T A N C E S T R
0022120 E A M D E P T H ) ) ) ) \r ( R
0022140 E C O R D - D E F I N I T I O N
0022160 ( Q U O T E M e t h o d %
0022200 P R I N T - I N S T A N C E %
0022220 O B J E C T ) ( Q U O T E D
0022240 E F U N ) ( Q U O T E P R I
0022260 N T - I N S T A N C E ) ( Q U
0022300 O T E \r D E F M E T H ) ) \r M
0022320 e t h o d % P R I N T - I N S
0022340 T A N C E % O B J E C T D 1
0022360 \r ( P 0 S L O T - P L I S T
0022400 I 2 D E P T H I 1 S
0022420 T R E A M I 0 I N S T A N
0022440 C E F 2 \ C M L . R E A D
0022460 P R E F I X ) \0 r 002 001 \0 003 R o
0022500 \0 \0 \0 \n \0 \0 A \n \0 \0 @ \t \0 \0 \t \0
0022520 \0 A \n \0 \0 o \0 \0 \0 A \n \0 \0 @ \t \0
0022540 \0 260 B d 021 021 001 o \0 \0 \0 A \n \0 \0 277
0022560 o \0 \0 \0 H 001 \n \0 \0 A \n \0 \0 277 o \0
0022600 \0 \0 A \n \0 \0 277 H 002 001 Y d 236 d i 360
0022620 252 3 020 265 \t g \0 \0 I h 032 032 A \n \0 \0
0022640 023 002 002 003 265 277 o \0 \0 \0 A \n \0 \0 020 \0
0022660 ( 1 5 7 Q P R I N 1 1 4 1 Q
0022700 P R I N 2 1 0 7 Q P R I N
0022720 1 7 6 Q P R I N 2 7 2 Q
0022740 P A C K * 6 0 Q P R I N 1
0022760 4 2 Q A L L - S L O T S 3 6
0023000 Q P R I N 1 2 6 Q P R I N
0023020 2 2 2 Q C L A S S - N A M E
0023040 1 7 Q C L A S S - O F 1 3
0023060 Q P R I N 1 7 C O N C A T
0023100 ) \r ( 1 3 1 Q Q U O T E ) \r (
0023120 1 5 3 Q " ) " 1 0 3 Q "
0023140 " 6 5 Q " : " 5 4 Q "
0023160 " 3 2 Q " ) " 4 " . (
0023200 M A K E ( Q U O T E " ) \r (
0023220 M E T H O D - F U N C T I O N %
0023240 : S E T F - d i s c r i m i n
0023260 a t o r * C U R R E N T - M E
0023300 T H O D * ( S Y M B O L - F U
0023320 N C T I O N ( Q U O T E \r M
0023340 e t h o d % P R I N T - I N S
0023360 T A N C E % O B J E C T ) ) )
0023400 \r ( A D D - M E T H O D - I N T
0023420 E R N A L ( G E T ( Q U O T
0023440 E P R I N T - I N S T A N C E
0023460 ) ( Q U O T E D I S C R I M
0023500 I N A T O R ) ) * C U R R E N
0023520 T - M E T H O D * ) \r ( Q U O T
0023540 E P R I N T - I N S T A N C E
0023560 ) \r ( P U T P R O P S C L - E
0023600 N V - M E T H O D S C O P Y R
0023620 I G H T ( " X e r o x C o r
0023640 p o r a t i o n " 1 9 8 6 ) )
0023660 \r S T O P \r
0023666