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