$ od -c -N 50000 [eris]<LispCore>LIBRARY>CMLSTRUCT.DCOM!40
0000000 ( F I L E C R E A T E D " 6
0000020 - J u l - 8 6 2 1 : 4 4 : 3 8
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 > C M L > L A B > C M L S T R
0000120 U C T . ; 8 ) \r " 3 0 - J u n
0000140 - 8 6 1 2 : 0 6 : 2 7 " " C
0000160 O M P I L E - F I L E d " i n
0000200 " X e r o x L i s p 3 0 -
0000220 J u n - 8 6 . . . " d a t e
0000240 d " 3 0 - J u n - 8 6 1 3 :
0000260 3 7 : 0 8 " ) \r ( F I L E C R E
0000300 A T E D " 6 - J u l - 8 6
0000320 2 1 : 4 4 : 1 9 " { E R I S }
0000340 < L I S P C O R E > C M L > L A
0000360 B > C M L S T R U C T . ; 8 2
0000400 3 5 5 5 c h a n g e s t o :
0000420 ( F N S \r C O N S T R U C T
0000440 O R - D E F U N L O C A L - S
0000460 L O T - L I S T ) ( F U N C T
0000500 I O N S D E F S T R U C T )
0000520 ( V A R S C M L S T R U C T C
0000540 O M S ) p r e v i o u s d a
0000560 t e : \r " 1 7 - J u n - 8 6
0000600 1 6 : 0 3 : 5 3 " { E R I S }
0000620 < L I S P C O R E > C M L > L A
0000640 B > C M L S T R U C T . ; 7 ) \r
0000660 ( R P A Q Q C M L S T R U C T
0000700 C O M S ( ( * * t h i s
0000720 i s t h e b a b y d e f s
0000740 t r u c t u s e d t o b o
0000760 o t s t r a p P C L ) ( F U
0001000 N C T I O N S S L O T - N A M
0001020 E ) ( \r F N S D E F A U L T
0001040 - S T R U C T U R E - P R I N T
0001060 E R L O C A L - S L O T - L I
0001100 S T \ D E F P R I N T . D E F
0001120 S T R U C T . D E F A U L T \
0001140 C M L S T R U C T . C L T Y P E
0001160 . T O . I L T Y P E \r S L O T
0001200 - L I S T S U B S T I T U T E
0001220 - S L O T S S T R U C T U R E
0001240 - C O N S T R U C T O R C R E
0001260 A T E - S T R U C T U R E C O
0001300 N S T R U C T O R - D E F U N )
0001320 ( D E F I N E - T Y P E S \r
0001340 S T R U C T U R E S ) ( S E T
0001360 F S I N C L U D E D - S T R U
0001400 C T U R E ) ( F U N C T I O N
0001420 S D E F S T R U C T ) ( P R
0001440 O P F I L E T Y P E C M L S
0001460 T R U C T ) ( D E C L A R E :
0001500 \r D O N T E V A L @ L O A D
0001520 D O E V A L @ C O M P I L E D
0001540 O N T C O P Y C O M P I L E R
0001560 V A R S ( A D D V A R S ( N
0001600 L A M A ) ( N L A M L ) ( L
0001620 A M A C R E A T E - S T R U C
0001640 T U R E \r S T R U C T U R E -
0001660 C O N S T R U C T O R S U B S
0001700 T I T U T E - S L O T S S L O
0001720 T - L I S T D E F A U L T - S
0001740 T R U C T U R E - P R I N T E R
0001760 ) ) ) ) ) \r e x p a n d - S L O
0002000 T - N A M E D 1 \r ( L ( 1
0002020 $ $ M A C R O - E N V I R O N M
0002040 E N T 0 $ $ M A C R O - F O
0002060 R M ) ) \0 037 001 \0 \0 002 @ 002 001 021 001
0002100 \0 g \0 \0 g \0 \0 H h 032 032 H g \0 \0 H
0002120 h 032 032 h 032 032 032 032 020 \0 N I L \r ( 2
0002140 3 Q C A R 1 3 Q C L : A T
0002160 O M 1 0 Q C L : I F ) \r ( )
0002200 \r ( S E T F - M A C R O - F U N
0002220 C T I O N ( Q U O T E S L O
0002240 T - N A M E ) ( Q U O T E e
0002260 x p a n d - S L O T - N A M E )
0002300 ) \r D E F A U L T - S T R U C T
0002320 U R E - P R I N T E R D 1 \r (
0002340 L ( 2 L E V E L 1 S T R
0002360 E A M 0 S T R U C ) ) \0 \a
0002400 \0 \0 \0 003 @ A \n \0 \0 020 \0 ( 4 \ D
0002420 E F P R I N T . D E F S T R U C
0002440 T . D E F A U L T ) \r N I L \r (
0002460 ) \r L O C A L - S L O T - L I S
0002500 T D 1 \r ( L ( 0 N A M E )
0002520 ) \0 016 \0 \0 \0 001 @ 301 002 311 \0 g \0 \0
0002540 ' \t \0 \0 020 \0 ( 1 3 Q C O P Y )
0002560 \r ( 7 % % L O C A L - S L O T
0002600 - N A M E S ) \r ( ) \r \ D E F P
0002620 R I N T . D E F S T R U C T . D
0002640 E F A U L T D 1 \r ( L ( 1
0002660 S T R E A M 0 S T R U C )
0002700 P 4 * P R I N T - L E V E L
0002720 * F 1 1 Q * R E A D T A B
0002740 L E * F 1 2 Q * P R I N T
0002760 - L E V E L * ) \0 216 \t 002 \0 002 @
0003000 \t \0 \0 021 1 003 A W 022 006 \0 \0 312 004 \a 273
0003020 Z 006 \0 \0 311 271 J K l 002 I 016 277 o \0
0003040 \0 \0 A \n \0 \0 H A \n \0 \0 W 024 d 221 k
0003060 331 021 001 004 H \t \0 \0 H \t \0 \0 021 " \b N
0003100 003 265 003 207 001 _ 016 277 M 003 265 016 023 023 o \0
0003120 \0 \0 A \n \0 \0 i 020 001 _ 020 277 o \0 \0 \0
0003140 A \n \0 \0 277 O 016 d 003 220 001 A \n \0 \0 277
0003160 o \0 \0 \0 A \n \0 \0 277 O 020 @ \n \0 \0 A
0003200 \n \0 \0 277 N 002 276 M 002 275 260 265 \0 ( 2 0
0003220 3 Q P R I N 2 1 7 7 Q F E
0003240 T C H F I E L D 1 7 0 Q P R
0003260 I N 1 1 5 7 Q P R I N 2 1
0003300 4 4 Q P R I N 1 1 2 6 Q P
0003320 R I N 1 7 4 Q S L O T - L I
0003340 S T 7 0 Q G E T D E S C R I
0003360 P T O R S 5 3 Q P R I N 2
0003400 4 6 Q P R I N 3 3 T Y P E
0003420 N A M E ) \r ( 2 4 Q S T R E A
0003440 M 1 4 Q R E A D T A B L E P
0003460 ) \r ( 1 6 4 Q " " 1 4 0
0003500 Q " " 1 2 2 Q " ) " 4
0003520 2 Q " S ( " ) \r \ C M L S T R
0003540 U C T . C L T Y P E . T O . I L
0003560 T Y P E D 1 \r ( L ( 0 E L
0003600 E M E N T T Y P E ) ) 001 E 003 \0
0003620 \0 001 @ g \0 \0 360 244 @ d i 360 223 g \0 \0
0003640 020 g \0 \0 360 223 g \0 \0 020 @ d g \0 \0 360
0003660 222 261 001 005 d g \0 \0 360 224 o \0 \0 \0 020 d
0003700 g \0 \0 360 222 261 001 020 g \0 \0 360 246 @ d g
0003720 \0 \0 360 223 g \0 \0 020 003 001 g \0 \0 360 262 <
0003740 @ d 002 002 263 7 d 002 001 3 262 0 d 002 001
0003760 k 361 262 ) 002 001 021 001 \0 H d o \0 \0 \0 361
0004000 255 277 g \0 \0 H k 331 \t \0 \0 h 032 032 020 o
0004020 \0 \0 \0 361 263 211 g \0 \0 020 @ 003 001 g \0 \0
0004040 360 262 5 @ d 002 002 263 0 d 002 001 3 262 )
0004060 d 002 001 j 361 262 " 002 001 021 001 \0 H d l 020
0004100 361 250 277 g \0 \0 H h 032 032 020 l 037 361 222 261
0004120 377 N g \0 \0 020 @ 003 001 g \0 \0 360 262 ] @
0004140 d 002 002 002 263 W d 002 001 3 262 P d 002 002
0004160 001 3 262 H d 002 001 @ 002 002 001 375 361 262 =
0004200 002 001 021 ! 002 @ 002 002 001 Z H 331 271 H j 330
0004220 j 360 236 g \0 \0 I k 330 h 032 032 b \0 023 261
0004240 376 363 o \0 \0 \0 H 361 222 261 376 364 J o \0 \0
0004260 \0 361 222 261 376 352 g \0 \0 020 @ o \0 \0 \0 364
0004300 222 261 376 334 @ \b \0 \0 034 222 261 376 323 o \0 \0
0004320 \0 @ \n \0 \0 020 \0 ( 5 0 2 Q E R R
0004340 O R 4 6 5 Q U S E R D A T A
0004360 T Y P E S 1 7 0 Q I N T E G
0004400 E R L E N G T H ) \r ( 4 4 6 Q
0004420 F I X P 4 0 3 Q M O D 3 1
0004440 1 Q I N T E G E R 3 0 2 Q
0004460 F I X P 2 6 3 Q B I T S 2
0004500 1 5 Q U N S I G N E D - B Y T
0004520 E 2 0 6 Q F I X P 1 6 2 Q
0004540 B I T S 1 1 2 Q M O D 1
0004560 0 4 Q F L O A T P 7 7 Q F
0004600 L O A T 7 0 Q S I N G L E -
0004620 F L O A T 6 0 Q X P O I N T
0004640 E R 4 5 Q B I T 3 4 Q I
0004660 N T E G E R 2 6 Q S I G N E
0004700 D W O R D 2 1 Q F I X N U M
0004720 1 5 Q P O I N T E R 3 S
0004740 T R I N G - C H A R ) \r ( 4 7
0004760 6 Q " B a d t y p e s p e
0005000 c i f i e r " 4 5 4 Q ( S I
0005020 M P L E - V E C T O R C L : *
0005040 F I X N U M ) 4 3 6 Q 1 7
0005060 7 7 7 7 7 7 7 7 7 Q 4 2 3 Q
0005100 - 2 0 0 0 0 0 0 0 0 0 0 Q 2 0
0005120 0 Q \r 1 7 7 7 7 7 7 7 7 7 7 Q
0005140 1 5 4 Q 2 0 0 0 0 0 Q 5 3
0005160 Q ( B I T S 1 ) ) \r S L O T
0005200 - L I S T D 1 \r ( L ( 0 N
0005220 A M E ) ) \0 016 \0 \0 \0 001 @ 301 002 311
0005240 \0 g \0 \0 ' \t \0 \0 020 \0 ( 1 3 Q C
0005260 O P Y ) \r ( 7 % % S L O T - D
0005300 E S C R I P T I O N S ) \r ( ) \r
0005320 S U B S T I T U T E - S L O T S
0005340 D 1 \r ( L ( 1 O L D S L O
0005360 T S 0 N E W S L O T S ) )
0005400 \0 < 006 \0 \0 002 @ 241 A 020 021 ` 005 A 260 .
0005420 d 001 275 @ [ 003 265 \r M 270 I 265 035 H h 032
0005440 Z 260 031 001 274 M d 003 220 001 L d 003 220 001 360
0005460 222 L 265 347 K 002 260 336 H & 271 002 003 265 323 J
0005500 020 \0 N I L \r N I L \r ( ) \r S T R
0005520 U C T U R E - C O N S T R U C T
0005540 O R D 1 \r ( L ( 0 S T R U
0005560 C T U R E - N A M E ) ) \0 \v \0
0005600 \0 \0 001 @ 301 002 311 \0 g \0 \0 ' 020 \0 N I
0005620 L \r ( 7 S T R U C T U R E - C
0005640 O N S T R U C T O R ) \r ( ) \r C
0005660 R E A T E - S T R U C T U R E
0005700 D 1 \r ( L ( 0 S T R U C T U
0005720 R E - F O R M ) ) \0 5 004 \0 \0 001
0005740 @ 001 \t \0 \0 021 @ 003 @ 260 031 d [ 001 \t \0
0005760 \0 K 002 001 h 032 032 X 003 226 I 265 021 H Z Y
0006000 277 002 002 003 265 347 J 022 \n \0 \0 020 \t \0 \0 Y
0006020 H 031 260 356 \0 ( 5 6 Q L A S T 5
0006040 2 Q A P P L Y 2 0 Q M A K
0006060 E - K E Y W O R D 4 S T R U
0006100 C T U R E - C O N S T R U C T O
0006120 R ) \r N I L \r ( ) \r C O N S T R
0006140 U C T O R - D E F U N D 1 \r (
0006160 L ( 2 N A M E 1 S L O T
0006200 - D E S C R I P T I O N S 0
0006220 X ) ) \0 r 005 \0 \0 003 021 @ 003 A 260 034
0006240 d 001 [ d 003 226 001 K 002 001 h 032 032 270 I 265
0006260 \a H h 032 Z 201 H & 271 002 003 265 345 J 022 021
0006300 021 001 g \0 \0 @ H 264 \a g \0 \0 H 032 g \0
0006320 \0 B 021 0 004 A 260 d 001 Y d 003 220 001 g
0006340 \0 \0 I d 003 220 001 h 032 032 032 Z 003 226 K 265
0006360 024 J \ [ 277 002 003 265 341 L 022 032 032 h 032 032
0006400 032 032 020 \t \0 \0 [ J 031 260 353 \0 ( 1 5 3
0006420 Q L A S T ) \r ( 1 0 7 Q _
0006440 6 6 Q c r e a t e 6 1 Q &
0006460 K E Y 5 2 Q D E F U N ) \r (
0006500 ) \r ( A D D T O V A R P R E T
0006520 T Y D E F M A C R O S ( S T R
0006540 U C T U R E S X ( P * (
0006560 M A P C A R ( Q U O T E X )
0006600 ( F U N C T I O N ( L A M B
0006620 D A ( I T E M ) ( C L : D O
0006640 ( ( D E F ( \r G E T I T E
0006660 M ( Q U O T E S T R U C T U
0006700 R E S ) ) ) ) ( D E F D E F
0006720 ) ( C E R R O R " R e - f e
0006740 t c h t h e d e f i n i t i
0006760 o n " " N o ~ S d e f i n
0007000 i t i o n f o r ~ S " ( \r
0007020 Q U O T E S T R U C T U R E S
0007040 ) I T E M ) ) ) ) ) ) ) ) \r (
0007060 A D D T O V A R P R E T T Y T
0007100 Y P E L S T ( C H A N G E D S
0007120 T R U C T U R E S L S T S T R
0007140 U C T U R E S " C o m m o n
0007160 L i s p s t r u c t u r e s "
0007200 ) ) \r ( A D D T O V A R F I L
0007220 E P K G T Y P E S S T R U C T
0007240 U R E S ) \r ( P U T P R O P S
0007260 S T R U C T U R E S G E T D E
0007300 F \ D E F I N E - T Y P E - G
0007320 E T D E F ) \r ( P U T P R O P S
0007340 S T R U C T U R E S F I L E
0007360 P K G C O N T E N T S N I L L
0007400 ) \r ( P U T P R O P S S T R U
0007420 C T U R E S P R O P T Y P E
0007440 S T R U C T U R E S ) \r ( R E M
0007460 P R O P ( Q U O T E I N C L
0007500 U D E D - S T R U C T U R E )
0007520 ( Q U O T E S E T F - I N V E
0007540 R S E ) ) \r I N C L U D E D - S
0007560 T R U C T U R E - s e t f - e x
0007600 p a n d e r D 1 \r ( L ( 0
0007620 A C C E S S - F O R M ) ) \0 E
0007640 004 \0 \0 001 021 0 002 @ 216 \b \0 \0 270 I 265 \a
0007660 H h 032 Z 201 H & 271 002 003 265 357 J 022 021 1
0007700 003 @ 001 H 032 271 \b \0 \0 272 H @ 002 J h 032
0007720 I 002 001 273 g \0 \0 K o \0 \0 \0 J h 032 032
0007740 032 032 I \r 005 \0 \0 020 \0 ( 1 0 2 Q V
0007760 A L U E S 4 4 Q G E N S Y M
0010000 7 G E N S Y M ) \r ( 6 2 Q
0010020 P U T ) \r ( 6 7 Q ( Q U O T
0010040 E % % % % I N C L U D E D - S
0010060 T R U C T U R E ) ) \r ( P U T P
0010100 R O P S I N C L U D E D - S T
0010120 R U C T U R E S E T F - M E T
0010140 H O D - E X P A N D E R I N C
0010160 L U D E D - S T R U C T U R E -
0010200 s e t f - e x p a n d e r ) \r e
0010220 x p a n d - D E F S T R U C T
0010240 D 1 \r ( L ( 1 $ $ M A C R O
0010260 - E N V I R O N M E N T 0 $
0010300 $ M A C R O - F O R M ) ) 005 <
0010320 / \0 \0 002 @ 002 021 361 017 021 200 027 @ 271 H 001
0010340 272 H 002 273 g \0 \0 g \0 \0 J 003 264 \a J 002
0010360 J 001 272 _ . 277 K 001 005 \a 264 \a K 001 K 002
0010400 273 g \0 \0 J o \0 \0 \0 \n \0 \0 J o \0 \0
0010420 \0 \n \0 \0 g \0 \0 o \0 \0 \0 J \n \0 \0 021
0010440 246 ' O . 261 \0 264 d 001 ] d 003 242 261 \0 230
0010460 001 \ d g \0 \0 360 230 277 M 002 001 _ < 261 \0
0010500 230 g \0 \0 360 231 M 002 O H 032 _ H 261 \0 211
0010520 L d g \0 \0 360 235 277 M 002 001 265 006 o \0 \0
0010540 \0 _ 4 260 s g \0 \0 360 231 O F 263 k M 002
0010560 _ F 260 d L d g \0 \0 360 227 277 M 002 001 _
0010600 : 260 U g \0 \0 360 226 M 002 001 _ 8 260 I L
0010620 d g \0 \0 360 227 277 M 002 001 _ 6 260 : g \0
0010640 \0 360 235 M 002 001 o \0 \0 \0 \n \0 \0 _ < 260
0010660 ' L g \0 \0 360 230 o \0 \0 \0 \t \0 \0 260 030
0010700 o \0 \0 \0 214 g \0 \0 360 223 i _ N 207 o \0
0010720 \0 \0 M \n \0 \0 277 002 003 265 003 202 261 377 K O
0010740 < 244 O 2 _ < 277 K 214 d 001 d 003 220 001 O
0010760 B 032 _ B 277 002 003 265 362 021 0 * O B 260 033
0011000 d 001 J 032 _ P 277 O R 265 \t O P h 032 _
0011020 T 202 O P & _ R 277 002 003 265 346 O T 022 _
0011040 J 277 O F 265 \t K \t \0 \0 261 \0 347 _ 026 001
0011060 _ 024 277 O 026 002 _ 022 277 O 024 g \0 \0 \n \0
0011100 \0 ^ 251 o \0 \0 \0 O 024 \n \0 \0 277 g \0 \0
0011120 N 002 001 d 003 243 d 221 h 032 \n \0 \0 002 001 265
0011140 0 O 2 O < 360 253 o \0 \0 \0 O F O < \v
0011160 \0 \0 277 g \0 \0 O 022 O 024 \t \0 \0 \n \0 \0
0011200 K \v \0 \0 273 O < d g \0 \0 360 232 260 Q o
0011220 \0 \0 \0 \n \0 \0 260 315 g \0 \0 360 262 9 O F
0011240 001 _ 020 277 g \0 \0 O 020 h 032 032 O D 032 _
0011260 D 277 O 020 _ 016 265 005 261 377 n \t \0 \0 213 d
0011300 001 O 016 032 O J 032 _ J 277 002 003 265 363 O 016
0011320 \t \0 \0 260 341 o \0 \0 \0 O < \n \0 \0 277 261
0011340 377 G d 001 _ 030 d 003 220 001 O @ 032 _ @ 277
0011360 O 030 003 002 001 262 033 O 030 d 003 220 001 g \0 \0
0011400 O 030 002 001 h 032 032 032 O D \n \0 \0 _ D 277
0011420 002 003 265 320 O < d g \0 \0 360 225 277 g \0 \0
0011440 260 ( g \0 \0 360 234 O N 224 g \0 \0 260 033 g
0011460 \0 \0 260 026 O < g \0 \0 360 223 g \0 \0 210 o
0011500 \0 \0 \0 O < \n \0 \0 J O @ O D 032 032 032
0011520 ` \0 \0 032 027 \0 \0 277 K 261 \0 306 d 001 d 003
0011540 243 d 221 h 032 _ & 001 _ $ 277 O & 002 002 _
0011560 " 277 g \0 \0 O " \n \0 \0 d 220 001 _ 277
0011600 O 4 O $ \n \0 \0 O < d g \0 \0 360 223 277
0011620 J 260 " g \0 \0 360 262 023 O $ O J \n \0 \0
0011640 002 265 022 o \0 \0 \0 O $ 205 o \0 \0 \0 O <
0011660 \n \0 \0 _ 036 277 _ 034 277 g \0 \0 O 034 o \0
0011700 \0 \0 g \0 \0 O 036 O $ h 032 032 o \0 \0 \0
0011720 032 032 h 032 032 032 032 O 263 ; o \0 \0 \0 O
0011740 034 \n \0 \0 _ 032 277 g \0 \0 O 032 o \0 \0 \0
0011760 g \0 \0 O 036 O $ h 032 032 o \0 \0 \0 032 032
0012000 h 032 032 032 032 g \0 \0 O 034 O 032 h 032 032 032
0012020 h 032 032 200 h 032 O > \n \0 \0 _ > 277 002 003
0012040 265 003 202 261 377 9 g \0 \0 O > O < d g \0
0012060 \0 360 223 277 h 260 < g \0 \0 360 262 034 g \0 \0
0012100 O 6 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 J
0012120 h 032 032 h 032 260 023 g \0 \0 O 6 o \0 \0 \0
0012140 g \0 \0 J o \0 \0 \0 032 032 h 032 032 032 032 h
0012160 032 O : 264 034 g \0 \0 O : o \0 \0 \0 g \0
0012200 \0 J o \0 \0 \0 032 032 h 032 032 032 032 h 032 O
0012220 8 264 D g \0 \0 g \0 \0 J h 032 032 O 8 g
0012240 \0 \0 360 225 o \0 \0 \0 260 ' g \0 \0 g \0 \0
0012260 o \0 \0 \0 g \0 \0 g \0 \0 O 8 h 032 032 o
0012300 \0 \0 \0 032 032 o \0 \0 \0 032 032 032 h 032 032 h
0012320 032 032 032 h 032 O H 021 1 . O V 003 265 020 O
0012340 L 263 i O H 262 P o \0 \0 \0 260 N 001 d 002
0012360 262 036 _ , 001 _ * 277 O , 002 001 _ ( 277 g
0012400 \0 \0 O * O ( o \0 \0 \0 032 032 032 207 001 _
0012420 L K J \v \0 \0 _ \ 277 O Z 265 022 O \ h
0012440 032 _ Z _ X 277 O V 002 _ V 260 261 O \ &
0012460 _ Z 277 260 363 o \0 \0 \0 J \n \0 \0 _ L K
0012500 J \v \0 \0 O X 032 _ X 277 O X 022 O F 264
0012520 g \0 \0 g \0 \0 g \0 \0 J h 032 032 h 032
0012540 032 g \0 \0 O F h 032 032 h 032 032 032 h 032 g
0012560 \0 \0 g \0 \0 J h 032 032 o \0 \0 \0 g \0 \0
0012600 O L h 032 032 h 032 032 032 032 g \0 \0 g \0 \0
0012620 J h 032 032 o \0 \0 \0 g \0 \0 K h 032 032 h
0012640 032 032 032 032 g \0 \0 g \0 \0 J h 032 032 o \0
0012660 \0 \0 g \0 \0 O B h 032 032 h 032 032 032 032 J
0012700 k g \0 \0 017 016 032 032 032 \n \0 \0 \n \0 \0 \n
0012720 \0 \0 \n \0 \0 \n \0 \0 \n \0 \0 032 022 h 032 032
0012740 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0
0012760 J g \0 \0 I h 032 032 032 032 h 032 032 032 h 032
0013000 032 032 g \0 \0 J h 032 032 h 032 032 032 032 020 \0
0013020 ( 2 4 0 6 Q \ A P P E N D 2
0013040 2 4 0 3 Q \ A P P E N D 2 2
0013060 4 0 0 Q \ A P P E N D 2 2 3
0013100 7 5 Q \ A P P E N D 2 2 3 7
0013120 2 Q \ A P P E N D 2 2 3 6 7
0013140 Q \ A P P E N D 2 2 1 5 7 Q
0013160 C O N S T R U C T O R - D E F
0013200 U N 2 1 5 0 Q P A C K * 2
0013220 1 0 1 Q C O N S T R U C T O R
0013240 - D E F U N 1 5 0 6 Q \ A P
0013260 P E N D 2 1 4 1 7 Q P A C K
0013300 * 1 3 3 6 Q C L : E R R O R
0013320 1 3 1 3 Q C L : A S S O C
0013340 1 2 6 2 Q P A C K * 1 2 4 5
0013360 Q F I N D - K E Y W O R D 1
0013400 1 6 3 Q C L : E R R O R 1 0
0013420 7 0 Q \ A P P E N D 2 1 0 1
0013440 1 Q C L : E R R O R 7 7 6 Q
0013460 I N C L U D E D - S T R U C T
0013500 U R E 7 5 1 Q L O C A L - S
0013520 L O T - L I S T 7 0 1 Q P A
0013540 C K * 6 5 7 Q C O N C A T E
0013560 N A T E 6 5 3 Q S U B S T I
0013600 T U T E - S L O T S 6 5 0 Q
0013620 S L O T - L I S T 6 3 5 Q C
0013640 L : E R R O R 6 1 0 Q C L :
0013660 A S S O C 5 6 7 Q C L : E R
0013700 R O R 5 5 4 Q G E T D E F
0013720 5 2 5 Q R E V E R S E 4 0 1
0013740 Q C L : E R R O R 3 5 1 Q
0013760 C L : E R R O R 3 3 0 Q P A
0014000 C K * 1 1 2 Q P A C K * 7
0014020 7 Q P A C K * 6 7 Q C O N
0014040 C A T ) \r ( 2 4 6 0 Q Q U O T
0014060 E 2 4 3 7 Q S T R U C T U R
0014100 E S 2 4 3 3 Q P U T P R O P
0014120 S 2 4 3 0 Q F I L E P K G F
0014140 L G 2 4 2 5 Q A N D 2 4 1
0014160 6 Q E V A L - W H E N 2 3 5
0014200 7 Q R E C O R D A L L O C A T
0014220 I O N S 2 3 4 0 Q Q U O T E
0014240 2 3 2 5 Q Q U O T E 2 3 2
0014260 2 Q P U T P R O P 2 3 0 6 Q
0014300 Q U O T E 2 2 7 3 Q Q U O
0014320 T E 2 2 7 0 Q P U T P R O P
0014340 2 2 5 3 Q Q U O T E 2 2 4
0014360 0 Q Q U O T E 2 2 3 5 Q P
0014400 U T P R O P 2 2 1 7 Q Q U O
0014420 T E 2 2 0 5 Q Q U O T E 2
0014440 2 0 2 Q I N C L U D E D - S T
0014460 R U C T U R E 2 1 7 7 Q S E
0014500 T F 2 0 5 5 Q D E F U N 1
0014520 7 4 5 Q F U N C T I O N 1 7
0014540 4 2 Q A P P L Y * 1 7 3 3 Q
0014560 L A M B D A 1 7 3 0 Q F U
0014600 N C T I O N 1 7 1 5 Q D E F
0014620 A U L T - S T R U C T U R E - P
0014640 R I N T E R 1 7 0 4 Q Q U O
0014660 T E 1 7 0 1 Q D E F P R I N
0014700 T 1 6 5 4 Q c r e a t e 1
0014720 6 4 3 Q D E F U N 1 6 1 6 Q
0014740 t y p e ? 1 6 0 5 Q D E F
0014760 U N 1 5 7 2 Q Q U O T E 1
0015000 5 6 7 Q O B J E C T 1 5 6 4
0015020 Q \ I N S T A N C E - P 1 5
0015040 5 3 Q D E F U N 1 5 4 5 Q
0015060 S T R U C T U R E - C L A S S
0015100 1 5 3 4 Q L I S T - C L A S S
0015120 1 5 2 4 Q P R O G N 1 4 6
0015140 3 Q D E F S E T F 1 4 3 6 Q
0015160 r e p l a c e 1 4 2 5 Q D
0015200 E F U N 1 3 6 0 Q f e t c h
0015220 1 3 4 7 Q D E F U N 1 3 0
0015240 1 Q S T R U C T U R E - C L A
0015260 S S 1 2 7 0 Q L I S T - C L
0015300 A S S 1 2 4 0 Q : R E A D -
0015320 O N L Y 1 2 0 2 Q U S E R R
0015340 E C L S T 1 1 7 6 Q U S E R
0015360 R E C L S T 1 1 5 1 Q A R R
0015400 A Y R E C O R D 1 1 4 4 Q V
0015420 E C T O R 1 1 3 5 Q R E C O
0015440 R D 1 1 3 0 Q T Y P E R E C
0015460 O R D 1 1 2 0 Q L I S T - C
0015500 L A S S 1 1 1 3 Q D A T A T
0015520 Y P E 1 1 0 5 Q S T R U C T
0015540 U R E - C L A S S 1 0 5 3 Q
0015560 _ 7 2 2 Q I N C L U D E S
0015600 7 0 6 Q S T R U C T U R E - C
0015620 L A S S 6 6 6 Q L I S T - C
0015640 L A S S 6 4 1 Q L I S T 5
0015660 7 3 Q : T Y P E 5 5 1 Q S
0015700 T R U C T U R E S 3 6 3 Q :
0015720 N A M E D 3 4 0 Q : I N I T
0015740 I A L - O F F S E T 3 1 4 Q
0015760 : T Y P E 2 7 7 Q : P R E D
0016000 I C A T E 2 6 1 Q : P R I N
0016020 T - F U N C T I O N 2 4 4 Q
0016040 : C O P I E R 2 2 3 Q : I N
0016060 C L U D E 2 0 0 Q : C O N C
0016100 - N A M E 1 5 7 Q : C O N S
0016120 T R U C T O R 1 4 1 Q : C L
0016140 A S S 1 0 2 Q D E F A U L T
0016160 - S T R U C T U R E - P R I N T
0016200 E R 5 7 Q S T R U C T U R E
0016220 - C L A S S 2 5 Q W I T H O
0016240 U T - F I L E P K G 2 2 Q P
0016260 R O G N ) \r ( 2 4 2 2 Q ( C
0016300 L : E V A L ) 2 3 3 5 Q ( Q
0016320 U O T E % % L O C A L - S L O
0016340 T - N A M E S ) 2 3 0 3 Q (
0016360 Q U O T E % % S L O T - D E S
0016400 C R I P T I O N S ) 2 2 5 0 Q
0016420 ( Q U O T E S T R U C T U R
0016440 E - C O N S T R U C T O R ) \r
0016460 2 1 4 4 Q " M A K E - " 2 0
0016500 6 5 Q ( ( B Q U O T E ( c r
0016520 e a t e ( \ , N A M E ) (
0016540 \ , @ ( f o r x i n C O
0016560 N S T R U C T O R - A R G S j
0016600 o i n ( C O N D ( ( F M E M
0016620 B x ( Q U O T E ( & K E Y
0016640 & O P T I O N A L & R E S T
0016660 ) ) ) N I L ) ( ( L I S T P
0016700 x ) ( L I S T ( C A R x
0016720 ) ( Q U O T E _ ) ( C A R
0016740 x ) ) ) ( T ( L I S T x
0016760 ( Q U O T E _ ) x ) ) ) )
0017000 ) ) ) ) \r 2 0 2 6 Q " % % i
0017020 n t e r n a l - m a k e - " 1
0017040 7 6 4 Q ( T ) 1 7 5 6 Q (
0017060 X S T R E A M 0 ) 1 7 3 7
0017100 Q ( X S T R E A M ) 1 7 2
0017120 3 Q ( F U N C T I O N \ D E
0017140 F P R I N T . D E F S T R U C T
0017160 . D E F A U L T ) \r 1 6 6 1 Q
0017200 ( u s i n g O B J E C T )
0017220 1 6 5 1 Q ( O B J E C T ) 1
0017240 6 2 3 Q ( O B J E C T ) 1 6
0017260 1 3 Q ( O B J E C T ) 1 5 6
0017300 1 Q ( O B J E C T ) 1 4 5 1
0017320 Q ( O B J E C T V A L U E )
0017340 \r 1 4 3 3 Q ( O B J E C T
0017360 V A L U E ) 1 4 1 2 Q " s e
0017400 t f - " 1 3 7 3 Q ( o f O
0017420 B J E C T ) 1 3 5 5 Q ( O B
0017440 J E C T ) 1 3 3 1 Q " : I N
0017460 C L U D E i s n o t s u p
0017500 p o r t e d f o r t y p e
0017520 ~ A " \r 1 3 2 2 Q " s l o t
0017540 - l o c a t i o n u n k n o w
0017560 n i n s i d e d e f s t r u
0017600 c t : ~ A " 1 1 5 6 Q " I
0017620 l l e g a l t y p e : ~ S
0017640 i n D E F S T R U C T . " 1
0017660 0 0 4 Q " : I N C L U D E i
0017700 s n o t s u p p o r t e d
0017720 f o r t y p e ~ A " \r 6 7
0017740 6 Q " - C L A S S " 6 2 6 Q
0017760 " C a n ' t i n c l u d e
0020000 ~ A b e c a u s e i t i s
0020020 n o t o f t y p e ~ A "
0020040 5 6 2 Q " ~ A c a n n o
0020060 t b e i n c l u d e d b e
0020100 c a u s e i t h a s n o
0020120 s t r u c t u r e d e f i n i
0020140 t i o n " \r 3 7 5 Q " B a d
0020160 o p t i o n t o d e f s t
0020200 r u c t : ~ S . " 3 5 7 Q
0020220 " B a d o p t i o n t o d
0020240 e f s t r u c t : ~ S . " 3
0020260 4 6 Q " : I N I T I A L - O F
0020300 F S E T u n i m p l e m e n t
0020320 e d f o r D E F S T R U C T
0020340 " \r 3 2 5 Q " - C L A S S "
0020360 2 1 4 Q " " 1 0 6 Q " C
0020400 O P Y - " 7 4 Q " - P " 6
0020420 4 Q " - " ) \r ( S E T F - M A
0020440 C R O - F U N C T I O N ( Q U
0020460 O T E D E F S T R U C T ) (
0020500 Q U O T E e x p a n d - D E F
0020520 S T R U C T ) ) \r ( A D D T O V
0020540 A R P R E T T Y P R I N T M A
0020560 C R O S ( D E F S T R U C T
0020600 . P P R I N T - D E F I N E R
0020620 ) ) \r ( P U T P R O P S C M L
0020640 S T R U C T F I L E T Y P E
0020660 C O M P I L E - F I L E ) \r ( R
0020700 P A Q Q C M L S T R U C T C O
0020720 M S ( ( * * t h i s i s
0020740 t h e b a b y d e f s t r
0020760 u c t u s e d t o b o o t
0021000 s t r a p P C L ) ( F U N C
0021020 T I O N S S L O T - N A M E )
0021040 ( \r F N S D E F A U L T - S
0021060 T R U C T U R E - P R I N T E R
0021100 L O C A L - S L O T - L I S T
0021120 \ D E F P R I N T . D E F S T
0021140 R U C T . D E F A U L T \ C M
0021160 L S T R U C T . C L T Y P E . T
0021200 O . I L T Y P E \r S L O T - L
0021220 I S T S U B S T I T U T E - S
0021240 L O T S S T R U C T U R E - C
0021260 O N S T R U C T O R C R E A T
0021300 E - S T R U C T U R E C O N S
0021320 T R U C T O R - D E F U N ) (
0021340 D E F I N E - T Y P E S \r S T
0021360 R U C T U R E S ) ( S E T F S
0021400 I N C L U D E D - S T R U C T
0021420 U R E ) ( F U N C T I O N S
0021440 D E F S T R U C T ) ( P R O P
0021460 F I L E T Y P E C M L S T R
0021500 U C T ) ( D E C L A R E : \r
0021520 D O N T E V A L @ L O A D D O
0021540 E V A L @ C O M P I L E D O N
0021560 T C O P Y C O M P I L E R V A
0021600 R S ( A D D V A R S ( N L A
0021620 M A ) ( N L A M L ) ( L A M
0021640 A C R E A T E - S T R U C T U
0021660 R E \r S T R U C T U R E - C O
0021700 N S T R U C T O R S U B S T I
0021720 T U T E - S L O T S S L O T -
0021740 L I S T L O C A L - S L O T -
0021760 L I S T D E F A U L T - S T R
0022000 U C T U R E - P R I N T E R ) )
0022020 ) ) ) \r ( P U T P R O P S C M
0022040 L S T R U C T C O P Y R I G H
0022060 T ( " X e r o x C o r p o r
0022100 a t i o n " 1 9 8 5 1 9 8 6
0022120 ) ) \r S T O P \r
0022130