$ 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