$ od -c -N 50000 [eris]<LispCore>CML>MORGUE>CMLDEFSTRUCT.DCOM!1 0000000 ( F I L E C R E A T E D " 1 0000020 - S e p - 8 5 2 3 : 4 3 : 2 9 0000040 " ( " c o m p i l e d o n 0000060 " { E R I S } < L I S P C O R 0000100 E > L I B R A R Y > C M L D E F 0000120 S T R U C T . ; 8 ) \r " 1 6 - 0000140 A u g - 8 5 0 6 : 2 0 : 2 6 " 0000160 t c o m p l ' d i n " I N 0000200 T E R L I S P - D 1 6 - A u g 0000220 - 8 5 . . . " d a t e d " 0000240 1 6 - A u g - 8 5 0 8 : 0 1 : 0000260 0 7 " ) \r ( F I L E C R E A T E 0000300 D " 1 - S e p - 8 5 2 3 : 0000320 3 6 : 5 7 " { E R I S } < L I 0000340 S P C O R E > L I B R A R Y > C 0000360 M L D E F S T R U C T . ; 8 4 0000400 4 1 5 8 c h a n g e s t o : 0000420 ( M A C R O S \r M A K E - B 0000440 U I L T - I N - S L O T - F R O 0000460 B B E R S D E F S T R U C T 0000500 S T R U C T U R I F Y T E S T 0000520 - S T R U C T U R E ) ( V A R 0000540 S C M L D E F S T R U C T C O 0000560 M S ) ( F N S \ G E T - 0 0000600 \r \ G E T - 1 \ G E T - 2 \ 0000620 G E T - 3 \ G E T - 4 \ G E 0000640 T - 5 \ G E T - 6 \ G E T - 0000660 7 \ G E T - 8 \ G E T - 9 0000700 \ G E T - 1 0 \ G E T - 1 1 0000720 \ G E T - 1 2 \ G E T - 1 3 0000740 \ G E T - 1 4 \r \ G E T - 1 5 0000760 \ G E T - 1 6 \ G E T - 1 7 0001000 \ G E T - 1 8 \ G E T - 1 9 0001020 \ S E T - 0 \ S E T - 1 \ 0001040 S E T - 2 \ S E T - 3 \ S E 0001060 T - 4 \ S E T - 5 \ S E T - 0001100 6 \ S E T - 7 \r \ S E T - 8 0001120 \ S E T - 9 \ S E T - 1 0 0001140 \ S E T - 1 1 \ S E T - 1 2 0001160 \ S E T - 1 3 \ S E T - 1 4 0001200 \ S E T - 1 5 \ S E T - 1 6 0001220 \ S E T - 1 7 \ S E T - 1 8 0001240 \ S E T - 1 9 \r D E F I N E - 0001260 A C C E S S O R S D E F I N E 0001300 - S E T T E R S D E F S T R U 0001320 C T . E X P A N D E R D D - L 0001340 E N G T H S E T F - D D - L E 0001360 N G T H P A R S E - N A M E - 0001400 A N D - O P T I O N S \r S E T 0001420 F - D D - N A M E S E T F - D 0001440 D - D O C S E T F - D D - S L 0001460 O T S S E T F - D D - C O N C 0001500 - N A M E S E T F - D D - C O 0001520 N S T R U C T O R S E T F - D 0001540 D - B O A - C O N S T R U C T O 0001560 R S \r S E T F - D D - C O P I 0001600 E R S E T F - D D - P R E D I 0001620 C A T E S E T F - D D - I N C 0001640 L U D E S E T F - D D - I N C 0001660 L U D E D - B Y S E T F - D D 0001700 - P R I N T - F U N C T I O N 0001720 \r S E T F - D D - T Y P E S E 0001740 T F - D D - L I S P - T Y P E 0001760 S E T F - D D - N A M E D S E 0002000 T F - D D - O F F S E T S E T 0002020 F - D D - C L : L E N G T H S 0002040 E T F - D S D - N A M E \r S E 0002060 T F - D S D - I N D E X S E T 0002100 F - D S D - A C C E S S O R S 0002120 E T F - D S D - D E F A U L T 0002140 S E T F - D S D - T Y P E S E 0002160 T F - D S D - R E A D - O N L Y 0002200 \r P A R S E - S L O T - D E S 0002220 C R I P T I O N S C O N C A T 0002240 - P N A M E S D E F I N E - B 0002260 O A - C O N S T R U C T O R S 0002300 D E F A U L T - S T R U C T U R 0002320 E - P R I N T \r D E F I N E - 0002340 C O N S T R U C T O R D S D - 0002360 N A M E D S D - I N D E X D 0002400 S D - A C C E S S O R D S D - 0002420 D E F A U L T D S D - T Y P E 0002440 D S D - R E A D - O N L Y D 0002460 D - N A M E D D - D O C \r D 0002500 D - S L O T S D D - C O N C - 0002520 N A M E D D - C O N S T R U C 0002540 T O R D D - B O A - C O N S T 0002560 R U C T O R S D D - C O P I E 0002600 R D D - P R E D I C A T E D 0002620 D - I N C L U D E \r D D - I N 0002640 C L U D E D - B Y D D - P R I 0002660 N T - F U N C T I O N D D - T 0002700 Y P E D D - L I S P - T Y P E 0002720 D D - N A M E D D D - O F F 0002740 S E T D D - C L : L E N G T H 0002760 \r P R I N T - D E F S T R U C 0003000 T - D E S C R I P T I O N P R 0003020 I N T - D E F S T R U C T - S L 0003040 O T - D E S C R I P T I O N C 0003060 O N C A T - P N A M E S * C O 0003100 N C A T - S T U F F \r C O M P 0003120 I L E R : : N O T E - A R G S 0003140 B U I L T - I N - C O P I E R 0003160 D E F I N E - C O P I E R D E 0003200 F I N E - P R E D I C A T E ) 0003220 ( P R O P S ( D E F S T R U C 0003240 T U S E R R E C O R D T Y P E 0003260 ) ) \r ( R E C O R D S D E F 0003300 S T R U C T - D E S C R I P T I 0003320 O N D E F S T R U C T - S L O 0003340 T - D E S C R I P T I O N ) p 0003360 r e v i o u s d a t e : " 0003400 1 - S e p - 8 5 2 2 : 3 6 : 5 0003420 3 " \r { E R I S } < L I S P C 0003440 O R E > L I B R A R Y > C M L D 0003460 E F S T R U C T . ; 7 ) \r \ G E 0003500 T - 0 D 1 \r ( L ( 0 X ) ) 0003520 \0 005 \0 \0 \0 001 @ 311 \0 020 \0 N I L \r 0003540 N I L \r ( ) \r \ G E T - 1 D 1 0003560 \r ( L ( 0 X ) ) \0 005 \0 \0 \0 0003600 001 @ 311 001 020 \0 N I L \r N I L \r ( ) 0003620 \r \ G E T - 2 D 1 \r ( L ( 0 0003640 X ) ) \0 005 \0 \0 \0 001 @ 311 002 020 \0 0003660 N I L \r N I L \r ( ) \r \ G E T - 0003700 3 D 1 \r ( L ( 0 X ) ) \0 0003720 005 \0 \0 \0 001 @ 311 003 020 \0 N I L \r N I 0003740 L \r ( ) \r \ G E T - 4 D 1 \r ( 0003760 L ( 0 X ) ) \0 005 \0 \0 \0 001 @ 0004000 311 004 020 \0 N I L \r N I L \r ( ) \r \ 0004020 G E T - 5 D 1 \r ( L ( 0 X 0004040 ) ) \0 005 \0 \0 \0 001 @ 311 005 020 \0 N I 0004060 L \r N I L \r ( ) \r \ G E T - 6 0004100 D 1 \r ( L ( 0 X ) ) \0 005 \0 0004120 \0 \0 001 @ 311 006 020 \0 N I L \r N I L \r 0004140 ( ) \r \ G E T - 7 D 1 \r ( L 0004160 ( 0 X ) ) \0 005 \0 \0 \0 001 @ 311 \a 0004200 020 \0 N I L \r N I L \r ( ) \r \ G E 0004220 T - 8 D 1 \r ( L ( 0 X ) ) 0004240 \0 005 \0 \0 \0 001 @ 311 \b 020 \0 N I L \r 0004260 N I L \r ( ) \r \ G E T - 9 D 1 0004300 \r ( L ( 0 X ) ) \0 005 \0 \0 \0 0004320 001 @ 311 \t 020 \0 N I L \r N I L \r ( ) 0004340 \r \ G E T - 1 0 D 1 \r ( L ( 0004360 0 X ) ) \0 005 \0 \0 \0 001 @ 311 \n 020 0004400 \0 N I L \r N I L \r ( ) \r \ G E T 0004420 - 1 1 D 1 \r ( L ( 0 X ) ) 0004440 \0 005 \0 \0 \0 001 @ 311 \v 020 \0 N I L \r 0004460 N I L \r ( ) \r \ G E T - 1 2 D 0004500 1 \r ( L ( 0 X ) ) \0 005 \0 \0 0004520 \0 001 @ 311 \f 020 \0 N I L \r N I L \r ( 0004540 ) \r \ G E T - 1 3 D 1 \r ( L 0004560 ( 0 X ) ) \0 005 \0 \0 \0 001 @ 311 \r 0004600 020 \0 N I L \r N I L \r ( ) \r \ G E 0004620 T - 1 4 D 1 \r ( L ( 0 X ) 0004640 ) \0 005 \0 \0 \0 001 @ 311 016 020 \0 N I L 0004660 \r N I L \r ( ) \r \ G E T - 1 5 0004700 D 1 \r ( L ( 0 X ) ) \0 005 \0 0004720 \0 \0 001 @ 311 017 020 \0 N I L \r N I L \r 0004740 ( ) \r \ G E T - 1 6 D 1 \r ( L 0004760 ( 0 X ) ) \0 005 \0 \0 \0 001 @ 311 0005000 020 020 \0 N I L \r N I L \r ( ) \r \ G 0005020 E T - 1 7 D 1 \r ( L ( 0 X 0005040 ) ) \0 005 \0 \0 \0 001 @ 311 021 020 \0 N I 0005060 L \r N I L \r ( ) \r \ G E T - 1 8 0005100 D 1 \r ( L ( 0 X ) ) \0 005 0005120 \0 \0 \0 001 @ 311 022 020 \0 N I L \r N I L 0005140 \r ( ) \r \ G E T - 1 9 D 1 \r ( 0005160 L ( 0 X ) ) \0 005 \0 \0 \0 001 @ 0005200 311 023 020 \0 N I L \r N I L \r ( ) \r \ 0005220 S E T - 0 D 1 \r ( L ( 1 Y 0005240 0 X ) ) \0 \a \0 \0 \0 002 @ A 316 0005260 \0 A 020 \0 N I L \r N I L \r ( ) \r \ 0005300 S E T - 1 D 1 \r ( L ( 1 Y 0005320 0 X ) ) \0 \a \0 \0 \0 002 @ A 316 0005340 001 A 020 \0 N I L \r N I L \r ( ) \r \ 0005360 S E T - 2 D 1 \r ( L ( 1 Y 0005400 0 X ) ) \0 \a \0 \0 \0 002 @ A 316 0005420 002 A 020 \0 N I L \r N I L \r ( ) \r \ 0005440 S E T - 3 D 1 \r ( L ( 1 Y 0005460 0 X ) ) \0 \a \0 \0 \0 002 @ A 316 0005500 003 A 020 \0 N I L \r N I L \r ( ) \r \ 0005520 S E T - 4 D 1 \r ( L ( 1 Y 0005540 0 X ) ) \0 \a \0 \0 \0 002 @ A 316 0005560 004 A 020 \0 N I L \r N I L \r ( ) \r \ 0005600 S E T - 5 D 1 \r ( L ( 1 Y 0005620 0 X ) ) \0 \a \0 \0 \0 002 @ A 316 0005640 005 A 020 \0 N I L \r N I L \r ( ) \r \ 0005660 S E T - 6 D 1 \r ( L ( 1 Y 0005700 0 X ) ) \0 \a \0 \0 \0 002 @ A 316 0005720 006 A 020 \0 N I L \r N I L \r ( ) \r \ 0005740 S E T - 7 D 1 \r ( L ( 1 Y 0005760 0 X ) ) \0 \a \0 \0 \0 002 @ A 316 0006000 \a A 020 \0 N I L \r N I L \r ( ) \r \ 0006020 S E T - 8 D 1 \r ( L ( 1 Y 0006040 0 X ) ) \0 \a \0 \0 \0 002 @ A 316 0006060 \b A 020 \0 N I L \r N I L \r ( ) \r \ 0006100 S E T - 9 D 1 \r ( L ( 1 Y 0006120 0 X ) ) \0 \a \0 \0 \0 002 @ A 316 0006140 \t A 020 \0 N I L \r N I L \r ( ) \r \ 0006160 S E T - 1 0 D 1 \r ( L ( 1 0006200 Y 0 X ) ) \0 \a \0 \0 \0 002 @ A 0006220 316 \n A 020 \0 N I L \r N I L \r ( ) \r 0006240 \ S E T - 1 1 D 1 \r ( L ( 1 0006260 Y 0 X ) ) \0 \a \0 \0 \0 002 @ 0006300 A 316 \v A 020 \0 N I L \r N I L \r ( ) 0006320 \r \ S E T - 1 2 D 1 \r ( L ( 0006340 1 Y 0 X ) ) \0 \a \0 \0 \0 002 0006360 @ A 316 \f A 020 \0 N I L \r N I L \r ( 0006400 ) \r \ S E T - 1 3 D 1 \r ( L 0006420 ( 1 Y 0 X ) ) \0 \a \0 \0 \0 0006440 002 @ A 316 \r A 020 \0 N I L \r N I L \r 0006460 ( ) \r \ S E T - 1 4 D 1 \r ( L 0006500 ( 1 Y 0 X ) ) \0 \a \0 \0 0006520 \0 002 @ A 316 016 A 020 \0 N I L \r N I L 0006540 \r ( ) \r \ S E T - 1 5 D 1 \r ( 0006560 L ( 1 Y 0 X ) ) \0 \a \0 0006600 \0 \0 002 @ A 316 017 A 020 \0 N I L \r N I 0006620 L \r ( ) \r \ S E T - 1 6 D 1 \r 0006640 ( L ( 1 Y 0 X ) ) \0 \a 0006660 \0 \0 \0 002 @ A 316 020 A 020 \0 N I L \r N 0006700 I L \r ( ) \r \ S E T - 1 7 D 1 0006720 \r ( L ( 1 Y 0 X ) ) \0 0006740 \a \0 \0 \0 002 @ A 316 021 A 020 \0 N I L \r 0006760 N I L \r ( ) \r \ S E T - 1 8 D 0007000 1 \r ( L ( 1 Y 0 X ) ) 0007020 \0 \a \0 \0 \0 002 @ A 316 022 A 020 \0 N I L 0007040 \r N I L \r ( ) \r \ S E T - 1 9 0007060 D 1 \r ( L ( 1 Y 0 X ) ) 0007100 \0 \a \0 \0 \0 002 @ A 316 023 A 020 \0 N I 0007120 L \r N I L \r ( ) \r D D - N A M E 0007140 D 1 \r ( L ( 0 O B J E C T 0007160 ) ) \0 \b \0 \0 \0 001 @ 006 \0 \0 311 \0 020 0007200 \0 N I L \r ( 3 D E F S T R U C 0007220 T - D E S C R I P T I O N ) \r ( 0007240 ) \r D D - D O C D 1 \r ( L ( 0007260 0 O B J E C T ) ) \0 \b \0 \0 \0 0007300 001 @ 006 \0 \0 311 002 020 \0 N I L \r ( 3 0007320 D E F S T R U C T - D E S C R I 0007340 P T I O N ) \r ( ) \r D D - S L O 0007360 T S D 1 \r ( L ( 0 O B J E 0007400 C T ) ) \0 \b \0 \0 \0 001 @ 006 \0 \0 311 0007420 004 020 \0 N I L \r ( 3 D E F S T R 0007440 U C T - D E S C R I P T I O N ) 0007460 \r ( ) \r D D - C O N C - N A M E 0007500 D 1 \r ( L ( 0 O B J E C T 0007520 ) ) \0 \b \0 \0 \0 001 @ 006 \0 \0 311 006 020 0007540 \0 N I L \r ( 3 D E F S T R U C 0007560 T - D E S C R I P T I O N ) \r ( 0007600 ) \r D D - C O N S T R U C T O R 0007620 D 1 \r ( L ( 0 O B J E C T 0007640 ) ) \0 \b \0 \0 \0 001 @ 006 \0 \0 311 \b 020 0007660 \0 N I L \r ( 3 D E F S T R U C 0007700 T - D E S C R I P T I O N ) \r ( 0007720 ) \r D D - B O A - C O N S T R U 0007740 C T O R S D 1 \r ( L ( 0 O 0007760 B J E C T ) ) \0 \b \0 \0 \0 001 @ 006 0010000 \0 \0 311 \n 020 \0 N I L \r ( 3 D E F 0010020 S T R U C T - D E S C R I P T I 0010040 O N ) \r ( ) \r D D - C O P I E R 0010060 D 1 \r ( L ( 0 O B J E C T 0010100 ) ) \0 \b \0 \0 \0 001 @ 006 \0 \0 311 \f 020 0010120 \0 N I L \r ( 3 D E F S T R U C 0010140 T - D E S C R I P T I O N ) \r ( 0010160 ) \r D D - P R E D I C A T E D 0010200 1 \r ( L ( 0 O B J E C T ) ) 0010220 \0 \b \0 \0 \0 001 @ 006 \0 \0 311 016 020 \0 N 0010240 I L \r ( 3 D E F S T R U C T - 0010260 D E S C R I P T I O N ) \r ( ) \r 0010300 D D - I N C L U D E D 1 \r ( L 0010320 ( 0 O B J E C T ) ) \0 \b \0 0010340 \0 \0 001 @ 006 \0 \0 311 020 020 \0 N I L \r ( 0010360 3 D E F S T R U C T - D E S C 0010400 R I P T I O N ) \r ( ) \r D D - I 0010420 N C L U D E D - B Y D 1 \r ( L 0010440 ( 0 O B J E C T ) ) \0 \b \0 0010460 \0 \0 001 @ 006 \0 \0 311 022 020 \0 N I L \r ( 0010500 3 D E F S T R U C T - D E S C 0010520 R I P T I O N ) \r ( ) \r D D - P 0010540 R I N T - F U N C T I O N D 1 0010560 \r ( L ( 0 O B J E C T ) ) 0010600 \0 \b \0 \0 \0 001 @ 006 \0 \0 311 024 020 \0 N I 0010620 L \r ( 3 D E F S T R U C T - D 0010640 E S C R I P T I O N ) \r ( ) \r D 0010660 D - T Y P E D 1 \r ( L ( 0 0010700 O B J E C T ) ) \0 \b \0 \0 \0 001 @ 0010720 006 \0 \0 311 026 020 \0 N I L \r ( 3 D E 0010740 F S T R U C T - D E S C R I P T 0010760 I O N ) \r ( ) \r D D - L I S P - 0011000 T Y P E D 1 \r ( L ( 0 O B 0011020 J E C T ) ) \0 \b \0 \0 \0 001 @ 006 \0 0011040 \0 311 030 020 \0 N I L \r ( 3 D E F S 0011060 T R U C T - D E S C R I P T I O 0011100 N ) \r ( ) \r D D - N A M E D D 0011120 1 \r ( L ( 0 O B J E C T ) ) 0011140 \0 \b \0 \0 \0 001 @ 006 \0 \0 311 032 020 \0 N 0011160 I L \r ( 3 D E F S T R U C T - 0011200 D E S C R I P T I O N ) \r ( ) \r 0011220 D D - O F F S E T D 1 \r ( L 0011240 ( 0 O B J E C T ) ) \0 \b \0 \0 0011260 \0 001 @ 006 \0 \0 311 034 020 \0 N I L \r ( 3 0011300 D E F S T R U C T - D E S C R 0011320 I P T I O N ) \r ( ) \r D D - L E 0011340 N G T H D 1 \r ( L ( 0 O B 0011360 J E C T ) ) \0 \b \0 \0 \0 001 @ 006 \0 0011400 \0 311 036 020 \0 N I L \r ( 3 D E F S 0011420 T R U C T - D E S C R I P T I O 0011440 N ) \r ( ) \r S E T F - D D - N A 0011460 M E D 1 \r ( L ( 1 V A L U 0011500 E 0 O B J E C T ) ) \0 \n \0 0011520 \0 \0 002 @ 006 \0 \0 A 024 \0 A 020 \0 N I L 0011540 \r ( 3 D E F S T R U C T - D E 0011560 S C R I P T I O N ) \r ( ) \r S E 0011600 T F - D D - D O C D 1 \r ( L 0011620 ( 1 V A L U E 0 O B J E C 0011640 T ) ) \0 \n \0 \0 \0 002 @ 006 \0 \0 A 024 0011660 002 A 020 \0 N I L \r ( 3 D E F S T 0011700 R U C T - D E S C R I P T I O N 0011720 ) \r ( ) \r S E T F - D D - S L O 0011740 T S D 1 \r ( L ( 1 V A L U 0011760 E 0 O B J E C T ) ) \0 \n \0 0012000 \0 \0 002 @ 006 \0 \0 A 024 004 A 020 \0 N I L 0012020 \r ( 3 D E F S T R U C T - D E 0012040 S C R I P T I O N ) \r ( ) \r S E 0012060 T F - D D - C O N C - N A M E 0012100 D 1 \r ( L ( 1 V A L U E 0 0012120 O B J E C T ) ) \0 \n \0 \0 \0 002 0012140 @ 006 \0 \0 A 024 006 A 020 \0 N I L \r ( 3 0012160 D E F S T R U C T - D E S C R 0012200 I P T I O N ) \r ( ) \r S E T F - 0012220 D D - C O N S T R U C T O R D 0012240 1 \r ( L ( 1 V A L U E 0 0012260 O B J E C T ) ) \0 \n \0 \0 \0 002 @ 0012300 006 \0 \0 A 024 \b A 020 \0 N I L \r ( 3 0012320 D E F S T R U C T - D E S C R I 0012340 P T I O N ) \r ( ) \r S E T F - D 0012360 D - B O A - C O N S T R U C T O 0012400 R S D 1 \r ( L ( 1 V A L U 0012420 E 0 O B J E C T ) ) \0 \n \0 0012440 \0 \0 002 @ 006 \0 \0 A 024 \n A 020 \0 N I L 0012460 \r ( 3 D E F S T R U C T - D E 0012500 S C R I P T I O N ) \r ( ) \r S E 0012520 T F - D D - C O P I E R D 1 \r 0012540 ( L ( 1 V A L U E 0 O B 0012560 J E C T ) ) \0 \n \0 \0 \0 002 @ 006 \0 0012600 \0 A 024 \f A 020 \0 N I L \r ( 3 D E 0012620 F S T R U C T - D E S C R I P T 0012640 I O N ) \r ( ) \r S E T F - D D - 0012660 P R E D I C A T E D 1 \r ( L 0012700 ( 1 V A L U E 0 O B J E C 0012720 T ) ) \0 \n \0 \0 \0 002 @ 006 \0 \0 A 024 0012740 016 A 020 \0 N I L \r ( 3 D E F S T 0012760 R U C T - D E S C R I P T I O N 0013000 ) \r ( ) \r S E T F - D D - I N C 0013020 L U D E D 1 \r ( L ( 1 V A 0013040 L U E 0 O B J E C T ) ) \0 0013060 \n \0 \0 \0 002 @ 006 \0 \0 A 024 020 A 020 \0 N 0013100 I L \r ( 3 D E F S T R U C T - 0013120 D E S C R I P T I O N ) \r ( ) \r 0013140 S E T F - D D - I N C L U D E D 0013160 - B Y D 1 \r ( L ( 1 V A L 0013200 U E 0 O B J E C T ) ) \0 \n 0013220 \0 \0 \0 002 @ 006 \0 \0 A 024 022 A 020 \0 N I 0013240 L \r ( 3 D E F S T R U C T - D 0013260 E S C R I P T I O N ) \r ( ) \r S 0013300 E T F - D D - P R I N T - F U N 0013320 C T I O N D 1 \r ( L ( 1 V 0013340 A L U E 0 O B J E C T ) ) 0013360 \0 \n \0 \0 \0 002 @ 006 \0 \0 A 024 024 A 020 \0 0013400 N I L \r ( 3 D E F S T R U C T 0013420 - D E S C R I P T I O N ) \r ( ) 0013440 \r S E T F - D D - T Y P E D 1 0013460 \r ( L ( 1 V A L U E 0 O 0013500 B J E C T ) ) \0 \n \0 \0 \0 002 @ 006 0013520 \0 \0 A 024 026 A 020 \0 N I L \r ( 3 D 0013540 E F S T R U C T - D E S C R I P 0013560 T I O N ) \r ( ) \r S E T F - D D 0013600 - L I S P - T Y P E D 1 \r ( L 0013620 ( 1 V A L U E 0 O B J E 0013640 C T ) ) \0 \n \0 \0 \0 002 @ 006 \0 \0 A 0013660 024 030 A 020 \0 N I L \r ( 3 D E F S 0013700 T R U C T - D E S C R I P T I O 0013720 N ) \r ( ) \r S E T F - D D - N A 0013740 M E D D 1 \r ( L ( 1 V A L 0013760 U E 0 O B J E C T ) ) \0 \n 0014000 \0 \0 \0 002 @ 006 \0 \0 A 024 032 A 020 \0 N I 0014020 L \r ( 3 D E F S T R U C T - D 0014040 E S C R I P T I O N ) \r ( ) \r S 0014060 E T F - D D - O F F S E T D 1 0014100 \r ( L ( 1 V A L U E 0 O 0014120 B J E C T ) ) \0 \n \0 \0 \0 002 @ 006 0014140 \0 \0 A 024 034 A 020 \0 N I L \r ( 3 D 0014160 E F S T R U C T - D E S C R I P 0014200 T I O N ) \r ( ) \r S E T F - D D 0014220 - L E N G T H D 1 \r ( L ( 1 0014240 V A L U E 0 O B J E C T ) 0014260 ) \0 \n \0 \0 \0 002 @ 006 \0 \0 A 024 \0 A 0014300 020 \0 N I L \r ( 3 D E F S T R U 0014320 C T - D E S C R I P T I O N ) \r 0014340 ( ) \r D S D - N A M E D 1 \r ( 0014360 L ( 0 O B J E C T ) ) \0 \b 0014400 \0 \0 \0 001 @ 006 \0 \0 311 \0 020 \0 N I L \r 0014420 ( 3 D E F S T R U C T - S L O 0014440 T - D E S C R I P T I O N ) \r ( 0014460 ) \r D S D - I N D E X D 1 \r ( 0014500 L ( 0 O B J E C T ) ) \0 \b 0014520 \0 \0 \0 001 @ 006 \0 \0 311 002 020 \0 N I L \r 0014540 ( 3 D E F S T R U C T - S L O 0014560 T - D E S C R I P T I O N ) \r ( 0014600 ) \r D S D - A C C E S S O R D 0014620 1 \r ( L ( 0 O B J E C T ) ) 0014640 \0 \b \0 \0 \0 001 @ 006 \0 \0 311 004 020 \0 N 0014660 I L \r ( 3 D E F S T R U C T - 0014700 S L O T - D E S C R I P T I O N 0014720 ) \r ( ) \r D S D - D E F A U L T 0014740 D 1 \r ( L ( 0 O B J E C T 0014760 ) ) \0 \b \0 \0 \0 001 @ 006 \0 \0 311 006 020 0015000 \0 N I L \r ( 3 D E F S T R U C 0015020 T - S L O T - D E S C R I P T I 0015040 O N ) \r ( ) \r D S D - T Y P E 0015060 D 1 \r ( L ( 0 O B J E C T ) 0015100 ) \0 \b \0 \0 \0 001 @ 006 \0 \0 311 \b 020 \0 0015120 N I L \r ( 3 D E F S T R U C T 0015140 - S L O T - D E S C R I P T I O 0015160 N ) \r ( ) \r D S D - R E A D - O 0015200 N L Y D 1 \r ( L ( 0 O B J 0015220 E C T ) ) \0 \b \0 \0 \0 001 @ 006 \0 \0 0015240 311 \n 020 \0 N I L \r ( 3 D E F S T 0015260 R U C T - S L O T - D E S C R I 0015300 P T I O N ) \r ( ) \r S E T F - D 0015320 S D - N A M E D 1 \r ( L ( 1 0015340 V A L U E 0 O B J E C T ) 0015360 ) \0 \n \0 \0 \0 002 @ 006 \0 \0 A 024 \0 A 0015400 020 \0 N I L \r ( 3 D E F S T R U 0015420 C T - S L O T - D E S C R I P T 0015440 I O N ) \r ( ) \r S E T F - D S D 0015460 - I N D E X D 1 \r ( L ( 1 0015500 V A L U E 0 O B J E C T ) ) 0015520 \0 \n \0 \0 \0 002 @ 006 \0 \0 A 024 002 A 020 0015540 \0 N I L \r ( 3 D E F S T R U C 0015560 T - S L O T - D E S C R I P T I 0015600 O N ) \r ( ) \r S E T F - D S D - 0015620 A C C E S S O R D 1 \r ( L ( 0015640 1 V A L U E 0 O B J E C T 0015660 ) ) \0 \n \0 \0 \0 002 @ 006 \0 \0 A 024 004 0015700 A 020 \0 N I L \r ( 3 D E F S T R 0015720 U C T - S L O T - D E S C R I P 0015740 T I O N ) \r ( ) \r S E T F - D S 0015760 D - D E F A U L T D 1 \r ( L 0016000 ( 1 V A L U E 0 O B J E C 0016020 T ) ) \0 \n \0 \0 \0 002 @ 006 \0 \0 A 024 0016040 006 A 020 \0 N I L \r ( 3 D E F S T 0016060 R U C T - S L O T - D E S C R I 0016100 P T I O N ) \r ( ) \r S E T F - D 0016120 S D - T Y P E D 1 \r ( L ( 1 0016140 V A L U E 0 O B J E C T ) 0016160 ) \0 \n \0 \0 \0 002 @ 006 \0 \0 A 024 \b A 0016200 020 \0 N I L \r ( 3 D E F S T R U 0016220 C T - S L O T - D E S C R I P T 0016240 I O N ) \r ( ) \r S E T F - D S D 0016260 - R E A D - O N L Y D 1 \r ( L 0016300 ( 1 V A L U E 0 O B J E 0016320 C T ) ) \0 \n \0 \0 \0 002 @ 006 \0 \0 A 0016340 024 \n A 020 \0 N I L \r ( 3 D E F S 0016360 T R U C T - S L O T - D E S C R 0016400 I P T I O N ) \r ( ) \r D E F S T 0016420 R U C T . E X P A N D E R D 1 0016440 \r ( L ( 1 S L O T - D E S C 0016460 R I P T I O N S 0 N A M E - 0016500 A N D - O P T I O N S ) ) 001 201 0016520 002 \0 \0 002 @ \t \0 \0 021 021 001 H \t \0 \0 271 0016540 H A \n \0 \0 g \0 \0 H \t \0 \0 H \t \0 \0 0016560 H \t \0 \0 H \t \0 \0 H \t \0 \0 H \t \0 \0 0016600 H \t \0 \0 264 3 g \0 \0 g \0 \0 g \0 \0 g 0016620 \0 \0 H \t \0 \0 001 h 032 032 g \0 \0 g \0 \0 0016640 h 032 032 h 032 032 032 h 032 032 g \0 \0 I h 032 0016660 032 h 032 032 032 h 032 H \t \0 \0 264 , g \0 \0 0016700 g \0 \0 g \0 \0 I h 032 032 g \0 \0 g \0 \0 0016720 h 032 032 h 032 032 032 g \0 \0 H \t \0 \0 h 032 0016740 032 h 032 032 032 h 032 g \0 \0 g \0 \0 h 032 g 0016760 \0 \0 g \0 \0 g \0 \0 I h 032 032 g \0 \0 g 0017000 \0 \0 h 032 032 h 032 032 032 g \0 \0 H h 032 032 0017020 h 032 032 032 h 032 032 032 g \0 \0 g \0 \0 g \0 0017040 \0 h 032 032 g \0 \0 g \0 \0 g \0 \0 g \0 \0 0017060 I h 032 032 g \0 \0 g \0 \0 h 032 032 h 032 032 0017100 032 h 032 032 g \0 \0 g \0 \0 g \0 \0 H h 032 0017120 032 h 032 032 h 032 032 h 032 032 g \0 \0 g \0 \0 0017140 g \0 \0 h 032 032 g \0 \0 g \0 \0 g \0 \0 g 0017160 \0 \0 h 032 032 h 032 032 i h h 032 032 h 032 032 0017200 032 h 032 032 032 g \0 \0 g \0 \0 g \0 \0 I h 0017220 032 032 g \0 \0 g \0 \0 h 032 032 h 032 032 032 g 0017240 \0 \0 h 032 032 032 h 032 032 032 032 h 032 032 032 g 0017260 \0 \0 I h 032 032 h 032 032 032 \n \0 \0 \n \0 \0 0017300 \n \0 \0 \n \0 \0 \n \0 \0 \n \0 \0 \n \0 \0 \n 0017320 \0 \0 032 020 \0 ( 5 7 5 Q \ A P P E 0017340 N D 2 5 7 2 Q \ A P P E N D 0017360 2 5 6 7 Q \ A P P E N D 2 0017400 5 6 4 Q \ A P P E N D 2 5 6 0017420 1 Q \ A P P E N D 2 5 5 6 Q 0017440 \ A P P E N D 2 5 5 3 Q \ 0017460 A P P E N D 2 5 5 0 Q \ A P 0017500 P E N D 2 2 1 1 Q D D - D O 0017520 C 1 4 6 Q D D - D O C 1 0 0017540 1 Q D D - I N C L U D E 5 7 0017560 Q D D - I N C L U D E 5 3 Q 0017600 D E F I N E - P R E D I C A T 0017620 E 4 7 Q D E F I N E - C O P 0017640 I E R 4 3 Q D E F I N E - B 0017660 O A - C O N S T R U C T O R S 0017700 3 7 Q D E F I N E - C O N S T 0017720 R U C T O R 3 3 Q D E F I N 0017740 E - S E T T E R S 2 7 Q D E 0017760 F I N E - A C C E S S O R S 2 0020000 0 Q P A R S E - S L O T - D E 0020020 S C R I P T I O N S 1 2 Q D 0020040 D - N A M E 3 P A R S E - N 0020060 A M E - A N D - O P T I O N S ) 0020100 \r ( 5 3 5 Q Q U O T E 5 1 5 0020120 Q N E W 5 0 3 Q \ S T R U 0020140 C T U R E - D E F I N I T I O N 0020160 5 0 0 Q Q U O T E 4 7 1 Q 0020200 Q U O T E 4 6 6 Q G E T 0020220 4 6 3 Q S E T F 4 3 5 Q O 0020240 L D 4 3 2 Q D D - I N C L U 0020260 D E D - B Y 4 2 7 Q O L D 0020300 4 2 4 Q C O N D 4 1 6 Q N 0020320 E W 4 1 3 Q D D - I N C L U 0020340 D E D - B Y 4 1 0 Q S E T F 0020360 3 7 0 Q Q U O T E 3 6 5 Q 0020400 C O P Y - D E F S T R U C T - 0020420 D E S C R I P T I O N 3 6 2 Q 0020440 N E W 3 4 5 Q \ S T R U C 0020460 T U R E - D E F I N I T I O N 0020500 3 4 2 Q Q U O T E 3 3 3 Q 0020520 Q U O T E 3 3 0 Q G E T 3 0020540 2 5 Q O L D 3 2 2 Q L E T 0020560 3 1 4 Q E V A L 3 1 1 Q 0020600 C L : C O M P I L E 3 0 6 Q 0020620 E V A L - W H E N 2 6 7 Q Q 0020640 U O T E 2 5 5 Q \ S T R U C 0020660 T U R E - D E F I N I T I O N 0020700 2 5 2 Q Q U O T E 2 4 3 Q 0020720 Q U O T E 2 4 0 Q G E T 2 0020740 3 5 Q S E T F 2 3 0 Q L O 0020760 A D 2 2 5 Q E V A L - W H E 0021000 N 2 0 5 Q Q U O T E 1 7 3 0021020 Q \ S T R U C T - D O C U M E 0021040 N T A T I O N 1 7 0 Q Q U O 0021060 T E 1 6 1 Q Q U O T E 1 5 0021100 6 Q G E T 1 5 3 Q S E T F 0021120 1 3 0 Q Q U O T E 1 1 3 Q 0021140 \ S T R U C T U R E - D E F I 0021160 N I T I O N 1 1 0 Q Q U O T 0021200 E 7 5 Q Q U O T E 7 2 Q 0021220 G E T 6 7 Q D D - I N C L U 0021240 D E D - B Y 6 4 Q P U S H 0021260 2 3 Q P R O G N ) \r ( ) \r P R 0021300 I N T - D E F S T R U C T - D E 0021320 S C R I P T I O N D 1 \r ( L 0021340 ( 2 D E P T H 1 S T R E A 0021360 M 0 S T R U C T U R E ) ) 0021400 \0 025 \0 \0 \0 003 o \0 \0 \0 \t \0 \0 A o \0 0021420 \0 \0 @ \t \0 \0 \v \0 \0 020 \0 ( 2 2 Q 0021440 F O R M A T 1 7 Q D D - N A 0021460 M E 6 C L : D E C L A R E ) 0021500 \r N I L \r ( 1 3 Q " # < D e 0021520 f s t r u c t - D e s c r i p t 0021540 i o n f o r ~ S > " 3 ( 0021560 ( I G N O R E D E P T H ) ) ) 0021600 \r P R I N T - D E F S T R U C T 0021620 - S L O T - D E S C R I P T I O 0021640 N D 1 \r ( L ( 2 D E P T H 0021660 1 S T R E A M 0 S T R U 0021700 C T U R E ) ) \0 025 \0 \0 \0 003 o \0 0021720 \0 \0 \t \0 \0 A o \0 \0 \0 @ \t \0 \0 \v \0 0021740 \0 020 \0 ( 2 2 Q F O R M A T 1 0021760 7 Q D S D - N A M E 6 C L 0022000 : D E C L A R E ) \r N I L \r ( 0022020 1 3 Q " # < D e f s t r u c t 0022040 - S l o t - D e s c r i p t i o 0022060 n f o r ~ S > " 3 ( ( I 0022100 G N O R E D E P T H ) ) ) \r P 0022120 A R S E - N A M E - A N D - O P 0022140 T I O N S D 1 \r ( L ( 0 N 0022160 A M E - A N D - O P T I O N S ) 0022200 ) 001 300 022 \0 \0 001 @ d \t \0 \0 225 277 @ 0022220 h 032 b \0 002 021 361 017 021 021 @ 001 271 g \0 0022240 \0 272 I g \0 \0 \n \0 \0 273 g \0 \0 I \n \0 0022260 \0 274 h ] 276 g \0 \0 I \n \0 \0 _ 016 277 I 0022300 g \0 \0 \n \0 \0 _ 020 277 h _ 022 _ 024 277 g 0022320 \0 \0 _ 026 277 h _ 030 277 j _ 032 277 H 265 x 0022340 g \0 \0 I g \0 \0 K g \0 \0 L g \0 \0 N 0022360 g \0 \0 O 016 g \0 \0 O 020 g \0 \0 O 022 g 0022400 \0 \0 J g \0 \0 O 026 g \0 \0 O 026 d g \0 0022420 \0 360 225 277 g \0 \0 260 031 g \0 \0 360 223 g \0 0022440 \0 215 O 026 003 265 026 o \0 \0 \0 O 026 \n \0 \0 0022460 g \0 \0 O 024 262 026 O 030 260 023 001 g \0 \0 360 0022500 262 347 g \0 \0 O 026 002 032 260 347 i g \0 \0 O 0022520 032 \r 030 \0 \0 020 001 \t \0 \0 262 B H 001 _ 034 0022540 d g \0 \0 360 235 277 i 275 g \0 \0 I \n \0 \0 0022560 \ 261 \0 317 g \0 \0 360 222 261 \0 310 O 034 g \0 0022600 \0 360 222 261 \0 276 O 034 g \0 \0 360 225 i _ 030 0022620 261 \0 260 o \0 \0 \0 H 001 261 \0 244 H 001 001 H 0022640 001 002 _ " 277 _ _ 036 d g \0 \0 360 227 277 0022660 O " 001 [ 261 \0 214 g \0 \0 360 262 027 O " d 0022700 002 233 277 M 241 h 274 O " N 032 ^ 260 t 001 \ 0022720 260 p O 036 d g \0 \0 360 227 277 O " 001 _ 016 0022740 260 ` g \0 \0 360 226 O " 001 _ 020 260 T O 036 0022760 d g \0 \0 360 226 277 O " _ 022 260 E g \0 \0 0023000 360 225 O " 001 Z 260 : O 036 d g \0 \0 360 233 0023020 277 i _ 024 277 O " 001 _ 026 260 & g \0 \0 360 0023040 230 o \0 \0 \0 \t \0 \0 260 030 O 036 g \0 \0 360 0023060 225 O " 001 _ 032 210 o \0 \0 \0 O \n \0 \0 0023100 277 H 002 X 261 376 232 \0 ( 6 6 7 Q C L 0023120 : E R R O R 6 3 7 Q C L : E 0023140 R R O R 3 4 7 Q C O N C A T 0023160 - P N A M E S 3 2 1 Q C L : 0023200 A T O M 3 1 4 Q M A K E - D 0023220 E F S T R U C T - D E S C R I P 0023240 T I O N 2 4 7 Q C L : E R R 0023260 O R 7 5 Q C O N C A T - P N 0023300 A M E S 6 3 Q C O N C A T - 0023320 P N A M E S 5 0 Q C O N C A 0023340 T - P N A M E S 4 0 Q C O N 0023360 C A T - P N A M E S 4 C L : 0023400 A T O M ) \r ( 6 4 6 Q : I N I 0023420 T I A L - O F F S E T 6 2 6 Q 0023440 : N A M E D 6 0 5 Q : T Y 0023460 P E 5 6 7 Q : P R I N T - F 0023500 U N C T I O N 5 5 3 Q : I N 0023520 C L U D E 5 3 4 Q : P R E D 0023540 I C A T E 5 1 7 Q : C O P I 0023560 E R 4 6 1 Q : C O N S T R U 0023600 C T O R 4 4 4 Q : C O N C - 0023620 N A M E 4 0 2 Q : N A M E D 0023640 3 7 0 Q : P R E D I C A T E 0023660 3 5 6 Q : C O P I E R 3 4 0023700 3 Q M A K E - 3 3 3 Q : C 0023720 O N S T R U C T O R 3 0 6 Q 0023740 : O F F S E T 2 7 4 Q S I M 0023760 P L E - A R R A Y 2 6 6 Q V 0024000 E C T O R 2 5 2 Q : N A M E 0024020 D 2 3 0 Q L I S T 2 2 3 Q 0024040 L I S T 2 1 6 Q S I M P L 0024060 E - V E C T O R 2 1 0 Q V E 0024100 C T O R 2 0 2 Q : L I S P - 0024120 T Y P E 1 7 5 Q : T Y P E 0024140 1 7 1 Q : P R I N T - F U N C 0024160 T I O N 1 6 4 Q : I N C L U 0024200 D E 1 5 7 Q : P R E D I C A 0024220 T E 1 5 2 Q : C O P I E R 0024240 1 4 6 Q : B O A - C O N S T R 0024260 U C T O R S 1 4 2 Q : C O N 0024300 S T R U C T O R 1 3 6 Q : C 0024320 O N C - N A M E 1 3 2 Q : N 0024340 A M E 1 1 1 Q V E C T O R 0024360 7 2 Q - P 5 7 Q C O P Y - 0024400 4 4 Q M A K E - 3 5 Q - 0024420 3 0 Q D E F A U L T - S T R 0024440 U C T U R E - P R I N T ) \r ( 0024460 6 6 2 Q " ~ S i s a n u 0024500 n k n o w n D e f s t r u c t 0024520 o p t i o n . " 6 3 4 Q " 0024540 T h e D e f s t r u c t o p 0024560 t i o n : N A M E D t a k e 0024600 s n o a r g u m e n t s . " 0024620 4 1 6 Q " T h e D e f s t 0024640 r u c t o p t i o n ~ S c 0024660 a n n o t b e u s e d w i 0024700 t h 0 a r g u m e n t s . " 0024720 2 4 2 Q " ~ S i s a b 0024740 a d : T Y P E f o r D e f 0024760 s t r u c t . " ) \r P A R S E - 0025000 S L O T - D E S C R I P T I O N 0025020 S A 0 0 0 1 D 1 \r ( L ( 0 0025040 S L O T ) ) \0 037 \0 \0 \0 001 @ \t \0 0025060 \0 @ \t \0 \0 g \0 \0 @ \t \0 \0 g \0 \0 @ 0025100 \t \0 \0 h 032 032 032 032 032 032 020 \0 ( 2 5 Q 0025120 D S D - R E A D - O N L Y 1 0025140 6 Q D S D - T Y P E 7 D S 0025160 D - D E F A U L T 3 D S D - 0025200 N A M E ) \r ( 2 1 Q : R E A D 0025220 - O N L Y 1 2 Q : T Y P E ) 0025240 \r ( ) \r P A R S E - S L O T - D 0025260 E S C R I P T I O N S A 0 0 0 2 0025300 D 1 \r ( L ( 0 X ) ) \0 \v 0025320 \0 \0 \0 001 @ d \t \0 \0 221 @ 020 001 020 \0 ( 0025340 4 C L : A T O M ) \r N I L \r ( 0025360 ) \r P A R S E - S L O T - D E S 0025400 C R I P T I O N S D 1 \r ( L 0025420 ( 1 S L O T S 0 D E F S T 0025440 R U C T ) ) 001 246 \r \0 \0 002 A 001 005 0025460 \a 235 A 001 006 \0 \0 h 024 002 277 A 002 b 002 277 0025500 @ \t \0 \0 262 I @ \t \0 \0 001 g \0 \0 \n \0 0025520 \0 @ \t \0 \0 002 021 262 \f H 265 020 o \0 \0 \0 0025540 @ \t \0 \0 001 \n \0 \0 277 H \t \0 \0 006 \0 \0 0025560 h 024 034 277 g \0 \0 H \t \0 \0 \n \0 \0 _ 030 0025600 _ 026 265 034 O 030 A \n \0 \0 b 002 023 A @ \t 0025620 \0 \0 @ \t \0 \0 242 261 \0 226 k 261 \0 223 001 _ 0025640 024 001 I g \0 \0 g \0 \0 g \0 \0 g \0 \0 \r 0025660 006 \0 \0 _ 022 265 \a O 026 002 260 306 d 004 l 004 0025700 360 230 277 O 024 002 h 030 277 260 356 003 262 353 O 024 0025720 273 O 022 002 001 272 K 002 J 030 277 O 022 002 002 262 0025740 330 O 022 002 002 _ 020 265 004 260 316 001 d g \0 \0 0025760 360 262 023 277 O 024 275 O 020 002 001 274 M 002 002 002 0026000 L 030 260 & g \0 \0 360 262 026 O 024 002 002 002 002 0026020 _ 016 277 O 020 002 001 276 O 016 002 N 030 211 o \0 0026040 \0 \0 O 020 001 \n \0 \0 277 O 020 260 270 j \n \0 0026060 \0 021 2 004 H 265 023 @ I \n \0 \0 J \t \0 \0 0026100 006 \0 \0 h 024 004 h 020 001 \ d \t \0 \0 262 " 0026120 277 L 273 g \0 \0 K g \0 \0 I g \0 \0 @ \t 0026140 \0 \0 K \n \0 \0 g \0 \0 i \r \b \0 \0 260 7 0026160 002 002 L 001 L 002 001 i 021 024 \t M 265 6 g \0 0026200 \0 N g \0 \0 I g \0 \0 @ \t \0 \0 N \n \0 0026220 \0 g \0 \0 O 016 g \0 \0 O 020 g \0 \0 O 022 0026240 \r \f \0 \0 022 J 032 272 H 002 I \t \0 \0 271 X 0026260 260 205 001 d g \0 \0 360 227 277 M 002 001 _ 020 277 0026300 212 g \0 \0 360 225 M 002 001 _ 022 277 M 002 002 ] 0026320 260 254 \0 ( 6 0 0 Q 1 + 5 6 6 Q 0026340 M A K E - D E F S T R U C T - 0026360 S L O T - D E S C R I P T I O N 0026400 5 4 3 Q C O N C A T - P N A 0026420 M E S 5 3 7 Q D D - C O N C 0026440 - N A M E 5 0 0 Q M A K E - 0026460 D E F S T R U C T - S L O T - D 0026500 E S C R I P T I O N 4 7 0 Q 0026520 C O N C A T - P N A M E S 4 6 0026540 4 Q D D - C O N C - N A M E 0026560 4 4 0 Q C L : A T O M 4 2 2 0026600 Q C L : N R E V E R S E 4 1 0026620 6 Q S E T F - D D - L E N G T 0026640 H 4 0 3 Q + 3 7 2 Q C L 0026660 : E R R O R 2 0 5 Q C L : F 0026700 I N D 1 5 0 Q D D - N A M E 0026720 D 1 4 4 Q D D - O F F S E T 0026740 1 3 4 Q \ N C O N C 2 1 2 0026760 0 Q C L : M A P C A R 1 1 5 0027000 Q D D - S L O T S 7 7 Q D 0027020 D - O F F S E T 7 2 Q C L : 0027040 E R R O R 6 6 Q D D - I N C 0027060 L U D E 4 7 Q D D - I N C L 0027100 U D E 4 3 Q G E T 3 4 Q 0027120 D D - I N C L U D E 2 6 Q D 0027140 D - I N C L U D E ) \r ( 6 2 6 Q 0027160 : R E A D - O N L Y 6 1 1 Q 0027200 : T Y P E 5 6 0 Q : R E A 0027220 D - O N L Y 5 5 3 Q : T Y P 0027240 E 5 4 6 Q : D E F A U L T 0027260 5 3 3 Q : A C C E S S O R 5 0027300 2 7 Q : I N D E X 5 2 3 Q 0027320 : N A M E 4 7 3 Q : T Y P E 0027340 4 6 0 Q : A C C E S S O R 0027360 4 5 4 Q : I N D E X 4 5 0 Q 0027400 : N A M E 4 2 5 Q D E F S 0027420 T R U C T - D E S C R I P T I O 0027440 N 3 3 1 Q : R E A D - O N L 0027460 Y 3 0 2 Q : T Y P E 2 0 1 0027500 Q S T R I N G = 1 7 6 Q : 0027520 T E S T 1 7 3 Q P A R S E - 0027540 S L O T - D E S C R I P T I O N 0027560 S A 0 0 0 2 1 7 0 Q : K E Y 0027600 1 1 1 Q P A R S E - S L O T 0027620 - D E S C R I P T I O N S A 0 0 0027640 0 1 1 0 2 Q D E F S T R U C 0027660 T - D E S C R I P T I O N 4 0 0027700 Q \ S T R U C T U R E - D E F 0027720 I N I T I O N 1 1 Q D E F S 0027740 T R U C T - D E S C R I P T I O 0027760 N ) \r ( 3 6 4 Q " B a d o 0030000 p t i o n i n i n c l u d e 0030020 d s l o t s p e c : ~ S . 0030040 " 6 2 Q " C a n n o t f i 0030060 n d d e s c r i p t i o n o 0030100 f s t r u c t u r e ~ S t 0030120 o u s e f o r i n c l u s 0030140 i o n . " ) \r C O N C A T - P N 0030160 A M E S D 1 \r ( L ( 1 N A 0030200 M E 2 0 N A M E 1 ) ) \0 030 0030220 \0 \0 \0 002 @ 262 024 g \0 \0 @ \t \0 \0 A \t 0030240 \0 \0 \v \0 \0 \t \0 \0 020 A 020 \0 ( 2 3 Q 0030260 I N T E R N 2 0 Q C O N C 0030300 A T E N A T E 1 5 Q S Y M B 0030320 O L - N A M E 1 1 Q S Y M B 0030340 O L - N A M E ) \r ( 5 S I M P 0030360 L E - S T R I N G ) \r ( ) \r C O 0030400 N C A T - P N A M E S * D 1 \r 0030420 ( L ( 1 N A M E 2 0 N A 0030440 M E 1 ) ) \0 030 \0 \0 \0 002 @ 262 024 g 0030460 \0 \0 @ \t \0 \0 A \t \0 \0 \v \0 \0 \t \0 \0 0030500 020 A 020 \0 ( 2 3 Q M A K E - S Y 0030520 M B O L 2 0 Q C O N C A T E 0030540 N A T E 1 5 Q S Y M B O L - 0030560 N A M E 1 1 Q S Y M B O L - 0030600 N A M E ) \r ( 5 S I M P L E - 0030620 S T R I N G ) \r ( ) \r C O N C A 0030640 T - S T U F F D 1 \r ( L ( 1 0030660 T H I N G 2 0 T H I N G 1 0030700 ) ) \0 023 \0 \0 \0 002 g \0 \0 @ \t \0 \0 0030720 A \t \0 \0 \v \0 \0 \t \0 \0 020 \0 ( 2 0 Q 0030740 I N T E R N 1 5 Q C O N C 0030760 A T E N A T E 1 2 Q P R I N 0031000 C - T O - S T R I N G 6 P R 0031020 I N C - T O - S T R I N G ) \r ( 0031040 2 S I M P L E - S T R I N G ) 0031060 \r ( ) \r C O M P I L E R : : N O 0031100 T E - A R G S D 1 \r ( L ( 3 0031120 I G 4 2 I G 3 1 I G 2 0031140 0 I G 1 ) ) \0 \t \0 \0 \0 004 o 0031160 \0 \0 \0 \t \0 \0 020 \0 ( 6 C L : D E 0031200 C L A R E ) \r N I L \r ( 3 ( 0031220 ( I G N O R E I G 1 I G 2 0031240 I G 3 I G 4 ) ) ) \r B U I L T 0031260 - I N - C O P I E R D 1 \r ( L 0031300 ( 0 O L D ) F 3 S E T 0031320 - V E C T O R - S U B T Y P E ) 0031340 \0 4 003 001 \0 001 o \0 \0 \0 \t \0 \0 j 021 0031360 ! 002 @ \t \0 \0 Y \t \0 \0 272 H I \n \0 \0 0031400 226 S J k \v \0 \0 020 J H @ H \n \0 \0 \v 0031420 \0 \0 277 H \t \0 \0 X 260 344 \0 ( 5 7 Q 0031440 1 + 5 2 Q S V S E T 4 7 Q 0031460 S V R E F 3 7 Q \ P R I M 0031500 I T I V E 3 0 Q = 2 2 Q 0031520 M A K E - A R R A Y 1 6 Q C 0031540 L : L E N G T H 6 C L : D E 0031560 C L A R E ) \r N I L \r ( 3 ( 0031600 ( S I M P L E - V E C T O R O 0031620 L D ) ) ) \r D E F I N E - A C C 0031640 E S S O R S D 1 \r ( L ( 0 0031660 D E F S T R U C T ) F 6 B 0031700 U I L T - I N - A C C E S S O R 0031720 S F 7 B U I L T - I N - X 0031740 - A C C E S S O R S ) 001 " 006 002 0031760 \0 001 @ \t \0 \0 @ \t \0 \0 021 B 005 H 265 004 0032000 J 020 001 ] \t \0 \0 274 M \t \0 \0 273 I g \0 0032020 \0 360 262 o K l 024 \n \0 \0 262 g g \0 \0 g 0032040 \0 \0 g \0 \0 g \0 \0 L h 032 032 h 032 032 g 0032060 \0 \0 g \0 \0 V K \n \0 \0 h 032 032 h 032 032 0032100 h 032 032 032 g \0 \0 g \0 \0 g \0 \0 g \0 \0 0032120 h 032 032 032 g \0 \0 g \0 \0 g \0 \0 L h 032 0032140 032 g \0 \0 g \0 \0 h 032 032 h 032 032 032 g \0 0032160 \0 W 016 K \n \0 \0 h 032 h 032 032 h 032 261 \0 0032200 202 g \0 \0 g \0 \0 L g \0 \0 h 032 g \0 \0 0032220 g \0 \0 I g \0 \0 h 032 032 032 K h 032 032 032 0032240 h 032 032 032 032 g \0 \0 g \0 \0 g \0 \0 g \0 0032260 \0 h 032 032 032 g \0 \0 L g \0 \0 L \n \0 \0 0032300 g \0 \0 h 032 g \0 \0 g \0 \0 g \0 \0 g \0 0032320 \0 g \0 \0 I h 032 032 h 032 032 g \0 \0 g \0 0032340 \0 h 032 032 h 032 032 032 g \0 \0 g \0 \0 K h 0032360 032 032 h 032 032 h 032 032 032 h 032 032 h 032 032 032 0032400 032 032 h 032 032 032 h 032 032 032 J 032 272 H 002 X 0032420 261 376 356 \0 ( 3 1 5 Q C O N C A T 0032440 - P N A M E S * 2 0 4 Q A R 0032460 E F 1 0 7 Q A R E F 4 7 Q 0032500 < 3 1 Q D S D - I N D E X 0032520 2 4 Q D S D - A C C E S S O 0032540 R 7 D D - L I S P - T Y P E 0032560 3 D D - S L O T S ) \r ( 3 7 0032600 3 Q Q U O T E 3 7 0 Q \ , 0032620 3 5 6 Q S T R U C T U R E 0032640 3 5 3 Q \ , 3 4 1 Q Q U O 0032660 T E 3 3 6 Q \ , 3 3 3 Q 0032700 T H E 3 3 0 Q C L : E L T 0032720 3 2 5 Q B Q U O T E 3 2 0 Q 0032740 S T R U C T U R E 3 1 1 Q 0032760 X - 3 0 5 Q C O M P I L E R 0033000 : : D E F T R A N S F O R M 2 0033020 7 6 Q E V A L 2 7 3 Q L O 0033040 A D 2 7 0 Q C L : C O M P I 0033060 L E 2 6 5 Q E V A L - W H E 0033100 N 2 4 4 Q S T R U C T U R E 0033120 2 4 0 Q T H E 2 3 5 Q C 0033140 L : E L T 2 3 0 Q S T R U C 0033160 T U R E 2 2 4 Q D E F U N 0033200 2 2 1 Q P R O G N 1 7 6 Q 0033220 Q U O T E 1 6 4 Q C O M P I 0033240 L E R : : C L C - T R A N S F O 0033260 R M S 1 6 1 Q Q U O T E 1 0033300 5 2 Q Q U O T E 1 4 7 Q G 0033320 E T 1 4 4 Q S E T F 1 3 5 0033340 Q E V A L 1 3 2 Q L O A D 0033360 1 2 7 Q C L : C O M P I L E 0033400 1 2 4 Q E V A L - W H E N 0033420 1 0 2 Q Q U O T E 7 7 Q S 0033440 Y M B O L - F U N C T I O N 6 0033460 5 Q Q U O T E 6 2 Q S Y M 0033500 B O L - F U N C T I O N 5 7 Q 0033520 S E T F 5 4 Q P R O G N 0033540 3 6 Q S I M P L E - V E C T O 0033560 R ) \r ( ) \r D E F I N E - S E T 0033600 T E R S D 1 \r ( L ( 0 D E 0033620 F S T R U C T ) F 6 B U I 0033640 L T - I N - S E T T E R S ) 001 0033660 \f 006 001 \0 001 @ \t \0 \0 @ \t \0 \0 021 B 005 0033700 H 265 004 J 020 001 275 g \0 \0 M \t \0 \0 \n \0 0033720 \0 274 M \t \0 \0 273 M \t \0 \0 222 261 \0 336 I 0033740 g \0 \0 360 262 033 K l 024 \n \0 \0 262 023 g \0 0033760 \0 M \t \0 \0 V K \n \0 \0 h 032 261 \0 271 g 0034000 \0 \0 g \0 \0 L g \0 \0 g \0 \0 h 032 032 g 0034020 \0 \0 g \0 \0 g \0 \0 I g \0 \0 h 032 032 032 0034040 K h 032 032 032 g \0 \0 h 032 032 032 h 032 032 032 0034060 032 g \0 \0 g \0 \0 g \0 \0 g \0 \0 h 032 032 0034100 032 g \0 \0 L g \0 \0 L \n \0 \0 g \0 \0 g 0034120 \0 \0 h 032 032 g \0 \0 g \0 \0 g \0 \0 g \0 0034140 \0 g \0 \0 g \0 \0 I h 032 032 h 032 032 g \0 0034160 \0 g \0 \0 h 032 032 h 032 032 032 g \0 \0 g \0 0034200 \0 K h 032 032 h 032 032 h 032 032 032 g \0 \0 g 0034220 \0 \0 h 032 032 h 032 032 032 h 032 032 h 032 032 032 0034240 032 032 h 032 032 032 g \0 \0 M \t \0 \0 L h 032 0034260 032 032 h 032 032 032 032 J 032 272 H 002 X 261 377 004 0034300 \0 ( 3 6 7 Q D S D - A C C E S 0034320 S O R 2 2 6 Q C O N C A T - 0034340 P N A M E S * 1 0 4 Q A R E 0034360 F 7 7 Q D S D - A C C E S S 0034400 O R 6 6 Q < 4 5 Q D S D 0034420 - R E A D - O N L Y 4 0 Q D 0034440 S D - I N D E X 3 3 Q C O N 0034460 C A T - P N A M E S * 3 0 Q 0034500 D S D - A C C E S S O R 7 D 0034520 D - L I S P - T Y P E 3 D D 0034540 - S L O T S ) \r ( 3 6 3 Q D E 0034560 F S E T F 3 3 4 Q N E W - V 0034600 A L U E 3 3 1 Q \ , 3 1 3 0034620 Q Q U O T E 3 1 0 Q \ , 0034640 2 7 6 Q S T R U C T U R E 2 0034660 7 3 Q \ , 2 6 1 Q Q U O T 0034700 E 2 5 6 Q \ , 2 5 3 Q T 0034720 H E 2 5 0 Q C L : E L T 2 0034740 4 5 Q S E T F 2 4 2 Q B Q 0034760 U O T E 2 3 4 Q N E W - V A 0035000 L U E 2 3 1 Q S T R U C T U 0035020 R E 2 2 2 Q X - 2 1 6 Q 0035040 C O M P I L E R : : D E F T R A 0035060 N S F O R M 2 0 7 Q E V A L 0035100 2 0 4 Q L O A D 2 0 1 Q 0035120 C L : C O M P I L E 1 7 6 Q 0035140 E V A L - W H E N 1 6 2 Q N 0035160 E W - V A L U E 1 4 6 Q S T 0035200 R U C T U R E 1 4 2 Q T H E 0035220 1 3 7 Q C L : E L T 1 3 4 0035240 Q S E T F 1 2 6 Q N E W - 0035260 V A L U E 1 2 3 Q S T R U C 0035300 T U R E 1 1 7 Q D E F U N 0035320 1 1 4 Q P R O G N 7 3 Q D 0035340 E F S E T F 5 5 Q S I M P L 0035360 E - V E C T O R 2 4 Q S E T 0035400 - ) \r ( ) \r D E F I N E - C O N 0035420 S T R U C T O R A 0 0 0 1 D 1 0035440 \r ( L ( 0 S L O T ) ) \0 \r 0035460 \0 \0 \0 001 @ \t \0 \0 @ \t \0 \0 h 032 032 020 0035500 \0 ( 7 D S D - D E F A U L T 0035520 3 D S D - N A M E ) \r N I L \r 0035540 ( ) \r D E F I N E - C O N S T R 0035560 U C T O R D 1 \r ( L ( 0 D 0035600 E F S T R U C T ) ) 001 \n \t \0 \0 0035620 001 @ \t \0 \0 021 Q 005 H 264 003 202 261 \0 330 @ 0035640 \t \0 \0 \t \0 \0 271 @ \t \0 \0 272 g \0 \0 J 0035660 \n \0 \0 273 g \0 \0 J \n \0 \0 274 g \0 \0 H 0035700 g \0 \0 L \t \0 \0 032 @ d \t \0 \0 g \0 \0 0035720 360 262 & 277 g \0 \0 @ \t \0 \0 264 016 g \0 \0 0035740 @ \t \0 \0 h 032 032 h 032 I K \t \0 \0 \n \0 0035760 \0 \n \0 \0 032 260 x \t \0 \0 262 ! g \0 \0 g 0036000 \0 \0 g \0 \0 @ \t \0 \0 h 032 032 I K \t \0 0036020 \0 \n \0 \0 032 032 h 032 032 260 T @ \t \0 \0 g 0036040 \0 \0 360 235 g \0 \0 I K \t \0 \0 \n \0 \0 032 0036060 260 = J \b \0 \0 021 022 \b N 265 ; g \0 \0 O 0036100 016 g \0 \0 @ \t \0 \0 g \0 \0 g \0 \0 @ \t 0036120 \0 \0 002 001 h 032 032 h 032 032 032 032 h 032 032 h 0036140 032 O 020 O 016 h 032 \n \0 \0 032 032 022 h 032 032 0036160 032 032 h 032 020 001 275 g \0 \0 g \0 \0 O 016 M 0036200 \t \0 \0 h 032 032 032 M \t \0 \0 h 032 032 032 O 0036220 020 032 _ 020 277 N 002 ^ 260 242 \0 ( 3 7 1 Q 0036240 D S D - N A M E 3 6 1 Q D 0036260 S D - I N D E X 3 3 0 Q \ A 0036300 P P E N D 2 3 0 0 Q D D - L 0036320 I S P - T Y P E 2 6 6 Q D D 0036340 - L E N G T H 2 4 4 Q G E N 0036360 S Y M 2 3 5 Q \ A P P E N D 0036400 2 2 3 2 Q \ A P P E N D 2 0036420 2 1 5 Q D D - T Y P E 2 0 2 0036440 Q \ A P P E N D 2 1 7 7 Q 0036460 \ A P P E N D 2 1 6 7 Q D D 0036500 - N A M E 1 5 0 Q D D - N A 0036520 M E D 1 4 2 Q \ A P P E N D 0036540 2 1 3 7 Q \ A P P E N D 2 0036560 1 3 4 Q \ A P P E N D 2 1 2 0036600 2 Q D D - N A M E 1 1 1 Q 0036620 D D - N A M E D 7 3 Q D D - 0036640 T Y P E 6 5 Q \ A P P E N D 0036660 2 5 1 Q C L : M A P C A R 0036700 4 1 Q C L : M A P C A R 3 1 0036720 Q D D - S L O T S 2 4 Q M 0036740 A K E - L I S T 2 1 Q D D - 0036760 O F F S E T 3 D D - C O N S 0037000 T R U C T O R ) \r ( 3 5 3 Q A 0037020 R E F 3 5 0 Q S E T F 2 7 0037040 4 Q Q U O T E 2 7 1 Q : E 0037060 L E M E N T - T Y P E 2 6 2 Q 0037100 M A K E - A R R A Y 2 5 5 Q 0037120 L E T 2 2 5 Q V E C T O R 0037140 2 2 0 Q V E C T O R 1 6 3 0037160 Q Q U O T E 1 6 0 Q V E C 0037200 T O R 1 5 5 Q S T R U C T U 0037220 R I F Y 1 1 6 Q Q U O T E 0037240 1 0 5 Q L I S T 7 6 Q L I 0037260 S T 6 1 Q & K E Y 5 5 Q 0037300 D E F U N 4 5 Q D E F I N E 0037320 - C O N S T R U C T O R A 0 0 0 0037340 1 3 5 Q D S D - N A M E ) \r 0037360 ( ) \r D E F I N E - B O A - C O 0037400 N S T R U C T O R S A 0 0 0 1 0037420 D 1 \r ( L ( 0 S L O T ) F 0037440 0 S L O T S - I N - A R G L 0037460 I S T ) \0 025 \0 001 \0 001 @ d \t \0 \0 0037500 P \n \0 \0 225 277 @ \t \0 \0 020 \t \0 \0 020 \0 0037520 ( 2 2 Q D S D - D E F A U L T 0037540 1 6 Q D S D - N A M E 1 0 0037560 Q M E M Q 4 D S D - N A M 0037600 E ) \r N I L \r ( ) \r D E F I N E 0037620 - B O A - C O N S T R U C T O R 0037640 S D 1 \r ( L ( 0 D E F S T 0037660 R U C T ) P 1 3 Q S L O T 0037700 S - I N - A R G L I S T F 2 0037720 0 Q N ) 001 251 020 001 \0 001 @ \t \0 \0 0037740 021 241 \n H 001 001 271 H 001 002 001 W \n \0 \0 0037760 272 @ \t \0 \0 273 021 020 \v h 274 H 241 L 020 J 0040000 g \0 \0 _ 020 277 _ 016 265 O @ \t \0 \0 \t \0 0040020 \0 g \0 \0 K \n \0 \0 _ 024 277 _ 022 277 g \0 0040040 \0 I J @ d \t \0 \0 g \0 \0 360 242 261 \0 212 0040060 277 g \0 \0 @ \t \0 \0 264 016 g \0 \0 @ \t \0 0040100 \0 h 032 032 h 032 O 022 O 024 \t \0 \0 \n \0 \0 0040120 \n \0 \0 032 261 \0 340 001 ^ d \t \0 \0 262 M 277 0040140 N o \0 \0 \0 \n \0 \0 224 N _ 020 260 D O 020 0040160 ] g \0 \0 360 255 M g \0 \0 360 247 M d g \0 0040200 \0 360 223 277 N 260 & g \0 \0 360 262 & N O 026 0040220 032 _ 026 277 O 016 N d K g \0 \0 g \0 \0 \f 0040240 \0 \0 \t \0 \0 h 032 032 030 205 001 O 026 032 _ 026 0040260 277 O 016 002 261 377 R \t \0 \0 262 # g \0 \0 g 0040300 \0 \0 g \0 \0 @ \t \0 \0 h 032 032 O 022 O 024 0040320 \t \0 \0 \n \0 \0 032 032 h 032 032 260 Y @ \t \0 0040340 \0 g \0 \0 360 237 g \0 \0 O 022 O 024 \t \0 \0 0040360 \n \0 \0 032 260 @ O 024 j \b \0 \0 021 023 017 O 0040400 030 263 W g \0 \0 O 034 g \0 \0 @ \t \0 \0 g 0040420 \0 \0 g \0 \0 @ \t \0 \0 002 001 h 032 032 h 032 0040440 032 032 032 h 032 032 h 032 O 036 O 034 h 032 \n \0 0040460 \0 032 032 022 h 032 032 032 032 L 032 274 H 002 X 001 0040500 001 271 H 001 002 001 W \n \0 \0 272 @ \t \0 \0 0040520 273 h _ 026 277 261 376 246 g \0 \0 g \0 \0 O 034 0040540 g \0 \0 h 032 032 032 O 030 001 h 032 032 032 O 036 0040560 032 _ 036 277 O 030 002 O 032 \t \0 \0 _ 032 277 _ 0040600 030 261 377 200 \0 ( 6 3 7 Q 1 + 5 6 0040620 3 Q D D - S L O T S 5 5 6 Q 0040640 \ A P P E N D 2 5 2 4 Q \ 0040660 A P P E N D 2 4 7 4 Q D D - 0040700 L I S P - T Y P E 4 6 2 Q D 0040720 D - L E N G T H 4 3 7 Q G E 0040740 N S Y M 4 2 6 Q \ A P P E N 0040760 D 2 4 2 3 Q \ A P P E N D 2 0041000 4 0 4 Q D D - T Y P E 3 7 0041020 1 Q \ A P P E N D 2 3 6 6 Q 0041040 \ A P P E N D 2 3 5 4 Q D 0041060 D - N A M E 3 3 5 Q D D - N 0041100 A M E D 3 1 0 Q D S D - D E 0041120 F A U L T 3 0 5 Q C L : F I 0041140 N D 2 1 3 Q M E M Q 2 0 0 0041160 Q C L : A T O M 1 6 6 Q \ 0041200 A P P E N D 2 1 6 3 Q \ A P 0041220 P E N D 2 1 6 0 Q \ A P P E 0041240 N D 2 1 4 4 Q D D - N A M E 0041260 1 3 3 Q D D - N A M E D 1 0041300 1 3 Q D D - T Y P E 7 3 Q 0041320 C L : M A P C A R 6 4 Q M A 0041340 K E - L I S T 6 1 Q D D - O 0041360 F F S E T 3 0 Q D D - S L O 0041400 T S 2 3 Q \ A P P E N D 2 0041420 3 D D - B O A - C O N S T R U 0041440 C T O R S ) \r ( 6 0 6 Q I N D 0041460 E X 6 0 1 Q A R E F 5 7 6 0041500 Q S E T F 4 7 0 Q Q U O T 0041520 E 4 6 5 Q : E L E M E N T - 0041540 T Y P E 4 5 6 Q M A K E - A 0041560 R R A Y 4 5 1 Q L E T 4 1 0041600 4 Q V E C T O R 4 0 7 Q V 0041620 E C T O R 3 5 0 Q Q U O T E 0041640 3 4 5 Q V E C T O R 3 4 2 0041660 Q S T R U C T U R I F Y 3 0 0041700 2 Q D S D - N A M E 2 7 7 Q 0041720 : K E Y 2 5 5 Q & O P T I 0041740 O N A L 2 4 4 Q & A U X 2 0041760 3 5 Q & R E S T 2 2 7 Q R 0042000 E Q U I R E D 1 4 0 Q Q U O 0042020 T E 1 2 7 Q L I S T 1 1 6 0042040 Q L I S T 1 0 4 Q D E F U 0042060 N 6 7 Q D E F I N E - B O A 0042100 - C O N S T R U C T O R S A 0 0 0042120 0 1 4 6 Q R E Q U I R E D ) 0042140 \r ( 2 1 0 Q ( & O P T I O N 0042160 A L & R E S T & A U X ) ) \r 0042200 D E F I N E - C O P I E R D 1 0042220 \r ( L ( 0 D E F S T R U C T 0042240 ) ) \0 242 \0 \0 \0 001 @ \t \0 \0 264 003 202 0042260 261 \0 231 @ d \t \0 \0 g \0 \0 360 262 4 277 @ 0042300 d \t \0 \0 262 , 277 g \0 \0 g \0 \0 g \0 \0 0042320 @ \t \0 \0 h 032 032 h 032 032 g \0 \0 g \0 \0 0042340 g \0 \0 h 032 032 h 032 032 h 032 032 032 h 032 020 0042360 \t \0 \0 g \0 \0 360 262 + g \0 \0 g \0 \0 g 0042400 \0 \0 @ \t \0 \0 h 032 032 h 032 032 g \0 \0 g 0042420 \0 \0 g \0 \0 h 032 032 h 032 032 h 032 032 032 h 0042440 032 020 g \0 \0 @ \t \0 \0 g \0 \0 h 032 g \0 0042460 \0 g \0 \0 @ \t \0 \0 g \0 \0 h 032 032 032 h 0042500 032 032 h 032 032 032 032 h 032 020 \0 ( 2 1 6 Q 0042520 D D - L I S P - T Y P E 1 7 0042540 7 Q D D - C O P I E R 1 3 4 0042560 Q D D - C O P I E R 1 1 1 Q 0042600 D D - L I S P - T Y P E 5 2 0042620 Q D D - C O P I E R 3 2 Q 0042640 D D - N A M E D 1 6 Q D D - 0042660 L I S P - T Y P E 3 D D - C 0042700 O P I E R ) \r ( 2 2 1 Q S T R 0042720 U C T U R E 2 1 2 Q T H E 0042740 2 0 7 Q C O P Y - S E Q 2 0 0042760 2 Q S T R U C T U R E 1 7 3 0043000 Q D E F U N 1 5 3 Q C O P 0043020 Y - L I S T 1 5 0 Q Q U O T 0043040 E 1 4 5 Q S Y M B O L - F U 0043060 N C T I O N 1 3 0 Q Q U O T 0043100 E 1 2 5 Q S Y M B O L - F U 0043120 N C T I O N 1 2 2 Q S E T F 0043140 1 1 4 Q L I S T 7 1 Q B 0043160 U I L T - I N - C O P I E R 6 0043200 6 Q Q U O T E 6 3 Q S Y M 0043220 B O L - F U N C T I O N 4 6 Q 0043240 Q U O T E 4 3 Q S Y M B O 0043260 L - F U N C T I O N 4 0 Q S 0043300 E T F 2 1 Q S I M P L E - V 0043320 E C T O R ) \r ( ) \r D E F I N E 0043340 - P R E D I C A T E D 1 \r ( L 0043360 ( 0 D E F S T R U C T ) ) 0043400 001 024 \0 \0 \0 001 @ \t \0 \0 264 003 202 261 001 \v 0043420 @ \t \0 \0 264 003 202 261 001 001 g \0 \0 @ \t \0 0043440 \0 g \0 \0 h 032 @ \t \0 \0 g \0 \0 360 262 d 0043460 g \0 \0 g \0 \0 g \0 \0 h 032 032 g \0 \0 g 0043500 \0 \0 g \0 \0 g \0 \0 h 032 032 g \0 \0 @ \t 0043520 \0 \0 h 032 032 h 032 032 032 g \0 \0 g \0 \0 g 0043540 \0 \0 h 032 032 g \0 \0 g \0 \0 g \0 \0 @ \t 0043560 \0 \0 h 032 032 g \0 \0 g \0 \0 h 032 032 h 032 0043600 032 032 h 032 032 h 032 032 032 h 032 032 032 h 032 261 0043620 \0 200 g \0 \0 g \0 \0 g \0 \0 h 032 032 g \0 0043640 \0 g \0 \0 h 032 032 g \0 \0 g \0 \0 g \0 \0 0043660 g \0 \0 j h 032 032 032 g \0 \0 @ \t \0 \0 h 0043700 032 032 h 032 032 032 g \0 \0 g \0 \0 g \0 \0 g 0043720 \0 \0 j h 032 032 032 g \0 \0 g \0 \0 g \0 \0 0043740 @ \t \0 \0 h 032 032 g \0 \0 g \0 \0 h 032 032 0043760 h 032 032 032 h 032 032 h 032 032 032 i h 032 032 i 0044000 h h 032 032 h 032 032 032 h 032 032 032 h 032 032 032 0044020 032 h 032 032 032 032 h 032 020 \0 ( 3 3 5 Q 0044040 D D - N A M E 2 7 0 Q D D - 0044060 N A M E 1 5 3 Q D D - N A M 0044100 E 1 1 3 Q D D - N A M E 4 0044120 3 Q D D - T Y P E 3 2 Q D 0044140 D - P R E D I C A T E 1 5 Q 0044160 D D - N A M E D 3 D D - P R 0044200 E D I C A T E ) \r ( 3 4 6 Q \ 0044220 S T R U C T U R E - D E F I N I 0044240 T I O N 3 4 3 Q Q U O T E 0044260 3 3 1 Q Q U O T E 3 2 6 Q 0044300 G E T 3 2 3 Q D D - I N C L 0044320 U D E D - B Y 3 1 3 Q O B J 0044340 E C T 3 1 0 Q S V R E F 3 0044360 0 5 Q M E M Q 3 0 2 Q C O 0044400 N D 2 6 4 Q Q U O T E 2 5 0044420 4 Q O B J E C T 2 5 1 Q S 0044440 V R E F 2 4 6 Q E Q 2 4 3 0044460 Q O R 2 3 5 Q O B J E C T 0044500 2 3 2 Q T E S T - S T R U C 0044520 T U R E 2 2 4 Q O B J E C T 0044540 2 2 1 Q S I M P L E - V E C 0044560 T O R - P 2 1 6 Q A N D 1 0044600 6 4 Q \ S T R U C T U R E - D 0044620 E F I N I T I O N 1 6 1 Q Q 0044640 U O T E 1 4 7 Q Q U O T E 0044660 1 4 4 Q G E T 1 4 1 Q D D 0044700 - I N C L U D E D - B Y 1 3 3 0044720 Q O B J E C T 1 3 0 Q C A 0044740 R 1 2 5 Q M E M Q 1 0 7 Q 0044760 Q U O T E 1 0 1 Q O B J E 0045000 C T 7 6 Q C A R 7 3 Q E 0045020 Q 7 0 Q O R 6 2 Q O B J 0045040 E C T 5 7 Q L I S T P 5 4 0045060 Q A N D 4 6 Q L I S T 3 0045100 5 Q O B J E C T 2 6 Q D E 0045120 F U N ) \r ( ) \r D E F A U L T - 0045140 S T R U C T U R E - P R I N T 0045160 D 1 \r ( L ( 2 D E P T H 1 0045200 S T R E A M 0 S T R U C T 0045220 U R E ) F 3 * P R I N T - 0045240 L E N G T H * ) \0 211 003 001 \0 003 o 0045260 \0 \0 \0 \t \0 \0 o \0 \0 \0 A \n \0 \0 @ j 0045300 \n \0 \0 A \n \0 \0 k @ \t \0 \0 @ j \n \0 0045320 \0 g \0 \0 \n \0 \0 \t \0 \0 021 003 002 H d I 0045340 \n \0 \0 253 277 S 262 ! H S \n \0 \0 262 032 H 0045360 I \n \0 \0 230 o \0 \0 \0 A \n \0 \0 020 o \0 0045400 \0 \0 A \n \0 \0 020 o \0 \0 \0 A \n \0 \0 277 0045420 J 001 \t \0 \0 A \n \0 \0 277 o \0 \0 \0 A \n 0045440 \0 \0 277 @ H \n \0 \0 A \n \0 \0 277 H \t \0 0045460 \0 J 002 272 X 260 251 \0 ( 2 0 1 Q 1 + 0045500 1 7 4 Q C L : P R I N 1 1 0045520 7 0 Q S V R E F 1 6 2 Q W 0045540 R I T E - C H A R 1 5 1 Q C 0045560 L : P R I N 1 1 4 5 Q D S D 0045600 - N A M E 1 3 7 Q W R I T E 0045620 - C H A R 1 2 6 Q W R I T E 0045640 - S T R I N G 1 1 5 Q W R I 0045660 T E - S T R I N G 1 0 4 Q = 0045700 7 5 Q = 6 3 Q = 5 2 Q 0045720 D D - S L O T S 4 7 Q G E 0045740 T 4 1 Q S V R E F 3 4 Q 0045760 C L : L E N G T H 2 7 Q C L 0046000 : P R I N 1 2 3 Q S V R E F 0046020 1 6 Q W R I T E - S T R I N 0046040 G 6 C L : D E C L A R E ) \r 0046060 ( 4 4 Q \ S T R U C T U R E - 0046100 D E F I N I T I O N ) \r ( 1 5 0046120 6 Q | \ S P A C E 1 3 3 Q 0046140 | \ S P A C E 1 2 2 Q " . . 0046160 . ) " 1 1 1 Q " ) " 1 2 Q 0046200 " # S ( " 3 ( ( I G N O R 0046220 E D E P T H ) ) ) \r ( P R E T 0046240 T Y C O M P R I N T C M L D E 0046260 F S T R U C T C O M S ) \r ( R P 0046300 A Q Q C M L D E F S T R U C T 0046320 C O M S ( ( * * C h a p t 0046340 e r 1 9 . 0 D E F S T R U C 0046360 T . * ) ( M A C R O S S T 0046400 R U C T U R I F Y T E S T - S 0046420 T R U C T U R E \r M A K E - B 0046440 U I L T - I N - S L O T - F R O 0046460 B B E R S ) ( C O N S T A N T 0046500 S ( N U M B E R - O F - B U I 0046520 L T - I N - S L O T - F R O B B 0046540 E R S 2 0 ) ) ( F N S \ G 0046560 E T - 0 \ G E T - 1 \r \ G E 0046600 T - 2 \ G E T - 3 \ G E T - 0046620 4 \ G E T - 5 \ G E T - 6 0046640 \ G E T - 7 \ G E T - 8 \ G 0046660 E T - 9 \ G E T - 1 0 \ G E 0046700 T - 1 1 \ G E T - 1 2 \ G E 0046720 T - 1 3 \ G E T - 1 4 \r \ G 0046740 E T - 1 5 \ G E T - 1 6 \ G 0046760 E T - 1 7 \ G E T - 1 8 \ G 0047000 E T - 1 9 ) ( F N S \ S E T 0047020 - 0 \ S E T - 1 \ S E T - 2 0047040 \ S E T - 3 \ S E T - 4 \ 0047060 S E T - 5 \ S E T - 6 \ S E 0047100 T - 7 \r \ S E T - 8 \ S E T 0047120 - 9 \ S E T - 1 0 \ S E T - 0047140 1 1 \ S E T - 1 2 \ S E T - 0047160 1 3 \ S E T - 1 4 \ S E T - 0047200 1 5 \ S E T - 1 6 \ S E T - 0047220 1 7 \ S E T - 1 8 \ S E T - 0047240 1 9 ) ( \r I N I T V A R S ( 0047260 B U I L T - I N - A C C E S S O 0047300 R S ( M A K E - A R R A Y N 0047320 U M B E R - O F - B U I L T - I 0047340 N - S L O T - F R O B B E R S ) 0047360 ) ( B U I L T - I N - S E T T 0047400 E R S ( \r M A K E - A R R A Y 0047420 N U M B E R - O F - B U I L T 0047440 - I N - S L O T - F R O B B E R 0047460 S ) ) ( B U I L T - I N - X - 0047500 A C C E S S O R S ( M A K E - 0047520 A R R A Y \r N U M B E R - O F 0047540 - B U I L T - I N - S L O T - F 0047560 R O B B E R S ) ) ) ( R E C O 0047600 R D S D E F S T R U C T - D E 0047620 S C R I P T I O N ) ( F N S 0047640 D D - N A M E D D - D O C D 0047660 D - S L O T S \r D D - C O N C 0047700 - N A M E D D - C O N S T R U 0047720 C T O R D D - B O A - C O N S 0047740 T R U C T O R S D D - C O P I 0047760 E R D D - P R E D I C A T E 0050000 D D - I N C L U D E D D - I N 0050020 C L U D E D - B Y \r D D - P R 0050040 I N T - F U N C T I O N D D - 0050060 T Y P E D D - L I S P - T Y P 0050100 E D D - N A M E D D D - O F 0050120 F S E T D D - L E N G T H ) 0050140 ( F N S S E T F - D D - N A M 0050160 E S E T F - D D - D O C \r S 0050200 E T F - D D - S L O T S S E T 0050220 F - D D - C O N C - N A M E S 0050240 E T F - D D - C O N S T R U C T 0050260 O R S E T F - D D - B O A - C 0050300 O N S T R U C T O R S S E T F 0050320 - D D - C O P I E R \r S E T F 0050340 - D D - P R E D I C A T E S E 0050360 T F - D D - I N C L U D E S E 0050400 T F - D D - I N C L U D E D - B 0050420 Y S E T F - D D - P R I N T - 0050440 F U N C T I O N S E T F - D D 0050460 - T Y P E \r S E T F - D D - L 0050500 I S P - T Y P E S E T F - D D 0050520 - N A M E D S E T F - D D - O 0050540 F F S E T S E T F - D D - L E 0050560 N G T H ) ( R E C O R D S D 0050600 E F S T R U C T - S L O T - D E 0050620 S C R I P T I O N ) ( \r F N S 0050640 D S D - N A M E D S D - I N 0050660 D E X D S D - A C C E S S O R 0050700 D S D - D E F A U L T D S D 0050720 - T Y P E D S D - R E A D - O 0050740 N L Y ) ( F N S S E T F - D 0050760 S D - N A M E \r S E T F - D S 0051000 D - I N D E X S E T F - D S D 0051020 - A C C E S S O R S E T F - D 0051040 S D - D E F A U L T S E T F - 0051060 D S D - T Y P E S E T F - D S 0051100 D - R E A D - O N L Y ) ( F N 0051120 S \r D E F S T R U C T . E X P 0051140 A N D E R P R I N T - D E F S 0051160 T R U C T - D E S C R I P T I O 0051200 N P R I N T - D E F S T R U C 0051220 T - S L O T - D E S C R I P T I 0051240 O N P A R S E - N A M E - A N 0051260 D - O P T I O N S \r P A R S E 0051300 - S L O T - D E S C R I P T I O 0051320 N S C O N C A T - P N A M E S 0051340 C O N C A T - P N A M E S * 0051360 C O N C A T - S T U F F C O M 0051400 P I L E R : : N O T E - A R G S 0051420 B U I L T - I N - C O P I E R 0051440 \r D E F I N E - A C C E S S O 0051460 R S D E F I N E - S E T T E R 0051500 S D E F I N E - C O N S T R U 0051520 C T O R D E F I N E - B O A - 0051540 C O N S T R U C T O R S D E F 0051560 I N E - C O P I E R \r D E F I 0051600 N E - P R E D I C A T E D E F 0051620 A U L T - S T R U C T U R E - P 0051640 R I N T ) ( M A C R O S D E 0051660 F S T R U C T ) ( P R O P S 0051700 ( D E F S T R U C T U S E R R 0051720 E C O R D T Y P E ) ) ( P ( 0051740 \r M O V D ( Q U O T E R E C 0051760 O R D ) ( Q U O T E D E F S 0052000 T R U C T ) ) ( A D D T O V A 0052020 R C L I S P R E C O R D T Y P 0052040 E S D E F S T R U C T ) ( * 0052060 ( \r M A K E - B U I L T - I N 0052100 - S L O T - F R O B B E R S ) ) 0052120 ) ) ) \r ( D E F M A C R O S T 0052140 R U C T U R I F Y ( S T R U C 0052160 T U R E ) \r " F r o b s a 0052200 v e c t o r t o t u r n i 0052220 t i n t o a n a m e d s 0052240 t r u c t u r e . R e t u r 0052260 n s t h e v e c t o r . " 0052300 ( B Q U O T E ( \ P R I M I T 0052320 I V E \r S E T - V E C T O R - 0052340 S U B T Y P E ( \ , S T R U 0052360 C T U R E ) 1 ) ) ) \r ( D E F 0052400 M A C R O T E S T - S T R U C 0052420 T U R E ( O B J E C T ) " R 0052440 e t u r n s T i f t h e 0052460 g i v e n o b j e c t i s 0052500 a n a m e d s t r u c t u r 0052520 e , N i l o t h e r w i s e 0052540 . " \r ( B Q U O T E ( = ( 0052560 \ P R I M I T I V E G E T - V 0052600 E C T O R - S U B T Y P E ( \ 0052620 , O B J E C T ) ) 1 ) ) ) \r 0052640 ( D E F M A C R O M A K E - B 0052660 U I L T - I N - S L O T - F R O 0052700 B B E R S N I L ( C L : D O 0052720 ( ( I 0 ( 1 + I ) ) ( 0052740 T H E M N I L ) ) ( ( = I 0052760 \r N U M B E R - O F - B U I L 0053000 T - I N - S L O T - F R O B B E 0053020 R S ) ( B Q U O T E ( P R O 0053040 G N ( \ , @ T H E M ) ) ) ) 0053060 ( L E T ( ( A C C E S S O R 0053100 ( C O N C A T - S T U F F ( 0053120 Q U O T E \r \ G E T - ) I ) 0053140 ) ( X - A C C E S S O R ( C 0053160 O N C A T - S T U F F ( Q U O 0053200 T E \ X - G E T - ) I ) ) 0053220 ( S E T T E R ( C O N C A T - 0053240 S T U F F ( Q U O T E \ S E 0053260 T - ) I ) ) ( \r X - S E T T 0053300 E R ( C O N C A T - S T U F F 0053320 ( Q U O T E \ X - S E T - ) 0053340 I ) ) ) ( C L : P U S H ( 0053360 B Q U O T E ( P R O G N ( D 0053400 E F U N ( \ , A C C E S S O 0053420 R ) ( X ) ( S V R E F X 0053440 \r ( \ , I ) ) ) ( S E T F 0053460 ( S V R E F B U I L T - I N - 0053500 A C C E S S O R S ( \ , I ) 0053520 ) ( Q U O T E ( \ , A C C 0053540 E S S O R ) ) ) ( C O M P I L 0053560 E R : : D E F T R A N S F O R M 0053600 ( \ , \r A C C E S S O R ) 0053620 ( \ , X - A C C E S S O R ) 0053640 ( X ) ( B Q U O T E ( S V R 0053660 E F ( \ , X ) ( \ , ( Q 0053700 U O T E ( \ , I ) ) ) ) ) ) 0053720 ( S E T F ( S V R E F \r B 0053740 U I L T - I N - X - A C C E S S 0053760 O R S ( \ , I ) ) ( Q U O 0054000 T E ( \ , X - A C C E S S O 0054020 R ) ) ) ( D E F U N ( \ , 0054040 S E T T E R ) ( X Y ) ( S 0054060 E T F ( S V R E F X ( \ , 0054100 I ) ) \r Y ) ) ( S E T F 0054120 ( S V R E F B U I L T - I N - 0054140 S E T T E R S ( \ , I ) ) 0054160 ( Q U O T E ( \ , S E T T E 0054200 R ) ) ) ( C O M P I L E R : : 0054220 D E F T R A N S F O R M ( \ , 0054240 S E T T E R ) ( \ , \r X - 0054260 S E T T E R ) ( X Y ) ( B 0054300 Q U O T E ( S E T F ( S V R 0054320 E F ( \ , X ) ( \ , ( Q 0054340 U O T E ( \ , I ) ) ) ) ( 0054360 \ , Y ) ) ) ) ) ) T H E M ) 0054400 ) ) ) \r ( R P A Q Q N U M B E 0054420 R - O F - B U I L T - I N - S L 0054440 O T - F R O B B E R S 2 0 ) \r 0054460 ( C O N S T A N T S ( N U M B 0054500 E R - O F - B U I L T - I N - S 0054520 L O T - F R O B B E R S 2 0 ) 0054540 ) \r ( R P A Q ? B U I L T - I 0054560 N - A C C E S S O R S ( M A K 0054600 E - A R R A Y N U M B E R - O 0054620 F - B U I L T - I N - S L O T - 0054640 F R O B B E R S ) ) \r ( R P A Q 0054660 ? B U I L T - I N - S E T T E 0054700 R S ( M A K E - A R R A Y N 0054720 U M B E R - O F - B U I L T - I 0054740 N - S L O T - F R O B B E R S ) 0054760 ) \r ( R P A Q ? B U I L T - I 0055000 N - X - A C C E S S O R S ( M 0055020 A K E - A R R A Y N U M B E R 0055040 - O F - B U I L T - I N - S L O 0055060 T - F R O B B E R S ) ) \r ( D E 0055100 F S T R U C T ( D E F S T R U 0055120 C T - D E S C R I P T I O N ( 0055140 : C O N C - N A M E D D - ) 0055160 ( : P R I N T - F U N C T I O N 0055200 P R I N T - D E F S T R U C T 0055220 - D E S C R I P T I O N ) ) N 0055240 A M E \r ( * " n a m e o 0055260 f t h e s t r u c t u r e " 0055300 * ) D O C ( * " d o c 0055320 u m e n t a t i o n o n t h 0055340 e s t r u c t u r e " * ) 0055360 S L O T S ( * " l i s t 0055400 o f s l o t s " \r * ) C O 0055420 N C - N A M E ( * " p r e 0055440 f i x f o r s l o t n a m 0055460 e s " * ) C O N S T R U C T 0055500 O R ( * " n a m e o f 0055520 s t a n d a r d c o n s t r u 0055540 c t o r f u n c t i o n " * 0055560 ) \r B O A - C O N S T R U C T 0055600 O R S ( * " n a m e o f 0055620 b y - p o s i t i o n c o n 0055640 s t r u c t o r s " * ) C O 0055660 P I E R ( * " n a m e o 0055700 f c o p y i n g f u n c t i 0055720 o n " * ) \r P R E D I C A T 0055740 E ( * " n a m e o f t 0055760 y p e p r e d i c t a t e \r " 0056000 * ) I N C L U D E ( * " 0056020 n a m e o f i n c l u d e 0056040 d s t r u c t u r e " * ) 0056060 I N C L U D E D - B Y ( * \r 0056100 " n a m e s o f s t r u c 0056120 t u r e s i n c l u d i n g 0056140 t h i s o n e " * ) P R I 0056160 N T - F U N C T I O N ( * " 0056200 f u n c t i o n u s e d t 0056220 o p r i n t i t " * ) T 0056240 Y P E ( * \r " t y p e s 0056260 p e c i f i e d " * ) L I S 0056300 P - T Y P E ( * " a c t u 0056320 a l t y p e u s e d f o r 0056340 i m p l e m e n t a t i o n " 0056360 * ) N A M E D ( * \r " 0056400 T i f n a m e d , N i l 0056420 o t h e r w i s e " * ) O F 0056440 F S E T ( * " f i r s t 0056460 s l o t ' s o f f s e t i n 0056500 t o i m p l e m e n t a t i o 0056520 n s e q u e n c e " * ) \r 0056540 C L : L E N G T H ) \r ( / D E C 0056560 L A R E D A T A T Y P E ( Q U 0056600 O T E D E F S T R U C T - D E 0056620 S C R I P T I O N ) ( Q U O T 0056640 E ( P O I N T E R P O I N T 0056660 E R P O I N T E R P O I N T 0056700 E R P O I N T E R \r P O I N 0056720 T E R P O I N T E R P O I N * 0057040 T E R ) ) ( Q U O T E ( ( \r 0057060 D E F S T R U C T - D E S C R I 0057100 P T I O N 0 P O I N T E R ) 0057120 ( D E F S T R U C T - D E S C 0057140 R I P T I O N 2 P O I N T E 0057160 R ) ( D E F S T R U C T - D E 0057200 S C R I P T I O N 4 P O I N 0057220 T E R ) ( \r D E F S T R U C T 0057240 - D E S C R I P T I O N 6 P 0057260 O I N T E R ) ( D E F S T R U 0057300 C T - D E S C R I P T I O N 8 0057320 P O I N T E R ) ( D E F S T 0057340 R U C T - D E S C R I P T I O N 0057360 1 0 P O I N T E R ) \r ( D 0057400 E F S T R U C T - D E S C R I P 0057420 T I O N 1 2 P O I N T E R ) 0057440 ( D E F S T R U C T - D E S C 0057460 R I P T I O N 1 4 P O I N T 0057500 E R ) ( D E F S T R U C T - D 0057520 E S C R I P T I O N 1 6 \r P 0057540 O I N T E R ) ( D E F S T R U 0057560 C T - D E S C R I P T I O N 1 0057600 8 P O I N T E R ) ( D E F S 0057620 T R U C T - D E S C R I P T I O 0057640 N 2 0 P O I N T E R ) ( D 0057660 E F S T R U C T - D E S C R I P 0057700 T I O N \r 2 2 P O I N T E R 0057720 ) ( D E F S T R U C T - D E S 0057740 C R I P T I O N 2 4 P O I N 0057760 T E R ) ( D E F S T R U C T - 0060000 D E S C R I P T I O N 2 6 P 0060020 O I N T E R ) ( \r D E F S T R 0060040 U C T - D E S C R I P T I O N 0060060 2 8 P O I N T E R ) ( D E F 0060100 S T R U C T - D E S C R I P T I 0060120 O N 3 0 P O I N T E R ) ) ) 0060140 ( Q U O T E 3 2 ) ) \r ( D E 0060160 F S T R U C T ( D E F S T R U 0060200 C T - S L O T - D E S C R I P T 0060220 I O N ( : C O N C - N A M E 0060240 D S D - ) ( : P R I N T - F U 0060260 N C T I O N \r P R I N T - D E 0060300 F S T R U C T - S L O T - D E S 0060320 C R I P T I O N ) ) N A M E 0060340 ( * " n a m e o f t h e 0060360 s l o t " * ) I N D E X 0060400 ( * \r " i t s p o s i t i 0060420 o n i n t h e i m p l e m 0060440 e n t a t i o n s e q u e n c 0060460 e " * ) A C C E S S O R ( 0060500 * " n a m e o f i t a 0060520 c c e s s o r f u n c t i o n 0060540 " * ) \r D E F A U L T ( * 0060560 " d e f a u l t v a l u e 0060600 " * ) T Y P E ( * " d 0060620 e c l a r e d t y p e " * ) 0060640 R E A D - O N L Y ) \r ( / D E 0060660 C L A R E D A T A T Y P E ( Q 0060700 U O T E D E F S T R U C T - S 0060720 L O T - D E S C R I P T I O N ) 0060740 ( Q U O T E ( P O I N T E R 0060760 P O I N T E R P O I N T E R * 0061020 \r P O I N T E R ) ) ( Q U O 0061040 T E ( ( D E F S T R U C T - S 0061060 L O T - D E S C R I P T I O N 0061100 0 P O I N T E R ) ( D E F S 0061120 T R U C T - S L O T - D E S C R 0061140 I P T I O N 2 P O I N T E R 0061160 ) ( \r D E F S T R U C T - S L 0061200 O T - D E S C R I P T I O N 4 0061220 P O I N T E R ) ( D E F S T 0061240 R U C T - S L O T - D E S C R I 0061260 P T I O N 6 P O I N T E R ) 0061300 ( \r D E F S T R U C T - S L O 0061320 T - D E S C R I P T I O N 8 0061340 P O I N T E R ) ( D E F S T R 0061360 U C T - S L O T - D E S C R I P 0061400 T I O N 1 0 P O I N T E R ) 0061420 ) ) ( Q U O T E 1 2 ) ) \r ( 0061440 D E F M A C R O D E F S T R U 0061460 C T ( N A M E - A N D - O P T 0061500 I O N S & R E S T S L O T - 0061520 D E S C R I P T I O N S ) ( D 0061540 E F S T R U C T . E X P A N D E 0061560 R N A M E - A N D - O P T I O 0061600 N S \r S L O T - D E S C R I P 0061620 T I O N S ) ) \r ( P U T P R O P 0061640 S D E F S T R U C T U S E R 0061660 R E C O R D T Y P E ( L A M B 0061700 D A ( D E F ) ( L E T ( ( 0061720 D E ( D E F S T R U C T . E X 0061740 P A N D E R ( C A D R D E F 0061760 ) ( C D D R D E F ) ) ) \r 0062000 ( B R E A K 1 N I L T ) ) 0062020 ( R E S E T V A R S ( ( F I L 0062040 E P K G F L G ) ) ( M A P C 0062060 ( C D R D E ) ( Q U O T E 0062100 E V A L ) ) ) ( C A R D E ) 0062120 ) ) ) \r ( M O V D ( Q U O T E 0062140 R E C O R D ) ( Q U O T E 0062160 D E F S T R U C T ) ) \r ( A D D 0062200 T O V A R C L I S P R E C O R 0062220 D T Y P E S D E F S T R U C T 0062240 ) \r ( P U T P R O P S C M L D 0062260 E F S T R U C T C O P Y R I G 0062300 H T ( " X e r o x C o r p o 0062320 r a t i o n " 1 9 8 5 ) ) \r N 0062340 I L \r 0062343