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