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