$ od -c -N 50000 [eris]<LispCore>SOURCES>DEFSTRUCT.DCOM!5
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 " X C
0000040 L " 247 P A C K A G E " L I S
0000060 P " ) \r ( i l : f i l e c r e a
0000100 t e d " 2 4 - O c t - 8 6 1
0000120 2 : 4 9 : 5 3 " ( " c o m p i
0000140 l e d o n " i l : { e r i
0000160 s } < n u y e n s > z e b r a >
0000200 d e f s t r u c t . \ ; 3 0 )
0000220 \r " 2 1 - O c t - 8 6 0 4 : 1
0000240 3 : 0 1 " " C O M P I L E - F
0000260 I L E d " i l : | i n | " X
0000300 e r o x L i s p 2 1 - O c t
0000320 - 8 6 . . . " i l : | d a t
0000340 e d | \r " 2 1 - O c t - 8 6
0000360 0 4 : 4 8 : 4 3 " ) \r ( i l : f
0000400 i l e c r e a t e d " 2 4 - O
0000420 c t - 8 6 1 2 : 4 8 : 4 8 "
0000440 i l : { e r i s } < n u y e n s
0000460 > z e b r a > d e f s t r u c t
0000500 . \ ; 3 0 5 2 8 9 1 i l : |
0000520 c h a n g e s | i l : | t o :
0000540 | \r ( i l : f u n c t i o n s
0000560 % s t r u c t u r e - t y p e
0000600 - t o - f i e l d s p e c s e
0000620 t - p a r s e d - s t r u c t u
0000640 r e f i n d - s l o t c r e
0000660 a t e - b o a - c o n s t r u c
0000700 t o r \r b o a - s l o t - s e
0000720 t f s b o a - a r g - l i s t
0000740 - w i t h - i n i t i a l - v a
0000760 l u e s d e f i n e - c o n s
0001000 t r u c t o r s a s s i g n -
0001020 s t r u c t u r e - r e p r e s
0001040 e n t a t i o n \r e n s u r e
0001060 - c o n s i s t e n t - p s d
0001100 e f s t r u c t - s l o t - t o
0001120 - d a t a t y p e - f i e l d s
0001140 p e c d e f s t r u c t - a s
0001160 s e r t - s u b t y p e p ) (
0001200 i l : v a r s \r i l : d e f s
0001220 t r u c t c o m s ) i l : | p
0001240 r e v i o u s | i l : | d a t
0001260 e : | " 2 2 - O c t - 8 6 1
0001300 3 : 3 7 : 5 4 " i l : { e r i
0001320 s } < n u y e n s > z e b r a >
0001340 d e f s t r u c t . \ ; 2 7 ) \r
0001360 ( i l : r p a q q i l : d e f
0001400 s t r u c t c o m s ( ( i l :
0001420 * i l : | ; ; ; | " I m p l
0001440 e m e n t a t i o n o f d e
0001460 f s t r u c t " ) ( i l : *
0001500 i l : | ; ; ; | \r " p u b l i
0001520 c i n t e r f a c e " ) (
0001540 i l : f u n c t i o n s d e f
0001560 s t r u c t ) ( i l : p ( s
0001600 e t f ( m a c r o - f u n c t
0001620 i o n ( q u o t e i l : d e
0001640 f s t r u c t ) ) n i l ) )
0001660 \r ( i l : d e f i n e - t y p e
0001700 s i l : s t r u c t u r e s )
0001720 ( i l : * i l : | ; ; ; |
0001740 " t o p - l e v e l " ) ( i
0001760 l : f i l e s i l : d e f s t
0002000 r u c t - r u n - t i m e ) (
0002020 \r i l : f u n c t i o n s d e
0002040 c l a r e - s t r u c t u r e )
0002060 ( i l : * i l : | ; ; ; |
0002100 " p a r s i n g c o d e " )
0002120 ( i l : s t r u c t u r e s p
0002140 s p a r s e d - s l o t ) (
0002160 \r i l : f u n c t i o n s a s
0002200 s i g n - s l o t - a c c e s s
0002220 o r r e m o v e - d o c u m e
0002240 n t a t i o n r e c o r d - d
0002260 o c u m e n t a t i o n e n s
0002300 u r e - v a l i d - t y p e \r
0002320 p a r s e - s l o t d e f s t
0002340 r u c t - p a r s e - o p t i o
0002360 n s e n s u r e - c o n s i s
0002400 t e n t - p s p s - n u m b e
0002420 r - o f - s l o t s p s - t y
0002440 p e - s p e c i f i e r ) ( \r
0002460 i l : v a r i a b l e s % d e
0002500 f a u l t - d e f s t r u c t -
0002520 t y p e % d e f a u l t - p r
0002540 i n t - f u n c t i o n % d e
0002560 f a u l t - s l o t - t y p e
0002600 % d e f s t r u c t - o p t i o
0002620 n s \r % n o - c o n s t r u c
0002640 t o r % d e f s t r u c t - c
0002660 o n s p - o p t i o n s ) ( i
0002700 l : * i l : | ; ; ; | " s l
0002720 o t r e s o l u t i o n c o
0002740 d e " ) ( i l : f u n c t i o
0002760 n s \r a s s i g n - s l o t -
0003000 o f f s e t r e s o l v e - s
0003020 l o t s a d d - n a m e - s l
0003040 o t i n s e r t - i n c l u d
0003060 e d - s l o t m e r g e - s l
0003100 o t s n a m e - s l o t \r a
0003120 d d - i n i t i a l - o f f s e
0003140 t - s l o t s ) ( i l : * i
0003160 l : | ; ; ; | " d a t a l a
0003200 y o u t c o d e " ) ( i l :
0003220 f u n c t i o n s p a c k - d
0003240 a t a t y p e - f i e l d s p e
0003260 c s \r a s s i g n - s t r u c
0003300 t u r e - r e p r e s e n t a t
0003320 i o n d e f i n e - s t r u c
0003340 t u r e - t y p e d e f s t r
0003360 u c t - s l o t - t o - d a t a
0003400 t y p e - f i e l d s p e c \r
0003420 % s t r u c t u r e - t y p e -
0003440 t o - f i e l d s p e c a s s
0003460 i g n - f i e l d - d e s c r i
0003500 p t o r s ) ( i l : * i l :
0003520 | ; ; ; | " a c c e s s o r s
0003540 a n d s e t f s " ) ( \r i
0003560 l : f u n c t i o n s d e f i
0003600 n e - a c c e s s o r s p s l
0003620 o t - i n t e r n a l - a c c e
0003640 s s o r d e f i n e - s e t f
0003660 s s e t f - n a m e ) ( i l
0003700 : * i l : | ; ; ; | \r " c o
0003720 n s t r u c t o r d e f i n i
0003740 t i o n c o d e " ) ( i l :
0003760 f u n c t i o n s d e f i n e
0004000 - c o n s t r u c t o r s c r
0004020 e a t e - b o a - c o n s t r u
0004040 c t o r \r b o a - a r g - l i
0004060 s t - w i t h - i n i t i a l -
0004100 v a l u e s b o a - s l o t -
0004120 s e t f s f i n d - s l o t
0004140 r a w - c o n s t r u c t o r
0004160 b u i l d - c o n s t r u c t o
0004200 r - a r g l i s t \r b u i l d
0004220 - c o n s t r u c t o r - s l o
0004240 t - s e t f s b o a - c o n s
0004260 t r u c t o r - p d e f a u l
0004300 t - c o n s t r u c t o r - n a
0004320 m e ) ( i l : * i l : | ; ;
0004340 ; | " p r e d i c a t e " )
0004360 ( \r i l : f u n c t i o n s c
0004400 o n s t r u c t - p r e d i c a
0004420 t e p s - n a m e - s l o t -
0004440 p o s i t i o n d e f a u l t
0004460 - p r e d i c a t e - n a m e
0004500 f u n c t i o n - d e f i n i n
0004520 g - f o r m ) \r ( i l : * i
0004540 l : | ; ; ; | " c o p i e r s
0004560 " ) ( i l : f u n c t i o n s
0004600 d e f i n e - c o p i e r s
0004620 b u i l d - c o p i e r - s l o
0004640 t - s e t f s b u i l d - c o
0004660 p i e r - t y p e - c h e c k \r
0004700 ) ( i l : * i l : | ; ; ; |
0004720 " p r i n t f u n c t i o n
0004740 s " ) ( i l : f u n c t i o n
0004760 s r e c o r d - p r i n t - f
0005000 u n c t i o n ) ( i l : * i
0005020 l : | ; ; ; | \r " i n t e r n
0005040 a l s t u f f . " ) ( i l :
0005060 s e t f s i l : f f e t c h f
0005100 i e l d ) ( i l : * i l : |
0005120 ; ; ; | " u t i l i t i e s "
0005140 ) ( i l : f u n c t i o n s
0005160 \r s a f e - t y p e - e x p a n
0005200 d d e f s t r u c t - a s s e
0005220 r t - s u b t y p e p ) ( i l
0005240 : * i l : | ; ; ; | " I n t
0005260 e r n a l i n t e r f a c e "
0005300 ) ( i l : f u n c t i o n s
0005320 \r s e t - p a r s e d - s t r u
0005340 c t u r e ) ( i l : * i l :
0005360 | ; ; ; | " f i l e p r o p
0005400 e r t i e s " ) ( i l : p r o
0005420 p i l : f i l e t y p e i l
0005440 : d e f s t r u c t ) ( i l :
0005460 p r o p \r i l : m a k e f i l
0005500 e - e n v i r o n m e n t i l
0005520 : d e f s t r u c t ) ) ) \r | e
0005540 x p a n d - D E F S T R U C T |
0005560 i l : d 1 \r ( i l : l ( 1
0005600 i l : $ $ m a c r o - e n v i r
0005620 o n m e n t 0 i l : $ $ m a
0005640 c r o - f o r m ) ) \0 177 006 \0 \0
0005660 002 @ 002 \t \0 \0 021 Q 005 @ 271 H 001 272 H 002
0005700 273 g \0 \0 g \0 \0 J \t \0 \0 ] K \n \0 \0
0005720 274 M \t \0 \0 272 L M \n \0 \0 277 g \0 \0 M
0005740 \t \0 \0 g \0 \0 J h 032 032 h 032 \n \0 \0 032
0005760 h 032 032 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0
0006000 g \0 \0 g \0 \0 J h 032 032 o \0 \0 \0 g \0
0006020 \0 I h 032 032 h 032 032 032 032 h 032 032 032 h 032
0006040 032 032 g \0 \0 J h 032 032 h 032 032 032 032 020 \0
0006060 ( 6 1 i l : \ \ a p p e n d 2
0006100 4 9 d e c l a r e - s t r u
0006120 c t u r e 4 1 r e s o l v e
0006140 - s l o t s 3 5 p s - n a m
0006160 e 3 0 r e m o v e - d o c u
0006200 m e n t a t i o n 2 5 d e f
0006220 s t r u c t - p a r s e - o p t
0006240 i o n s 4 i l : r e m o v e
0006260 - c o m m e n t s ) \r ( 1 1 5
0006300 q u o t e 9 5 q u o t e 8
0006320 4 q u o t e 8 1 i l : \ \
0006340 d e f i n e - t y p e - s a v e
0006360 - d e f n 7 8 i l : f i l e
0006400 p k g f l g 7 5 a n d 6 8
0006420 e v a l - w h e n 5 2 q u
0006440 o t e 4 5 p r o g n 2 1
0006460 i l : w i t h o u t - f i l e p
0006500 k g 1 8 p r o g n ) \r ( 9
0006520 2 ( q u o t e i l : s t r u
0006540 c t u r e s ) 7 2 ( e v a l
0006560 ) ) \r ( i l : s e t f - m a c r
0006600 o - f u n c t i o n ( q u o t
0006620 e d e f s t r u c t ) ( q u
0006640 o t e | e x p a n d - D E F S
0006660 T R U C T | ) ) \r ( i l : a d d
0006700 t o v a r i l : p r e t t y p
0006720 r i n t m a c r o s ( d e f s
0006740 t r u c t . i l : p p r i n
0006760 t - d e f i n e r ) ) \r ( i l :
0007000 s e t f - m a c r o - f u n c t
0007020 i o n ( q u o t e i l : d e
0007040 f s t r u c t ) n i l ) \r ( i
0007060 l : a d d t o v a r i l : p r
0007100 e t t y d e f m a c r o s ( i
0007120 l : s t r u c t u r e s i l :
0007140 x ( i l : p i l : * ( i l
0007160 : m a p c a r ( q u o t e i
0007200 l : x ) ( i l : f u n c t i o
0007220 n ( \r i l : l a m b d a ( i
0007240 l : i t e m ) ( d o ( ( i l
0007260 : d e f ( i l : g e t d e f
0007300 i l : i t e m ( q u o t e i
0007320 l : s t r u c t u r e s ) ) ) )
0007340 ( i l : d e f i l : d e f )
0007360 ( c e r r o r \r " R e - f e
0007400 t c h t h e d e f i n i t i
0007420 o n " " N o ~ S d e f i n
0007440 i t i o n f o r ~ S " ( q
0007460 u o t e i l : s t r u c t u r
0007500 e s ) i l : i t e m ) ) ) ) )
0007520 ) ) ) \r ( i l : a d d t o v a r
0007540 i l : p r e t t y t y p e l s
0007560 t ( i l : c h a n g e d s t r
0007600 u c t u r e s l s t i l : s t
0007620 r u c t u r e s " C o m m o n
0007640 L i s p s t r u c t u r e s
0007660 " ) ) \r ( c o n d ( ( n o t
0007700 ( g e t h a s h ( q u o t e
0007720 i l : s t r u c t u r e s ) i
0007740 l : * d e f i n i t i o n - h a
0007760 s h - t a b l e * ) ) ( l e t
0010000 * ( ( i l : a 1 3 5 1 ( q u
0010020 o t e \r i l : s t r u c t u r
0010040 e s ) ) ( i l : a 1 3 5 2 i
0010060 l : * d e f i n i t i o n - h a
0010100 s h - t a b l e * ) ( i l : a
0010120 1 3 5 4 ( m a k e - h a s h -
0010140 t a b l e ( q u o t e : t e
0010160 s t ) ( q u o t e \r e q u a
0010200 l ) ( q u o t e : s i z e )
0010220 5 0 ( q u o t e : r e h a
0010240 s h - s i z e ) 5 0 ) ) ) (
0010260 p u t h a s h i l : a 1 3 5 1
0010300 i l : a 1 3 5 2 i l : a 1 3
0010320 5 4 ) ) ) ) \r ( i l : a d d t o
0010340 v a r i l : f i l e p k g t y
0010360 p e s i l : s t r u c t u r e
0010400 s ) \r ( i l : p u t p r o p s
0010420 i l : s t r u c t u r e s i l
0010440 : g e t d e f i l : \ \ d e f
0010460 i n e - t y p e - g e t d e f )
0010500 \r ( i l : p u t p r o p s i l
0010520 : s t r u c t u r e s i l : f
0010540 i l e p k g c o n t e n t s i
0010560 l : n i l l ) \r ( i l : p u t p
0010600 r o p s i l : s t r u c t u r
0010620 e s i l : p r o p t y p e i
0010640 l : s t r u c t u r e s ) \r ( i
0010660 l : f i l e s l o a d i l : d
0010700 e f s t r u c t - r u n - t i m
0010720 e ) \r d e c l a r e - s t r u c
0010740 t u r e i l : d 1 \r ( i l : l
0010760 ( 0 p s ) ) \0 l \0 \0 \0 001 @
0011000 \t \0 \0 @ \t \0 \0 @ \t \0 \0 @ \t \0 \0 @
*
0011040 \t \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0
0011060 g \0 \0 @ \t \0 \0 h 032 032 h 032 032 g \0 \0
0011100 @ h 032 032 h 032 032 032 h 032 032 032 h 032 \n \0
0011120 \0 \n \0 \0 \n \0 \0 \n \0 \0 \n \0 \0 \n \0 \0
0011140 \n \0 \0 \n \0 \0 \n \0 \0 020 \0 ( 1 0 5
0011160 i l : \ \ a p p e n d 2 1 0 2
0011200 i l : \ \ a p p e n d 2 9 9
0011220 i l : \ \ a p p e n d 2 9 6
0011240 i l : \ \ a p p e n d 2 9 3
0011260 i l : \ \ a p p e n d 2 9 0
0011300 i l : \ \ a p p e n d 2 8 7
0011320 i l : \ \ a p p e n d 2 8 4
0011340 i l : \ \ a p p e n d 2 8 1
0011360 i l : \ \ a p p e n d 2 5 5
0011400 p s - n a m e 3 5 r e c o
0011420 r d - p r i n t - f u n c t i o
0011440 n 3 1 d e f i n e - c o p i
0011460 e r s 2 7 d e f i n e - c o
0011500 n s t r u c t o r s 2 3 d e
0011520 f i n e - s e t f s 1 9 d e
0011540 f i n e - a c c e s s o r s 1
0011560 5 c o n s t r u c t - p r e d
0011600 i c a t e 1 1 d e f i n e -
0011620 s t r u c t u r e - t y p e 7
0011640 a s s i g n - s t r u c t u r
0011660 e - r e p r e s e n t a t i o n
0011700 3 r e c o r d - d o c u m e
0011720 n t a t i o n ) \r ( 6 4 q u o
0011740 t e 5 1 q u o t e 4 8 p
0011760 a r s e d - s t r u c t u r e
0012000 4 5 s e t f 3 8 e v a l -
0012020 w h e n ) \r ( 4 2 ( e v a l
0012040 c o m p i l e l o a d ) ) \r
0012060 ( l e t * ( ( i l : a 1 3 5 5
0012100 ( q u o t e d e c l a r e -
0012120 s t r u c t u r e ) ) ( i l :
0012140 a 1 3 5 6 ( q u o t e f u n
0012160 c t i o n ) ) ( i l : a 1 3 5
0012200 7 \r " a c c o m p l i s h e s
0012220 a l l t h e w o r k o f
0012240 d e c l a r i n g a s t r
0012260 u c t u r e . " ) ) ( p r o g
0012300 n ( c o n d ( ( f b o u n d
0012320 p ( q u o t e \r i l : s e t
0012340 - d o c u m e n t a t i o n ) )
0012360 ( i l : s e t - d o c u m e n
0012400 t a t i o n i l : a 1 3 5 5
0012420 i l : a 1 3 5 6 i l : a 1 3 5
0012440 7 ) ) ) i l : a 1 3 5 7 ) ) \r
0012460 ( l e t * ( ( i l : a 1 3 5 9
0012500 ( q u o t e p s ) ) ( i l
0012520 : a 1 3 6 0 ( q u o t e s t
0012540 r u c t u r e ) ) ( i l : a 1
0012560 3 6 1 \r " c o n t a i n s t
0012600 h e p a r s e d i n f o r m
0012620 a t i o n f o r a S I N G
0012640 L E s t r u c t u r e t y p
0012660 e " ) ) ( p r o g n ( c o n
0012700 d ( ( f b o u n d p ( q u o
0012720 t e \r i l : s e t - d o c u m
0012740 e n t a t i o n ) ) ( i l : s
0012760 e t - d o c u m e n t a t i o n
0013000 i l : a 1 3 5 9 i l : a 1 3
0013020 6 0 i l : a 1 3 6 1 ) ) ) i
0013040 l : a 1 3 6 1 ) ) \r p s - p i
0013060 l : d 1 \r ( i l : l ( 0 o b
0013100 j e c t ) ) \0 032 \0 \0 \0 001 @ d \t
0013120 \0 \0 251 277 @ d 225 303 \0 \0 264 \v @ j \n \0
0013140 \0 g \0 \0 360 020 \0 ( 1 9 e l t 4
0013160 v e c t o r p ) \r ( 2 2 p s
0013200 1 2 i l : l i s t p ) \r ( )
0013220 \r p s - n a m e i l : d 1 \r (
0013240 i l : l ( 0 p s ) ) \0 \a \0
0013260 \0 \0 001 k @ \n \0 \0 020 \0 ( 4 n t h
0013300 ) \r n i l \r ( ) \r p s - s t a n
0013320 d a r d - c o n s t r u c t o r
0013340 i l : d 1 \r ( i l : l ( 0
0013360 p s ) ) \0 \b \0 \0 \0 001 l 002 @ \n \0
0013400 \0 020 \0 ( 5 n t h ) \r n i l \r (
0013420 ) \r p s - a l l - s l o t - n a
0013440 m e s i l : d 1 \r ( i l : l
0013460 ( 0 p s ) ) \0 \b \0 \0 \0 001 l 003
0013500 @ \n \0 \0 020 \0 ( 5 n t h ) \r n i
0013520 l \r ( ) \r p s - t y p e i l :
0013540 d 1 \r ( i l : l ( 0 p s ) )
0013560 \0 \b \0 \0 \0 001 l 004 @ \n \0 \0 020 \0 (
0013600 5 n t h ) \r n i l \r ( ) \r p s
0013620 - v e c t o r - t y p e i l :
0013640 d 1 \r ( i l : l ( 0 p s ) )
0013660 \0 \b \0 \0 \0 001 l 005 @ \n \0 \0 020 \0 (
0013700 5 n t h ) \r n i l \r ( ) \r p s
0013720 - i n c l u d e i l : d 1 \r (
0013740 i l : l ( 0 p s ) ) \0 \b \0
0013760 \0 \0 001 l 006 @ \n \0 \0 020 \0 ( 5 n t
0014000 h ) \r n i l \r ( ) \r p s - c o n
0014020 c - n a m e i l : d 1 \r ( i l
0014040 : l ( 0 p s ) ) \0 \b \0 \0 \0
0014060 001 l \a @ \n \0 \0 020 \0 ( 5 n t h )
0014100 \r n i l \r ( ) \r p s - c o n s t
0014120 r u c t o r s i l : d 1 \r ( i
0014140 l : l ( 0 p s ) ) \0 \b \0 \0
0014160 \0 001 l \b @ \n \0 \0 020 \0 ( 5 n t h
0014200 ) \r n i l \r ( ) \r p s - p r e d
0014220 i c a t e i l : d 1 \r ( i l :
0014240 l ( 0 p s ) ) \0 \b \0 \0 \0 001
0014260 l \t @ \n \0 \0 020 \0 ( 5 n t h ) \r
0014300 n i l \r ( ) \r p s - p r i n t -
0014320 f u n c t i o n i l : d 1 \r (
0014340 i l : l ( 0 p s ) ) \0 \b \0
0014360 \0 \0 001 l \n @ \n \0 \0 020 \0 ( 5 n t
0014400 h ) \r n i l \r ( ) \r p s - c o p
0014420 i e r i l : d 1 \r ( i l : l
0014440 ( 0 p s ) ) \0 \b \0 \0 \0 001 l \v
0014460 @ \n \0 \0 020 \0 ( 5 n t h ) \r n i
0014500 l \r ( ) \r p s - n a m e d i l
0014520 : d 1 \r ( i l : l ( 0 p s )
0014540 ) \0 \b \0 \0 \0 001 l \f @ \n \0 \0 020 \0
0014560 ( 5 n t h ) \r n i l \r ( ) \r p
0014600 s - i n i t i a l - o f f s e t
0014620 i l : d 1 \r ( i l : l ( 0
0014640 p s ) ) \0 \b \0 \0 \0 001 l \r @ \n \0
0014660 \0 020 \0 ( 5 n t h ) \r n i l \r (
0014700 ) \r p s - l o c a l - s l o t s
0014720 i l : d 1 \r ( i l : l ( 0
0014740 p s ) ) \0 \b \0 \0 \0 001 l 016 @ \n \0
0014760 \0 020 \0 ( 5 n t h ) \r n i l \r (
0015000 ) \r p s - a l l - s l o t s i
0015020 l : d 1 \r ( i l : l ( 0 p s
0015040 ) ) \0 \b \0 \0 \0 001 l 017 @ \n \0 \0 020
0015060 \0 ( 5 n t h ) \r n i l \r ( ) \r
0015100 p s - i n c l u d e d - s l o t
0015120 s i l : d 1 \r ( i l : l ( 0
0015140 p s ) ) \0 \b \0 \0 \0 001 l 020 @ \n
0015160 \0 \0 020 \0 ( 5 n t h ) \r n i l \r
0015200 ( ) \r p s - d o c u m e n t a t
0015220 i o n - s t r i n g i l : d 1
0015240 \r ( i l : l ( 0 p s ) ) \0
0015260 \b \0 \0 \0 001 l 021 @ \n \0 \0 020 \0 ( 5
0015300 n t h ) \r n i l \r ( ) \r p s - f
0015320 i e l d - s p e c i f i e r s
0015340 i l : d 1 \r ( i l : l ( 0 p
0015360 s ) ) \0 \b \0 \0 \0 001 l 022 @ \n \0 \0
0015400 020 \0 ( 5 n t h ) \r n i l \r ( )
0015420 \r ( r e m p r o p ( q u o t e
0015440 p s - n a m e ) ( q u o t e
0015460 i l : s e t f - m e t h o d -
0015500 e x p a n d e r ) ) \r ( i l : p
0015520 u t p r o p s p s - n a m e
0015540 i l : s e t f - i n v e r s e
0015560 % % s e t f - p s - n a m e ) \r
0015600 % % s e t f - p s - n a m e i
0015620 l : d 1 \r ( i l : l ( 1 v a
0015640 l u e 0 p s ) ) \0 \b \0 \0 \0
0015660 002 k @ A \v \0 \0 020 \0 ( 5 i l : %
0015700 s e t n t h ) \r n i l \r ( ) \r (
0015720 r e m p r o p ( q u o t e p
0015740 s - s t a n d a r d - c o n s t
0015760 r u c t o r ) ( q u o t e i
0016000 l : s e t f - m e t h o d - e x
0016020 p a n d e r ) ) \r ( i l : p u t
0016040 p r o p s p s - s t a n d a r
0016060 d - c o n s t r u c t o r i l
0016100 : s e t f - i n v e r s e % %
0016120 s e t f - p s - s t a n d a r d
0016140 - c o n s t r u c t o r ) \r % %
0016160 s e t f - p s - s t a n d a r d
0016200 - c o n s t r u c t o r i l :
0016220 d 1 \r ( i l : l ( 1 v a l u
0016240 e 0 p s ) ) \0 \t \0 \0 \0 002 l
0016260 002 @ A \v \0 \0 020 \0 ( 6 i l : % s
0016300 e t n t h ) \r n i l \r ( ) \r ( r
0016320 e m p r o p ( q u o t e p s
0016340 - a l l - s l o t - n a m e s )
0016360 ( q u o t e i l : s e t f -
0016400 m e t h o d - e x p a n d e r )
0016420 ) \r ( i l : p u t p r o p s p
0016440 s - a l l - s l o t - n a m e s
0016460 i l : s e t f - i n v e r s e
0016500 % % s e t f - p s - a l l - s
0016520 l o t - n a m e s ) \r % % s e t
0016540 f - p s - a l l - s l o t - n a
0016560 m e s i l : d 1 \r ( i l : l
0016600 ( 1 v a l u e 0 p s ) )
0016620 \0 \t \0 \0 \0 002 l 003 @ A \v \0 \0 020 \0 (
0016640 6 i l : % s e t n t h ) \r n i
0016660 l \r ( ) \r ( r e m p r o p ( q
0016700 u o t e p s - t y p e ) ( q
0016720 u o t e i l : s e t f - m e t
0016740 h o d - e x p a n d e r ) ) \r (
0016760 i l : p u t p r o p s p s - t
0017000 y p e i l : s e t f - i n v e
0017020 r s e % % s e t f - p s - t y
0017040 p e ) \r % % s e t f - p s - t y
0017060 p e i l : d 1 \r ( i l : l (
0017100 1 v a l u e 0 p s ) ) \0
0017120 \t \0 \0 \0 002 l 004 @ A \v \0 \0 020 \0 ( 6
0017140 i l : % s e t n t h ) \r n i l
0017160 \r ( ) \r ( r e m p r o p ( q u
0017200 o t e p s - v e c t o r - t y
0017220 p e ) ( q u o t e i l : s e
0017240 t f - m e t h o d - e x p a n d
0017260 e r ) ) \r ( i l : p u t p r o p
0017300 s p s - v e c t o r - t y p e
0017320 i l : s e t f - i n v e r s e
0017340 % % s e t f - p s - v e c t o
0017360 r - t y p e ) \r % % s e t f - p
0017400 s - v e c t o r - t y p e i l
0017420 : d 1 \r ( i l : l ( 1 v a l
0017440 u e 0 p s ) ) \0 \t \0 \0 \0 002
0017460 l 005 @ A \v \0 \0 020 \0 ( 6 i l : %
0017500 s e t n t h ) \r n i l \r ( ) \r (
0017520 r e m p r o p ( q u o t e p
0017540 s - i n c l u d e ) ( q u o t
0017560 e i l : s e t f - m e t h o d
0017600 - e x p a n d e r ) ) \r ( i l :
0017620 p u t p r o p s p s - i n c l
0017640 u d e i l : s e t f - i n v e
0017660 r s e % % s e t f - p s - i n
0017700 c l u d e ) \r % % s e t f - p s
0017720 - i n c l u d e i l : d 1 \r (
0017740 i l : l ( 1 v a l u e 0
0017760 p s ) ) \0 \t \0 \0 \0 002 l 006 @ A \v
0020000 \0 \0 020 \0 ( 6 i l : % s e t n t
0020020 h ) \r n i l \r ( ) \r ( r e m p r
0020040 o p ( q u o t e p s - c o n
0020060 c - n a m e ) ( q u o t e i
0020100 l : s e t f - m e t h o d - e x
0020120 p a n d e r ) ) \r ( i l : p u t
0020140 p r o p s p s - c o n c - n a
0020160 m e i l : s e t f - i n v e r
0020200 s e % % s e t f - p s - c o n
0020220 c - n a m e ) \r % % s e t f - p
0020240 s - c o n c - n a m e i l : d
0020260 1 \r ( i l : l ( 1 v a l u e
0020300 0 p s ) ) \0 \t \0 \0 \0 002 l \a
0020320 @ A \v \0 \0 020 \0 ( 6 i l : % s e
0020340 t n t h ) \r n i l \r ( ) \r ( r e
0020360 m p r o p ( q u o t e p s -
0020400 c o n s t r u c t o r s ) ( q
0020420 u o t e i l : s e t f - m e t
0020440 h o d - e x p a n d e r ) ) \r (
0020460 i l : p u t p r o p s p s - c
0020500 o n s t r u c t o r s i l : s
0020520 e t f - i n v e r s e % % s e
0020540 t f - p s - c o n s t r u c t o
0020560 r s ) \r % % s e t f - p s - c o
0020600 n s t r u c t o r s i l : d 1
0020620 \r ( i l : l ( 1 v a l u e
0020640 0 p s ) ) \0 \t \0 \0 \0 002 l \b @
0020660 A \v \0 \0 020 \0 ( 6 i l : % s e t
0020700 n t h ) \r n i l \r ( ) \r ( r e m
0020720 p r o p ( q u o t e p s - p
0020740 r e d i c a t e ) ( q u o t e
0020760 i l : s e t f - m e t h o d -
0021000 e x p a n d e r ) ) \r ( i l : p
0021020 u t p r o p s p s - p r e d i
0021040 c a t e i l : s e t f - i n v
0021060 e r s e % % s e t f - p s - p
0021100 r e d i c a t e ) \r % % s e t f
0021120 - p s - p r e d i c a t e i l
0021140 : d 1 \r ( i l : l ( 1 v a l
0021160 u e 0 p s ) ) \0 \t \0 \0 \0 002
0021200 l \t @ A \v \0 \0 020 \0 ( 6 i l : %
0021220 s e t n t h ) \r n i l \r ( ) \r (
0021240 r e m p r o p ( q u o t e p
0021260 s - p r i n t - f u n c t i o n
0021300 ) ( q u o t e i l : s e t f
0021320 - m e t h o d - e x p a n d e r
0021340 ) ) \r ( i l : p u t p r o p s
0021360 p s - p r i n t - f u n c t i o
0021400 n i l : s e t f - i n v e r s
0021420 e % % s e t f - p s - p r i n
0021440 t - f u n c t i o n ) \r % % s e
0021460 t f - p s - p r i n t - f u n c
0021500 t i o n i l : d 1 \r ( i l : l
0021520 ( 1 v a l u e 0 p s ) )
0021540 \0 \t \0 \0 \0 002 l \n @ A \v \0 \0 020 \0
0021560 ( 6 i l : % s e t n t h ) \r n
0021600 i l \r ( ) \r ( r e m p r o p (
0021620 q u o t e p s - c o p i e r )
0021640 ( q u o t e i l : s e t f -
0021660 m e t h o d - e x p a n d e r )
0021700 ) \r ( i l : p u t p r o p s p
0021720 s - c o p i e r i l : s e t f
0021740 - i n v e r s e % % s e t f -
0021760 p s - c o p i e r ) \r % % s e t
0022000 f - p s - c o p i e r i l : d
0022020 1 \r ( i l : l ( 1 v a l u e
0022040 0 p s ) ) \0 \t \0 \0 \0 002 l \v
0022060 @ A \v \0 \0 020 \0 ( 6 i l : % s e
0022100 t n t h ) \r n i l \r ( ) \r ( r e
0022120 m p r o p ( q u o t e p s -
0022140 n a m e d ) ( q u o t e i l
0022160 : s e t f - m e t h o d - e x p
0022200 a n d e r ) ) \r ( i l : p u t p
0022220 r o p s p s - n a m e d i l
0022240 : s e t f - i n v e r s e % %
0022260 s e t f - p s - n a m e d ) \r %
0022300 % s e t f - p s - n a m e d i
0022320 l : d 1 \r ( i l : l ( 1 v a
0022340 l u e 0 p s ) ) \0 \t \0 \0 \0
0022360 002 l \f @ A \v \0 \0 020 \0 ( 6 i l :
0022400 % s e t n t h ) \r n i l \r ( ) \r
0022420 ( r e m p r o p ( q u o t e
0022440 p s - i n i t i a l - o f f s e
0022460 t ) ( q u o t e i l : s e t
0022500 f - m e t h o d - e x p a n d e
0022520 r ) ) \r ( i l : p u t p r o p s
0022540 p s - i n i t i a l - o f f s
0022560 e t i l : s e t f - i n v e r
0022600 s e % % s e t f - p s - i n i
0022620 t i a l - o f f s e t ) \r % % s
0022640 e t f - p s - i n i t i a l - o
0022660 f f s e t i l : d 1 \r ( i l :
0022700 l ( 1 v a l u e 0 p s )
0022720 ) \0 \t \0 \0 \0 002 l \r @ A \v \0 \0 020
0022740 \0 ( 6 i l : % s e t n t h ) \r
0022760 n i l \r ( ) \r ( r e m p r o p
0023000 ( q u o t e p s - l o c a l -
0023020 s l o t s ) ( q u o t e i l
0023040 : s e t f - m e t h o d - e x p
0023060 a n d e r ) ) \r ( i l : p u t p
0023100 r o p s p s - l o c a l - s l
0023120 o t s i l : s e t f - i n v e
0023140 r s e % % s e t f - p s - l o
0023160 c a l - s l o t s ) \r % % s e t
0023200 f - p s - l o c a l - s l o t s
0023220 i l : d 1 \r ( i l : l ( 1
0023240 v a l u e 0 p s ) ) \0 \t \0
0023260 \0 \0 002 l 016 @ A \v \0 \0 020 \0 ( 6 i
0023300 l : % s e t n t h ) \r n i l \r (
0023320 ) \r ( r e m p r o p ( q u o t
0023340 e p s - a l l - s l o t s )
0023360 ( q u o t e i l : s e t f - m
0023400 e t h o d - e x p a n d e r ) )
0023420 \r ( i l : p u t p r o p s p s
0023440 - a l l - s l o t s i l : s e
0023460 t f - i n v e r s e % % s e t
0023500 f - p s - a l l - s l o t s ) \r
0023520 % % s e t f - p s - a l l - s l
0023540 o t s i l : d 1 \r ( i l : l
0023560 ( 1 v a l u e 0 p s ) )
0023600 \0 \t \0 \0 \0 002 l 017 @ A \v \0 \0 020 \0 (
0023620 6 i l : % s e t n t h ) \r n i
0023640 l \r ( ) \r ( r e m p r o p ( q
0023660 u o t e p s - i n c l u d e d
0023700 - s l o t s ) ( q u o t e i
0023720 l : s e t f - m e t h o d - e x
0023740 p a n d e r ) ) \r ( i l : p u t
0023760 p r o p s p s - i n c l u d e
0024000 d - s l o t s i l : s e t f -
0024020 i n v e r s e % % s e t f - p
0024040 s - i n c l u d e d - s l o t s
0024060 ) \r % % s e t f - p s - i n c l
0024100 u d e d - s l o t s i l : d 1
0024120 \r ( i l : l ( 1 v a l u e
0024140 0 p s ) ) \0 \t \0 \0 \0 002 l 020 @
0024160 A \v \0 \0 020 \0 ( 6 i l : % s e t
0024200 n t h ) \r n i l \r ( ) \r ( r e m
0024220 p r o p ( q u o t e p s - d
0024240 o c u m e n t a t i o n - s t r
0024260 i n g ) ( q u o t e i l : s
0024300 e t f - m e t h o d - e x p a n
0024320 d e r ) ) \r ( i l : p u t p r o
0024340 p s p s - d o c u m e n t a t
0024360 i o n - s t r i n g i l : s e
0024400 t f - i n v e r s e % % s e t
0024420 f - p s - d o c u m e n t a t i
0024440 o n - s t r i n g ) \r % % s e t
0024460 f - p s - d o c u m e n t a t i
0024500 o n - s t r i n g i l : d 1 \r
0024520 ( i l : l ( 1 v a l u e 0
0024540 p s ) ) \0 \t \0 \0 \0 002 l 021 @ A
0024560 \v \0 \0 020 \0 ( 6 i l : % s e t n
0024600 t h ) \r n i l \r ( ) \r ( r e m p
0024620 r o p ( q u o t e p s - f i
0024640 e l d - s p e c i f i e r s )
0024660 ( q u o t e i l : s e t f - m
0024700 e t h o d - e x p a n d e r ) )
0024720 \r ( i l : p u t p r o p s p s
0024740 - f i e l d - s p e c i f i e r
0024760 s i l : s e t f - i n v e r s
0025000 e % % s e t f - p s - f i e l
0025020 d - s p e c i f i e r s ) \r % %
0025040 s e t f - p s - f i e l d - s p
0025060 e c i f i e r s i l : d 1 \r (
0025100 i l : l ( 1 v a l u e 0
0025120 p s ) ) \0 \t \0 \0 \0 002 l 022 @ A \v
0025140 \0 \0 020 \0 ( 6 i l : % s e t n t
0025160 h ) \r n i l \r ( ) \r m a k e - p
0025200 s i l : d 1 \r ( i l : l ( 0
0025220 i l : | - a r g s - | ) i l
0025240 : f 5 4 n a m e i l : f
0025260 5 5 % d e f a u l t - d e f s
0025300 t r u c t - t y p e i l : f
0025320 5 6 % d e f a u l t - p r i n
0025340 t - f u n c t i o n ) 004 \v 6 003
0025360 002 \0 e 021 001 \0 H k 021 002 002 J d I 363 242
0025400 261 002 U 277 W l 022 021 361 020 021 360 037 021 360 .
0025420 021 p 5 H k 273 272 K d J 363 242 261 002 N 277
0025440 h 274 H k 276 275 N d M 363 242 261 002 T 277 h
0025460 _ 016 277 H k _ 022 277 _ 020 277 O 022 d O 020
0025500 363 242 261 002 R 277 W n _ 024 277 H k _ 030 277
0025520 _ 026 277 O 030 d O 026 363 242 261 002 R 277 h _
0025540 032 277 H k _ 036 277 _ 034 277 O 036 d O 034 363
0025560 242 261 002 S 277 h _ 277 H k _ $ 277 _ "
0025600 277 O $ d O " 363 242 261 002 T 277 I g \0 \0
0025620 h 032 032 \t \0 \0 _ & 277 H k _ * 277 _ (
0025640 277 O * d O ( 363 242 261 002 L 277 g \0 \0 _
0025660 , 277 H k _ 0 277 _ . 277 O 0 d O . 363
0025700 242 261 002 K 277 h _ 2 277 H k _ 6 277 _ 4
0025720 277 O 6 d O 4 363 242 261 002 L 277 W p _ 8
0025740 277 H k _ < 277 _ : 277 O < d O : 363 242
0025760 261 002 L 277 g \0 \0 I h 032 032 \t \0 \0 _ >
0026000 277 H k _ B 277 _ @ 277 O B d O @ 363 242
0026020 261 002 D 277 h _ D 277 H k _ H 277 _ F 277
0026040 O H d O F 363 242 261 002 E 277 j _ J 277 H
0026060 k _ N 277 _ L 277 O N d O L 363 242 261 002
0026100 F 277 h _ P 277 H k _ T 277 _ R 277 O T
0026120 d O R 363 242 261 002 G 277 h _ V 277 H k _
0026140 Z 277 _ X 277 O Z d O X 363 242 261 002 H 277
0026160 h _ \ 277 H k _ ` 277 _ ^ 277 O ` d O
0026200 ^ 363 242 261 002 I 277 h _ b 277 H k _ f 277
0026220 _ d 277 O f d O d 363 242 261 002 J 277 h _
0026240 h 277 l 023 \t \0 \0 _ j 277 j O j g \0 \0
0026260 \v \0 \0 k O j I \v \0 \0 l 002 O j L \v
0026300 \0 \0 l 003 O j O 016 \v \0 \0 l 004 O j O
0026320 024 \v \0 \0 l 005 O j O 032 \v \0 \0 l 006 O
0026340 j O \v \0 \0 l \a O j O & \v \0 \0 l
0026360 \b O j O , \v \0 \0 l \t O j O 2 \v \0
0026400 \0 l \n O j O 8 \v \0 \0 l \v O j O >
0026420 \v \0 \0 l \f O j O D \v \0 \0 l \r O j
0026440 O J \v \0 \0 l 016 O j O P \v \0 \0 l 017
0026460 O j O V \v \0 \0 l 020 O j O \ \v \0 \0
0026500 l 021 O j O b \v \0 \0 l 022 O j O h \v
0026520 \0 \0 O j 020 a g \0 \0 360 226 J k 330 a 261
0026540 375 247 J l 002 324 Z 261 375 225 a g \0 \0 360 226
0026560 K k 330 a 261 375 255 K l 002 324 [ 261 375 234 a
0026600 g \0 \0 360 226 N k 330 a 261 375 247 N l 002 324
0026620 ^ 261 375 226 a g \0 \0 360 227 O 022 k 330 a 261
0026640 375 251 O 022 l 002 324 _ 022 261 375 224 a g \0 \0
0026660 360 227 O 030 k 330 a 261 375 250 O 030 l 002 324 _
0026700 030 261 375 224 a g \0 \0 360 227 O 036 k 330 a 261
0026720 375 247 O 036 l 002 324 _ 036 261 375 223 a g \0 \0
0026740 360 227 O $ k 330 a 261 375 257 O $ l 002 324 _
0026760 $ 261 375 222 a g \0 \0 360 227 O * k 330 a 261
0027000 375 260 O * l 002 324 _ * 261 375 232 a g \0 \0
0027020 360 227 O 0 k 330 a 261 375 257 O 0 l 002 324 _
0027040 0 261 375 233 a g \0 \0 360 227 O 6 k 330 a 261
0027060 375 257 O 6 l 002 324 _ 6 261 375 232 a g \0 \0
0027100 360 227 O < k 330 a 261 375 267 O < l 002 324 _
0027120 < 261 375 232 a g \0 \0 360 227 O B k 330 a 261
0027140 375 266 O B l 002 324 _ B 261 375 242 a g \0 \0
0027160 360 227 O H k 330 a 261 375 265 O H l 002 324 _
0027200 H 261 375 241 a g \0 \0 360 227 O N k 330 a 261
0027220 375 264 O N l 002 324 _ N 261 375 240 a g \0 \0
0027240 360 227 O T k 330 a 261 375 263 O T l 002 324 _
0027260 T 261 375 237 a g \0 \0 360 227 O Z k 330 a 261
0027300 375 262 O Z l 002 324 _ Z 261 375 236 a g \0 \0
0027320 360 227 O ` k 330 a 261 375 261 O ` l 002 324 _
0027340 ` 261 375 235 a g \0 \0 360 227 O f k 330 a 261
0027360 375 260 O f l 002 324 _ f 261 375 234 \0 ( 6 0
0027400 7 i l : % s e t n t h 5 9 8
0027420 i l : % s e t n t h 5 8 9
0027440 i l : % s e t n t h 5 8 0 i
0027460 l : % s e t n t h 5 7 1 i l
0027500 : % s e t n t h 5 6 2 i l :
0027520 % s e t n t h 5 5 3 i l : %
0027540 s e t n t h 5 4 4 i l : % s
0027560 e t n t h 5 3 5 i l : % s e
0027600 t n t h 5 2 6 i l : % s e t
0027620 n t h 5 1 7 i l : % s e t n
0027640 t h 5 0 8 i l : % s e t n t
0027660 h 4 9 9 i l : % s e t n t h
0027700 4 9 0 i l : % s e t n t h
0027720 4 8 1 i l : % s e t n t h 4
0027740 7 2 i l : % s e t n t h 4 6
0027760 3 i l : % s e t n t h 4 5 5
0030000 i l : % s e t n t h 4 4 8
0030020 i l : % s e t n t h 4 3 6 m
0030040 a k e - l i s t 2 6 7 x c l
0030060 : p a c k 1 6 3 x c l : p a
0030100 c k ) \r ( 1 0 1 3 : f i e l d
0030120 - s p e c i f i e r s 9 8 9
0030140 : d o c u m e n t a t i o n - s
0030160 t r i n g 9 6 5 : i n c l u
0030200 d e d - s l o t s 9 4 1 : a
0030220 l l - s l o t s 9 1 7 : l o
0030240 c a l - s l o t s 8 9 3 : i
0030260 n i t i a l - o f f s e t 8 6
0030300 9 : n a m e d 8 4 5 : c o
0030320 p i e r 8 2 1 : p r i n t -
0030340 f u n c t i o n 7 9 7 : p r
0030360 e d i c a t e 7 7 3 : c o n
0030400 s t r u c t o r s 7 4 9 : c
0030420 o n c - n a m e 7 2 5 : i n
0030440 c l u d e 7 0 1 : v e c t o
0030460 r - t y p e 6 7 7 : t y p e
0030500 6 5 6 : a l l - s l o t - n
0030520 a m e s 6 3 5 : s t a n d a
0030540 r d - c o n s t r u c t o r 6
0030560 1 4 : n a m e 4 4 5 p s
0030600 2 6 0 c o p y - 1 8 8 : n
0030620 o n e 1 5 7 - ) \r ( ) \r c o
0030640 p y - p s i l : d 1 \r ( i l :
0030660 l ( 0 p s ) ) \0 371 001 \0 \0 001
0030700 @ \t \0 \0 250 o \0 \0 \0 @ \n \0 \0 277 l 023
0030720 \t \0 \0 021 001 \0 j H j @ \n \0 \0 \v \0 \0
0030740 k H k @ \n \0 \0 \v \0 \0 l 002 H l 002 @
0030760 \n \0 \0 \v \0 \0 l 003 H l 003 @ \n \0 \0 \v
0031000 \0 \0 l 004 H l 004 @ \n \0 \0 \v \0 \0 l 005
0031020 H l 005 @ \n \0 \0 \v \0 \0 l 006 H l 006 @
0031040 \n \0 \0 \v \0 \0 l \a H l \a @ \n \0 \0 \v
0031060 \0 \0 l \b H l \b @ \n \0 \0 \v \0 \0 l \t
0031100 H l \t @ \n \0 \0 \v \0 \0 l \n H l \n @
0031120 \n \0 \0 \v \0 \0 l \v H l \v @ \n \0 \0 \v
0031140 \0 \0 l \f H l \f @ \n \0 \0 \v \0 \0 l \r
0031160 H l \r @ \n \0 \0 \v \0 \0 l 016 H l 016 @
0031200 \n \0 \0 \v \0 \0 l 017 H l 017 @ \n \0 \0 \v
0031220 \0 \0 l 020 H l 020 @ \n \0 \0 \v \0 \0 l 021
0031240 H l 021 @ \n \0 \0 \v \0 \0 l 022 H l 022 @
0031260 \n \0 \0 \v \0 \0 H 020 \0 ( 2 4 5 i l
0031300 : % s e t n t h 2 4 2 n t h
0031320 2 3 3 i l : % s e t n t h
0031340 2 3 0 n t h 2 2 1 i l : %
0031360 s e t n t h 2 1 8 n t h 2
0031400 0 9 i l : % s e t n t h 2 0
0031420 6 n t h 1 9 7 i l : % s e
0031440 t n t h 1 9 4 n t h 1 8 5
0031460 i l : % s e t n t h 1 8 2
0031500 n t h 1 7 3 i l : % s e t n
0031520 t h 1 7 0 n t h 1 6 1 i
0031540 l : % s e t n t h 1 5 8 n t
0031560 h 1 4 9 i l : % s e t n t h
0031600 1 4 6 n t h 1 3 7 i l :
0031620 % s e t n t h 1 3 4 n t h
0031640 1 2 5 i l : % s e t n t h 1
0031660 2 2 n t h 1 1 3 i l : % s
0031700 e t n t h 1 1 0 n t h 1 0
0031720 1 i l : % s e t n t h 9 8
0031740 n t h 8 9 i l : % s e t n t
0031760 h 8 6 n t h 7 7 i l : %
0032000 s e t n t h 7 4 n t h 6 5
0032020 i l : % s e t n t h 6 2 n
0032040 t h 5 3 i l : % s e t n t h
0032060 5 0 n t h 4 1 i l : % s
0032100 e t n t h 3 8 n t h 3 1
0032120 i l : % s e t n t h 2 8 n t
0032140 h 1 8 m a k e - l i s t 1
0032160 2 e r r o r 3 p s - p ) \r
0032200 n i l \r ( 8 " A r g n o t
0032220 p s : ~ S " ) \r ( i l : d e
0032240 f p r i n t ( q u o t e p s
0032260 ) ( q u o t e d e f a u l t
0032300 - s t r u c t u r e - p r i n t
0032320 e r ) ) \r ( s e t - p a r s e d
0032340 - s t r u c t u r e ( q u o t
0032360 e p s ) ( q u o t e ( p s
0032400 p s m a k e - p s ( # : |
0032420 n a m e | n a m e s t a n d
0032440 a r d - c o n s t r u c t o r
0032460 \r a l l - s l o t - n a m e s
0032500 t y p e v e c t o r - t y p e
0032520 i n c l u d e c o n c - n a
0032540 m e c o n s t r u c t o r s
0032560 p r e d i c a t e p r i n t -
0032600 f u n c t i o n c o p i e r
0032620 n a m e d \r i n i t i a l - o
0032640 f f s e t l o c a l - s l o t
0032660 s a l l - s l o t s i n c l
0032700 u d e d - s l o t s d o c u m
0032720 e n t a t i o n - s t r i n g
0032740 f i e l d - s p e c i f i e r s
0032760 ) l i s t n i l \r n i l
0033000 p s - ( m a k e - p s ) p s
0033020 - p d e f a u l t - s t r u c
0033040 t u r e - p r i n t e r c o p
0033060 y - p s t 0 ( ( # : | n a
0033100 m e | ( q u o t e p s ) t
0033120 t 0 n i l ) ( n a m e
0033140 \r n a m e t n i l 1 p s
0033160 - n a m e ) ( s t a n d a r d
0033200 - c o n s t r u c t o r n i l
0033220 t n i l 2 p s - s t a n
0033240 d a r d - c o n s t r u c t o r
0033260 ) ( a l l - s l o t - n a m e
0033300 s n i l t \r n i l 3 p
0033320 s - a l l - s l o t - n a m e s
0033340 ) ( t y p e % d e f a u l t
0033360 - d e f s t r u c t - t y p e
0033400 t n i l 4 p s - t y p e )
0033420 ( v e c t o r - t y p e n i
0033440 l t n i l 5 \r p s - v e
0033460 c t o r - t y p e ) ( i n c l
0033500 u d e n i l t n i l 6
0033520 p s - i n c l u d e ) ( c o n
0033540 c - n a m e ( x c l : p a c k
0033560 ( l i s t n a m e ( q u o
0033600 t e - ) ) ) t n i l 7
0033620 \r p s - c o n c - n a m e ) (
0033640 c o n s t r u c t o r s % n o
0033660 - c o n s t r u c t o r t n
0033700 i l 8 p s - c o n s t r u c
0033720 t o r s ) ( p r e d i c a t e
0033740 n i l t n i l 9 \r p s
0033760 - p r e d i c a t e ) ( p r i
0034000 n t - f u n c t i o n % d e f
0034020 a u l t - p r i n t - f u n c t
0034040 i o n t n i l 1 0 p s -
0034060 p r i n t - f u n c t i o n )
0034100 ( c o p i e r ( x c l : p a c
0034120 k ( \r l i s t ( q u o t e
0034140 c o p y - ) n a m e ) ) t
0034160 n i l 1 1 p s - c o p i e r
0034200 ) ( n a m e d n i l t n
0034220 i l 1 2 p s - n a m e d )
0034240 ( i n i t i a l - o f f s e t
0034260 0 t n i l 1 3 \r p s - i
0034300 n i t i a l - o f f s e t ) (
0034320 l o c a l - s l o t s n i l
0034340 t n i l 1 4 p s - l o c a
0034360 l - s l o t s ) ( a l l - s l
0034400 o t s n i l t n i l 1 5
0034420 p s - a l l - s l o t s ) (
0034440 \r i n c l u d e d - s l o t s
0034460 n i l t n i l 1 6 p s -
0034500 i n c l u d e d - s l o t s )
0034520 ( d o c u m e n t a t i o n - s
0034540 t r i n g n i l t n i l
0034560 1 7 \r p s - d o c u m e n t a
0034600 t i o n - s t r i n g ) ( f i
0034620 e l d - s p e c i f i e r s n
0034640 i l t n i l 1 8 p s - f
0034660 i e l d - s p e c i f i e r s )
0034700 ) ( ( # : | n a m e | ( q u
0034720 o t e p s ) t \r t 0 n
0034740 i l ) ( n a m e n a m e t
0034760 n i l 1 p s - n a m e )
0035000 ( s t a n d a r d - c o n s t r
0035020 u c t o r n i l t n i l
0035040 2 p s - s t a n d a r d - c o
0035060 n s t r u c t o r ) ( \r a l l
0035100 - s l o t - n a m e s n i l
0035120 t n i l 3 p s - a l l - s
0035140 l o t - n a m e s ) ( t y p e
0035160 % d e f a u l t - d e f s t r
0035200 u c t - t y p e t n i l 4
0035220 p s - t y p e ) ( \r v e c t
0035240 o r - t y p e n i l t n i
0035260 l 5 p s - v e c t o r - t y
0035300 p e ) ( i n c l u d e n i l
0035320 t n i l 6 p s - i n c l
0035340 u d e ) ( c o n c - n a m e
0035360 ( x c l : p a c k ( l i s t
0035400 \r n a m e ( q u o t e - ) )
0035420 ) t n i l 7 p s - c o n
0035440 c - n a m e ) ( c o n s t r u
0035460 c t o r s % n o - c o n s t r
0035500 u c t o r t n i l 8 p s
0035520 - c o n s t r u c t o r s ) (
0035540 \r p r e d i c a t e n i l t
0035560 n i l 9 p s - p r e d i c
0035600 a t e ) ( p r i n t - f u n c
0035620 t i o n % d e f a u l t - p r
0035640 i n t - f u n c t i o n t n
0035660 i l 1 0 p s - p r i n t - f
0035700 u n c t i o n \r ) ( c o p i e
0035720 r ( x c l : p a c k ( l i s
0035740 t ( q u o t e c o p y - )
0035760 n a m e ) ) t n i l 1 1
0036000 p s - c o p i e r ) ( n a m e
0036020 d n i l t n i l 1 2 p
0036040 s - n a m e d ) ( \r i n i t i
0036060 a l - o f f s e t 0 t n i
0036100 l 1 3 p s - i n i t i a l -
0036120 o f f s e t ) ( l o c a l - s
0036140 l o t s n i l t n i l 1
0036160 4 p s - l o c a l - s l o t s
0036200 ) ( a l l - s l o t s n i l
0036220 \r t n i l 1 5 p s - a l
0036240 l - s l o t s ) ( i n c l u d
0036260 e d - s l o t s n i l t n
0036300 i l 1 6 p s - i n c l u d e
0036320 d - s l o t s ) ( d o c u m e
0036340 n t a t i o n - s t r i n g n
0036360 i l t n i l \r 1 7 p s -
0036400 d o c u m e n t a t i o n - s t
0036420 r i n g ) ( f i e l d - s p e
0036440 c i f i e r s n i l t n i
0036460 l 1 8 p s - f i e l d - s p
0036500 e c i f i e r s ) ) n i l \r
0036520 " c o n t a i n s t h e p a
0036540 r s e d i n f o r m a t i o n
0036560 f o r a S I N G L E s t
0036600 r u c t u r e t y p e " n i
0036620 l ) ) ) \r ( l e t * ( ( i l :
0036640 a 1 3 6 2 ( q u o t e p a r
0036660 s e d - s l o t ) ) ( i l : a
0036700 1 3 6 3 ( q u o t e s t r u
0036720 c t u r e ) ) ( i l : a 1 3 6
0036740 4 \r " d e s c r i b e s a
0036760 s i n g l e s l o t i n a
0037000 s t r u c t u r e " ) ) ( p
0037020 r o g n ( c o n d ( ( f b o
0037040 u n d p ( q u o t e i l : s
0037060 e t - d o c u m e n t a t i o n
0037100 ) ) ( \r i l : s e t - d o c u
0037120 m e n t a t i o n i l : a 1 3
0037140 6 2 i l : a 1 3 6 3 i l : a
0037160 1 3 6 4 ) ) ) i l : a 1 3 6 4
0037200 ) ) \r p s l o t - n a m e i l
0037220 : d 1 \r ( i l : l ( 0 p a r
0037240 s e d - s l o t ) ) \0 \a \0 \0 \0
0037260 001 j @ \n \0 \0 020 \0 ( 4 n t h ) \r
0037300 n i l \r ( ) \r p s l o t - i n i
0037320 t i a l - v a l u e i l : d 1
0037340 \r ( i l : l ( 0 p a r s e d
0037360 - s l o t ) ) \0 \a \0 \0 \0 001 k @
0037400 \n \0 \0 020 \0 ( 4 n t h ) \r n i l
0037420 \r ( ) \r p s l o t - t y p e i
0037440 l : d 1 \r ( i l : l ( 0 p a
0037460 r s e d - s l o t ) ) \0 \b \0 \0
0037500 \0 001 l 002 @ \n \0 \0 020 \0 ( 5 n t h
0037520 ) \r n i l \r ( ) \r p s l o t - r
0037540 e a d - o n l y i l : d 1 \r (
0037560 i l : l ( 0 p a r s e d - s
0037600 l o t ) ) \0 \b \0 \0 \0 001 l 003 @ \n
0037620 \0 \0 020 \0 ( 5 n t h ) \r n i l \r
0037640 ( ) \r p s l o t - f i e l d - d
0037660 e s c r i p t o r i l : d 1 \r
0037700 ( i l : l ( 0 p a r s e d -
0037720 s l o t ) ) \0 \b \0 \0 \0 001 l 004 @
0037740 \n \0 \0 020 \0 ( 5 n t h ) \r n i l
0037760 \r ( ) \r p s l o t - a c c e s s
0040000 o r i l : d 1 \r ( i l : l (
0040020 0 p a r s e d - s l o t ) )
0040040 \0 \b \0 \0 \0 001 l 005 @ \n \0 \0 020 \0 ( 5
0040060 n t h ) \r n i l \r ( ) \r ( r e
0040100 m p r o p ( q u o t e p s l
0040120 o t - n a m e ) ( q u o t e
0040140 i l : s e t f - m e t h o d - e
0040160 x p a n d e r ) ) \r ( i l : p u
0040200 t p r o p s p s l o t - n a m
0040220 e i l : s e t f - i n v e r s
0040240 e % % s e t f - p s l o t - n
0040260 a m e ) \r % % s e t f - p s l o
0040300 t - n a m e i l : d 1 \r ( i l
0040320 : l ( 1 v a l u e 0 p a
0040340 r s e d - s l o t ) ) \0 \b \0 \0
0040360 \0 002 j @ A \v \0 \0 020 \0 ( 5 i l :
0040400 % s e t n t h ) \r n i l \r ( ) \r
0040420 ( r e m p r o p ( q u o t e
0040440 p s l o t - i n i t i a l - v a
0040460 l u e ) ( q u o t e i l : s
0040500 e t f - m e t h o d - e x p a n
0040520 d e r ) ) \r ( i l : p u t p r o
0040540 p s p s l o t - i n i t i a l
0040560 - v a l u e i l : s e t f - i
0040600 n v e r s e % % s e t f - p s
0040620 l o t - i n i t i a l - v a l u
0040640 e ) \r % % s e t f - p s l o t -
0040660 i n i t i a l - v a l u e i l
0040700 : d 1 \r ( i l : l ( 1 v a l
0040720 u e 0 p a r s e d - s l o t
0040740 ) ) \0 \b \0 \0 \0 002 k @ A \v \0 \0 020
0040760 \0 ( 5 i l : % s e t n t h ) \r
0041000 n i l \r ( ) \r ( r e m p r o p
0041020 ( q u o t e p s l o t - t y p
0041040 e ) ( q u o t e i l : s e t
0041060 f - m e t h o d - e x p a n d e
0041100 r ) ) \r ( i l : p u t p r o p s
0041120 p s l o t - t y p e i l : s
0041140 e t f - i n v e r s e % % s e
0041160 t f - p s l o t - t y p e ) \r %
0041200 % s e t f - p s l o t - t y p e
0041220 i l : d 1 \r ( i l : l ( 1
0041240 v a l u e 0 p a r s e d - s
0041260 l o t ) ) \0 \t \0 \0 \0 002 l 002 @ A
0041300 \v \0 \0 020 \0 ( 6 i l : % s e t n
0041320 t h ) \r n i l \r ( ) \r ( r e m p
0041340 r o p ( q u o t e p s l o t
0041360 - r e a d - o n l y ) ( q u o
0041400 t e i l : s e t f - m e t h o
0041420 d - e x p a n d e r ) ) \r ( i l
0041440 : p u t p r o p s p s l o t -
0041460 r e a d - o n l y i l : s e t
0041500 f - i n v e r s e % % s e t f
0041520 - p s l o t - r e a d - o n l y
0041540 ) \r % % s e t f - p s l o t - r
0041560 e a d - o n l y i l : d 1 \r (
0041600 i l : l ( 1 v a l u e 0
0041620 p a r s e d - s l o t ) ) \0 \t
0041640 \0 \0 \0 002 l 003 @ A \v \0 \0 020 \0 ( 6
0041660 i l : % s e t n t h ) \r n i l \r
0041700 ( ) \r ( r e m p r o p ( q u o
0041720 t e p s l o t - f i e l d - d
0041740 e s c r i p t o r ) ( q u o t
0041760 e i l : s e t f - m e t h o d
0042000 - e x p a n d e r ) ) \r ( i l :
0042020 p u t p r o p s p s l o t - f
0042040 i e l d - d e s c r i p t o r
0042060 i l : s e t f - i n v e r s e
0042100 % % s e t f - p s l o t - f i e
0042120 l d - d e s c r i p t o r ) \r %
0042140 % s e t f - p s l o t - f i e l
0042160 d - d e s c r i p t o r i l :
0042200 d 1 \r ( i l : l ( 1 v a l u
0042220 e 0 p a r s e d - s l o t )
0042240 ) \0 \t \0 \0 \0 002 l 004 @ A \v \0 \0 020
0042260 \0 ( 6 i l : % s e t n t h ) \r
0042300 n i l \r ( ) \r ( r e m p r o p
0042320 ( q u o t e p s l o t - a c c
0042340 e s s o r ) ( q u o t e i l
0042360 : s e t f - m e t h o d - e x p
0042400 a n d e r ) ) \r ( i l : p u t p
0042420 r o p s p s l o t - a c c e s
0042440 s o r i l : s e t f - i n v e
0042460 r s e % % s e t f - p s l o t
0042500 - a c c e s s o r ) \r % % s e t
0042520 f - p s l o t - a c c e s s o r
0042540 i l : d 1 \r ( i l : l ( 1
0042560 v a l u e 0 p a r s e d - s
0042600 l o t ) ) \0 \t \0 \0 \0 002 l 005 @ A
0042620 \v \0 \0 020 \0 ( 6 i l : % s e t n
0042640 t h ) \r n i l \r ( ) \r m a k e -
0042660 p a r s e d - s l o t i l : d
0042700 1 \r ( i l : l ( 0 i l : | -
0042720 a r g s - | ) i l : f 1 8
0042740 % d e f a u l t - s l o t - t y
0042760 p e ) 001 E 022 001 002 \0 e 021 001 \0 H k
0043000 021 002 002 J d I 363 242 261 \0 257 277 h 022 021 361
0043020 020 021 020 021 H k 273 272 K d J 363 242 261 \0 257
0043040 277 h 274 H k 276 275 N d M 363 242 261 \0 265 277
0043060 W $ _ 016 277 H k _ 022 277 _ 020 277 O 022 d
0043100 O 020 363 242 261 \0 262 277 h _ 024 277 H k _ 030
0043120 277 _ 026 277 O 030 d O 026 363 242 261 \0 263 277 h
0043140 _ 032 277 H k _ 036 277 _ 034 277 O 036 d O 034
0043160 363 242 261 \0 264 277 h _ 277 l 006 \t \0 \0 _
0043200 " 277 j O " I \v \0 \0 k O " L \v \0 \0
0043220 l 002 O " O 016 \v \0 \0 l 003 O " O 024 \v
0043240 \0 \0 l 004 O " O 032 \v \0 \0 l 005 O " O
0043260 \v \0 \0 O " 020 a g \0 \0 360 226 J k 330
0043300 a 261 377 L J l 002 324 Z 261 377 ; a g \0 \0
0043320 360 226 K k 330 a 261 377 L K l 002 324 [ 261 377
0043340 ; a g \0 \0 360 226 N k 330 a 261 377 G N l
0043360 002 324 ^ 261 377 5 a g \0 \0 360 227 O 022 k 330
0043400 a 261 377 H O 022 l 002 324 _ 022 261 377 4 a g
0043420 \0 \0 360 227 O 030 k 330 a 261 377 G O 030 l 002
0043440 324 _ 030 261 377 3 a g \0 \0 360 227 O 036 k 330
0043460 a 261 377 F O 036 l 002 324 _ 036 261 377 2 \0 (
0043500 1 8 5 i l : % s e t n t h 1
0043520 7 6 i l : % s e t n t h 1 6
0043540 7 i l : % s e t n t h 1 5 8
0043560 i l : % s e t n t h 1 4 9
0043600 i l : % s e t n t h 1 4 2 i
0043620 l : % s e t n t h 1 3 2 m a
0043640 k e - l i s t ) \r ( 3 0 3 : a
0043660 c c e s s o r 2 7 9 : f i e
0043700 l d - d e s c r i p t o r 2 5
0043720 5 : r e a d - o n l y 2 3 4
0043740 : t y p e 2 1 3 : i n i t
0043760 i a l - v a l u e 1 9 2 : n
0044000 a m e ) \r ( ) \r c o p y - p a r
0044020 s e d - s l o t i l : d 1 \r (
0044040 i l : l ( 0 p a r s e d - s
0044060 l o t ) ) \0 O 001 \0 \0 001 l 006 \t \0
0044100 \0 021 001 \0 j H j @ \n \0 \0 \v \0 \0 k H
0044120 k @ \n \0 \0 \v \0 \0 l 002 H l 002 @ \n \0
0044140 \0 \v \0 \0 l 003 H l 003 @ \n \0 \0 \v \0 \0
0044160 l 004 H l 004 @ \n \0 \0 \v \0 \0 l 005 H l
0044200 005 @ \n \0 \0 \v \0 \0 H 020 \0 ( 7 5 i
0044220 l : % s e t n t h 7 2 n t h
0044240 6 3 i l : % s e t n t h 6
0044260 0 n t h 5 1 i l : % s e t
0044300 n t h 4 8 n t h 3 9 i l
0044320 : % s e t n t h 3 6 n t h
0044340 2 7 i l : % s e t n t h 2 4
0044360 n t h 1 7 i l : % s e t n
0044400 t h 1 4 n t h 4 m a k e
0044420 - l i s t ) \r n i l \r ( ) \r ( i
0044440 l : d e f p r i n t ( q u o t
0044460 e p a r s e d - s l o t ) (
0044500 q u o t e d e f a u l t - s t
0044520 r u c t u r e - p r i n t e r )
0044540 ) \r ( s e t - p a r s e d - s t
0044560 r u c t u r e ( q u o t e p
0044600 a r s e d - s l o t ) ( q u o
0044620 t e ( p s p a r s e d - s l
0044640 o t m a k e - p a r s e d - s
0044660 l o t ( n a m e i n i t i a
0044700 l - v a l u e \r t y p e r e
0044720 a d - o n l y f i e l d - d e
0044740 s c r i p t o r a c c e s s o
0044760 r ) l i s t n i l n i l
0045000 p s l o t - ( m a k e - p a r
0045020 s e d - s l o t ) n i l \r d
0045040 e f a u l t - s t r u c t u r e
0045060 - p r i n t e r c o p y - p a
0045100 r s e d - s l o t n i l 0
0045120 ( ( n a m e n i l s y m b o
0045140 l n i l 0 p s l o t - n a
0045160 m e ) ( i n i t i a l - v a l
0045200 u e \r n i l t n i l 1
0045220 p s l o t - i n i t i a l - v a
0045240 l u e ) ( t y p e % d e f a
0045260 u l t - s l o t - t y p e t
0045300 n i l 2 p s l o t - t y p e
0045320 ) ( r e a d - o n l y n i l
0045340 t n i l 3 \r p s l o t -
0045360 r e a d - o n l y ) ( f i e l
0045400 d - d e s c r i p t o r n i l
0045420 t n i l 4 p s l o t - f
0045440 i e l d - d e s c r i p t o r )
0045460 ( a c c e s s o r n i l t
0045500 n i l 5 \r p s l o t - a c
0045520 c e s s o r ) ) ( ( n a m e
0045540 n i l s y m b o l n i l 0
0045560 p s l o t - n a m e ) ( i n
0045600 i t i a l - v a l u e n i l
0045620 t n i l 1 p s l o t - i n
0045640 i t i a l - v a l u e ) ( \r t
0045660 y p e % d e f a u l t - s l o
0045700 t - t y p e t n i l 2 p
0045720 s l o t - t y p e ) ( r e a d
0045740 - o n l y n i l t n i l
0045760 3 p s l o t - r e a d - o n l
0046000 y ) ( f i e l d - d e s c r i
0046020 p t o r \r n i l t n i l
0046040 4 p s l o t - f i e l d - d e
0046060 s c r i p t o r ) ( a c c e s
0046100 s o r n i l t n i l 5
0046120 p s l o t - a c c e s s o r ) )
0046140 n i l \r " d e s c r i b e s
0046160 a s i n g l e s l o t i
0046200 n a s t r u c t u r e " n
0046220 i l ) ) ) \r a s s i g n - s l o
0046240 t - a c c e s s o r i l : d 1
0046260 \r ( i l : l ( 1 c o n c - n
0046300 a m e 0 s l o t ) ) \0 024 \0
0046320 \0 \0 002 @ \t \0 \0 264 016 @ A @ \t \0 \0 \n
0046340 \0 \0 \n \0 \0 020 \0 ( 1 7 % % s e t
0046360 f - p s l o t - a c c e s s o r
0046400 1 4 x c l : p a c k * 1 1
0046420 p s l o t - n a m e 3 p s
0046440 l o t - a c c e s s o r ) \r n i
0046460 l \r ( ) \r ( l e t * ( ( i l :
0046500 a 1 3 6 5 ( q u o t e a s s
0046520 i g n - s l o t - a c c e s s o
0046540 r ) ) ( i l : a 1 3 6 6 ( q
0046560 u o t e f u n c t i o n ) )
0046600 ( i l : a 1 3 6 7 \r " a s s i
0046620 g n s t h e a c c e s s o r
0046640 n a m e t o a s l o t "
0046660 ) ) ( p r o g n ( c o n d
0046700 ( ( f b o u n d p ( q u o t e
0046720 i l : s e t - d o c u m e n t
0046740 a t i o n ) ) ( \r i l : s e t
0046760 - d o c u m e n t a t i o n i
0047000 l : a 1 3 6 5 i l : a 1 3 6 6
0047020 i l : a 1 3 6 7 ) ) ) i l :
0047040 a 1 3 6 7 ) ) \r r e m o v e - d
0047060 o c u m e n t a t i o n i l :
0047100 d 1 \r ( i l : l ( 1 s l o t
0047120 - d e s c r i p t i o n s 0
0047140 p s ) ) \0 025 001 \0 \0 002 A 001 021 001 \0
0047160 H \t \0 \0 227 @ H \n \0 \0 A 002 020 A 020 \0
0047200 ( 1 4 % % s e t f - p s - d o
0047220 c u m e n t a t i o n - s t r i
0047240 n g 8 s t r i n g p ) \r n i
0047260 l \r ( ) \r ( l e t * ( ( i l :
0047300 a 1 3 6 8 ( q u o t e r e m
0047320 o v e - d o c u m e n t a t i o
0047340 n ) ) ( i l : a 1 3 6 9 ( q
0047360 u o t e f u n c t i o n ) )
0047400 ( i l : a 1 3 7 0 \r " r e c o
0047420 r d s i t i f t h e r e
0047440 i s a n y d o c u m e n t a
0047460 t i o n s t r i n g . " ) )
0047500 ( p r o g n ( c o n d ( ( f
0047520 b o u n d p ( q u o t e i l
0047540 : s e t - d o c u m e n t a t i
0047560 o n \r ) ) ( i l : s e t - d o
0047600 c u m e n t a t i o n i l : a
0047620 1 3 6 8 i l : a 1 3 6 9 i l
0047640 : a 1 3 7 0 ) ) ) i l : a 1 3
0047660 7 0 ) ) \r r e c o r d - d o c u
0047700 m e n t a t i o n i l : d 1 \r
0047720 ( i l : l ( 0 p s ) ) \0 )
0047740 001 \0 \0 001 @ \t \0 \0 021 001 \0 H 264 037 g \0
0047760 \0 g \0 \0 g \0 \0 @ \t \0 \0 h 032 032 o \0
0050000 \0 \0 032 032 H h 032 032 032 h 032 020 \0 ( 2 2
0050020 p s - n a m e 3 p s - d o
0050040 c u m e n t a t i o n - s t r i
0050060 n g ) \r ( 1 8 q u o t e 1 5
0050100 d o c u m e n t a t i o n 1
0050120 2 s e t f ) \r ( 2 9 ( ( q
0050140 u o t e s t r u c t u r e ) )
0050160 ) \r ( l e t * ( ( i l : a 1 3
0050200 7 1 ( q u o t e r e c o r d
0050220 - d o c u m e n t a t i o n ) )
0050240 ( i l : a 1 3 7 2 ( q u o t
0050260 e f u n c t i o n ) ) ( i l
0050300 : a 1 3 7 3 \r " r e t u r n s
0050320 a f o r m w h i c h s a
0050340 v e s t h e d o c u m e n t
0050360 a t i o n s t r i n g f o r
0050400 a s t r u c t u r e . " ) )
0050420 ( p r o g n ( c o n d ( (
0050440 f b o u n d p ( q u o t e \r
0050460 i l : s e t - d o c u m e n t a
0050500 t i o n ) ) ( i l : s e t - d
0050520 o c u m e n t a t i o n i l :
0050540 a 1 3 7 1 i l : a 1 3 7 2 i
0050560 l : a 1 3 7 3 ) ) ) i l : a 1
0050600 3 7 3 ) ) \r e n s u r e - v a l
0050620 i d - t y p e i l : d 1 \r ( i
0050640 l : l ( 0 t y p e - f o r m
0050660 ) ) \0 003 \0 \0 \0 001 @ 020 \0 n i l \r
0050700 n i l \r ( ) \r ( l e t * ( ( i
0050720 l : a 1 3 7 4 ( q u o t e e
0050740 n s u r e - v a l i d - t y p e
0050760 ) ) ( i l : a 1 3 7 5 ( q u
0051000 o t e f u n c t i o n ) ) (
0051020 i l : a 1 3 7 6 " b o g u s
0051040 r i g h t n o w " ) ) \r ( p
0051060 r o g n ( c o n d ( ( f b o
0051100 u n d p ( q u o t e i l : s
0051120 e t - d o c u m e n t a t i o n
0051140 ) ) ( i l : s e t - d o c u m
0051160 e n t a t i o n i l : a 1 3 7
0051200 4 i l : a 1 3 7 5 i l : a 1
0051220 3 7 6 ) \r ) ) i l : a 1 3 7 6
0051240 ) ) \r p a r s e - s l o t i l
0051260 : d 1 \r ( i l : l ( 0 i l :
0051300 | - a r g s - | ) ) \0 247 \n \0 002
0051320 \0 e 021 001 \0 k a 021 201 \t l 002 H 361 221 i
0051340 202 l 002 a 272 I d 003 243 d 221 h 032 273 \b \0
0051360 \0 274 K _ 022 001 _ 020 277 O 022 002 001 _ 016 277
0051400 O 022 002 002 276 O 020 004 l 004 360 226 L O 020 \n
0051420 \0 \0 210 o \0 \0 \0 O 020 \n \0 \0 277 L O 016
0051440 \n \0 \0 277 N 260 F d ] 001 d g \0 \0 360 234
0051460 277 L M 002 001 \t \0 \0 \n \0 \0 260 - g \0 \0
0051500 360 233 L M 002 001 264 003 i \n \0 \0 260 034 O 016
0051520 \t \0 \0 230 o \0 \0 \0 K \n \0 \0 212 o \0 \0
0051540 \0 M 001 O 020 \v \0 \0 277 002 002 003 265 273 J 224
0051560 L i \n \0 \0 L 020 \0 ( 1 6 3 % % s
0051600 e t f - p s l o t - a c c e s s
0051620 o r 1 5 0 e r r o r 1 3 8
0051640 e r r o r 1 2 9 k e y w o
0051660 r d p 1 2 2 % % s e t f - p
0051700 s l o t - r e a d - o n l y 1
0051720 0 5 % % s e t f - p s l o t -
0051740 t y p e 1 0 2 e n s u r e -
0051760 v a l i d - t y p e 8 1 % %
0052000 s e t f - p s l o t - i n i t i
0052020 a l - v a l u e 7 4 e r r o
0052040 r 6 4 % % s e t f - p s l o
0052060 t - n a m e 3 1 m a k e - p
0052100 a r s e d - s l o t ) \r ( 1 1 0
0052120 : r e a d - o n l y 9 2 :
0052140 t y p e ) \r ( 1 4 3 " I l l
0052160 e g a l s l o t o p t i o n
0052200 ~ S i n s l o t ~ S "
0052220 1 3 4 " I n i t i a l v a l
0052240 u e m u s t b e s p e c i
0052260 f i e d t o u s e s l o t
0052300 o p t i o n s . ~ S " \r 6
0052320 9 " S l o t n a m e n o t
0052340 s y m b o l : ~ S " ) \r ( l
0052360 e t * ( ( i l : a 1 3 7 7 (
0052400 q u o t e p a r s e - s l o t
0052420 ) ) ( i l : a 1 3 7 8 ( q u
0052440 o t e f u n c t i o n ) ) (
0052460 i l : a 1 3 7 9 \r " t a k e s
0052500 a s l o t d e s c r i p t
0052520 i o n f r o m t h e d e f
0052540 s t r u c t b o d y o r i
0052560 n c l u d e d s l o t s a n
0052600 d r e t u r n s a p a r s
0052620 e d v e r s i o n " ) ) ( \r
0052640 p r o g n ( c o n d ( ( f b
0052660 o u n d p ( q u o t e i l :
0052700 s e t - d o c u m e n t a t i o
0052720 n ) ) ( i l : s e t - d o c u
0052740 m e n t a t i o n i l : a 1 3
0052760 7 7 i l : a 1 3 7 8 i l : a
0053000 1 3 7 9 ) ) \r ) i l : a 1 3 7
0053020 9 ) ) \r d e f s t r u c t - p a
0053040 r s e - o p t i o n s i l : d
0053060 1 \r ( i l : l ( 0 n a m e &
0053100 o p t i o n s ) i l : f 1 4
0053120 % % d e f s t r u c t - c o n
0053140 s p - o p t i o n s ) 001 235 016 001
0053160 \0 001 @ d 003 243 d 221 h 032 021 321 \r H 001 H
0053200 002 270 271 g \0 \0 I \n \0 \0 272 H _ 030 265 \b
0053220 J \t \0 \0 J 020 001 _ 032 d 225 d 003 242 261 001
0053240 1 _ 022 001 _ 020 277 O 022 002 001 _ 016 277 O 022
0053260 002 002 276 O 032 002 275 O 020 d g \0 \0 360 237 277
0053300 J O 016 265 006 o \0 \0 \0 \n \0 \0 261 001 ; g
0053320 \0 \0 360 262 B M 231 O 016 246 J \t \0 \0 261 001
0053340 ) J d \t \0 \0 g \0 \0 360 262 024 277 J N 223
0053360 O 032 002 201 O 016 h 032 \n \0 \0 261 001 \f 274 N
0053400 223 O 032 002 201 O 016 L \t \0 \0 032 273 L K \n
0053420 \0 \0 261 \0 365 O 020 d g \0 \0 360 236 277 M 242
0053440 261 \0 350 J O 016 \n \0 \0 261 \0 336 g \0 \0 360
0053460 235 M 242 261 \0 325 J O 016 \n \0 \0 261 \0 313 O
0053500 020 d g \0 \0 360 262 025 277 J O 016 \n \0 \0 277
0053520 J O 032 002 002 \n \0 \0 261 \0 257 g \0 \0 360 230
0053540 J O 016 \n \0 \0 261 \0 241 O 020 d g \0 \0 360
0053560 262 L 277 J O 016 d g \0 \0 360 225 277 g \0 \0
0053600 260 037 g \0 \0 360 231 J i \n \0 \0 277 g \0 \0
0053620 215 O 016 003 265 020 o \0 \0 \0 O 016 \n \0 \0 \n
0053640 \0 \0 260 e 001 g \0 \0 360 262 355 J O 016 002 001
0053660 \t \0 \0 \n \0 \0 277 g \0 \0 260 345 g \0 \0 360
0053700 227 J O 016 \n \0 \0 260 @ o \0 \0 \0 260 5 g
0053720 \0 \0 360 226 J i \n \0 \0 260 . O 032 _ 026 277
0053740 W 034 _ 024 003 265 \v h 262 026 o \0 \0 \0 260 024
0053760 001 O 026 : 223 O 024 260 361 O 024 002 260 346 o \0
0054000 \0 \0 O 032 \n \0 \0 277 O 030 002 261 376 201 \0 (
0054020 4 0 4 e r r o r 3 5 8 % %
0054040 s e t f - p s - n a m e d 3 4
0054060 0 % % s e t f - p s - i n i t
0054100 i a l - o f f s e t 3 2 3 %
0054120 % s e t f - p s - v e c t o r -
0054140 t y p e 3 2 0 % % g e t - c
0054160 a n o n i c a l - c m l - t y p
0054200 e 3 0 3 % % s e t f - p s -
0054220 t y p e 3 0 0 e r r o r 2
0054240 8 1 % % s e t f - p s - v e c
0054260 t o r - t y p e 2 4 3 % % s
0054300 e t f - p s - p r i n t - f u n
0054320 c t i o n 2 2 9 % % s e t f
0054340 - p s - i n c l u d e d - s l o
0054360 t s 2 2 0 % % s e t f - p s
0054400 - i n c l u d e 2 0 1 % % s
0054420 e t f - p s - p r e d i c a t e
0054440 1 8 2 % % s e t f - p s - c
0054460 o p i e r 1 5 9 % % s e t f
0054500 - p s - c o n s t r u c t o r s
0054520 1 5 2 p s - c o n s t r u c
0054540 t o r s 1 3 6 % % s e t f -
0054560 p s - c o n s t r u c t o r s
0054600 1 1 5 p s - c o n s t r u c t
0054620 o r s 1 0 7 % % s e t f - p
0054640 s - c o n s t r u c t o r s 8
0054660 9 % % s e t f - p s - c o n c
0054700 - n a m e 3 3 e n s u r e -
0054720 c o n s i s t e n t - p s 2 3
0054740 m a k e - p s ) \r ( 3 5 1 :
0054760 n a m e d 3 3 2 : i n i t i
0055000 a l - o f f s e t 3 2 7 v e
0055020 c t o r 3 0 9 v e c t o r
0055040 2 8 5 v e c t o r 2 7 4 v
0055060 e c t o r 2 6 9 l i s t 2
0055100 6 3 l i s t 2 5 2 : t y p
0055120 e 2 3 5 : p r i n t - f u n
0055140 c t i o n 2 1 0 : i n c l u
0055160 d e 1 8 8 : p r e d i c a t
0055200 e 1 6 8 : c o p i e r 1 1
0055220 8 % % n o - c o n s t r u c t
0055240 o r 9 5 : c o n s t r u c t
0055260 o r 7 4 : c o n c - n a m e
0055300 1 9 : n a m e ) \r ( 3 9 9
0055320 " B a d o p t i o n t o
0055340 d e f s t r u c t : ~ S . "
0055360 3 7 9 " d e f s t r u c t o
0055400 p t i o n ~ s m u s t b e
0055420 i n p a r e n t h e s e s
0055440 w i t h i t s v a l u e "
0055460 3 4 6 \r " B a d o p t i o n
0055500 t o d e f s t r u c t : ~
0055520 S . " 2 9 5 " t h e s p e
0055540 c i f i e d : t y p e i s
0055560 n o t l i s t o r s u b t
0055600 y p e o f v e c t o r : ~
0055620 S " 8 6 " " ) \r ( l e t *
0055640 ( ( i l : a 1 3 8 0 ( q u o t
0055660 e d e f s t r u c t - p a r s
0055700 e - o p t i o n s ) ) ( i l :
0055720 a 1 3 8 1 ( q u o t e f u n
0055740 c t i o n ) ) ( i l : a 1 3 8
0055760 2 \r " r e t u r n s a s t
0056000 r u c t u r e r e p r e s e n
0056020 t i n g t h e o p t i o n s
0056040 i n a d e f s t r u c t
0056060 c a l l . " ) ) ( p r o g n
0056100 ( c o n d ( ( f b o u n d p
0056120 ( q u o t e \r i l : s e t - d
0056140 o c u m e n t a t i o n ) ) (
0056160 i l : s e t - d o c u m e n t a
0056200 t i o n i l : a 1 3 8 0 i l
0056220 : a 1 3 8 1 i l : a 1 3 8 2 )
0056240 ) ) i l : a 1 3 8 2 ) ) \r e n
0056260 s u r e - c o n s i s t e n t -
0056300 p s i l : d 1 \r ( i l : l (
0056320 0 p s ) i l : f 3 * p a
0056340 r s e d - s t r u c t u r e s *
0056360 i l : f 4 % d e f a u l t
0056400 - d e f s t r u c t - t y p e
0056420 i l : f 5 % d e f a u l t -
0056440 p r i n t - f u n c t i o n )
0056460 001 032 003 003 \0 001 @ d \t \0 \0 T 360 263 031 277
0056500 @ d \t \0 \0 U 360 255 277 o \0 \0 \0 @ \t \0
0056520 \0 \n \0 \0 277 @ \t \0 \0 g \0 \0 360 262 S @
0056540 d \t \0 \0 i 360 262 K 277 g \0 \0 @ \t \0 \0
0056560 \n \0 \0 \t \0 \0 021 ! 002 H 001 272 H 002 001 271
0056600 J 263 . I 262 025 o \0 \0 \0 @ \t \0 \0 l 002
0056620 g \0 \0 \t \0 \0 016 260 027 o \0 \0 \0 o \0 \0
0056640 \0 @ \t \0 \0 l 003 g \0 \0 \t \0 \0 016 277 023
0056660 @ \t \0 \0 262 ] @ \t \0 \0 021 021 001 H S \n
0056700 \0 \0 002 265 \n o \0 \0 \0 H \n \0 \0 271 H @
0056720 \t \0 \0 360 231 o \0 \0 \0 H d \v \0 \0 277 H
0056740 S \n \0 \0 002 250 o \0 \0 \0 H \n \0 \0 277 I
0056760 \t \0 \0 @ \t \0 \0 360 231 I \t \0 \0 @ \t \0
0057000 \0 360 254 o \0 \0 \0 @ \t \0 \0 H \v \0 \0 277
0057020 023 @ d \t \0 \0 263 " 277 @ d \t \0 \0 g \0
0057040 \0 360 250 277 @ d \t \0 \0 235 277 @ d \t \0 \0
0057060 \t \0 \0 \n \0 \0 277 @ \t \0 \0 g \0 \0 360 264
0057100 017 @ d \t \0 \0 \t \0 \0 h 032 \n \0 \0 020 \0
0057120 ( 2 7 9 % % s e t f - p s - c
0057140 o n s t r u c t o r s 2 7 4
0057160 d e f a u l t - c o n s t r u c
0057200 t o r - n a m e 2 7 1 p s -
0057220 n a m e 2 6 0 p s - c o n s
0057240 t r u c t o r s 2 5 5 % % s
0057260 e t f - p s - p r e d i c a t e
0057300 2 5 2 d e f a u l t - p r e
0057320 d i c a t e - n a m e 2 4 9
0057340 p s - n a m e 2 4 2 p s - n
0057360 a m e d 2 3 1 p s - t y p e
0057400 2 2 3 p s - p r e d i c a t
0057420 e 2 1 6 e r r o r 2 1 2
0057440 p s - n a m e 2 0 2 p s - v
0057460 e c t o r - t y p e 1 9 8 p
0057500 s - v e c t o r - t y p e 1 9
0057520 2 p s - t y p e 1 8 8 p s
0057540 - t y p e 1 8 3 e r r o r
0057560 1 7 3 a s s o c 1 6 7 e r
0057600 r o r 1 5 6 p s - n a m e
0057620 1 5 0 e r r o r 1 3 9 a s
0057640 s o c 1 3 1 p s - i n c l u
0057660 d e 1 2 5 p s - i n c l u d
0057700 e 1 1 8 s y m b o l - f u n
0057720 c t i o n 1 1 0 p s - v e c
0057740 t o r - t y p e 9 5 s y m b
0057760 o l - f u n c t i o n 8 7 p
0060000 s - v e c t o r - t y p e 6 3
0060020 i l : \ \ m v l i s t 6 0
0060040 s u b t y p e p 5 7 p s - v
0060060 e c t o r - t y p e 4 5 p s
0060100 - n a m e d 3 4 p s - t y p
0060120 e 2 9 e r r o r 2 6 p s
0060140 - t y p e 1 4 p s - p r i n
0060160 t - f u n c t i o n 4 p s -
0060200 t y p e ) \r ( 2 6 3 : n o n e
0060220 2 3 4 d a t a t y p e 1 1
0060240 5 c e r r o r 9 2 e r r o
0060260 r 5 3 s y m b o l 3 7 v
0060300 e c t o r ) \r ( 2 0 8 " ~ s
0060320 m u s t b e s a m e t y
0060340 p e a s i n c l u d e d s
0060360 t r u c t u r e ~ s " 1 7 9
0060400 " I n c l u d e d s t r u c
0060420 t u r e ~ s i s u n k n o
0060440 w n " 1 6 2 " Y o u p r o
0060460 b a b l y d o n ' t w a n t
0060500 ~ S t o i n c l u d e ~
0060520 S . " \r 1 4 6 " ~ s i s
0060540 n o t a d e f i n e d s t
0060560 r u c t u r e " 1 0 6 " P e
0060600 r h a p s , v e c t o r o f
0060620 ~ S c a n n o t c o n t a
0060640 i n t h e s y m b o l r e
0060660 q u i r e d f o r t h e :
0060700 n a m e d o p t i o n s " \r
0060720 1 0 2 " A s s u m e s u b t
0060740 y p e p s h o u l d r e t u
0060760 r n t " 8 3 " v e c t o r
0061000 o f ~ S c a n n o t c o
0061020 n t a i n t h e s y m b o l
0061040 r e q u i r e d f o r t h
0061060 e : n a m e d o p t i o n s
0061100 " \r 2 2 " A p r i n t - f
0061120 u n c t i o n c a n ' t b e
0061140 s p e c i f i e d f o r s
0061160 t r u c t u r e s o f t y p
0061200 e ~ s " ) \r ( l e t * ( ( i
0061220 l : a 1 3 8 3 ( q u o t e e
0061240 n s u r e - c o n s i s t e n t
0061260 - p s ) ) ( i l : a 1 3 8 4
0061300 ( q u o t e f u n c t i o n )
0061320 ) ( i l : a 1 3 8 5 \r " a c
0061340 c o m p l i s h e s t h e c
0061360 o n s i s t e n c y c h e c k
0061400 s t h a t c a n ' t o c c
0061420 u r u n t i l a l l t h e
0061440 o p t i o n s h a v e b e
0061460 e n p a r s e d . " ) ) ( \r
0061500 p r o g n ( c o n d ( ( f b
0061520 o u n d p ( q u o t e i l :
0061540 s e t - d o c u m e n t a t i o
0061560 n ) ) ( i l : s e t - d o c u
0061600 m e n t a t i o n i l : a 1 3
0061620 8 3 i l : a 1 3 8 4 i l : a
0061640 1 3 8 5 ) ) \r ) i l : a 1 3 8
0061660 5 ) ) \r p s - n u m b e r - o f
0061700 - s l o t s i l : d 1 \r ( i l
0061720 : l ( 0 p s ) ) \0 \t \0 \0 \0
0061740 001 @ \t \0 \0 \t \0 \0 020 \0 ( 6 l e n
0061760 g t h 3 p s - a l l - s l o
0062000 t s ) \r n i l \r ( ) \r ( l e t *
0062020 ( ( i l : a 1 3 8 6 ( q u o
0062040 t e p s - n u m b e r - o f -
0062060 s l o t s ) ) ( i l : a 1 3 8
0062100 7 ( q u o t e f u n c t i o
0062120 n ) ) ( i l : a 1 3 8 8 \r "
0062140 t h e n u m b e r o f s l
0062160 o t s i n a n i n s t a n
0062200 c e o f t h i s s t r u c
0062220 t u r e " ) ) ( p r o g n (
0062240 c o n d ( ( f b o u n d p (
0062260 q u o t e \r i l : s e t - d o
0062300 c u m e n t a t i o n ) ) ( i
0062320 l : s e t - d o c u m e n t a t
0062340 i o n i l : a 1 3 8 6 i l :
0062360 a 1 3 8 7 i l : a 1 3 8 8 ) )
0062400 ) i l : a 1 3 8 8 ) ) \r p s -
0062420 t y p e - s p e c i f i e r i
0062440 l : d 1 \r ( i l : l ( 0 p s
0062460 ) ) \0 : 002 \0 \0 001 @ \t \0 \0 021 021 001
0062500 H d g \0 \0 360 223 g \0 \0 020 g \0 \0 360 264
0062520 026 @ \t \0 \0 Y i 360 247 g \0 \0 I h 032 032
0062540 020 g \0 \0 020 o \0 \0 \0 H o \0 \0 \0 \f \0
0062560 \0 020 \0 ( 5 5 i l : e c a s e -
0062600 f a i l 2 7 p s - v e c t o
0062620 r - t y p e 3 p s - t y p e
0062640 ) \r ( 4 2 v e c t o r 3 4
0062660 v e c t o r 2 0 v e c t o r
0062700 1 6 l i s t 1 1 l i s t
0062720 ) \r ( 5 2 ( l i s t v e c
0062740 t o r ) 4 7 ( p s - t y p e
0062760 p s ) ) \r ( l e t * ( ( i l
0063000 : a 1 3 9 0 ( q u o t e p s
0063020 - t y p e - s p e c i f i e r )
0063040 ) ( i l : a 1 3 9 1 ( q u o
0063060 t e f u n c t i o n ) ) ( i
0063100 l : a 1 3 9 2 \r " r e t u r n
0063120 s l i s t , v e c t o r ,
0063140 o r ( v e c t o r f o o ) "
0063160 ) ) ( p r o g n ( c o n d
0063200 ( ( f b o u n d p ( q u o t e
0063220 i l : s e t - d o c u m e n t
0063240 a t i o n ) ) ( \r i l : s e t
0063260 - d o c u m e n t a t i o n i
0063300 l : a 1 3 9 0 i l : a 1 3 9 1
0063320 i l : a 1 3 9 2 ) ) ) i l :
0063340 a 1 3 9 2 ) ) \r ( p r o c l a i
0063360 m ( q u o t e ( s p e c i a
0063400 l % d e f a u l t - d e f s t
0063420 r u c t - t y p e ) ) ) \r ( o r
0063440 ( b o u n d p ( q u o t e
0063460 % d e f a u l t - d e f s t r u
0063500 c t - t y p e ) ) ( i l : s e
0063520 t q % d e f a u l t - d e f s
0063540 t r u c t - t y p e ( q u o t
0063560 e d a t a t y p e ) ) ) \r ( l
0063600 e t * ( ( i l : a 1 3 9 3 (
0063620 q u o t e % d e f a u l t - d
0063640 e f s t r u c t - t y p e ) )
0063660 ( i l : a 1 3 9 4 ( q u o t e
0063700 i l : v a r i a b l e ) ) (
0063720 i l : a 1 3 9 5 \r " T h e t
0063740 y p e o f s t r u c t u r e
0063760 s w h e n n o : t y p e
0064000 o p t i o n i s s p e c i f
0064020 i e d " ) ) ( p r o g n ( c
0064040 o n d ( ( f b o u n d p ( q
0064060 u o t e \r i l : s e t - d o c
0064100 u m e n t a t i o n ) ) ( i l
0064120 : s e t - d o c u m e n t a t i
0064140 o n i l : a 1 3 9 3 i l : a
0064160 1 3 9 4 i l : a 1 3 9 5 ) ) )
0064200 i l : a 1 3 9 5 ) ) \r ( p r o
0064220 c l a i m ( q u o t e ( s p
0064240 e c i a l % d e f a u l t - p
0064260 r i n t - f u n c t i o n ) ) )
0064300 \r ( o r ( b o u n d p ( q u
0064320 o t e % d e f a u l t - p r i
0064340 n t - f u n c t i o n ) ) ( i
0064360 l : s e t q % d e f a u l t -
0064400 p r i n t - f u n c t i o n (
0064420 q u o t e \r d e f a u l t - s
0064440 t r u c t u r e - p r i n t e r
0064460 ) ) ) \r ( l e t * ( ( i l : a
0064500 1 3 9 6 ( q u o t e % d e f
0064520 a u l t - p r i n t - f u n c t
0064540 i o n ) ) ( i l : a 1 3 9 7
0064560 ( q u o t e i l : v a r i a b
0064600 l e ) ) ( i l : a 1 3 9 8 \r
0064620 " p r i n t f u n c t i o n
0064640 u s e d w h e n n o n e i
0064660 s s p e c i f i e d i n a
0064700 d e f s t r u c t " ) ) ( p
0064720 r o g n ( c o n d ( ( f b o
0064740 u n d p ( q u o t e \r i l :
0064760 s e t - d o c u m e n t a t i o
0065000 n ) ) ( i l : s e t - d o c u
0065020 m e n t a t i o n i l : a 1 3
0065040 9 6 i l : a 1 3 9 7 i l : a
0065060 1 3 9 8 ) ) ) i l : a 1 3 9 8
0065100 ) ) \r ( p r o c l a i m ( q u
0065120 o t e ( s p e c i a l % d e
0065140 f a u l t - s l o t - t y p e )
0065160 ) ) \r ( o r ( b o u n d p (
0065200 q u o t e % d e f a u l t - s
0065220 l o t - t y p e ) ) ( i l : s
0065240 e t q % d e f a u l t - s l o
0065260 t - t y p e ( q u o t e t )
0065300 ) ) \r ( l e t * ( ( i l : a 1
0065320 3 9 9 ( q u o t e % d e f a
0065340 u l t - s l o t - t y p e ) )
0065360 ( i l : a 1 4 0 0 ( q u o t e
0065400 i l : v a r i a b l e ) ) (
0065420 i l : a 1 4 0 1 \r " t h e t
0065440 y p e o f a n y s l o t
0065460 w h i c h d o e s n o t s
0065500 p e c i f i y a : t y p e
0065520 o p t i o n " ) ) ( p r o g n
0065540 ( c o n d ( ( f b o u n d p
0065560 ( q u o t e \r i l : s e t -
0065600 d o c u m e n t a t i o n ) )
0065620 ( i l : s e t - d o c u m e n t
0065640 a t i o n i l : a 1 3 9 9 i
0065660 l : a 1 4 0 0 i l : a 1 4 0 1
0065700 ) ) ) i l : a 1 4 0 1 ) ) \r (
0065720 p r o c l a i m ( q u o t e
0065740 ( s p e c i a l % d e f s t r
0065760 u c t - o p t i o n s ) ) ) \r (
0066000 i l : s e t q % d e f s t r u
0066020 c t - o p t i o n s ( q u o t
0066040 e ( : c o n c - n a m e : c
0066060 o n s t r u c t o r : c o p i
0066100 e r : p r e d i c a t e : i
0066120 n c l u d e \r : p r i n t - f
0066140 u n c t i o n : t y p e : i
0066160 n i t i a l - o f f s e t : n
0066200 a m e d ) ) ) \r ( i l : s e t q
0066220 % n o - c o n s t r u c t o r
0066240 ( q u o t e : n o n e ) ) \r
0066260 ( i l : p u t h a s h ( q u o
0066300 t e % n o - c o n s t r u c t
0066320 o r ) ( q u o t e ( i l : c
0066340 o n s t a n t % n o - c o n s
0066360 t r u c t o r ) ) i l : c o m
0066400 p v a r m a c r o h a s h ) \r (
0066420 l e t * ( ( i l : a 1 4 0 2
0066440 ( q u o t e % n o - c o n s t
0066460 r u c t o r ) ) ( i l : a 1 4
0066500 0 3 ( q u o t e i l : v a r
0066520 i a b l e ) ) ( i l : a 1 4 0
0066540 4 \r " t h e v a l u e w h
0066560 i c h s a y s t h a t n o
0066600 c o n s t r u c t o r w a s
0066620 s p e c i f i e d . " ) ) (
0066640 p r o g n ( c o n d ( ( f b
0066660 o u n d p ( q u o t e \r i l
0066700 : s e t - d o c u m e n t a t i
0066720 o n ) ) ( i l : s e t - d o c
0066740 u m e n t a t i o n i l : a 1
0066760 4 0 2 i l : a 1 4 0 3 i l :
0067000 a 1 4 0 4 ) ) ) i l : a 1 4 0
0067020 4 ) ) \r ( p r o c l a i m ( q
0067040 u o t e ( s p e c i a l % d
0067060 e f s t r u c t - c o n s p - o
0067100 p t i o n s ) ) ) \r ( i l : s e
0067120 t q % d e f s t r u c t - c o
0067140 n s p - o p t i o n s ( r e m
0067160 o v e ( q u o t e : n a m e
0067200 d ) % d e f s t r u c t - o p
0067220 t i o n s ) ) \r a s s i g n - s
0067240 l o t - o f f s e t i l : d 1
0067260 \r ( i l : l ( 0 p s ) ) \0
0067300 B 004 \0 \0 001 @ \t \0 \0 277 @ \t \0 \0 021 1
0067320 003 @ \t \0 \0 Y g \0 \0 360 246 I g \0 \0 360
0067340 264 031 H j 273 Z 003 265 004 h 020 001 K \n \0 \0
0067360 277 K k 324 273 J 002 260 356 o \0 \0 \0 I o \0
0067400 \0 \0 \f \0 \0 020 \0 ( 6 3 i l : e c
0067420 a s e - f a i l 4 2 % % s e
0067440 t f - p s l o t - f i e l d - d
0067460 e s c r i p t o r 1 5 p s -
0067500 t y p e 8 p s - a l l - s l
0067520 o t s 3 p s - n a m e ) \r (
0067540 2 5 l i s t 1 9 v e c t o
0067560 r ) \r ( 6 0 ( v e c t o r
0067600 l i s t ) 5 5 ( p s - t y p
0067620 e p s ) ) \r ( l e t * ( ( i
0067640 l : a 1 4 0 5 ( q u o t e a
0067660 s s i g n - s l o t - o f f s e
0067700 t ) ) ( i l : a 1 4 0 6 ( q
0067720 u o t e f u n c t i o n ) )
0067740 ( i l : a 1 4 0 7 \r " a s s i
0067760 g n s t h e o f f s e t s
0070000 f o r e a c h s l o t f o
0070020 r t y p e v e c t o r a n
0070040 d l i s t . " ) ) ( p r o g
0070060 n ( c o n d ( ( f b o u n d
0070100 p ( q u o t e \r i l : s e t
0070120 - d o c u m e n t a t i o n ) )
0070140 ( i l : s e t - d o c u m e n
0070160 t a t i o n i l : a 1 4 0 5
0070200 i l : a 1 4 0 6 i l : a 1 4 0
0070220 7 ) ) ) i l : a 1 4 0 7 ) ) \r
0070240 r e s o l v e - s l o t s i l
0070260 : d 1 \r ( i l : l ( 1 p s
0070300 0 l o c a l - s l o t - d e s
0070320 c r i p t i o n s ) i l : f
0070340 4 * p a r s e d - s t r u c t
0070360 u r e s * ) \0 262 004 001 \0 002 A g \0
0070400 \0 \t \0 \0 @ \n \0 \0 \n \0 \0 A g \0 \0 \t
0070420 \0 \0 A \t \0 \0 \n \0 \0 \n \0 \0 A d \t \0
0070440 \0 226 277 A \t \0 \0 277 A \t \0 \0 j 360 244 A
0070460 \t \0 \0 277 A \t \0 \0 A \t \0 \0 A \t \0 \0
0070500 021 023 003 J 265 = I 233 o \0 \0 \0 A \t \0 \0
0070520 \n \0 \0 277 A H \n \0 \0 277 A H \n \0 \0 023
0070540 A \t \0 \0 021 021 001 A \t \0 \0 Y 265 8 023 A
0070560 g \0 \0 \t \0 \0 A \t \0 \0 \n \0 \0 \n \0 \0
0070600 020 T \n \0 \0 002 265 \n o \0 \0 \0 J \n \0 \0
0070620 \t \0 \0 \t \0 \0 273 A I K A \v \0 \0 H \n
0070640 \0 \0 260 264 001 H \n \0 \0 277 I 002 260 277 \0 (
0070660 1 7 1 a s s i g n - s l o t -
0070700 a c c e s s o r 1 6 4 i l :
0070720 \ \ n c o n c 2 1 6 0 m e r
0070740 g e - s l o t s 1 5 2 c o p
0070760 y - l i s t 1 4 9 p s - a l
0071000 l - s l o t s 1 4 6 e r r o
0071020 r 1 3 5 a s s o c 1 3 0
0071040 % % s e t f - p s - a l l - s l
0071060 o t - n a m e s 1 2 7 m a p
0071100 c a r 1 2 4 p s - a l l - s
0071120 l o t s 1 2 0 s y m b o l -
0071140 f u n c t i o n 1 0 9 p s -
0071160 a l l - s l o t s 1 0 2 p s
0071200 - c o n c - n a m e 9 7 % %
0071220 s e t f - p s - l o c a l - s l
0071240 o t s 9 1 % % s e t f - p s
0071260 - a l l - s l o t s 8 5 e r
0071300 r o r 8 2 p s - n a m e 6
0071320 6 p s - i n c l u d e 6 2
0071340 p s - i n c l u d e d - s l o t
0071360 s 5 8 p s - l o c a l - s l
0071400 o t s 5 3 a d d - i n i t i
0071420 a l - o f f s e t - s l o t s
0071440 4 6 p s - i n i t i a l - o f
0071460 f s e t 4 1 a d d - n a m e
0071500 - s l o t 3 5 p s - n a m e
0071520 d 3 0 % % s e t f - p s - i
0071540 n c l u d e d - s l o t s 2 7
0071560 m a p c a r 2 4 p s - i n
0071600 c l u d e d - s l o t s 2 0
0071620 s y m b o l - f u n c t i o n
0071640 1 3 % % s e t f - p s - l o c
0071660 a l - s l o t s 1 0 m a p c
0071700 a r 6 s y m b o l - f u n c
0071720 t i o n ) \r ( 1 1 7 p s l o t
0071740 - n a m e 1 7 p a r s e - s
0071760 l o t 3 p a r s e - s l o t
0072000 ) \r ( 1 4 2 " ~ s i s n
0072020 o t a d e f i n e d s t r
0072040 u c t u r e " 7 8 " C a n '
0072060 t i n c l u d e s l o t s
0072100 w h e n ~ s i n c l u d e s
0072120 n o s t r u c t u r e . " )
0072140 \r ( l e t * ( ( i l : a 1 4 0
0072160 8 ( q u o t e r e s o l v e
0072200 - s l o t s ) ) ( i l : a 1 4
0072220 0 9 ( q u o t e f u n c t i
0072240 o n ) ) ( i l : a 1 4 1 0 \r
0072260 " c o m b i n e s t h e s l
0072300 o t d e s c r i p t i o n s
0072320 f r o m t h e d e f s t r u
0072340 c t c a l l w i t h t h e
0072360 i n c l u d e d s l o t - d
0072400 e s c r i p t i o n s f r o m
0072420 s u p e r s a n d t h e
0072440 : i n c l u d e s o p t i o n
0072460 , a n d i n s t a l l s t
0072500 h e d e c r i p t i o n i n
0072520 t h e p a r s e d - s t r u
0072540 c t u r e " \r ) ) ( p r o g n
0072560 ( c o n d ( ( f b o u n d p
0072600 ( q u o t e i l : s e t - d
0072620 o c u m e n t a t i o n ) ) (
0072640 i l : s e t - d o c u m e n t a
0072660 t i o n i l : a 1 4 0 8 i l
0072700 : a 1 4 0 9 i l : a 1 4 1 0 \r
0072720 ) ) ) i l : a 1 4 1 0 ) ) \r a
0072740 d d - n a m e - s l o t i l :
0072760 d 1 \r ( i l : l ( 0 p s ) )
0073000 \0 % 002 \0 \0 001 @ \t \0 \0 264 032 \b \0 \0
0073020 277 @ 021 021 001 @ \t \0 \0 H \t \0 \0 032 271 H
0073040 I \n \0 \0 020 \t \0 \0 277 260 336 \0 ( 3 2
0073060 i l : a s s e r t - f a i l 2
0073100 8 % % s e t f - p s - l o c a
0073120 l - s l o t s 2 1 p s - l o
0073140 c a l - s l o t s 1 7 n a m
0073160 e - s l o t 8 v a l u e s
0073200 3 p s - n a m e d ) \r n i l \r
0073220 ( ) \r ( l e t * ( ( i l : a 1
0073240 4 1 4 ( q u o t e a d d - n
0073260 a m e - s l o t ) ) ( i l : a
0073300 1 4 1 5 ( q u o t e f u n c
0073320 t i o n ) ) ( i l : a 1 4 1 6
0073340 \r " a d d s t h e s l o t
0073360 r e p r e s e n t i n g t h
0073400 e n a m e p s e u d o - s l
0073420 o t . " ) ) ( p r o g n ( c
0073440 o n d ( ( f b o u n d p ( q
0073460 u o t e i l : s e t - d o c u
0073500 m e n t a t i o n \r ) ) ( i l
0073520 : s e t - d o c u m e n t a t i
0073540 o n i l : a 1 4 1 4 i l : a
0073560 1 4 1 5 i l : a 1 4 1 6 ) ) )
0073600 i l : a 1 4 1 6 ) ) \r i l : i
0073620 n s e r t - i n c l u d e d - s
0073640 l o t a 0 0 0 1 i l : d 1 \r (
0073660 i l : l ( 1 s l o t 2 0
0073700 s l o t 1 ) ) \0 \v \0 \0 \0 002 @ \t
0073720 \0 \0 A \t \0 \0 360 020 \0 ( 7 p s l o
0073740 t - n a m e 3 p s l o t - n
0073760 a m e ) \r n i l \r ( ) \r i n s e
0074000 r t - i n c l u d e d - s l o t
0074020 i l : d 1 \r ( i l : l ( 2
0074040 p s 1 s u p e r - s l o t s
0074060 0 n e w - s l o t ) ) \0 232
0074100 005 \0 \0 003 @ A g \0 \0 g \0 \0 \f \0 \0 021
0074120 A 004 H 001 271 H 257 o \0 \0 \0 @ \t \0 \0 B
0074140 \t \0 \0 \v \0 \0 277 I \t \0 \0 262 032 @ d \t
0074160 \0 \0 263 024 277 o \0 \0 \0 @ \t \0 \0 B \t \0
0074200 \0 \v \0 \0 277 @ \t \0 \0 I \t \0 \0 \n \0 \0
0074220 \t \0 \0 \ 001 273 L 002 001 272 K 263 > J 262 035
0074240 o \0 \0 \0 @ \t \0 \0 @ \t \0 \0 I \t \0 \0
0074260 l 004 g \0 \0 \t \0 \0 016 260 037 o \0 \0 \0 o
0074300 \0 \0 \0 @ \t \0 \0 @ \t \0 \0 I \t \0 \0 l
0074320 005 g \0 \0 \t \0 \0 016 277 H @ 030 020 \0 ( 1
0074340 4 6 s y m b o l - f u n c t i
0074360 o n 1 3 8 p s l o t - t y p
0074400 e 1 3 4 p s l o t - t y p e
0074420 1 3 0 p s l o t - n a m e
0074440 1 1 5 s y m b o l - f u n c t
0074460 i o n 1 0 7 p s l o t - t y
0074500 p e 1 0 3 p s l o t - t y p
0074520 e 9 9 p s l o t - n a m e
0074540 7 8 i l : \ \ m v l i s t 7
0074560 5 s u b t y p e p 7 2 p s
0074600 l o t - t y p e 6 8 p s l o
0074620 t - t y p e 6 3 e r r o r
0074640 6 0 p s - i n c l u d e 5 6
0074660 p s l o t - n a m e 4 5 p
0074700 s l o t - r e a d - o n l y 3
0074720 8 p s l o t - r e a d - o n l
0074740 y 3 3 e r r o r 3 0 p s
0074760 - i n c l u d e 2 6 p s l o
0075000 t - n a m e 1 0 m e m b e r
0075020 ) \r ( 1 4 3 c e r r o r 1 1
0075040 2 e r r o r 7 i l : i n s
0075060 e r t - i n c l u d e d - s l o
0075100 t a 0 0 0 1 4 : t e s t ) \r
0075120 ( 1 2 6 " P e r h a p s ,
0075140 I n c l u d e d s l o t ~ S
0075160 ' s t y p e ~ s i s n o
0075200 t a s u b t y p e o f o
0075220 r i g i n a l s l o t t y p
0075240 e ~ s " 1 2 2 " A s s u m
0075260 e s u b t y p e p s h o u l
0075300 d r e t u r n t " \r 9 5
0075320 " I n c l u d e d s l o t ~
0075340 S ' s t y p e ~ s i s n
0075360 o t a s u b t y p e o f
0075400 o r i g i n a l s l o t t y
0075420 p e ~ s " 5 2 " i n c l u
0075440 d e d s l o t ~ s m u s t
0075460 b e r e a d - o n l y .
0075500 I t i s i n i n c l u d e
0075520 d s t r u c t u r e ~ S " \r
0075540 2 2 " i n c l u d e d s l
0075560 o t ~ S n o t p r e s e n
0075600 t i n i n c l u d e d s t
0075620 r u c t u r e ~ S " ) \r ( l e
0075640 t * ( ( i l : a 1 4 1 9 ( q
0075660 u o t e i n s e r t - i n c l
0075700 u d e d - s l o t ) ) ( i l :
0075720 a 1 4 2 0 ( q u o t e f u n
0075740 c t i o n ) ) ( i l : a 1 4 2
0075760 1 \r " r e p l a c e s t h e
0076000 s l o t i n s u p e r - s
0076020 l o t s t h a t c o r r e s
0076040 p o n d s t o n e w - s l o
0076060 t w i t h n e w - s l o t "
0076100 ) ) ( p r o g n ( c o n d
0076120 ( ( f b o u n d p \r ( q u o t
0076140 e i l : s e t - d o c u m e n
0076160 t a t i o n ) ) ( i l : s e t
0076200 - d o c u m e n t a t i o n i
0076220 l : a 1 4 1 9 i l : a 1 4 2 0
0076240 i l : a 1 4 2 1 ) ) ) i l :
0076260 a 1 4 2 1 ) ) \r m e r g e - s l
0076300 o t s i l : d 1 \r ( i l : l
0076320 ( 2 p s 1 s u p e r - s l
0076340 o t s 0 i n c l u d e d - s
0076360 l o t s ) ) \0 026 001 \0 \0 003 @ 021 001
0076400 \0 H 265 004 A 020 001 A B \v \0 \0 277 H 002 X
0076420 260 362 \0 ( 1 4 i n s e r t - i n
0076440 c l u d e d - s l o t ) \r n i l
0076460 \r ( ) \r ( l e t * ( ( i l : a
0076500 1 4 2 3 ( q u o t e m e r g
0076520 e - s l o t s ) ) ( i l : a 1
0076540 4 2 4 ( q u o t e f u n c t
0076560 i o n ) ) ( i l : a 1 4 2 5
0076600 \r " t a k e s t h e i n c l
0076620 u d e d - s l o t s , a n d
0076640 t h e l o c a l s l o t s ,
0076660 t h e n m e r g e s t h e
0076700 m w i t h t h e s l o t s
0076720 f r o m t h e s u p e r
0076740 t h a t a r e n ' t s h a d
0076760 o w e d . " \r ) ) ( p r o g n
0077000 ( c o n d ( ( f b o u n d p
0077020 ( q u o t e i l : s e t - d
0077040 o c u m e n t a t i o n ) ) (
0077060 i l : s e t - d o c u m e n t a
0077100 t i o n i l : a 1 4 2 3 i l
0077120 : a 1 4 2 4 i l : a 1 4 2 5 \r
0077140 ) ) ) i l : a 1 4 2 5 ) ) \r n
0077160 a m e - s l o t i l : d 1 \r (
0077200 i l : l ( 0 p s ) ) \0 035 \0
0077220 \0 \0 001 o \0 \0 \0 \t \0 \0 g \0 \0 @ \t \0
0077240 \0 h 032 032 o \0 \0 \0 032 032 h \n \0 \0 020 \0
0077260 ( 2 6 p a r s e - s l o t 1
0077300 3 p s - n a m e 6 m a k e
0077320 - s y m b o l ) \r ( 9 q u o t
0077340 e ) \r ( 2 0 ( : r e a d - o
0077360 n l y t ) 3 " n a m e " )
0077400 \r ( l e t * ( ( i l : a 1 4 2
0077420 6 ( q u o t e n a m e - s l
0077440 o t ) ) ( i l : a 1 4 2 7 (
0077460 q u o t e f u n c t i o n ) )
0077500 ( i l : a 1 4 2 8 \r " r e t
0077520 u r n s a p a r s e d - s l
0077540 o t r e p r e s e n t i n g
0077560 t h e ' n a m e ' f i e l d
0077600 o f a s t r u c t u r e "
0077620 ) ) ( p r o g n ( c o n d
0077640 ( ( f b o u n d p ( q u o t e
0077660 \r i l : s e t - d o c u m e n
0077700 t a t i o n ) ) ( i l : s e t
0077720 - d o c u m e n t a t i o n i
0077740 l : a 1 4 2 6 i l : a 1 4 2 7
0077760 i l : a 1 4 2 8 ) ) ) i l :
0100000 a 1 4 2 8 ) ) \r a d d - i n i t
0100020 i a l - o f f s e t - s l o t s
0100040 i l : d 1 \r ( i l : l ( 0
0100060 p s ) ) \0 037 \0 \0 \0 001 @ d \t \0 \0
0100100 g \0 \0 o \0 \0 \0 h \n \0 \0 \v \0 \0 @ \t
0100120 \0 \0 \n \0 \0 \n \0 \0 020 \0 ( 2 8 % %
0100140 s e t f - p s - l o c a l - s l
0100160 o t s 2 5 i l : \ \ n c o n
0100200 c 2 2 2 p s - l o c a l - s
0100220 l o t s 1 8 m a k e - l i s
0100240 t 1 5 p a r s e - s l o t
0100260 4 p s - i n i t i a l - o f f
0100300 s e t ) \r ( 7 : i n i t i a l
0100320 - e l e m e n t ) \r ( 1 1 (
0100340 n i l n i l : r e a d - o n
0100360 l y t ) ) \r ( l e t * ( ( i
0100400 l : a 1 4 2 9 ( q u o t e a
0100420 d d - i n i t i a l - o f f s e
0100440 t - s l o t s ) ) ( i l : a 1
0100460 4 3 0 ( q u o t e f u n c t
0100500 i o n ) ) ( i l : a 1 4 3 1
0100520 \r " a d d s p a r s e d - s l
0100540 o t s t o t h e l o c a l
0100560 - s l o t s t o r e p r e s
0100600 e n t t h e i n i t i a l
0100620 o f f s e t . " ) ) ( p r o g
0100640 n ( c o n d ( ( f b o u n d
0100660 p ( \r q u o t e i l : s e t
0100700 - d o c u m e n t a t i o n ) )
0100720 ( i l : s e t - d o c u m e n
0100740 t a t i o n i l : a 1 4 2 9
0100760 i l : a 1 4 3 0 i l : a 1 4 3
0101000 1 ) ) ) i l : a 1 4 3 1 ) ) \r
0101020 p a c k - d a t a t y p e - f i
0101040 e l d s p e c s i l : d 1 \r (
0101060 i l : l ( 0 f i e l d - s p
0101100 e c s ) ) \0 003 \0 \0 \0 001 @ 020 \0 n
0101120 i l \r n i l \r ( ) \r ( l e t *
0101140 ( ( i l : a 1 4 3 2 ( q u o t
0101160 e p a c k - d a t a t y p e -
0101200 f i e l d s p e c s ) ) ( i l
0101220 : a 1 4 3 3 ( q u o t e f u
0101240 n c t i o n ) ) ( i l : a 1 4
0101260 3 4 " d u m m y " ) ) ( \r p
0101300 r o g n ( c o n d ( ( f b o
0101320 u n d p ( q u o t e i l : s
0101340 e t - d o c u m e n t a t i o n
0101360 ) ) ( i l : s e t - d o c u m
0101400 e n t a t i o n i l : a 1 4 3
0101420 2 i l : a 1 4 3 3 i l : a 1
0101440 4 3 4 ) ) \r ) i l : a 1 4 3 4
0101460 ) ) \r a s s i g n - s t r u c t
0101500 u r e - r e p r e s e n t a t i
0101520 o n i l : d 1 \r ( i l : l (
0101540 0 p s ) i l : f 7 * p a
0101560 r s e d - s t r u c t u r e s *
0101600 ) \0 236 \a 001 \0 001 @ \t \0 \0 021 a 006 H
0101620 g \0 \0 360 247 H d g \0 \0 360 225 277 @ \t \0
0101640 \0 020 g \0 \0 360 264 ~ g \0 \0 \t \0 \0 @ \t
0101660 \0 \0 \n \0 \0 271 @ \t \0 \0 264 034 @ \t \0 \0
0101700 W 016 \n \0 \0 002 265 \r o \0 \0 \0 @ \t \0 \0
0101720 \n \0 \0 \t \0 \0 I \n \0 \0 \t \0 \0 272 @ \t
0101740 \0 \0 273 @ J \n \0 \0 K J \n \0 \0 \ 001 275
0101760 L 002 276 @ N \n \0 \0 g \0 \0 g \0 \0 K h
0102000 032 032 g \0 \0 J h 032 032 g \0 \0 N h 032 032
0102020 M g \0 \0 @ \t \0 \0 h 032 032 h 032 032 032 032
0102040 032 032 h 032 020 \0 ( 1 4 3 p s - i n
0102060 c l u d e 1 1 1 a s s i g n
0102100 - f i e l d - d e s c r i p t o
0102120 r s 1 0 0 i l : t r a n s l
0102140 a t e . d a t a t y p e 9 5
0102160 % % s e t f - p s - f i e l d -
0102200 s p e c i f i e r s 8 9 p s
0102220 - n a m e 8 4 p a c k - d a
0102240 t a t y p e - f i e l d s p e c
0102260 s 8 1 a p p e n d 7 7 p
0102300 s - f i e l d - s p e c i f i e
0102320 r s 7 4 e r r o r 7 1 p
0102340 s - i n c l u d e 6 0 a s s
0102360 o c 5 5 p s - i n c l u d e
0102400 4 9 p s - i n c l u d e 4
0102420 4 m a p c a r 4 1 p s - l
0102440 o c a l - s l o t s 3 7 s y
0102460 m b o l - f u n c t i o n 2 4
0102500 a s s i g n - s l o t - o f f
0102520 s e t 3 p s - t y p e ) \r (
0102540 1 3 9 q u o t e 1 3 1 q u
0102560 o t e 1 2 4 q u o t e 1 1
0102600 7 q u o t e 1 1 4 s i : :
0102620 % s t r u c t u r e - d e c l a
0102640 r e - d a t a t y p e 3 4 d
0102660 e f s t r u c t - s l o t - t o
0102700 - d a t a t y p e - f i e l d s
0102720 p e c 2 8 d a t a t y p e
0102740 1 7 l i s t 1 0 v e c t o
0102760 r ) \r ( 6 7 " ~ s i s n
0103000 o t a d e f i n e d s t r
0103020 u c t u r e " ) \r ( l e t * (
0103040 ( i l : a 1 4 3 6 ( q u o t e
0103060 a s s i g n - s t r u c t u r
0103100 e - r e p r e s e n t a t i o n
0103120 ) ) ( i l : a 1 4 3 7 ( q u
0103140 o t e f u n c t i o n ) ) (
0103160 i l : a 1 4 3 8 \r " D e t e r
0103200 m i n e s t h e d e s c r i
0103220 p t o r s a n d r e t u r n
0103240 s a f o r m t o c r e a
0103260 t e t h e d a t a t y p e
0103300 a t l o a d t i m e . " ) )
0103320 ( p r o g n ( c o n d ( ( \r
0103340 f b o u n d p ( q u o t e i
0103360 l : s e t - d o c u m e n t a t
0103400 i o n ) ) ( i l : s e t - d o
0103420 c u m e n t a t i o n i l : a
0103440 1 4 3 6 i l : a 1 4 3 7 i l
0103460 : a 1 4 3 8 ) ) ) i l : a 1 4
0103500 3 8 ) ) \r d e f i n e - s t r u
0103520 c t u r e - t y p e i l : d 1
0103540 \r ( i l : l ( 0 p s ) ) \0
0103560 , 001 \0 \0 001 @ \t \0 \0 g \0 \0 360 264 " @
0103600 \t \0 \0 021 001 \0 g \0 \0 H h g \0 \0 g \0
0103620 \0 H h 032 032 h 032 032 h 032 032 032 032 h 032 020
0103640 \0 ( 1 3 p s - n a m e 3 p
0103660 s - t y p e ) \r ( 2 7 i l : d
0103700 a t a t y p e 2 4 q u o t e
0103720 1 9 d e f t y p e 6 d a
0103740 t a t y p e ) \r ( ) \r ( l e t *
0103760 ( ( i l : a 1 4 3 9 ( q u o
0104000 t e d e f i n e - s t r u c t
0104020 u r e - t y p e ) ) ( i l : a
0104040 1 4 4 0 ( q u o t e f u n c
0104060 t i o n ) ) ( i l : a 1 4 4 1
0104100 \r " a d d s t h e s t r u
0104120 c t u r e t o t h e c o m
0104140 m o n l i s p t y p e s y
0104160 s t e m w i t h d e f t y p
0104200 e . " ) ) ( p r o g n ( c o
0104220 n d ( ( f b o u n d p ( q u
0104240 o t e \r i l : s e t - d o c u
0104260 m e n t a t i o n ) ) ( i l :
0104300 s e t - d o c u m e n t a t i o
0104320 n i l : a 1 4 3 9 i l : a 1
0104340 4 4 0 i l : a 1 4 4 1 ) ) )
0104360 i l : a 1 4 4 1 ) ) \r d e f s t
0104400 r u c t - s l o t - t o - d a t
0104420 a t y p e - f i e l d s p e c
0104440 i l : d 1 \r ( i l : l ( 0 s
0104460 l o t ) ) \0 \t \0 \0 \0 001 @ \t \0 \0
0104500 \t \0 \0 020 \0 ( 6 % s t r u c t u
0104520 r e - t y p e - t o - f i e l d
0104540 s p e c 3 p s l o t - t y p
0104560 e ) \r n i l \r ( ) \r ( l e t *
0104600 ( ( i l : a 1 4 4 2 ( q u o t
0104620 e d e f s t r u c t - s l o t
0104640 - t o - d a t a t y p e - f i e
0104660 l d s p e c ) ) ( i l : a 1 4
0104700 4 3 ( q u o t e f u n c t i
0104720 o n ) ) ( i l : a 1 4 4 4 \r
0104740 " g i v e n a p a r s e d -
0104760 s l o t r e t u r n s a d
0105000 a t a t y p e f i e l d s p e
0105020 c t h a t w i l l c o n t
0105040 a i n i t . " ) ) ( p r o g
0105060 n ( c o n d ( ( f b o u n d
0105100 p ( \r q u o t e i l : s e t
0105120 - d o c u m e n t a t i o n ) )
0105140 ( i l : s e t - d o c u m e n
0105160 t a t i o n i l : a 1 4 4 2
0105200 i l : a 1 4 4 3 i l : a 1 4 4
0105220 4 ) ) ) i l : a 1 4 4 4 ) ) \r
0105240 % s t r u c t u r e - t y p e -
0105260 t o - f i e l d s p e c i l :
0105300 d 1 \r ( i l : l ( 0 e l e m
0105320 e n t t y p e ) ) \0 362 003 \0 \0 001
0105340 @ g \0 \0 360 244 @ d i 360 223 g \0 \0 020 g
0105360 \0 \0 360 223 g \0 \0 020 @ d g \0 \0 360 222 261
0105400 \0 253 d g \0 \0 360 224 o \0 \0 \0 020 d g \0
0105420 \0 360 222 261 \0 232 g \0 \0 360 246 @ d g \0 \0
0105440 360 223 g \0 \0 020 h 360 265 \a @ 003 264 003 i 001
0105460 g \0 \0 360 234 @ 002 001 g \0 \0 360 262 257 g \0
0105500 \0 020 @ h 360 265 \a @ 003 264 003 i 001 g \0 \0
0105520 360 262 ] @ d 002 002 002 263 W d 002 001 3 262
0105540 P d 002 002 001 3 262 H d 002 001 @ 002 002 001
0105560 375 361 262 = 002 001 021 ! 002 @ 002 002 001 Z H 325
0105600 271 H j 330 j 360 236 g \0 \0 I k 330 h 032 032
0105620 b \0 023 261 377 M o \0 \0 \0 H 361 222 261 377 N
0105640 J o \0 \0 \0 361 222 261 377 D g \0 \0 020 @ o
0105660 \0 \0 \0 \n \0 \0 222 261 377 4 @ \t \0 \0 021 001
0105700 \0 H 242 261 377 ( @ H \n \0 \0 b \0 023 261 377
0105720 022 \0 ( 2 3 4 i l : t y p e - e
0105740 x p a n d 2 2 1 i l : t y p
0105760 e - e x p a n d e r 2 1 3 e
0106000 q u a l ) \r ( 2 0 4 i l : f i
0106020 x p 1 6 9 m o d 1 1 1 i
0106040 n t e g e r 9 6 f l o a t p
0106060 9 0 f l o a t p 8 2 d a
0106100 t a t y p e 6 8 i l : f l o
0106120 a t p 6 3 f l o a t 5 6
0106140 s i n g l e - f l o a t 4 8
0106160 i l : x p o i n t e r 3 7 b
0106200 i t 2 8 i n t e g e r 2 2
0106220 i l : s i g n e d w o r d 1
0106240 7 f i x n u m 1 3 i l : p
0106260 o i n t e r 3 s t r i n g -
0106300 c h a r ) \r ( 2 1 0 ( s i m
0106320 p l e - v e c t o r * f i x
0106340 n u m ) 1 9 6 2 1 4 7 4 8 3
0106360 6 4 7 1 8 5 - 2 1 4 7 4 8 3
0106400 6 4 8 4 3 ( i l : b i t s
0106420 1 ) ) \r a s s i g n - f i e l d
0106440 - d e s c r i p t o r s i l :
0106460 d 1 \r ( i l : l ( 1 f i e l
0106500 d - d e s c r i p t o r s 0
0106520 p s ) ) \0 8 003 \0 \0 002 @ \t \0 \0 g
0106540 \0 \0 360 264 023 \b \0 \0 277 @ \t \0 \0 A 021 022
0106560 002 I 003 265 \t 213 \t \0 \0 277 260 341 001 272 H 003
0106600 265 004 h 020 001 J \n \0 \0 277 I 002 271 H 002 270
0106620 260 341 \0 ( 4 5 % % s e t f - p s
0106640 l o t - f i e l d - d e s c r i
0106660 p t o r 2 9 i l : a s s e r
0106700 t - f a i l 1 7 p s - a l l
0106720 - s l o t s 1 2 v a l u e s
0106740 3 p s - t y p e ) \r ( 6 d
0106760 a t a t y p e ) \r ( ) \r ( l e t
0107000 * ( ( i l : a 1 4 4 8 ( q u
0107020 o t e a s s i g n - f i e l d
0107040 - d e s c r i p t o r s ) ) (
0107060 i l : a 1 4 4 9 ( q u o t e
0107100 f u n c t i o n ) ) ( i l : a
0107120 1 4 5 0 \r " a s s i g n s t
0107140 h e f i e l d d e s c r i p
0107160 t o r s f o r a c c e s s i
0107200 n g e a c h s l o t o f
0107220 t h e s t r u c t u r e " ) )
0107240 ( p r o g n ( c o n d ( (
0107260 f b o u n d p ( \r q u o t e
0107300 i l : s e t - d o c u m e n t a
0107320 t i o n ) ) ( i l : s e t - d
0107340 o c u m e n t a t i o n i l :
0107360 a 1 4 4 8 i l : a 1 4 4 9 i
0107400 l : a 1 4 5 0 ) ) ) i l : a 1
0107420 4 5 0 ) ) \r i l : d e f i n e -
0107440 a c c e s s o r s a 0 0 0 1 i
0107460 l : d 1 \r ( i l : l ( 0 s l
0107500 o t ) i l : f 1 a r g - n
0107520 a m e i l : f 2 p s i l
0107540 : f 3 s t r u c t u r e - t
0107560 y p e ) \0 $ 001 003 \0 001 @ \t \0 \0 021
0107600 001 \0 H 264 032 R g \0 \0 \n \0 \0 H Q h 032
0107620 @ Q S \v \0 \0 h 032 032 032 032 h 032 020 \0 (
0107640 2 6 p s l o t - i n t e r n a
0107660 l - a c c e s s o r 1 6 f u
0107700 n c t i o n - d e f i n i n g -
0107720 f o r m 3 p s l o t - a c c
0107740 e s s o r ) \r ( 1 3 a c c e s
0107760 s o r s ) \r ( ) \r d e f i n e -
0110000 a c c e s s o r s i l : d 1 \r
0110020 ( i l : p 1 s t r u c t u r
0110040 e - t y p e i l : p 0 a r
0110060 g - n a m e i l : i 0 p s
0110100 ) \0 027 002 \0 \0 001 @ \t \0 \0 @ \t \0 \0
0110120 021 002 001 g \0 \0 @ \t \0 \0 \n \0 \0 020 \0 (
0110140 2 0 m a p c a n 1 7 p s -
0110160 a l l - s l o t s 7 p s - t
0110200 y p e 3 p s - n a m e ) \r (
0110220 1 3 i l : d e f i n e - a c c
0110240 e s s o r s a 0 0 0 1 ) \r ( ) \r
0110260 ( l e t * ( ( i l : a 1 4 5 1
0110300 ( q u o t e d e f i n e - a
0110320 c c e s s o r s ) ) ( i l : a
0110340 1 4 5 2 ( q u o t e f u n c
0110360 t i o n ) ) ( i l : a 1 4 5 3
0110400 \r " r e t u r n s t h e f
0110420 o r m s t h a t w h e n e
0110440 v a l u a t e d , d e f i n e
0110460 t h e a c c e s s o r s " )
0110500 ) ( p r o g n ( c o n d (
0110520 ( f b o u n d p ( q u o t e
0110540 \r i l : s e t - d o c u m e n t
0110560 a t i o n ) ) ( i l : s e t -
0110600 d o c u m e n t a t i o n i l
0110620 : a 1 4 5 1 i l : a 1 4 5 2
0110640 i l : a 1 4 5 3 ) ) ) i l : a
0110660 1 4 5 3 ) ) \r p s l o t - i n t
0110700 e r n a l - a c c e s s o r i
0110720 l : d 1 \r ( i l : l ( 3 n o
0110740 - t y p e - c h e c k 2 s t
0110760 r u c t u r e - t y p e 1 a
0111000 r g u m e n t 0 s l o t ) )
0111020 \0 Y 001 \0 \0 004 B 021 001 \0 H d g \0 \0
0111040 360 262 034 277 C 223 g \0 \0 202 g \0 \0 g \0 \0
0111060 @ \t \0 \0 h 032 032 A h 032 032 032 020 g \0 \0
0111100 360 234 g \0 \0 @ \t \0 \0 A h 032 032 032 020 H
0111120 g \0 \0 360 264 017 g \0 \0 A @ \t \0 \0 h 032
0111140 032 032 020 g \0 \0 H o \0 \0 \0 \f \0 \0 020 \0
0111160 ( 8 6 i l : e c a s e - f a i
0111200 l 7 0 p s l o t - f i e l d
0111220 - d e s c r i p t o r 4 9 p
0111240 s l o t - f i e l d - d e s c r
0111260 i p t o r 2 8 p s l o t - f
0111300 i e l d - d e s c r i p t o r )
0111320 \r ( 7 8 s t r u c t u r e - t
0111340 y p e 6 5 s v r e f 5 9
0111360 v e c t o r 4 5 n t h 4 0
0111400 l i s t 2 4 q u o t e 2
0111420 1 i l : f e t c h f i e l d
0111440 1 7 i l : f f e t c h f i e l
0111460 d 8 d a t a t y p e ) \r (
0111500 8 3 ( d a t a t y p e l i s
0111520 t v e c t o r ) ) \r ( l e t *
0111540 ( ( i l : a 1 4 5 5 ( q u o
0111560 t e p s l o t - i n t e r n a
0111600 l - a c c e s s o r ) ) ( i l
0111620 : a 1 4 5 6 ( q u o t e f u
0111640 n c t i o n ) ) ( i l : a 1 4
0111660 5 7 \r " r e t u r n s a f
0111700 o r m w h i c h f e t c h e
0111720 s s l o t f r o m a r g u
0111740 m e n t " ) ) ( p r o g n (
0111760 c o n d ( ( f b o u n d p (
0112000 q u o t e i l : s e t - d o c
0112020 u m e n t a t i o n \r ) ) ( i
0112040 l : s e t - d o c u m e n t a t
0112060 i o n i l : a 1 4 5 5 i l :
0112100 a 1 4 5 6 i l : a 1 4 5 7 ) )
0112120 ) i l : a 1 4 5 7 ) ) \r i l :
0112140 d e f i n e - s e t f s a 0 0 0
0112160 1 i l : d 1 \r ( i l : l ( 0
0112200 s l o t ) i l : f 2 a r
0112220 g - n a m e i l : f 3 p s
0112240 i l : f 4 s t r u c t u r
0112260 e - t y p e ) \0 D 002 003 \0 001 @ \t
0112300 \0 \0 021 021 001 H \t \0 \0 271 @ \t \0 \0 263 1
0112320 g \0 \0 H I h 032 032 032 S g \0 \0 \n \0 \0
0112340 I R o \0 \0 \0 032 g \0 \0 @ R T \v \0 \0
0112360 o \0 \0 \0 032 032 h 032 032 032 032 h 032 032 020 h
0112400 020 \0 ( 4 9 p s l o t - i n t e
0112420 r n a l - a c c e s s o r 3 3
0112440 f u n c t i o n - d e f i n i
0112460 n g - f o r m 1 5 p s l o t
0112500 - r e a d - o n l y 1 0 s e
0112520 t f - n a m e 3 p s l o t -
0112540 a c c e s s o r ) \r ( 4 3 s e
0112560 t f 3 0 s e t f s 2 0 d
0112600 e f s e t f ) \r ( 5 3 ( v a
0112620 l u e ) 3 9 ( v a l u e ) )
0112640 \r d e f i n e - s e t f s i l
0112660 : d 1 \r ( i l : p 1 s t r u
0112700 c t u r e - t y p e i l : p
0112720 0 a r g - n a m e i l : i
0112740 0 p s ) \0 027 002 \0 \0 001 @ \t \0 \0
0112760 @ \t \0 \0 021 002 001 g \0 \0 @ \t \0 \0 \n \0
0113000 \0 020 \0 ( 2 0 m a p c a n 1 7
0113020 p s - a l l - s l o t s 7
0113040 p s - t y p e 3 p s - n a m
0113060 e ) \r ( 1 3 i l : d e f i n e
0113100 - s e t f s a 0 0 0 1 ) \r ( ) \r
0113120 ( l e t * ( ( i l : a 1 4 5 8
0113140 ( q u o t e d e f i n e - s
0113160 e t f s ) ) ( i l : a 1 4 5 9
0113200 ( q u o t e f u n c t i o n
0113220 ) ) ( i l : a 1 4 6 0 \r " r
0113240 e t u r n s t h e f o r m s
0113260 t h a t w h e n e v a l u
0113300 a t e d , d e f i n e t h e
0113320 s e t f ' s f o r t h e
0113340 s l o t s . " ) ) ( p r o g n
0113360 ( c o n d ( ( f b o u n d p
0113400 ( \r q u o t e i l : s e t -
0113420 d o c u m e n t a t i o n ) )
0113440 ( i l : s e t - d o c u m e n t
0113460 a t i o n i l : a 1 4 5 8 i
0113500 l : a 1 4 5 9 i l : a 1 4 6 0
0113520 ) ) ) i l : a 1 4 6 0 ) ) \r s
0113540 e t f - n a m e i l : d 1 \r (
0113560 i l : l ( 0 a c c e s s o r
0113600 - n a m e ) ) \0 \f \0 \0 \0 001 g \0
0113620 \0 @ h 032 032 \t \0 \0 020 \0 ( 9 x c l
0113640 : p a c k ) \r ( 2 % % s e t f
0113660 - ) \r ( ) \r ( l e t * ( ( i l
0113700 : a 1 4 6 1 ( q u o t e s e
0113720 t f - n a m e ) ) ( i l : a 1
0113740 4 6 2 ( q u o t e f u n c t
0113760 i o n ) ) ( i l : a 1 4 6 3
0114000 \r " p r o d u c e s t h e n
0114020 a m e o f t h e s e t f
0114040 f u n c t i o n f o r t h i
0114060 s a c c e s s o r " ) ) ( p
0114100 r o g n ( c o n d ( ( f b o
0114120 u n d p ( q u o t e \r i l :
0114140 s e t - d o c u m e n t a t i o
0114160 n ) ) ( i l : s e t - d o c u
0114200 m e n t a t i o n i l : a 1 4
0114220 6 1 i l : a 1 4 6 2 i l : a
0114240 1 4 6 3 ) ) ) i l : a 1 4 6 3
0114260 ) ) \r d e f i n e - c o n s t r
0114300 u c t o r s i l : d 1 \r ( i l
0114320 : l ( 0 p s ) ) \0 213 \t \0 \0
0114340 001 @ \t \0 \0 021 Q 005 @ \t \0 \0 271 @ \t \0
0114360 \0 272 g \0 \0 \t \0 \0 H \n \0 \0 232 g \0 \0
0114400 \t \0 \0 H \n \0 \0 020 I \t \0 \0 I @ \n \0
0114420 \0 274 273 021 0 \b H 260 N d 001 ] \t \0 \0 225
0114440 M \t \0 \0 260 0 @ M \n \0 \0 277 @ g \0 \0
0114460 \n \0 \0 M g \0 \0 K 032 g \0 \0 J @ \t \0
0114500 \0 h 032 032 h 032 L J h 032 \n \0 \0 032 032 h
0114520 032 032 032 032 276 O 016 265 \b N h 032 _ 020 201 N
0114540 & _ 016 277 002 003 265 263 O 020 020 \0 ( 1 0 7
0114560 i l : \ \ a p p e n d 2 9 5
0114600 r a w - c o n s t r u c t o r
0114620 8 1 f u n c t i o n - d e f
0114640 i n i n g - f o r m 7 3 % %
0114660 s e t f - p s - s t a n d a r d
0114700 - c o n s t r u c t o r 6 6
0114720 d e f i n e - b o a - c o n s t
0114740 r u c t o r 6 1 b o a - c o
0114760 n s t r u c t o r - p 4 7 b
0115000 u i l d - c o n s t r u c t o r
0115020 - s l o t - s e t f s 4 2 b
0115040 u i l d - c o n s t r u c t o r
0115060 - a r g l i s t 3 7 m a p c
0115100 a r 3 3 s y m b o l - f u n
0115120 c t i o n 2 6 i l : % s i n
0115140 g l e - e v e r y 2 2 s y m
0115160 b o l - f u n c t i o n 1 5
0115200 p s - n a m e 1 0 p s - a l
0115220 l - s l o t s 3 p s - c o n
0115240 s t r u c t o r s ) \r ( 9 0 l
0115260 e t 8 5 & k e y 7 8 c o
0115300 n s t r u c t o r 3 0 d e f
0115320 i n e - b o a - c o n s t r u c
0115340 t o r 1 9 b o a - c o n s t
0115360 r u c t o r - p ) \r ( ) \r ( l e
0115400 t * ( ( i l : a 1 4 6 4 ( q
0115420 u o t e d e f i n e - c o n s
0115440 t r u c t o r s ) ) ( i l : a
0115460 1 4 6 5 ( q u o t e f u n c
0115500 t i o n ) ) ( i l : a 1 4 6 6
0115520 \r " r e t u r n s t h e f
0115540 o r m s t h a t w h e n e
0115560 v a l u a t e d , d e f i n e
0115600 t h e c o n s t r u c t o r
0115620 s " ) ) ( p r o g n ( c o n
0115640 d ( ( f b o u n d p ( q u o
0115660 t e \r i l : s e t - d o c u m
0115700 e n t a t i o n ) ) ( i l : s
0115720 e t - d o c u m e n t a t i o n
0115740 i l : a 1 4 6 4 i l : a 1 4
0115760 6 5 i l : a 1 4 6 6 ) ) ) i
0116000 l : a 1 4 6 6 ) ) \r c r e a t e
0116020 - b o a - c o n s t r u c t o r
0116040 i l : d 1 \r ( i l : l ( 1
0116060 p s 0 a r g l i s t ) i l
0116100 : f 2 r e s u l t - a r g
0116120 i l : f 3 a r g - l i s t
0116140 i l : f 4 c o n s t r u c t
0116160 o r - n a m e ) \0 7 002 003 \0 002 @
0116200 A \n \0 \0 R S \t \0 \0 A \v \0 \0 021 002 001
0116220 A g \0 \0 \n \0 \0 T H g \0 \0 R A \t \0
0116240 \0 h 032 032 h 032 I R h 032 \n \0 \0 032 032 h
0116260 032 032 032 032 020 \0 ( 4 5 i l : \ \ a
0116300 p p e n d 2 3 3 r a w - c o
0116320 n s t r u c t o r 2 3 f u n
0116340 c t i o n - d e f i n i n g - f
0116360 o r m 1 3 b o a - s l o t -
0116400 s e t f s 9 a r g u m e n t
0116420 - n a m e s 4 b o a - a r g
0116440 - l i s t - w i t h - i n i t i
0116460 a l - v a l u e s ) \r ( 2 8 l
0116500 e t 2 0 b o a - c o n s t r
0116520 u c t o r ) \r ( ) \r b o a - a r
0116540 g - l i s t - w i t h - i n i t
0116560 i a l - v a l u e s i l : d 1
0116600 \r ( i l : l ( 1 p s 0 a
0116620 r g - l i s t ) i l : f 1 1
0116640 l a m b d a - l i s t - k e y
0116660 w o r d s ) \0 257 \v 001 \0 002 @ \t \0
0116700 \0 A \t \0 \0 021 222 \n H Z 003 265 \n h 002 [
0116720 003 265 021 h 020 001 g \0 \0 : 222 J 260 362 J 002
0116740 260 351 001 275 W 026 \ 003 265 006 h 234 h 020 001 M
0116760 : 222 L 260 370 L 002 260 357 K 001 _ 024 277 K _
0117000 022 277 O 024 g \0 \0 360 263 344 O 024 d g \0 \0
0117020 360 222 277 260 331 _ 016 277 W 026 ^ 003 265 021 h 262
0117040 032 o \0 \0 \0 O 024 @ \v \0 \0 260 3 001 O 016
0117060 : 222 N 260 354 N 002 260 343 O 024 004 l 004 360 265
0117100 037 O 024 d 003 223 d 002 263 026 003 264 023 o \0 \0
0117120 \0 O 024 001 I \n \0 \0 \t \0 \0 h 032 032 _ 020
0117140 277 O 022 O 020 030 277 K 261 377 f \0 ( 1 5 7
0117160 p s - i n i t i a l - v a l u
0117200 e 1 5 4 f i n d - s l o t
0117220 1 0 9 e r r o r 7 p s - a
0117240 l l - s l o t s 3 c o p y -
0117260 t r e e ) \r ( 8 2 & a u x 7
0117300 3 & r e s t 2 7 & o p t i
0117320 o n a l ) \r ( 1 4 7 ( c a r
0117340 o p t i o n a l ) 1 0 3 "
0117360 ~ S c a n n o t a p p e a r
0117400 i n a B O A c o n s t r
0117420 u c t o r a s i t d o e s
0117440 i n ~ S . " ) \r i l : b o a
0117460 - s l o t - s e t f s a 0 0 0 1
0117500 i l : d 1 \r ( i l : l ( 0
0117520 n a m e ) i l : f 1 s l o
0117540 t s i l : f 2 r e s u l t
0117560 - a r g i l : f 3 s t r u
0117600 c t u r e - t y p e ) \0 032 001 003
0117620 \0 001 @ Q \n \0 \0 021 001 \0 g \0 \0 H R S
0117640 i \f \0 \0 o \0 \0 \0 032 032 020 \0 ( 1 7
0117660 p s l o t - i n t e r n a l - a
0117700 c c e s s o r 4 f i n d - s
0117720 l o t ) \r ( 1 0 s e t f ) \r (
0117740 2 1 ( n a m e ) ) \r b o a -
0117760 s l o t - s e t f s i l : d 1
0120000 \r ( i l : l ( 2 p s 1 s
0120020 l o t - n a m e s ) i l : p
0120040 1 s t r u c t u r e - t y p e
0120060 i l : p 0 s l o t s i l
0120100 : i 0 r e s u l t - a r g )
0120120 \0 024 002 \0 \0 003 B \t \0 \0 B \t \0 \0 021
0120140 002 001 g \0 \0 A \n \0 \0 020 \0 ( 1 7 m
0120160 a p c a r 7 p s - t y p e
0120200 3 p s - a l l - s l o t s ) \r
0120220 ( 1 3 i l : b o a - s l o t -
0120240 s e t f s a 0 0 0 1 ) \r ( ) \r f
0120260 i n d - s l o t i l : d 1 \r (
0120300 i l : l ( 2 d o n t - e r r
0120320 o r 1 s l o t s 0 n a m
0120340 e ) ) \0 & 002 \0 \0 003 A 021 021 001 H 265
0120360 \b 023 B 262 023 h 020 001 271 @ I \t \0 \0 360 263
0120400 362 H 002 X 260 353 o \0 \0 \0 @ \n \0 \0 020 \0
0120420 ( 3 5 e r r o r 1 9 p s l
0120440 o t - n a m e ) \r n i l \r ( 3
0120460 1 " s l o t ~ s n o t f
0120500 o u n d . " ) \r r a w - c o n s
0120520 t r u c t o r i l : d 1 \r ( i
0120540 l : l ( 0 p s ) ) \0 h 001 \0
0120560 \0 001 @ \t \0 \0 021 001 \0 H d g \0 \0 360 262
0120600 024 277 g \0 \0 g \0 \0 @ \t \0 \0 h 032 032 h
0120620 032 032 020 g \0 \0 360 232 g \0 \0 @ \t \0 \0 h
0120640 032 032 020 H g \0 \0 360 264 $ g \0 \0 g \0 \0
0120660 @ \t \0 \0 h 032 h 032 032 g \0 \0 g \0 \0 @
0120700 \t \0 \0 h 032 032 h 032 032 032 032 020 o \0 \0 \0
0120720 H o \0 \0 \0 \f \0 \0 020 \0 ( 1 0 1 i
0120740 l : e c a s e - f a i l 8 0
0120760 p s - v e c t o r - t y p e 6
0121000 5 p s - n u m b e r - o f - s
0121020 l o t s 4 4 p s - n u m b e
0121040 r - o f - s l o t s 2 5 p s
0121060 - n a m e 3 p s - t y p e )
0121100 \r ( 7 6 q u o t e 7 3 : e
0121120 l e m e n t - t y p e 6 1 q
0121140 u o t e 5 8 m a k e - a r r
0121160 a y 5 2 v e c t o r 4 0
0121200 m a k e - l i s t 3 5 l i s
0121220 t 2 1 q u o t e 1 8 i l
0121240 : n c r e a t e 1 1 d a t a
0121260 t y p e ) \r ( 9 8 ( d a t a
0121300 t y p e l i s t v e c t o r
0121320 ) 9 3 ( p s - t y p e p s
0121340 ) ) \r ( l e t * ( ( i l : a 1
0121360 4 6 9 ( q u o t e r a w - c
0121400 o n s t r u c t o r ) ) ( i l
0121420 : a 1 4 7 0 ( q u o t e f u
0121440 n c t i o n ) ) ( i l : a 1 4
0121460 7 1 \r " r e t u r n s a f
0121500 o r m w h i c h w i l l m
0121520 a k e a n i n s t a n c e
0121540 o f t h i s s t r u c t u r
0121560 e w / o i n i t i a l i s a
0121600 t i o n " ) ) ( p r o g n (
0121620 c o n d ( ( \r f b o u n d p
0121640 ( q u o t e i l : s e t - d o
0121660 c u m e n t a t i o n ) ) ( i
0121700 l : s e t - d o c u m e n t a t
0121720 i o n i l : a 1 4 6 9 i l :
0121740 a 1 4 7 0 i l : a 1 4 7 1 ) )
0121760 ) i l : a 1 4 7 1 ) ) \r i l :
0122000 b u i l d - c o n s t r u c t o
0122020 r - a r g l i s t a 0 0 0 1 i
0122040 l : d 1 \r ( i l : l ( 0 s l
0122060 o t ) ) \0 ! 002 \0 \0 001 @ \t \0 \0 @
0122100 \t \0 \0 021 002 001 @ \t \0 \0 241 h 020 H 227 I
0122120 H h 032 032 h 032 020 I h 032 020 \0 ( 1 4
0122140 p s l o t - a c c e s s o r 7
0122160 p s l o t - n a m e 3 p s
0122200 l o t - i n i t i a l - v a l u
0122220 e ) \r n i l \r ( ) \r b u i l d -
0122240 c o n s t r u c t o r - a r g l
0122260 i s t i l : d 1 \r ( i l : l
0122300 ( 0 s l o t s ) ) \0 \t \0 \0 \0
0122320 001 g \0 \0 @ \n \0 \0 020 \0 ( 6 m a p
0122340 c a n ) \r ( 2 i l : b u i l d
0122360 - c o n s t r u c t o r - a r g
0122400 l i s t a 0 0 0 1 ) \r ( ) \r ( l
0122420 e t * ( ( i l : a 1 4 7 2 (
0122440 q u o t e b u i l d - c o n s
0122460 t r u c t o r - a r g l i s t )
0122500 ) ( i l : a 1 4 7 3 ( q u o
0122520 t e f u n c t i o n ) ) ( i
0122540 l : a 1 4 7 4 \r " g a t h e r
0122560 s t h e k e y w o r d s a
0122600 n d i n i t i a l - v a l u e
0122620 s f o r ( n o n B O A )
0122640 c o n s t r u c t o r s " ) )
0122660 ( p r o g n ( c o n d ( ( f
0122700 b o u n d p ( q u o t e \r i
0122720 l : s e t - d o c u m e n t a t
0122740 i o n ) ) ( i l : s e t - d o
0122760 c u m e n t a t i o n i l : a
0123000 1 4 7 2 i l : a 1 4 7 3 i l
0123020 : a 1 4 7 4 ) ) ) i l : a 1 4
0123040 7 4 ) ) \r i l : b u i l d - c o
0123060 n s t r u c t o r - s l o t - s
0123100 e t f s a 0 0 0 1 i l : d 1 \r
0123120 ( i l : l ( 0 s l o t ) i
0123140 l : f 1 o b j e c t - n a m
0123160 e i l : f 2 s t r u c t u
0123200 r e - t y p e ) \0 2 001 002 \0 001 @
0123220 d \t \0 \0 263 026 277 g \0 \0 @ Q R i \f \0
0123240 \0 @ \t \0 \0 h 032 032 032 020 \t \0 \0 021 001 \0
0123260 g \0 \0 @ Q R i \f \0 \0 H h 032 032 032 020
0123300 \0 ( 4 2 p s l o t - i n t e r
0123320 n a l - a c c e s s o r 2 9
0123340 p s l o t - n a m e 2 1 p s
0123360 l o t - i n i t i a l - v a l u
0123400 e 1 7 p s l o t - i n t e r
0123420 n a l - a c c e s s o r 4 p
0123440 s l o t - a c c e s s o r ) \r (
0123460 3 5 s e t f 1 0 s e t f )
0123500 \r ( ) \r b u i l d - c o n s t r
0123520 u c t o r - s l o t - s e t f s
0123540 i l : d 1 \r ( i l : l ( 1
0123560 p s 0 s l o t s ) i l : p
0123600 1 o b j e c t - n a m e i
0123620 l : p 0 s t r u c t u r e -
0123640 t y p e ) \0 024 002 \0 \0 002 A \t \0 \0
0123660 A \t \0 \0 021 002 001 g \0 \0 @ \n \0 \0 020 \0
0123700 ( 1 7 m a p c a r 7 p s -
0123720 n a m e 3 p s - t y p e ) \r
0123740 ( 1 3 i l : b u i l d - c o n
0123760 s t r u c t o r - s l o t - s e
0124000 t f s a 0 0 0 1 ) \r ( ) \r ( l e
0124020 t * ( ( i l : a 1 4 7 5 ( q
0124040 u o t e b u i l d - c o n s t
0124060 r u c t o r - s l o t - s e t f
0124100 s ) ) ( i l : a 1 4 7 6 ( q
0124120 u o t e f u n c t i o n ) )
0124140 ( i l : a 1 4 7 7 \r " b u i l
0124160 d s t h e s e t f s t h a
0124200 t i n i t i a l i z e t h e
0124220 s l o t s i n a c o n s
0124240 t r u c t o r " ) ) ( p r o g
0124260 n ( c o n d ( ( f b o u n d
0124300 p ( q u o t e \r i l : s e t
0124320 - d o c u m e n t a t i o n ) )
0124340 ( i l : s e t - d o c u m e n
0124360 t a t i o n i l : a 1 4 7 5
0124400 i l : a 1 4 7 6 i l : a 1 4 7
0124420 7 ) ) ) i l : a 1 4 7 7 ) ) \r
0124440 b o a - c o n s t r u c t o r -
0124460 p i l : d 1 \r ( i l : l ( 0
0124500 c o n s t r u c t o r ) ) \0
0124520 \a \0 \0 \0 001 @ 003 264 003 i 020 \0 n i l \r
0124540 n i l \r ( ) \r ( l e t * ( ( i
0124560 l : a 1 4 7 8 ( q u o t e b
0124600 o a - c o n s t r u c t o r - p
0124620 ) ) ( i l : a 1 4 7 9 ( q u
0124640 o t e f u n c t i o n ) ) (
0124660 i l : a 1 4 8 0 \r " r e t u r
0124700 n s t i f t h e c o n s
0124720 t r u c t o r i s a B y
0124740 O r d e r o f A r g u m e n
0124760 t s c o n s t r u c t o r " )
0125000 ) ( p r o g n ( c o n d (
0125020 ( f b o u n d p ( q u o t e
0125040 \r i l : s e t - d o c u m e n t
0125060 a t i o n ) ) ( i l : s e t -
0125100 d o c u m e n t a t i o n i l
0125120 : a 1 4 7 8 i l : a 1 4 7 9
0125140 i l : a 1 4 8 0 ) ) ) i l : a
0125160 1 4 8 0 ) ) \r d e f a u l t - c
0125200 o n s t r u c t o r - n a m e
0125220 i l : d 1 \r ( i l : l ( 0 s
0125240 t r u c t u r e - n a m e ) )
0125260 \0 \f \0 \0 \0 001 g \0 \0 @ h 032 032 \t \0 \0
0125300 020 \0 ( 9 x c l : p a c k ) \r (
0125320 2 m a k e - ) \r ( ) \r c o n s
0125340 t r u c t - p r e d i c a t e
0125360 i l : d 1 \r ( i l : l ( 0 p
0125400 s ) ) \0 203 002 \0 \0 001 @ \t \0 \0 021 021
0125420 001 H 264 y @ d \t \0 \0 g \0 \0 360 262 024 277
0125440 g \0 \0 g \0 \0 g \0 \0 @ \t \0 \0 h 032 260
0125460 B \t \0 \0 254 o \0 \0 \0 H @ \t \0 \0 \v \0
0125500 \0 277 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g
0125520 \0 \0 @ \t \0 \0 o \0 \0 \0 032 032 @ \t \0 \0
0125540 h 032 032 032 g \0 \0 @ \t \0 \0 h 032 032 h 032
0125560 032 032 h 032 032 032 271 @ g \0 \0 \n \0 \0 H o
0125600 \0 \0 \0 I h 032 032 032 032 h 032 020 \0 ( 1 1
0125620 5 f u n c t i o n - d e f i n
0125640 i n g - f o r m 9 6 p s - n
0125660 a m e 8 5 p s - n a m e - s
0125700 l o t - p o s i t i o n 7 5
0125720 p s - t y p e - s p e c i f i e
0125740 r 5 4 e r r o r 5 1 p s
0125760 - n a m e 4 1 p s - n a m e
0126000 d 3 4 p s - n a m e 1 4
0126020 p s - t y p e 3 p s - p r e
0126040 d i c a t e ) \r ( 1 1 2 p r e
0126060 d i c a t e 9 2 q u o t e
0126100 7 1 t h e 6 8 e l t 6 5
0126120 e q 5 8 a n d 3 0 q u
0126140 o t e 2 7 o b j e c t 2 4
0126160 t y p e p 1 7 d a t a t y
0126200 p e ) \r ( 1 2 0 ( o b j e c
0126220 t ) 7 9 ( o b j e c t ) 6
0126240 2 ( t y p e p o b j e c t
0126260 ( q u o t e s e q u e n c e )
0126300 ) 4 6 " T h e p r e d i c
0126320 a t e ~ s m a y n o t b
0126340 e s p e c i f i e d f o r
0126360 ~ s b e c a u s e i t i s
0126400 n o t : n a m e ' d " ) \r (
0126420 l e t * ( ( i l : a 1 4 8 1
0126440 ( q u o t e c o n s t r u c t
0126460 - p r e d i c a t e ) ) ( i l
0126500 : a 1 4 8 2 ( q u o t e f u
0126520 n c t i o n ) ) ( i l : a 1 4
0126540 8 3 \r " r e t u r n s a l
0126560 i s t o f t h e f o r m s
0126600 ( i f a n y ) d e f i n i
0126620 n g t h e p r e d i c a t e
0126640 f o r p s " ) ) ( p r o g
0126660 n ( c o n d ( ( f b o u n d
0126700 p ( q u o t e \r i l : s e t
0126720 - d o c u m e n t a t i o n ) )
0126740 ( i l : s e t - d o c u m e n
0126760 t a t i o n i l : a 1 4 8 1
0127000 i l : a 1 4 8 2 i l : a 1 4 8
0127020 3 ) ) ) i l : a 1 4 8 3 ) ) \r
0127040 p s - n a m e - s l o t - p o s
0127060 i t i o n i l : d 1 \r ( i l :
0127100 l ( 0 p s ) i l : f 2
0127120 * p a r s e d - s t r u c t u r
0127140 e s * ) \0 ) 002 001 \0 001 @ \t \0 \0 021
0127160 021 001 H d 262 024 R \n \0 \0 002 265 \n o \0 \0
0127200 \0 H \n \0 \0 \t \0 \0 271 @ \t \0 \0 I \t \0
0127220 \0 324 020 \0 ( 3 7 l e n g t h 3
0127240 3 p s - i n i t i a l - o f f
0127260 s e t 2 8 p s - a l l - s l
0127300 o t s 2 5 e r r o r 1 4
0127320 a s s o c 3 p s - i n c l u
0127340 d e ) \r n i l \r ( 2 1 " ~ s
0127360 i s n o t a d e f i n e
0127400 d s t r u c t u r e " ) \r ( l
0127420 e t * ( ( i l : a 1 4 8 4 (
0127440 q u o t e p s - n a m e - s l
0127460 o t - p o s i t i o n ) ) ( i
0127500 l : a 1 4 8 5 ( q u o t e f
0127520 u n c t i o n ) ) ( i l : a 1
0127540 4 8 6 \r " r e t u r n s t h
0127560 e o f f s e t o f t h e
0127600 n a m e s l o t f o r p s
0127620 . " ) ) ( p r o g n ( c o n
0127640 d ( ( f b o u n d p ( q u o
0127660 t e i l : s e t - d o c u m e
0127700 n t a t i o n ) ) ( \r i l : s
0127720 e t - d o c u m e n t a t i o n
0127740 i l : a 1 4 8 4 i l : a 1 4
0127760 8 5 i l : a 1 4 8 6 ) ) ) i
0130000 l : a 1 4 8 6 ) ) \r d e f a u l
0130020 t - p r e d i c a t e - n a m e
0130040 i l : d 1 \r ( i l : l ( 0
0130060 s t r u c t u r e - n a m e ) )
0130100 \0 \f \0 \0 \0 001 @ g \0 \0 h 032 032 \t \0
0130120 \0 020 \0 ( 9 x c l : p a c k ) \r
0130140 ( 3 - p ) \r ( ) \r f u n c t i
0130160 o n - d e f i n i n g - f o r m
0130200 i l : d 1 \r ( i l : l ( 1
0130220 c o n t e x t 0 p s ) ) \0
0130240 005 \0 \0 \0 002 g \0 \0 020 \0 n i l \r ( 2
0130260 d e f u n ) \r ( ) \r ( l e t *
0130300 ( ( i l : a 1 4 8 7 ( q u o
0130320 t e f u n c t i o n - d e f i
0130340 n i n g - f o r m ) ) ( i l :
0130360 a 1 4 8 8 ( q u o t e f u n
0130400 c t i o n ) ) ( i l : a 1 4 8
0130420 9 \r " d u m m y d e f i n i
0130440 t i o n f o r n o w , f o
0130460 r d e c i d i n g i f a
0130500 f u n c t i o n s h o u l d
0130520 b e i n l i n e o r n o t
0130540 " ) ) ( p r o g n ( c o n d
0130560 ( ( \r f b o u n d p ( q u o
0130600 t e i l : s e t - d o c u m e
0130620 n t a t i o n ) ) ( i l : s e
0130640 t - d o c u m e n t a t i o n
0130660 i l : a 1 4 8 7 i l : a 1 4 8
0130700 8 i l : a 1 4 8 9 ) ) ) i l
0130720 : a 1 4 8 9 ) ) \r d e f i n e -
0130740 c o p i e r s i l : d 1 \r ( i
0130760 l : l ( 0 p s ) ) \0 a \a \0
0131000 \0 001 @ \t \0 \0 g \0 \0 @ \t \0 \0 021 C 006
0131020 H 264 P @ J \n \0 \0 \t \0 \0 [ 001 274 K 002
0131040 001 275 @ \t \0 \0 @ \t \0 \0 J I M \r 005 \0
0131060 \0 276 @ g \0 \0 \n \0 \0 @ \t \0 \0 J h 032
0131100 L g \0 \0 I @ \t \0 \0 h 032 032 h 032 N I
0131120 h 032 \n \0 \0 032 032 h 032 \n \0 \0 032 032 032 h
0131140 032 020 \0 ( 8 9 i l : \ \ a p p e
0131160 n d 2 8 2 i l : \ \ a p p e
0131200 n d 2 7 0 r a w - c o n s t
0131220 r u c t o r 5 8 p s - c o p
0131240 i e r 5 4 f u n c t i o n -
0131260 d e f i n i n g - f o r m 4 6
0131300 b u i l d - c o p i e r - s l
0131320 o t - s e t f s 3 9 p s - t
0131340 y p e 3 5 p s - a l l - s l
0131360 o t s 2 4 i l : \ \ m v l i
0131400 s t 2 1 b u i l d - c o p i
0131420 e r - t y p e - c h e c k 1 0
0131440 p s - n a m e 3 p s - c o
0131460 p i e r ) \r ( 6 5 l e t 5 1
0131500 c o p i e r s 6 n e w ) \r
0131520 ( ) \r ( l e t * ( ( i l : a 1
0131540 4 9 0 ( q u o t e d e f i n
0131560 e - c o p i e r s ) ) ( i l :
0131600 a 1 4 9 1 ( q u o t e f u n
0131620 c t i o n ) ) ( i l : a 1 4 9
0131640 2 \r " r e t u r n s t h e
0131660 f o r m t h a t w h e n e
0131700 v a l u a t e d , d e f i n e
0131720 s t h e c o p i e r " ) )
0131740 ( p r o g n ( c o n d ( ( f
0131760 b o u n d p ( q u o t e \r i
0132000 l : s e t - d o c u m e n t a t
0132020 i o n ) ) ( i l : s e t - d o
0132040 c u m e n t a t i o n i l : a
0132060 1 4 9 0 i l : a 1 4 9 1 i l
0132100 : a 1 4 9 2 ) ) ) i l : a 1 4
0132120 9 2 ) ) \r i l : b u i l d - c o
0132140 p i e r - s l o t - s e t f s a
0132160 0 0 0 1 i l : d 1 \r ( i l : l
0132200 ( 0 s l o t ) i l : f 0
0132220 s t r u c t u r e - t y p e
0132240 i l : f 1 t o - a r g u m e
0132260 n t i l : f 2 f r o m - a
0132300 r g u m e n t ) \0 027 \0 003 \0 001 g
0132320 \0 \0 @ Q P i \f \0 \0 @ R P i \f \0 \0
0132340 h 032 032 032 020 \0 ( 1 6 p s l o t -
0132360 i n t e r n a l - a c c e s s o
0132400 r 9 p s l o t - i n t e r n
0132420 a l - a c c e s s o r ) \r ( 2
0132440 s e t f ) \r ( ) \r b u i l d - c
0132460 o p i e r - s l o t - s e t f s
0132500 i l : d 1 \r ( i l : l ( 4
0132520 t y p e - c h e c k - s l o t s
0132540 ? 0 s l o t s ) i l : i
0132560 3 t o - a r g u m e n t i l
0132600 : i 2 f r o m - a r g u m e
0132620 n t i l : i 1 s t r u c t
0132640 u r e - t y p e ) \0 \t \0 \0 \0 005
0132660 g \0 \0 @ \n \0 \0 020 \0 ( 6 m a p c
0132700 a r ) \r ( 2 i l : b u i l d -
0132720 c o p i e r - s l o t - s e t f
0132740 s a 0 0 0 1 ) \r ( ) \r ( l e t *
0132760 ( ( i l : a 1 4 9 3 ( q u o
0133000 t e b u i l d - c o p i e r -
0133020 s l o t - s e t f s ) ) ( i l
0133040 : a 1 4 9 4 ( q u o t e f u
0133060 n c t i o n ) ) ( i l : a 1 4
0133100 9 5 \r " c o n s t r u c t s
0133120 t h e f o r m s t h a t c
0133140 o p y e a c h i n d i v i d
0133160 u a l s l o t . " ) ) ( p r
0133200 o g n ( c o n d ( ( f b o u
0133220 n d p ( q u o t e \r i l : s
0133240 e t - d o c u m e n t a t i o n
0133260 ) ) ( i l : s e t - d o c u m
0133300 e n t a t i o n i l : a 1 4 9
0133320 3 i l : a 1 4 9 4 i l : a 1
0133340 4 9 5 ) ) ) i l : a 1 4 9 5 )
0133360 ) \r b u i l d - c o p i e r - t
0133400 y p e - c h e c k i l : d 1 \r
0133420 ( i l : l ( 1 f r o m - a r
0133440 g 0 p s ) i l : f 0 t
0133460 y p e - c h e c k - f o r m )
0133500 \0 V \0 001 \0 002 @ d \t \0 \0 g \0 \0 360 262
0133520 026 277 g \0 \0 A @ \t \0 \0 h 032 032 032 h 032
0133540 h \n \0 \0 020 \t \0 \0 264 . g \0 \0 @ \t \0
0133560 \0 A h 032 032 g \0 \0 h o \0 \0 \0 @ \t \0
0133600 \0 \v \0 \0 A h 032 032 032 h 032 032 032 h 032 h
0133620 \n \0 \0 c \0 020 i \n \0 \0 020 \0 ( 8 3
0133640 v a l u e s 7 6 v a l u e s
0133660 6 1 f o r m a t 5 8 p s
0133700 - n a m e 4 2 p s - p r e d
0133720 i c a t e 3 3 p s - p r e d
0133740 i c a t e 2 9 v a l u e s
0133760 1 9 p s - n a m e 4 p s -
0134000 t y p e ) \r ( 4 9 e r r o r
0134020 3 8 o r 1 4 c h e c k - t
0134040 y p e 7 d a t a t y p e ) \r
0134060 ( 5 4 " A r g n o t ~ s
0134100 : ~ ~ S " ) \r ( l e t * ( (
0134120 i l : a 1 4 9 6 ( q u o t e
0134140 b u i l d - c o p i e r - t y p
0134160 e - c h e c k ) ) ( i l : a 1
0134200 4 9 7 ( q u o t e f u n c t
0134220 i o n ) ) ( i l : a 1 4 9 8
0134240 \r " c o n s t r u c t s t h e
0134260 t y p e c h e c k i n g f
0134300 o r m a t t h e b e g i n
0134320 n i n g o f t h e c o p i
0134340 e r a n d d e c i d e s w
0134360 h e t h e r i n d i v i d u a
0134400 l s l o t s n e e d t o
0134420 b e t y p e - c h e c k e d .
0134440 " \r ) ) ( p r o g n ( c o n
0134460 d ( ( f b o u n d p ( q u o
0134500 t e i l : s e t - d o c u m e
0134520 n t a t i o n ) ) ( i l : s e
0134540 t - d o c u m e n t a t i o n
0134560 i l : a 1 4 9 6 i l : a 1 4 9
0134600 7 i l : a 1 4 9 8 \r ) ) ) i
0134620 l : a 1 4 9 8 ) ) \r r e c o r d
0134640 - p r i n t - f u n c t i o n
0134660 i l : d 1 \r ( i l : l ( 0 p
0134700 s ) ) \0 & 001 \0 \0 001 @ \t \0 \0 021 001
0134720 \0 H 264 034 g \0 \0 g \0 \0 @ \t \0 \0 h 032
0134740 032 g \0 \0 H h 032 032 h 032 032 032 h 032 020 \0
0134760 ( 1 9 p s - n a m e 3 p s
0135000 - p r i n t - f u n c t i o n )
0135020 \r ( 2 5 q u o t e 1 5 q u
0135040 o t e 1 2 i l : d e f p r i
0135060 n t ) \r ( ) \r ( l e t * ( ( i
0135100 l : a 1 4 9 9 ( q u o t e r
0135120 e c o r d - p r i n t - f u n c
0135140 t i o n ) ) ( i l : a 1 5 0 0
0135160 ( q u o t e f u n c t i o n
0135200 ) ) ( i l : a 1 5 0 1 \r " r
0135220 e t u r n s a l i s t o f
0135240 t h e f o r m s ( i f a
0135260 n y ) r e c o r d i n g t h
0135300 e p r i n t - f u n c t i o n
0135320 . " ) ) ( p r o g n ( c o n
0135340 d ( ( f b o u n d p ( q u o
0135360 t e \r i l : s e t - d o c u m
0135400 e n t a t i o n ) ) ( i l : s
0135420 e t - d o c u m e n t a t i o n
0135440 i l : a 1 4 9 9 i l : a 1 5
0135460 0 0 i l : a 1 5 0 1 ) ) ) i
0135500 l : a 1 5 0 1 ) ) \r ( r e m p r
0135520 o p ( q u o t e i l : f f e
0135540 t c h f i e l d ) ( q u o t e
0135560 i l : s e t f - m e t h o d -
0135600 e x p a n d e r ) ) \r ( i l : p
0135620 u t p r o p s i l : f f e t c
0135640 h f i e l d i l : s e t f - i
0135660 n v e r s e i l : r e p l a c
0135700 e f i e l d ) \r s a f e - t y p
0135720 e - e x p a n d i l : d 1 \r (
0135740 i l : l ( 0 t y p e - f o r
0135760 m ) ) \0 022 001 \0 \0 001 @ \t \0 \0 021 001
0136000 \0 H 225 @ H \n \0 \0 020 @ 020 \0 ( 1 3
0136020 t y p e - e x p a n d 3 t y
0136040 p e - e x p a n d e r ) \r n i l
0136060 \r ( ) \r | e x p a n d - D E F S
0136100 T R U C T - A S S E R T - S U B
0136120 T Y P E P | i l : d 1 \r ( i l
0136140 : l ( 1 i l : $ $ m a c r o
0136160 - e n v i r o n m e n t 0 i
0136200 l : $ $ m a c r o - f o r m ) )
0136220 \0 217 \n \0 \0 002 @ 002 021 221 \t H 001 271 H
0136240 002 Z 001 273 J 002 001 \ 001 275 L 002 276 J 002 002
0136260 _ 016 277 M 265 006 o \0 \0 \0 N 265 \a I K h
0136300 032 032 _ 022 277 _ 020 277 g \0 \0 o \0 \0 \0 g
0136320 \0 \0 I K h 032 032 032 g \0 \0 o \0 \0 \0 g
0136340 \0 \0 g \0 \0 o \0 \0 \0 O 020 O 022 032 032 032
0136360 h 032 032 i g \0 \0 o \0 \0 \0 o \0 \0 \0 h
0136400 o \0 \0 \0 O 020 \v \0 \0 O 022 032 032 032 032 O
0136420 016 o \0 \0 \0 \n \0 \0 032 032 h 032 032 032 032 h
0136440 032 032 032 032 020 \0 ( 1 2 8 i l : \ \
0136460 a p p e n d 2 1 1 3 f o r m
0136500 a t ) \r ( 9 5 f u n c a l l
0136520 7 7 f u n c a l l 7 4 c e
0136540 r t a i n ? 6 7 c o n d 5
0136560 8 s u b t y p e p 5 1 m u
0136600 l t i p l e - v a l u e - b i n
0136620 d ) \r ( 1 2 5 ( t ) 1 0 8
0136640 " P e r h a p s , ~ a " 1
0136660 0 3 " A s s u m e s u b t y
0136700 p e p s h o u l d r e t u r
0136720 n t " 9 9 ( f u n c t i o
0136740 n c e r r o r ) 8 1 ( f u
0136760 n c t i o n e r r o r ) \r 7
0137000 1 ( s u b t y p e ? t ) 5
0137020 5 ( s u b t y p e ? c e r t
0137040 a i n ? ) 3 4 " ~ S i s
0137060 n o t a s u b t y p e o f
0137100 ~ S " ) \r ( i l : s e t f - m
0137120 a c r o - f u n c t i o n ( q
0137140 u o t e d e f s t r u c t - a
0137160 s s e r t - s u b t y p e p )
0137200 ( q u o t e | e x p a n d - D
0137220 E F S T R U C T - A S S E R T -
0137240 S U B T Y P E P | ) ) \r ( l e t
0137260 * ( ( i l : a 1 5 0 5 ( q u
0137300 o t e d e f s t r u c t - a s
0137320 s e r t - s u b t y p e p ) )
0137340 ( i l : a 1 5 0 6 ( q u o t e
0137360 f u n c t i o n ) ) ( i l :
0137400 a 1 5 0 7 \r " p r o v i d e s
0137420 a n i n t e r f a c e f o
0137440 r p l a c e s w h e r e t
0137460 h e i m p l e m e n t o r i
0137500 s n ' t s u r e t h a t s
0137520 u b t y p e p c a n b e t
0137540 r u s t e d " ) ) ( \r p r o g
0137560 n ( c o n d ( ( f b o u n d
0137600 p ( q u o t e i l : s e t -
0137620 d o c u m e n t a t i o n ) )
0137640 ( i l : s e t - d o c u m e n t
0137660 a t i o n i l : a 1 5 0 5 i
0137700 l : a 1 5 0 6 i l : a 1 5 0 7
0137720 ) ) \r ) i l : a 1 5 0 7 ) ) \r
0137740 s e t - p a r s e d - s t r u c
0137760 t u r e i l : d 1 \r ( i l : l
0140000 ( 1 p s 0 n a m e ) i
0140020 l : f 0 * p a r s e d - s t
0140040 r u c t u r e s * ) \0 034 \0 001 \0
0140060 002 @ d P \n \0 \0 002 232 277 @ P \n \0 \0 d
0140100 A 031 277 020 A P \v \0 \0 c \0 020 \0 ( 2 3
0140120 a c o n s 1 3 a s s o c
0140140 5 a s s o c ) \r n i l \r ( ) \r
0140160 ( i l : p u t p r o p s i l :
0140200 d e f s t r u c t i l : f i l
0140220 e t y p e c o m p i l e - f i
0140240 l e ) \r ( i l : p u t p r o p s
0140260 i l : d e f s t r u c t i l
0140300 : m a k e f i l e - e n v i r o
0140320 n m e n t ( : r e a d t a b l
0140340 e " X C L " : p a c k a g e
0140360 " L I S P " ) ) \r ( i l : p u
0140400 t p r o p s i l : d e f s t r
0140420 u c t i l : c o p y r i g h t
0140440 ( " X e r o x C o r p o r a
0140460 t i o n " 1 9 8 6 ) ) \r n i l
0140500 \r
0140501