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