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