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