$ od -c -N 50000 [eris]<LispCore>CML>LAB>STRUCTURE-CLASS.DCOM!2
0000000 ( F I L E C R E A T E D " 8
0000020 - A u g - 8 6 1 6 : 3 7 : 3 2
0000040 " ( " c o m p i l e d o n
0000060 " { E R I N Y E S } < N U Y E
0000100 N S > N E W P C L > S T R U C T
0000120 U R E - C L A S S . ; 1 6 ) \r
0000140 " 7 - A u g - 8 6 2 3 : 0 9
0000160 : 2 2 " " C O M P I L E - F I
0000200 L E d " i n " X e r o x L
0000220 i s p 7 - A u g - 8 6 . .
0000240 . " d a t e d " 7 - A u g
0000260 - 8 6 2 3 : 2 5 : 5 9 " ) \r (
0000300 F I L E C R E A T E D " 8 -
0000320 A u g - 8 6 1 6 : 3 6 : 5 8 "
0000340 { E R I N Y E S } < N U Y E N
0000360 S > N E W P C L > S T R U C T U
0000400 R E - C L A S S . ; 1 6 4 7 0
0000420 2 0 c h a n g e s t o : (
0000440 \r M E T H O D S M A K E - C O
0000460 P I E R - D E F I N I T I O N S
0000500 ~ S T R U C T U R E - C L A S S
0000520 ~ T ~ T ~ T M A K E - A C C E
0000540 S S O R - D E F I N I T I O N S
0000560 ~ S T R U C T U R E - C L A S S
0000600 ~ T ~ T ~ T \r S U P E R S - C
0000620 H A N G E D ~ S T R U C T U R E
0000640 - C L A S S ~ T ~ T ~ T ~ T )
0000660 p r e v i o u s d a t e : "
0000700 7 - A u g - 8 6 2 1 : 5 9 :
0000720 4 1 " \r { E R I N Y E S } < N
0000740 U Y E N S > N E W P C L > S T R
0000760 U C T U R E - C L A S S . ; 1 4
0001000 ) \r ( R P A Q Q S T R U C T U
0001020 R E - C L A S S C O M S ( ( S
0001040 T R U C T U R E S S T R U C T
0001060 U R E - C L A S S S T R U C T
0001100 U R E - O B J E C T ) ( P (
0001120 D E C L A R E D A T A T Y P E
0001140 ( Q U O T E T \r ) ( Q U O T
0001160 E N I L ) ( Q U O T E N I
0001200 L ) 0 N I L ) ( D E C L A
0001220 R E D A T A T Y P E ( Q U O T
0001240 E S T R U C T U R E - O B J E
0001260 C T ) ( Q U O T E N I L )
0001300 ( Q U O T E N I L ) 0 ( \r
0001320 Q U O T E T ) ) ) ( M E T H
0001340 O D S A L L - S L O T S - U S
0001360 I N G - C L A S S ~ S T R U C T
0001400 U R E - C L A S S ~ T \r C H E
0001420 C K - S U P E R - M E T A - C L
0001440 A S S - C O M P A T I B I L I T
0001460 Y ~ S T R U C T U R E - C L A S
0001500 S ~ C L A S S C L A S S - D E
0001520 F A U L T - I N C L U D E S ~ S
0001540 T R U C T U R E - C L A S S \r
0001560 G E T - S L O T - U S I N G - C
0001600 L A S S ~ S T R U C T U R E - C
0001620 L A S S ~ T ~ T ~ T ~ T I N I
0001640 T I A L I Z E - F R O M - D E F
0001660 A U L T S ~ S T R U C T U R E -
0001700 O B J E C T \r I N I T I A L I
0001720 Z E - F R O M - I N I T - P L I
0001740 S T ~ S T R U C T U R E - O B J
0001760 E C T ~ T I N I T I A L I Z E
0002000 ~ S T R U C T U R E - O B J E C
0002020 T ~ T \r M A K E - C O P I E R
0002040 - D E F I N I T I O N S ~ S T R
0002060 U C T U R E - C L A S S ~ T ~ T
0002100 ~ T M A K E - A C C E S S O R
0002120 - D E F I N I T I O N S ~ S T R
0002140 U C T U R E - C L A S S ~ T ~ T
0002160 ~ T \r M A K E - I N S T A N C
0002200 E ~ S T R U C T U R E - C L A S
0002220 S M A K E - P R E D I C A T E
0002240 - D E F I N I T I O N S ~ S T R
0002260 U C T U R E - C L A S S ~ T ~ T
0002300 ~ T \r O P T I M I Z E - G E T
0002320 - S L O T ~ T ~ S T R U C T U R
0002340 E - C L A S S ~ T P R I N T -
0002360 I N S T A N C E ~ S T R U C T U
0002400 R E - O B J E C T ~ T ~ T \r P
0002420 U T - S L O T - U S I N G - C L
0002440 A S S ~ S T R U C T U R E - C L
0002460 A S S ~ T ~ T ~ T S L O T S -
0002500 C H A N G E D ~ S T R U C T U R
0002520 E - C L A S S ~ T ~ T \r S U P
0002540 E R S - C H A N G E D ~ S T R U
0002560 C T U R E - C L A S S ~ T ~ T ~
0002600 T ~ T U P D A T E - F R O M -
0002620 L O C A L S ~ S T R U C T U R E
0002640 - C L A S S ~ T ) ( S E T F S
0002660 \r G E T - S L O T - - S T R U
0002700 C T U R E - C L A S S - 1 ) (
0002720 F U N C T I O N S G E T - S L
0002740 O T - - S T R U C T U R E - C L
0002760 A S S - 1 M D E F S T R U C T
0003000 S T R U C T U R E - C O N S T
0003020 R U C T O R \r U P D A T E - S
0003040 L O T S - - S T R U C T U R E -
0003060 C L A S S ) ( P R O P F I L
0003100 E T Y P E S T R U C T U R E -
0003120 C L A S S ) ) ) \r ( R E C O R D
0003140 - D E F I N I T I O N ( Q U O
0003160 T E S T R U C T U R E - C L A
0003200 S S ) ( Q U O T E N D E F S
0003220 T R U C T ) ) \r ( A D D - N A M
0003240 E D - C L A S S ( C L A S S -
0003260 P R O T O T Y P E ( C L A S S
0003300 - N A M E D ( Q U O T E C L
0003320 A S S ) ) ) ( Q U O T E S T
0003340 R U C T U R E - C L A S S ) (
0003360 Q U O T E ( C L A S S ) ) \r
0003400 ( Q U O T E N I L ) ( Q U O
0003420 T E | S ( D S - O P T I O N S
0003440 N A M E S T R U C T U R E -
0003460 C L A S S C O N S T R U C T O
0003500 R S ( ( M A K E - S T R U C T
0003520 U R E - C L A S S ) ) C O P I
0003540 E R \r C O P Y - S T R U C T U
0003560 R E - C L A S S P R E D I C A
0003600 T E S T R U C T U R E - C L A
0003620 S S - P P R I N T - F U N C T
0003640 I O N N I L G E N E R A T E
0003660 - A C C E S S O R S M E T H O
0003700 D \r C O N C - N A M E S T R
0003720 U C T U R E - C L A S S - I N
0003740 C L U D E S ( C L A S S ) S
0003760 L O T - I N C L U D E S N I L
0004000 I N I T I A L - O F F S E T
0004020 0 ) ) ) \r ( D O - A C C E S S O
0004040 R - D E F I N I T I O N S ( Q
0004060 U O T E S T R U C T U R E - C
0004100 L A S S ) ( Q U O T E N I L
0004120 ) ) \r M A K E - S T R U C T U R
0004140 E - C L A S S D 1 \r ( L ( 0
0004160 - a r g s - ) ) \0 U 006 \0 002 \0
0004200 e 021 001 \0 H k 021 2 005 J d I 363 262 027 277
0004220 K 022 021 ! 003 g \0 \0 \t \0 \0 k 273 272 g \0
0004240 \0 I 260 , a 275 L 265 \r M h 032 \ 273 J k
0004260 324 Z 260 330 M & 274 260 367 d 001 375 002 K k 330
0004300 [ n 002 \0 361 227 o \0 \0 \0 \t \0 \0 277 265 353
0004320 K J 016 020 \0 ( 1 1 4 Q L I S P E
0004340 R R O R 3 2 Q S Y M B O L -
0004360 F U N C T I O N ) \r ( 4 0 Q S
0004400 T R U C T U R E - C L A S S 2
0004420 7 Q M A K E ) \r ( 1 1 1 Q
0004440 " T O O M A N Y A R G U M E
0004460 N T S " ) \r ( D O - C O P I E R
0004500 - D E F I N I T I O N ( Q U O
0004520 T E S T R U C T U R E - C L A
0004540 S S ) ( Q U O T E C O P Y -
0004560 S T R U C T U R E - C L A S S )
0004600 ) \r S T R U C T U R E - C L A S
0004620 S - P D 1 \r ( L ( 0 X ) )
0004640 \0 ' \0 \0 \0 001 @ \t \0 \0 264 ! g \0 \0
0004660 \t \0 \0 @ \t \0 \0 311 \0 \t \0 \0 g \0 \0 g
0004700 \0 \0 \t \0 \0 \f \0 \0 h 360 h 360 020 \0 ( 4
0004720 0 Q C L : M E M B E R 3 5 Q
0004740 S Y M B O L - F U N C T I O N
0004760 2 4 Q C L A S S - C L A S S
0005000 - P R E C E D E N C E - L I S T
0005020 1 7 Q I W M C - C L A S S -
0005040 C L A S S - W R A P P E R 1 3
0005060 Q C L A S S - N A M E D 3
0005100 I W M C - C L A S S - P ) \r ( 3
0005120 2 Q E Q 2 7 Q : T E S T
0005140 1 0 Q S T R U C T U R E - C L
0005160 A S S ) \r ( ) \r ( P U T P R O P
0005200 S S T R U C T U R E - C L A S
0005220 S D E F T Y P E ( M A C R O
0005240 N I L ( Q U O T E ( S A T
0005260 I S F I E S S T R U C T U R E
0005300 - C L A S S - P ) ) ) ) \r ( R E
0005320 C O R D - D E F I N I T I O N
0005340 ( Q U O T E S T R U C T U R E
0005360 - O B J E C T ) ( Q U O T E
0005400 N D E F S T R U C T ) ) \r ( A D
0005420 D - N A M E D - C L A S S ( C
0005440 L A S S - P R O T O T Y P E (
0005460 C L A S S - N A M E D ( Q U O
0005500 T E C L A S S ) ) ) ( Q U O
0005520 T E S T R U C T U R E - O B J
0005540 E C T ) ( Q U O T E ( T ) )
0005560 ( \r Q U O T E N I L ) ( Q
0005600 U O T E | S ( D S - O P T I O
0005620 N S N A M E S T R U C T U R
0005640 E - O B J E C T C O N S T R U
0005660 C T O R S ( ( M A K E - S T R
0005700 U C T U R E - O B J E C T ) )
0005720 C O P I E R \r C O P Y - S T R
0005740 U C T U R E - O B J E C T P R
0005760 E D I C A T E S T R U C T U R
0006000 E - O B J E C T - P P R I N T
0006020 - F U N C T I O N N I L G E
0006040 N E R A T E - A C C E S S O R S
0006060 M E T H O D \r C O N C - N A
0006100 M E S T R U C T U R E - O B J
0006120 E C T - I N C L U D E S ( T
0006140 ) S L O T - I N C L U D E S
0006160 N I L I N I T I A L - O F F S
0006200 E T 0 ) ) ) \r ( D O - A C C E
0006220 S S O R - D E F I N I T I O N S
0006240 ( Q U O T E S T R U C T U R
0006260 E - O B J E C T ) ( Q U O T E
0006300 N I L ) ) \r M A K E - S T R U
0006320 C T U R E - O B J E C T D 1 \r
0006340 ( L ( 0 - a r g s - ) ) \0
0006360 U 006 \0 002 \0 e 021 001 \0 H k 021 2 005 J d
0006400 I 363 262 027 277 K 022 021 ! 003 g \0 \0 \t \0 \0
0006420 k 273 272 g \0 \0 I 260 , a 275 L 265 \r M h
0006440 032 \ 273 J k 324 Z 260 330 M & 274 260 367 d 001
0006460 375 002 K k 330 [ n 002 \0 361 227 o \0 \0 \0 \t
0006500 \0 \0 277 265 353 K J 016 020 \0 ( 1 1 4 Q
0006520 L I S P E R R O R 3 2 Q S Y
0006540 M B O L - F U N C T I O N ) \r (
0006560 4 0 Q S T R U C T U R E - O B
0006600 J E C T 2 7 Q M A K E ) \r (
0006620 1 1 1 Q " T O O M A N Y
0006640 A R G U M E N T S " ) \r ( D O -
0006660 C O P I E R - D E F I N I T I O
0006700 N ( Q U O T E S T R U C T U
0006720 R E - O B J E C T ) ( Q U O T
0006740 E C O P Y - S T R U C T U R E
0006760 - O B J E C T ) ) \r S T R U C T
0007000 U R E - O B J E C T - P D 1 \r
0007020 ( L ( 0 X ) ) \0 ' \0 \0 \0 001
0007040 @ \t \0 \0 264 ! g \0 \0 \t \0 \0 @ \t \0 \0
0007060 311 \0 \t \0 \0 g \0 \0 g \0 \0 \t \0 \0 \f \0
0007100 \0 h 360 h 360 020 \0 ( 4 0 Q C L : M
0007120 E M B E R 3 5 Q S Y M B O L
0007140 - F U N C T I O N 2 4 Q C L
0007160 A S S - C L A S S - P R E C E D
0007200 E N C E - L I S T 1 7 Q I W
0007220 M C - C L A S S - C L A S S - W
0007240 R A P P E R 1 3 Q C L A S S
0007260 - N A M E D 3 I W M C - C L
0007300 A S S - P ) \r ( 3 2 Q E Q 2
0007320 7 Q : T E S T 1 0 Q S T R
0007340 U C T U R E - O B J E C T ) \r (
0007360 ) \r ( P U T P R O P S S T R U
0007400 C T U R E - O B J E C T D E F
0007420 T Y P E ( M A C R O N I L
0007440 ( Q U O T E ( S A T I S F I E
0007460 S S T R U C T U R E - O B J E
0007500 C T - P ) ) ) ) \r ( D E C L A R
0007520 E D A T A T Y P E ( Q U O T E
0007540 T ) ( Q U O T E N I L )
0007560 ( Q U O T E N I L ) 0 N I
0007600 L ) \r ( D E C L A R E D A T A T
0007620 Y P E ( Q U O T E S T R U C
0007640 T U R E - O B J E C T ) ( Q U
0007660 O T E N I L ) ( Q U O T E
0007700 N I L ) 0 ( Q U O T E T )
0007720 ) \r ( P U T D E F ( Q U O T E
0007740 A L L - S L O T S - U S I N G
0007760 - C L A S S ~ S T R U C T U R E
0010000 - C L A S S ~ T ) ( Q U O T E
0010020 M E T H O D S ) ( Q U O T E
0010040 ( D E F M E T H \r A L L - S
0010060 L O T S - U S I N G - C L A S S
0010100 ( ( C L A S S S T R U C T U
0010120 R E - C L A S S ) O B J E C T
0010140 ) ( I T E R A T E ( ( S L O
0010160 T D I N ( C L A S S - I N S
0010200 T A N C E - S L O T S C L A S
0010220 S \r ) ) ) ( C L : C O L L E C
0010240 T ( S L O T D - N A M E S L
0010260 O T D ) ) ( C L : C O L L E C
0010300 T ( F U N C A L L ( S L O T
0010320 D - A C C E S S O R S L O T D
0010340 ) O B J E C T ) ) ) ) ) ) \r (
0010360 P U T D E F ( Q U O T E C H
0010400 E C K - S U P E R - M E T A - C
0010420 L A S S - C O M P A T I B I L I
0010440 T Y ~ S T R U C T U R E - C L A
0010460 S S ~ C L A S S ) ( Q U O T E
0010500 M E T H O D S ) ( Q U O T E
0010520 ( \r D E F M E T H C H E C K
0010540 - S U P E R - M E T A - C L A S
0010560 S - C O M P A T I B I L I T Y
0010600 ( ( C L A S S S T R U C T U R
0010620 E - C L A S S ) ( S U P E R -
0010640 C L A S S C L A S S ) ) T )
0010660 ) ) \r ( P U T D E F ( Q U O T
0010700 E C L A S S - D E F A U L T -
0010720 I N C L U D E S ~ S T R U C T U
0010740 R E - C L A S S ) ( Q U O T E
0010760 M E T H O D S ) ( Q U O T E
0011000 ( D E F M E T H \r C L A S S
0011020 - D E F A U L T - I N C L U D E
0011040 S ( ( C L A S S S T R U C T
0011060 U R E - C L A S S ) ) ( L I S
0011100 T ( Q U O T E S T R U C T U
0011120 R E - O B J E C T ) ) ) ) ) \r (
0011140 P U T D E F ( Q U O T E G E
0011160 T - S L O T - U S I N G - C L A
0011200 S S ~ S T R U C T U R E - C L A
0011220 S S ~ T ~ T ~ T ~ T ) ( Q U O
0011240 T E M E T H O D S ) ( Q U O
0011260 T E ( D E F M E T H \r G E T
0011300 - S L O T - U S I N G - C L A S
0011320 S ( ( C L A S S S T R U C T
0011340 U R E - C L A S S ) O B J E C
0011360 T S L O T - N A M E N O - E
0011400 R R O R - P D E F A U L T )
0011420 ( I G N O R E N O - E R R O R
0011440 - P \r D E F A U L T ) ( L E
0011460 T ( ( P O S ( S L O T D - P
0011500 O S I T I O N S L O T - N A M
0011520 E ( C L A S S - I N S T A N C
0011540 E - S L O T S C L A S S ) ) )
0011560 ) ( C L : I F P O S ( \r G
0011600 E T - S L O T - - S T R U C T U
0011620 R E - C L A S S - 1 O B J E C
0011640 T P O S ) ( C L : E R R O R
0011660 " s l o t n o t f o u n d
0011700 " ) ) ) ) ) ) \r ( P U T D E F
0011720 ( Q U O T E I N I T I A L I Z
0011740 E - F R O M - D E F A U L T S ~
0011760 S T R U C T U R E - O B J E C T
0012000 ) ( Q U O T E M E T H O D S
0012020 ) ( Q U O T E ( D E F M E T
0012040 H \r I N I T I A L I Z E - F R
0012060 O M - D E F A U L T S ( ( S E
0012100 L F S T R U C T U R E - O B J
0012120 E C T ) ) ( I T E R A T E (
0012140 ( S L O T D I N ( C L A S S
0012160 - I N S T A N C E - S L O T S
0012200 ( C L A S S - O F \r S E L F )
0012220 ) ) ) ( S E T F ( G E T - S
0012240 L O T S E L F ( S L O T D -
0012260 N A M E S L O T D ) ) ( C L
0012300 : E V A L ( S L O T D - D E F
0012320 A U L T S L O T D ) ) ) ) ) )
0012340 ) \r ( P U T D E F ( Q U O T E
0012360 I N I T I A L I Z E - F R O M
0012400 - I N I T - P L I S T ~ S T R U
0012420 C T U R E - O B J E C T ~ T )
0012440 ( Q U O T E M E T H O D S )
0012460 ( Q U O T E ( D E F M E T H
0012500 \r I N I T I A L I Z E - F R O M
0012520 - I N I T - P L I S T ( ( S E
0012540 L F S T R U C T U R E - O B J
0012560 E C T ) I N I T - P L I S T )
0012600 ( L E T ( ( C L A S S ( C
0012620 L A S S - O F S E L F ) ) (
0012640 E N T R Y \r N I L ) ) ( M A
0012660 C R O L E T ( ( I N I T I A L
0012700 I Z E - S L O T S ( S L O T S
0012720 ) ( B Q U O T E ( I T E R A
0012740 T E ( ( S L O T D I N ( \
0012760 , S L O T S ) ) ) ( C L : W
0013000 H E N ( C L : S E T Q \r E N
0013020 T R Y ( M E M Q ( S L O T D
0013040 - K E Y W O R D S L O T D )
0013060 I N I T - P L I S T ) ) ( S E
0013100 T F ( C A R E N T R Y ) N
0013120 I L ) ( S E T F ( G E T - S
0013140 L O T S E L F ( S L O T D -
0013160 N A M E \r S L O T D ) ) ( C
0013200 A D R E N T R Y ) ) ) ) ) ) )
0013220 ( I N I T I A L I Z E - S L O
0013240 T S ( C L A S S - I N S T A N
0013260 C E - S L O T S C L A S S ) )
0013300 ( I N I T I A L I Z E - S L O
0013320 T S ( \r C L A S S - N O N - I
0013340 N S T A N C E - S L O T S C L
0013360 A S S ) ) ) ) ) ) ) \r ( P U T D
0013400 E F ( Q U O T E I N I T I A
0013420 L I Z E ~ S T R U C T U R E - O
0013440 B J E C T ~ T ) ( Q U O T E
0013460 M E T H O D S ) ( Q U O T E
0013500 ( D E F M E T H I N I T I A L
0013520 I Z E ( ( O B J E C T \r S T
0013540 R U C T U R E - O B J E C T )
0013560 I N I T - P L I S T ) ( I N I
0013600 T I A L I Z E - F R O M - D E F
0013620 A U L T S O B J E C T ) ( I
0013640 N I T I A L I Z E - F R O M - I
0013660 N I T - P L I S T O B J E C T
0013700 \r I N I T - P L I S T ) ) ) )
0013720 \r ( P U T D E F ( Q U O T E
0013740 M A K E - C O P I E R - D E F I
0013760 N I T I O N S ~ S T R U C T U R
0014000 E - C L A S S ~ T ~ T ~ T ) (
0014020 Q U O T E M E T H O D S ) (
0014040 Q U O T E ( D E F M E T H \r
0014060 M A K E - C O P I E R - D E F I
0014100 N I T I O N S ( ( C L A S S
0014120 S T R U C T U R E - C L A S S )
0014140 N A M E D S - O P T I O N S
0014160 S L O T D S ) ( I G N O R E
0014200 S L O T D S ) ( * ; ; \r
0014220 " T H I S I S N O T C O M
0014240 P L E T E " ) ( L E T ( ( C
0014260 O P I E R ( D S - O P T I O N
0014300 S - C O P I E R D S - O P T I
0014320 O N S ) ) ) ( C L : W H E N
0014340 C O P I E R ( \r C O M P I L E
0014360 - T I M E - D E F I N E ( Q U
0014400 O T E D E F U N ) C O P I E
0014420 R ) ( B Q U O T E ( ( D E F
0014440 U N ( \ , C O P I E R ) (
0014460 ( \ , N A M E ) ) ( C O P Y
0014500 ( \ , N A M E ) ) ) ) ) ) \r
0014520 ) ) ) ) \r ( P U T D E F ( Q U
0014540 O T E M A K E - A C C E S S O
0014560 R - D E F I N I T I O N S ~ S T
0014600 R U C T U R E - C L A S S ~ T ~
0014620 T ~ T ) ( Q U O T E M E T H
0014640 O D S ) ( Q U O T E ( D E F
0014660 M E T H \r M A K E - A C C E S
0014700 S O R - D E F I N I T I O N S
0014720 ( ( C L A S S S T R U C T U R
0014740 E - C L A S S ) N A M E D S
0014760 - O P T I O N S S L O T D S )
0015000 ( * ; ; \r " t h i s u s
0015020 e s t h e d s - o p t i o n
0015040 s t o m a k e s u r e t
0015060 h a t t h e o f f s e t i
0015100 n c l u d e s y o u r " )
0015120 ( L E T ( ( O F F S E T ( +
0015140 ( \r D S - O P T I O N S - I N
0015160 I T I A L - O F F S E T D S -
0015200 O P T I O N S ) ( L E T ( (
0015220 S U P E R ( C A R ( D S - O
0015240 P T I O N S - I N C L U D E S
0015260 D S - O P T I O N S ) ) ) ) (
0015300 C L : I F \r S U P E R ( L E
0015320 N G T H ( C L A S S - I N S T
0015340 A N C E - S L O T S ( C L A S
0015360 S - N A M E D S U P E R ) ) )
0015400 0 ) ) ) ) ) ( I T E R A T E
0015420 ( ( S L O T D I N S L O T
0015440 D S ) ( I F R O M \r O F F
0015460 S E T ) ) ( L E T ( ( A C C
0015500 E S S O R ( S L O T D - A C C
0015520 E S S O R S L O T D ) ) S E
0015540 T F - D I S C R I M I N A T O R
0015560 - N A M E ) ( C L : W H E N
0015600 A C C E S S O R ( C L : S E T
0015620 Q \r S E T F - D I S C R I M I
0015640 N A T O R - N A M E ( M A K E
0015660 - S E T F - D I S C R I M I N A
0015700 T O R - N A M E A C C E S S O
0015720 R ) ) ( C L : C O L L E C T
0015740 ( B Q U O T E ( D E F U N (
0015760 \ , \r A C C E S S O R ) ( (
0016000 \ , N A M E ) ) ( G E T - S
0016020 L O T - - S T R U C T U R E - C
0016040 L A S S - 1 ( \ , N A M E )
0016060 ( \ , I ) ( Q U O T E (
0016100 \ , N A M E ) ) ) ) ) ) ( C
0016120 L : C O L L E C T \r ( B Q U O
0016140 T E ( D E F U N ( \ , S E
0016160 T F - D I S C R I M I N A T O R
0016200 - N A M E ) ( ( \ , N A M E
0016220 ) N E W - V A L U E ) ( S E
0016240 T F ( G E T - S L O T - - S T
0016260 R U C T U R E - C L A S S - 1
0016300 ( \r \ , N A M E ) ( \ , I
0016320 ) ( Q U O T E ( \ , N A M
0016340 E ) ) ) N E W - V A L U E ) )
0016360 ) ) ( C L : C O L L E C T (
0016400 B Q U O T E ( D E F S E T F
0016420 ( \ , A C C E S S O R ) ( \
0016440 , \r S E T F - D I S C R I M I
0016460 N A T O R - N A M E ) ) ) ) ) )
0016500 ) ) ) ) ) \r ( P U T D E F ( Q
0016520 U O T E M A K E - I N S T A N
0016540 C E ~ S T R U C T U R E - C L A
0016560 S S ) ( Q U O T E M E T H O
0016600 D S ) ( Q U O T E ( D E F M
0016620 E T H M A K E - I N S T A N C
0016640 E ( ( C L A S S \r S T R U C
0016660 T U R E - C L A S S ) ) ( N C
0016700 R E A T E ( G E T - S L O T -
0016720 - C L A S S C L A S S ( Q U
0016740 O T E N A M E ) ) ) ) ) ) \r (
0016760 P U T D E F ( Q U O T E M A
0017000 K E - P R E D I C A T E - D E F
0017020 I N I T I O N S ~ S T R U C T U
0017040 R E - C L A S S ~ T ~ T ~ T )
0017060 ( Q U O T E M E T H O D S )
0017100 ( Q U O T E ( D E F M E T H
0017120 \r M A K E - P R E D I C A T E -
0017140 D E F I N I T I O N S ( ( C L
0017160 A S S S T R U C T U R E - C L
0017200 A S S ) N A M E D S - O P T
0017220 I O N S S L O T D S ) ( I G
0017240 N O R E C L A S S S L O T D
0017260 S ) ( L E T \r ( ( P R E D I
0017300 C A T E ( O R ( D S - O P T
0017320 I O N S - P R E D I C A T E D
0017340 S - O P T I O N S ) ( M A K E
0017360 - S Y M B O L ( S T R I N G -
0017400 A P P E N D N A M E " P r
0017420 e d i c a t e " ) ) ) ) ) \r (
0017440 B Q U O T E ( ( D E F U N (
0017460 \ , P R E D I C A T E ) ( X
0017500 ) ( T Y P E P X ( Q U O T
0017520 E ( \ , N A M E ) ) ) ) ) )
0017540 ) ) ) ) \r ( P U T D E F ( Q U
0017560 O T E O P T I M I Z E - G E T
0017600 - S L O T ~ T ~ S T R U C T U R
0017620 E - C L A S S ~ T ) ( Q U O T
0017640 E M E T H O D S ) ( Q U O T
0017660 E ( D E F M E T H \r O P T I
0017700 M I Z E - G E T - S L O T ( M
0017720 E T H O D ( C L A S S S T R
0017740 U C T U R E - C L A S S ) F O
0017760 R M ) ( C L : P R I N T \r "
0020000 n o o p t i m i z a t i o n
0020020 f o r g e t - s l o t o f
0020040 s t r u c t u r e - c l a s s "
0020060 ) F O R M ) ) ) \r ( P U T D E
0020100 F ( Q U O T E P R I N T - I
0020120 N S T A N C E ~ S T R U C T U R
0020140 E - O B J E C T ~ T ~ T ) ( Q
0020160 U O T E M E T H O D S ) ( Q
0020200 U O T E ( D E F M E T H P R
0020220 I N T - I N S T A N C E ( ( \r
0020240 I N S T A N C E S T R U C T U
0020260 R E - O B J E C T ) S T R E A
0020300 M D E P T H ) ( * T H I S
0020320 I S J U S T T H E D E F
0020340 I N I T I O N F O R O B J E
0020360 C T ( \ , A N D ) C A N
0020400 G O \r A W A Y I F S T R U
0020420 C T U R E - O B J E C T I S
0020440 A S U B - C L A S S O F O
0020460 B J E C T ) ( L E T ( ( C L
0020500 : L E N G T H ( C L : I F (
0020520 N U M B E R P * P R I N T - L
0020540 E N G T H * ) ( \r C L : * *
0020560 P R I N T - L E N G T H * 2 )
0020600 N I L ) ) ) ( F O R M A T
0020620 S T R E A M " # S ( ~ S " (
0020640 C L A S S - N A M E ( C L A S
0020660 S - O F I N S T A N C E ) ) )
0020700 ( I T E R A T E ( ( \r S L O
0020720 T - O R - V A L U E I N ( A
0020740 L L - S L O T S I N S T A N C
0020760 E ) ) ( S L O T P = T (
0021000 N O T S L O T P ) ) ) ( C L
0021020 : W H E N ( N U M B E R P C
0021040 L : L E N G T H ) ( C O N D
0021060 ( ( \r < = C L : L E N G T H
0021100 0 ) ( F O R M A T S T R E A
0021120 M " . . . " ) ( R E T U R
0021140 N N I L ) ) ( T ( D E C F
0021160 C L : L E N G T H ) ) ) ) (
0021200 P R I N C " " S T R E A M
0021220 ) ( L E T ( ( \r * P R I N T
0021240 - L E V E L * ( C O N D ( (
0021260 N U L L * P R I N T - L E V E
0021300 L * ) N I L ) ( S L O T P
0021320 1 ) ( T ( - * P R I N T -
0021340 L E V E L * D E P T H ) ) ) )
0021360 ) ( C L : I F ( A N D \r *
0021400 P R I N T - L E V E L * ( < =
0021420 * P R I N T - L E V E L * 0
0021440 ) ) ( P R I N C " # " S T
0021460 R E A M ) ( C L : P R I N 1
0021500 S L O T - O R - V A L U E S T
0021520 R E A M ) ) ) ) ( P R I N C
0021540 " ) " \r S T R E A M ) ) ) ) )
0021560 \r ( P U T D E F ( Q U O T E
0021600 P U T - S L O T - U S I N G - C
0021620 L A S S ~ S T R U C T U R E - C
0021640 L A S S ~ T ~ T ~ T ) ( Q U O
0021660 T E M E T H O D S ) ( Q U O
0021700 T E ( D E F M E T H \r P U T
0021720 - S L O T - U S I N G - C L A S
0021740 S ( ( C L A S S S T R U C T
0021760 U R E - C L A S S ) O B J E C
0022000 T S L O T - N A M E N E W -
0022020 V A L U E ) ( L E T ( ( P O
0022040 S ( S L O T D - P O S I T I O
0022060 N \r S L O T - N A M E ( C L
0022100 A S S - I N S T A N C E - S L O
0022120 T S C L A S S ) ) ) ) ( C L
0022140 : I F P O S ( S E T F ( G
0022160 E T - S L O T - - S T R U C T U
0022200 R E - C L A S S - 1 O B J E C
0022220 T P O S ) \r N E W - V A L U
0022240 E ) ( C L : E R R O R " s l
0022260 o t n o t f o u n d " ) ) )
0022300 ) ) ) \r ( P U T D E F ( Q U O
0022320 T E S L O T S - C H A N G E D
0022340 ~ S T R U C T U R E - C L A S S
0022360 ~ T ~ T ) ( Q U O T E M E T
0022400 H O D S ) ( Q U O T E ( D E
0022420 F M E T H S L O T S - C H A N
0022440 G E D ( ( \r C L A S S S T R
0022460 U C T U R E - C L A S S ) O L
0022500 D - L O C A L - S L O T S E X
0022520 T R A & O P T I O N A L ( T
0022540 O P - P T ) ) ( I G N O R E
0022560 T O P - P O L D - L O C A L
0022600 - S L O T S ) ( \r U P D A T E
0022620 - S L O T S - - S T R U C T U R
0022640 E - C L A S S C L A S S ( C
0022660 L A S S - C L A S S - P R E C E
0022700 D E N C E - L I S T C L A S S
0022720 ) ) ( D O L I S T ( S U B -
0022740 C L A S S ( \r C L A S S - D I
0022760 R E C T - S U B C L A S S E S
0023000 C L A S S ) ) ( S L O T S - C
0023020 H A N G E D S U B - C L A S S
0023040 ( C L A S S - L O C A L - S L
0023060 O T S S U B - C L A S S ) E
0023100 X T R A N I L ) ) ) ) ) \r ( P
0023120 U T D E F ( Q U O T E S U P
0023140 E R S - C H A N G E D ~ S T R U
0023160 C T U R E - C L A S S ~ T ~ T ~
0023200 T ~ T ) ( Q U O T E M E T H
0023220 O D S ) ( Q U O T E ( D E F
0023240 M E T H S U P E R S - C H A N
0023260 G E D \r ( ( S E L F S T R U
0023300 C T U R E - C L A S S ) O L D
0023320 - L O C A L - S U P E R S O L
0023340 D - L O C A L - S L O T S E X
0023360 T R A T O P - P ) ( L E T *
0023400 ( ( L O C A L - S U P E R S
0023420 ( \r C L A S S - L O C A L - S U
0023440 P E R S S E L F ) ) ( C P L
0023460 ( C O M P U T E - C L A S S -
0023500 P R E C E D E N C E - L I S T
0023520 S E L F L O C A L - S U P E R
0023540 S ) ) ( N A M E ( C L A S S
0023560 - N A M E \r S E L F ) ) ) (
0023600 S E T F ( C L A S S - C L A S
0023620 S - P R E C E D E N C E - L I S
0023640 T S E L F ) C P L ) ( U P
0023660 D A T E - S L O T S - - S T R U
0023700 C T U R E - C L A S S S E L F
0023720 C P L ) ( \r D E C L A R E D
0023740 A T A T Y P E N A M E ( C L
0023760 : M A P C A R ( C L : F U N C
0024000 T I O N ( C L : L A M B D A
0024020 ( X ) ( I G N O R E X ) (
0024040 Q U O T E P O I N T E R ) ) )
0024060 ( \r C L A S S - L O C A L - S
0024100 L O T S S E L F ) ) N I L
0024120 N I L ( A N D L O C A L - S
0024140 U P E R S ( C L A S S - N A M
0024160 E ( C A R L O C A L - S U P
0024200 E R S ) ) ) ) ( E V A L ( B
0024220 Q U O T E ( \r D E F T Y P E
0024240 ( \ , N A M E ) N I L ( Q
0024260 U O T E ( D A T A T Y P E (
0024300 \ , N A M E ) ) ) ) ) ) ) ) )
0024320 ) \r ( P U T D E F ( Q U O T E
0024340 U P D A T E - F R O M - L O C
0024360 A L S ~ S T R U C T U R E - C L
0024400 A S S ~ T ) ( Q U O T E M E
0024420 T H O D S ) ( Q U O T E ( D
0024440 E F M E T H \r U P D A T E - F
0024460 R O M - L O C A L S ( ( S E L
0024500 F S T R U C T U R E - C L A S
0024520 S ) O B S O L E T E - C L A S
0024540 S ) ( R U N - S U P E R ) (
0024560 L E T ( ( L O C A L - S U P E
0024600 R S ( \r C L A S S - L O C A L
0024620 - S U P E R S S E L F ) ) )
0024640 ( H E L P ) ( D E C L A R E D
0024660 A T A T Y P E ( C L A S S - N
0024700 A M E S E L F ) ( C L : M A
0024720 P C A R ( C L : F U N C T I O
0024740 N ( \r C L : L A M B D A ( X
0024760 ) ( I G N O R E X ) ( Q U
0025000 O T E P O I N T E R ) ) ) (
0025020 C L A S S - I N S T A N C E - S
0025040 L O T S C L A S S ) ) N I L
0025060 N I L ( A N D L O C A L -
0025100 S U P E R S ( \r C L A S S - N
0025120 A M E ( C A R L O C A L - S
0025140 U P E R S ) ) ) ) ) ) ) ) \r ( R
0025160 E M P R O P ( Q U O T E G E
0025200 T - S L O T - - S T R U C T U R
0025220 E - C L A S S - 1 ) ( Q U O T
0025240 E S E T F - I N V E R S E ) )
0025260 \r G E T - S L O T - - S T R U C
0025300 T U R E - C L A S S - 1 - s e t
0025320 f - e x p a n d e r D 1 \r ( P
0025340 1 3 Q N V P 5 G E T -
0025360 S L O T - - S T R U C T U R E -
0025400 C L A S S - 1 - s e t f - f o r
0025420 m P 4 D U M M I E S P
0025440 3 X I 0 A C C E S S - F
0025460 O R M ) \0 202 \f \0 \0 001 021 @ 003 @ 260
0025500 024 d 001 273 \b \0 \0 270 I 265 \a H h 032 Z 201
0025520 H & 271 002 003 265 354 J 022 021 a \n @ 001 L 032
0025540 275 \b \0 \0 021 001 \v L @ 002 O 026 h 032 M 002
0025560 _ 024 001 _ 022 277 O 024 002 _ 020 001 _ 016 277 O
0025600 020 002 d 220 001 ^ 262 031 g \0 \0 g \0 \0 O 022
0025620 N h 032 032 032 g \0 \0 O 016 o \0 \0 \0 215 g
0025640 \0 \0 O 022 g \0 \0 O 016 o \0 \0 \0 032 032 O
0025660 026 h 032 032 032 032 M \r 005 \0 \0 020 \0 ( 1 7
0025700 7 Q V A L U E S 5 0 Q G E
0025720 N S Y M 1 3 Q G E N S Y M )
0025740 \r ( 1 5 3 Q C L : * 1 4 6 Q
0025760 \ R P L P T R 1 3 4 Q C L
0026000 : * 1 2 2 Q \ D T E S T 1
0026020 1 7 Q \ R P L P T R ) \r ( 1
0026040 6 1 Q ( 2 ) 1 4 2 Q ( 2 )
0026060 ) \r ( P U T P R O P S G E T -
0026100 S L O T - - S T R U C T U R E -
0026120 C L A S S - 1 S E T F - M E T
0026140 H O D - E X P A N D E R G E T
0026160 - S L O T - - S T R U C T U R E
0026200 - C L A S S - 1 - s e t f - e x
0026220 p a n d e r ) \r e x p a n d - G
0026240 E T - S L O T - - S T R U C T U
0026260 R E - C L A S S - 1 D 1 \r ( L
0026300 ( 1 $ $ M A C R O - E N V I
0026320 R O N M E N T 0 $ $ M A C R
0026340 O - F O R M ) ) \0 D 005 \0 \0 002 @
0026360 002 021 A 004 H 001 271 H 002 Z 001 273 J 002 d 220
0026400 001 \ 262 035 g \0 \0 g \0 \0 I L h 032 032 032
0026420 g \0 \0 K o \0 \0 \0 032 032 h 032 032 032 020 g
0026440 \0 \0 I g \0 \0 K o \0 \0 \0 032 032 h 032 032
0026460 032 020 \0 N I L \r ( 6 6 Q C L : *
0026500 6 2 Q \ G E T B A S E P T R
0026520 4 3 Q C L : * 3 2 Q \ D
0026540 T E S T 2 7 Q \ G E T B A S
0026560 E P T R ) \r ( 7 3 Q ( 2 )
0026600 5 0 Q ( 2 ) ) \r ( S E T F - M
0026620 A C R O - F U N C T I O N ( Q
0026640 U O T E G E T - S L O T - - S
0026660 T R U C T U R E - C L A S S - 1
0026700 ) ( Q U O T E e x p a n d -
0026720 G E T - S L O T - - S T R U C T
0026740 U R E - C L A S S - 1 ) ) \r e x
0026760 p a n d - M D E F S T R U C T
0027000 D 1 \r ( L ( 1 $ $ M A C R O
0027020 - E N V I R O N M E N T 0 $
0027040 $ M A C R O - F O R M ) ) \0 &
0027060 002 \0 \0 002 @ 002 021 021 001 H 001 Y d 222 d 003
0027100 230 001 o \0 \0 \0 I 002 032 203 o \0 \0 \0 032 Y
0027120 g \0 \0 I H 002 032 032 020 \0 N I L \r ( 3
0027140 6 Q N D E F S T R U C T ) \r (
0027160 3 1 Q ( ( : C L A S S S T
0027200 R U C T U R E - C L A S S ) )
0027220 2 1 Q ( : C L A S S S T R U
0027240 C T U R E - C L A S S ) ) \r ( S
0027260 E T F - M A C R O - F U N C T I
0027300 O N ( Q U O T E M D E F S T
0027320 R U C T ) ( Q U O T E e x p
0027340 a n d - M D E F S T R U C T ) )
0027360 \r S T R U C T U R E - C O N S T
0027400 R U C T O R D 1 \r ( L ( 0
0027420 S T R U C T U R E - N A M E ) )
0027440 \0 $ \0 \0 \0 001 @ d i \n \0 \0 230 277 g
0027460 \0 \0 @ \n \0 \0 020 301 002 311 \0 g \0 \0 ' 265
0027500 \n o \0 \0 \0 @ \n \0 \0 020 \0 ( 4 1 Q
0027520 C L : E R R O R 1 6 Q P A C
0027540 K * 5 C L A S S - N A M E D
0027560 ) \r ( 2 6 Q S T R U C T U R E
0027600 - C O N S T R U C T O R 1 2 Q
0027620 M A K E - ) \r ( 3 5 Q " n
0027640 o c o n s t r u c t o r f o
0027660 r ~ A s t r u c t u r e s "
0027700 ) \r U P D A T E - S L O T S - -
0027720 S T R U C T U R E - C L A S S
0027740 D 1 \r ( L ( 1 C P L 0 C
0027760 L A S S ) ) \0 B \t \0 \0 002 @ d \t
0030000 \0 \0 h A \f \0 \0 \t \0 \0 021 201 \b H 001 271
0030020 H 002 001 272 @ 274 I \t \0 \0 273 L K \n \0 \0
0030040 277 @ 276 I 275 N M \n \0 \0 277 @ _ 020 277 J
0030060 _ 016 277 O 020 O 016 \n \0 \0 g \0 \0 020 \0 (
0030100 7 4 Q C L A S S - N O N - I N
0030120 S T A N C E - S L O T S % : S
0030140 E T F - d i s c r i m i n a t o
0030160 r 5 4 Q C L A S S - I N S T
0030200 A N C E - S L O T S % : S E T
0030220 F - d i s c r i m i n a t o r
0030240 4 2 Q C L A S S - N O - O F -
0030260 I N S T A N C E - S L O T S %
0030300 : S E T F - d i s c r i m i n a
0030320 t o r 3 4 Q L E N G T H 1
0030340 4 Q \ M V L I S T 1 1 Q C
0030360 O L L E C T - S L O T D S 4
0030400 C L A S S - L O C A L - S L O T
0030420 S ) \r ( 7 7 Q W H E N ) \r ( )
0030440 \r ( P U T P R O P S S T R U C
0030460 T U R E - C L A S S F I L E T
0030500 Y P E C O M P I L E - F I L E
0030520 ) \r S T O P \r
0030527