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