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