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