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