$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLPACKAGE!32
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 006 001 ( i l : f i l e c r
0000100 e a t e d " 2 - N o v - 8 6
0000120 1 5 : 3 5 : 4 4 " 006 004 i l :
0000140 { e r i s } < l i s p c o r e >
0000160 s o u r c e s > c m l p a c k a
0000200 g e . \ ; 3 2 006 001 2 6 8 6 3
0000220 \r \r i l : | c h a
0000240 n g e s | i l : | t o : |
0000260 ( i l : f u n c t i o n s i l
0000300 : r e s o l v e - m i s s i n g
0000320 - e x t e r n a l - s y m b o l
0000340 ) \r \r i l : | p r e
0000360 v i o u s | i l : | d a t e :
0000400 | " 3 0 - O c t - 8 6 1 0 :
0000420 0 0 : 2 4 " i l : { e r i s }
0000440 < l i s p c o r e > s o u r c e
0000460 s > c m l p a c k a g e . \ ; 2
0000500 8 ) \r \r \r ; C o p y r i g h t
0000520 ( c ) 1 9 8 6 b y X e r
0000540 o x C o r p o r a t i o n .
0000560 A l l r i g h t s r e s e
0000600 r v e d . \r \r ( i l : p r e t t
0000620 y c o m p r i n t i l : c m l
0000640 p a c k a g e c o m s ) \r \r ( i
0000660 l : r p a q q 006 002 i l : c m l
0000700 p a c k a g e c o m s 006 001 ( (
0000720 i l : * i l : | ; ; ; | " T
0000740 h i s i s t h e s e c o n
0000760 d p a r t o f t h e p a
0001000 c k a g e s y s t e m , t h
0001020 e f i r s t i s i n L L
0001040 P A C K A G E , w h i c h i
0001060 s l o a d e d d u r i n g
0001100 t h e i n i t " \r
0001120
0001140 ) \r
0001160
0001200 ( i l :
0001220 a d v i s e i l : c o m p . u
0001240 s e r f n ) \r
0001260
0001300 ( i l : s e t f s s y
0001320 m b o l - p a c k a g e ) \r
0001340
0001360 ( i l : f
0001400 u n c t i o n s i l : d w i m
0001420 - s y m b o l - p a c k a g e )
0001440 \r
0001460 ( i
0001500 l : d e c l a r e \ : i l : d
0001520 o n t e v a l @ l o a d i l :
0001540 d o c o p y ( i l : a d d v a
0001560 r s ( i l : d w i m u s e r f
0001600 o r m s \r
0001620
*
0001720 ( \r
0001740
*
0002040 i l : d w i m
0002060 - s y m b o l - p a c k a g e \r
0002100
*
0002220 ) ) ) ) \r
0002240
0002260 ( i l : v a r s (
0002300 i l : * i l : \ ; \r
0002320 " A s
0002340 s o o n a s d e f c o n d
0002360 i t i o n w o r k s a g a i
0002400 n t h i s b e c o m e s t
0002420 h e c o n f l i c t i n g s
0002440 y m b o l c o n d i t i o n .
0002460 " \r
0002500
0002520 ) \r
0002540
*
0002600 i l : n u c o n d i t i
0002620 o n ) \r
0002640
0002660 ( i l : v a r i a b l e s i
0002700 l : * p r e f e r r e d - r e a
0002720 d i n g - s y m b o l s * ) \r
0002740
0002760 ( i l :
0003000 f u n c t i o n s i l : r e s
0003020 o l v e - r e a d e r - c o n f
0003040 l i c t ) \r
0003060
0003100 ( i l : * i l : | ; ; |
0003120 " U s e r f r i e n d l y
0003140 s y m b o l e r r o r r e s
0003160 o l v i n g f u n c t i o n s
0003200 " ) \r
0003220
0003240 ( i l : f u n c t i o n s i l
0003260 : r e s o l v e - m i s s i n g
0003300 - e x t e r n a l - s y m b o l
0003320 \r
0003340
0003360 i l : r e s o l v e
0003400 - u s e - p a c k a g e - c o n
0003420 f l i c t i l : r e s o l v e
0003440 - e x p o r t - c o n f l i c t
0003460 \r
0003500
0003520 i l : r e s o l v e
0003540 - e x p o r t - m i s s i n g
0003560 i l : r e s o l v e - i m p o r
0003600 t - c o n f l i c t \r
0003620
*
0003660 i l : r e s o l v e - u n i n t
0003700 e r n - c o n f l i c t ) \r
0003720
0003740 ( i l : *
0003760 i l : | ; ; | " S y m b o l
0004000 i n s p e c t o r " ) \r
0004020
0004040 ( i l : f u
0004060 n c t i o n s i l : s y m b o
0004100 l - i n s p e c t - f e t c h f
0004120 n i l : s y m b o l - i n s p
0004140 e c t - s t o r e f n ) \r
0004160
0004200 ( i l : p
0004220 ( l e t ( ( i l : f o r m '
0004240 ( ( i l : f u n c t i o n s y
0004260 m b o l p ) \r
0004300
*
0004340 ( i l : n
0004360 a m e i l : v a l u e i l :
0004400 p l i s t p a c k a g e ) \r
0004420
*
0004500 i l : s y m b o l - i n s
0004520 p e c t - f e t c h f n \r
0004540
*
0004620 i l : s y m b o l - i n s p
0004640 e c t - s t o r e f n n i l
0004660 n i l n i l \r
0004700
*
0004740 " S y
0004760 m b o l i n s p e c t o r " )
0005000 ) ) \r
0005020
0005040 ( c o n d
0005060 ( ( n o t ( i l : m e m b e
0005100 r i l : f o r m i l : i n s
0005120 p e c t m a c r o s ) ) \r
0005140
*
0005200 ( i l :
0005220 | p u s h | i l : i n s p e c
0005240 t m a c r o s i l : f o r m )
0005260 ) ) ) ) \r
0005300
0005320 ( i l : * i l : | ; ; |
0005340 " P a c k a g e i n s p e c t
0005360 o r " ) \r
0005400
0005420 ( i l : f u n c t i o n s
0005440 i l : p a c k a g e - i n s p e
0005460 c t - f e t c h f n i l : p a
0005500 c k a g e - i n s p e c t - s t
0005520 o r e f n ) \r
0005540
0005560 ( i l : p ( l e t (
0005600 ( i l : f o r m ' ( ( i l : f
0005620 u n c t i o n p a c k a g e p
0005640 ) \r
0005660
*
0005720 ( i l : n a m e i
0005740 l : n i c k n a m e s i l : u
0005760 s e - l i s t \r
0006000
*
0006060 i l : i n t e r n a l -
0006100 s y m b o l s i l : e x t e r
0006120 n a l - s y m b o l s \r
0006140
*
0006220 i l : s h a d o
0006240 w i n g - s y m b o l s ) \r
0006260
*
0006340 i l : p a c k a g e - i n s
0006360 p e c t - f e t c h f n \r
0006400
*
0006460 i l : p a c k a g e - i n s
0006500 p e c t - s t o r e f n n i l
0006520 n i l n i l \r
0006540
*
0006600 " P
0006620 a c k a g e i n s p e c t o r
0006640 " ) ) ) \r
0006660
0006700 ( c o
0006720 n d ( ( n o t ( i l : m e m
0006740 b e r i l : f o r m i l : i
0006760 n s p e c t m a c r o s ) ) \r
0007000
*
0007040 ( i
0007060 l : | p u s h | i l : i n s p
0007100 e c t m a c r o s i l : f o r
0007120 m ) ) ) ) ) \r
0007140
0007160 ( i l : * i l : | ; ;
0007200 | " P a c k a g e - h a s h t
0007220 a b l e i n s p e c t o r " )
0007240 \r
0007260 ( i
0007300 l : f u n c t i o n s i l : p
0007320 a c k a g e - h a s h t a b l e
0007340 - i n s p e c t - f e t c h f n
0007360 \r
0007400
0007420 i l : p a c k a g e
0007440 - h a s h t a b l e - i n s p e
0007460 c t - s t o r e f n ) \r
0007500
0007520 ( i l : p (
0007540 l e t ( ( i l : f o r m ' (
0007560 ( i l : f u n c t i o n p a c
0007600 k a g e - h a s h t a b l e - p
0007620 ) \r
0007640
*
0007700 ( i l : s i z e i
0007720 l : f r e e i l : d e l e t e
0007740 d i l : c o n t e n t s ) \r
0007760
*
0010040 i l : p a c k a g e - h a
0010060 s h t a b l e - i n s p e c t -
0010100 f e t c h f n \r
0010120
*
0010160 i l :
0010200 p a c k a g e - h a s h t a b l
0010220 e - i n s p e c t - s t o r e f
0010240 n ) ) ) \r
0010260
0010300 ( c o
0010320 n d ( ( n o t ( i l : m e m
0010340 b e r i l : f o r m i l : i
0010360 n s p e c t m a c r o s ) ) \r
0010400
*
0010440 ( i
0010460 l : | p u s h | i l : i n s p
0010500 e c t m a c r o s i l : f o r
0010520 m ) ) ) ) ) \r
0010540
0010560 ( i l : p r o p ( i l
0010600 : f i l e t y p e i l : m a k
0010620 e f i l e - e n v i r o n m e n
0010640 t ) \r
0010660
0010700 i l : c m l p a c
0010720 k a g e ) \r
0010740
0010760 ( i l : d e c l a r e \ :
0011000 i l : d o n t e v a l @ l o a
0011020 d i l : d o e v a l @ c o m p
0011040 i l e i l : d o n t c o p y
0011060 \r
0011100
0011120 i l : c o m p i l e r
0011140 v a r s ( i l : a d d v a r s
0011160 ( i l : n l a m a ) \r
0011200
*
0011260 ( i l : n l a m l
0011300 ) \r
0011320
*
0011360 ( i l
0011400 : l a m a ) ) ) ) ) \r \r \r \r 006 004
0011420 ( i l : * i l : | ; ; ; | \r
0011440 " T h i s i s t h e s e c
0011460 o n d p a r t o f t h e
0011500 p a c k a g e s y s t e m ,
0011520 t h e f i r s t i s i n
0011540 L L P A C K A G E , w h i c h
0011560 i s l o a d e d d u r i n
0011600 g t h e i n i t " \r ) 006 001 \r
0011620 \r \r ( i l : p u t p r o p s 006
0011640 002 i l : c o m p . u s e r f n
0011660 i l : r e a d v i c e 006 001 \r
0011700 ( n i l
0011720 ( i l : b e f o r e n i l
0011740 ( c o n d ( ( k e y w o r d p
0011760 i l : x ) \r
0012000
0012020 (
0012040 r e t u r n ( l i s t ' q u
0012060 o t e i l : x ) ) ) \r
0012100
*
0012140 ( ( a n d ( e q ( c a
0012160 r ( i l : l i s t p ( c a r
0012200 ( i l : l i s t p i l : x )
0012220 ) ) ) \r
0012240
*
0012300 ' l a m b d a ) \r
0012320
*
0012360 ( c o n d
0012400 ( ( i l : i n t e r s e c t i
0012420 o n ( c a d r ( c a r i l
0012440 : x ) ) \r
0012460
*
0012540 l a m b d a - l i s t - k e y w
0012560 o r d s ) \r
0012600
*
0012640 ( i l : e r
0012660 r o r \r
0012700
*
0012740 " C a n ' t c o p e w i t h
0012760 l a m b d a k e y w o r d s
0013000 i n i n t e r n a l L A M
0013020 B D A l i s t s " \r
0013040
*
0013120 ) ) \r
0013140
*
0013200 ( t (
0013220 r e t u r n ` ( ( i l : l a m
0013240 b d a , @ ( c d a r i l : x
0013260 ) ) \r
0013300
*
0013360 , @ ( c d r i l : x ) )
0013400 ) ) ) ) ) ) ) ) ) \r ( i l : r e
0013420 a d v i s e i l : c o m p . u
0013440 s e r f n ) \r ( d e f s e t f
0013460 006 002 s y m b o l - p a c k a g e
0013500 006 001 i l : s e t f - s y m b o
0013520 l - p a c k a g e ) \r \r ( d e f
0013540 u n 006 002 i l : d w i m - s y m
0013560 b o l - p a c k a g e 006 001 \r
0013600 n i l ( d e c l a r e ( s
0013620 p e c i a l i l : f a u l t x
0013640 i l : f a u l t a p p l y f l
0013660 g ) ) 006 006 006 001 \r
0013700
*
0013740 006 006 ( i l :
0013760 * i l : | ; ; | " T h i s
0014000 i s p l a c e d o n D W I
0014020 M U S E R F O R M S t o a t
0014040 t e m p t c o r r e c t i o n
0014060 s w h e r e t h e t y p e
0014100 d s y m b o l i s i n t
0014120 h e w r o n g p a c k a g e
0014140 . " ) 006 001 \r ( l e
0014160 t ( ( i l : s y m ( o r (
0014200 c a r ( i l : l i s t p i l
0014220 : f a u l t x ) ) \r
0014240
0014260 i l : f a u l t x ) ) \r
0014300 i l : o
0014320 t h e r s ) \r
0014340 ( c o n d \r
0014360 ( ( a n d ( i
0014400 l : l i t a t o m i l : s y m
0014420 ) \r
0014440 ( c d r ( i l :
0014460 s e t q i l : o t h e r s (
0014500 f i n d - a l l - s y m b o l s
0014520 ( s y m b o l - n a m e i l
0014540 : s y m ) ) ) ) \r
0014560 ( i
0014600 l : s e t q i l : o t h e r s
0014620 ( i l : | f o r | i l : x
0014640 i l : | i n | i l : o t h e r
0014660 s i l : | c o l l e c t | i
0014700 l : x i l : | w h e n | \r
0014720
*
0014760 ( a n
0015000 d ( i l : n e q i l : x i
0015020 l : s y m ) \r
0015040
*
0015100 ( n o t
0015120 ( k e y w o r d p i l : x ) )
0015140 \r
0015160
*
0015220 ( i l : | i f | ( a
0015240 n d ( i l : l i t a t o m i
0015260 l : f a u l t x ) \r
0015300
*
0015360 ( n o t
0015400 i l : f a u l t a p p l y f l
0015420 g ) ) \r
0015440
*
0015500 i
0015520 l : | t h e n | 006 006 006 001 \r
0015540
*
0015620 006 006 ( i l :
0015640 * i l : \ ; " E r r o r i
0015660 s u b a " ) 006 001 \r
0015700
*
0015760 ( b o u n d p i l :
0016000 x ) \r
0016020
*
0016060 i l
0016100 : | e l s e | \r
0016120
*
0016200 ( f b o u n d p i l : x
0016220 ) ) ) ) ) ) \r
0016240 ( i l : | f o r |
0016260 i l : c h o i c e i l : | i
0016300 n | i l : o t h e r s i l :
0016320 | w h e n | ( i l : f i x s p
0016340 e l l 1 i l : s y m i l : c
0016360 h o i c e n i l t \r
0016400
*
0016500 ( a n d ( c d r i l :
0016520 o t h e r s ) \r
0016540
*
0016640 ' i l : m u s t a p p r
0016660 o v e ) ) \r
0016700 i l :
0016720 | d o | 006 006 006 001
0016740 006 006 ( i
0016760 l : * i l : | ; ; | " N o r
0017000 m a l l y t h e r e i s o
0017020 n l y o n e c h o i c e ,
0017040 a n d w e o f f e r i t .
0017060 I f t h e r e i s m o
0017100 r e t h a n o n e c h o i
0017120 c e , p r o b a b l y s h o
0017140 u l d d o s o m e t h i n g
0017160 l i k e a m e n u . T
0017200 h i s i s q u i c k a n d
0017220 d i r t y - - a s k u s e r
0017240 f o r e a c h i n t u r
0017260 n a n d r e q u i r e a p
0017300 p r o v a l s o t h a t i
0017320 t d o e s n ' t c h o o s e
0017340 t h e f i r s t a u t o m
0017360 a t i c a l l y . " ) 006 001 \r
0017400
0017420 ( r e t u r n ( i l
0017440 : | i f | ( i l : l i s t p
0017460 i l : f a u l t x ) \r
0017500
*
0017540 i l : | t h e n | 006 006 006 001
0017560 006 006 ( i
0017600 l : * i l : \ ; " S Y M =
0017620 ( C A R F A U L T X ) " ) 006
0017640 001 \r
0017660
0017700 ( i l : / r p l
0017720 a c a i l : f a u l t x i l
0017740 : c h o i c e ) \r
0017760
0020000 i
0020020 l : | e l s e | i l : c h o i
0020040 c e ) ) ) ) ) ) ) \r \r ( i l : d
0020060 e c l a r e \ : i l : d o n t
0020100 e v a l @ l o a d i l : d o c
0020120 o p y \r \r ( i l : a d d t o v
0020140 a r 006 002 i l : d w i m u s e r
0020160 f o r m s 006 001 ( i l : d w i m
0020200 - s y m b o l - p a c k a g e )
0020220 ) \r ) \r \r ( i l : r p a q q 006
0020240 002 i l : n u c o n d i t i o n 006
0020260 001 ( i l : d e f i n e - c o n
0020300 d i t i o n 006 002 i l : s y m b
0020320 o l - c o n f l i c t 006 001 i l
0020340 : s i m p l e - e r r o r : r
0020360 e p o r t \r
0020400
*
0020460 ( i l
0020500 : f o r m a t n i l \r
0020520
*
0020600 " S y m b o
0020620 l s n a m e d ~ s e x i s
0020640 t s i n p a c k a g e s ~
0020660 s " \r
0020700
*
0021000 ( \r
0021020
*
0021120 i l : s y m b o l - c o n f l
0021140 i c t - n a m e \r
0021160
*
0021260 i l : c o n d i
0021300 t i o n ) \r
0021320
*
0021420 ( \r
0021440
*
0021540 i l : s y m b o l - c o n f l i
0021560 c t - p a c k a g e s \r
0021600
*
0021700 i l : c o
0021720 n d i t i o n ) ) \r
0021740
*
0022040 : h a n d l e \r
0022060
*
0022160 ( i l : h a n d l e - s y m b o
0022200 l - c o n f l i c t \r
0022220
*
0022320 i l : c o n d i t i o n )
0022340 \r
0022360
*
0022440 i l : n a m e
0022460 i l : p a c k a g e s ) \r ) \r (
0022500 d e f v a r 006 002 i l : * p r e
0022520 f e r r e d - r e a d i n g - s
0022540 y m b o l s * 006 001 n i l \r
0022560
0022600 " L i s t o f s y
0022620 m b o l s w h o s e l o o k
0022640 u p i s p r e f e r r e d
0022660 b y t h e l i t a t o m t
0022700 o s y m b o l c o n v e r t
0022720 e r . " ) \r \r ( d e f u n 006 002
0022740 i l : r e s o l v e - r e a d e
0022760 r - c o n f l i c t 006 001 ( i l
0023000 : i l s y m i l : c l s y m
0023020 i l : c l s y m w h e r e ) "
0023040 R e a d e r f i n d s u n q
0023060 u a l i f i e d s y m b o l
0023100 t h a t e x i s t s i n b
0023120 o t h I n t e r L i s p a n
0023140 d L i s p . C h e c k s
0023160 * P R E F E R R E D - R E A D I
0023200 N G - S Y M B O L S * l i s t
0023220 a g a i n s t n a m e s . "
0023240 \r ( d e c l a r e ( s p
0023260 e c i a l i l : c m l s y m b
0023300 o l s . c o n f l i c t s i l
0023320 : * p r e f e r r e d - r e a d
0023340 i n g - s y m b o l s * ) ) 006 006
0023360 006 001 \r
0023400
*
0023440 006 006 ( i l : * i l :
0023460 | ; ; | " C A U T I O N : D
0023500 o n o t a t t e m p t t o
0023520 m o v e t h e n a m e s t
0023540 r i n g c h e c k f r o m
0023560 \ \ N E W . R E A D . S Y M B O
0023600 L i n t o t h i s f u n c
0023620 t i o n a s R E S O L V E -
0023640 R E A D E R - C O N F L I C T
0023660 h a s a d u m m y d e f i
0023700 n i t i o n i n t h e I N
0023720 I T . A l s o , n a m e s
0023740 t r i n g r e s o l u t i o n
0023760 s m u s t b e m a d e d
0024000 u r i n g t h e t i m e t
0024020 h a t p a c k a g e s a r e
0024040 t u r n e d o f f i n t
0024060 h e b e g i n n i n g o f
0024100 t h e I N I T . " ) 006 001 \r
0024120 ( c o n d \r ( ( m
0024140 e m b e r i l : i l s y m i
0024160 l : c m l s y m b o l s . c o n
0024200 f l i c t s : t e s t ' s t
0024220 r i n g = ) 006 006 006 001 \r
0024240
*
0024300 006 006 (
0024320 i l : * i l : \ ; " I f t
0024340 h i s s y m b o l w a s q
0024360 u a l i f i e d i n K o t o
0024400 s o u r c e s ( e g , i t
0024420 h a s n e v e r a p p e a
0024440 r e d u n q u a l i f i e d
0024460 i n o l d s o u r c e s ) ,
0024500 t h e n u s e t h e I n
0024520 t e r l i s p d e f i n i t i
0024540 o n . " ) 006 001 \r i
0024560 l : i l s y m ) \r (
0024600 ( n o t ( e q i l : c l s y
0024620 m w h e r e : e x t e r n a l
0024640 ) ) 006 006 006 001 006
0024660 006 ( i l : * i l : \ ; \r 006 001
0024700
*
0024740 006 006 " W i l l n o t
0024760 r e s o l v e i n t e r n a l
0025000 ( t h e r e f o r e p r i v
0025020 a t e ) s y m b o l s f r o
0025040 m L I S P " ) 006 001 \r
0025060 i l : i l s y m ) \r
0025100 ( t ( l e t ( ( i l : i
0025120 l p r e f e r r e d ( m e m b
0025140 e r i l : i l s y m i l : *
0025160 p r e f e r r e d - r e a d i n
0025200 g - s y m b o l s * : t e s t
0025220 ' e q ) ) \r
0025240 ( i l : c l p r e f
0025260 e r r e d ( m e m b e r i l
0025300 : c l s y m i l : * p r e f e
0025320 r r e d - r e a d i n g - s y m
0025340 b o l s * : t e s t ' e q )
0025360 ) ) \r
0025400 ( c o n d \r
0025420 ( ( a n d i l
0025440 : i l p r e f e r r e d ( n o
0025460 t i l : c l p r e f e r r e d
0025500 ) ) \r
0025520 i l : i l s y m ) \r
0025540
0025560 ( ( a n d i l : c l p r e f e
0025600 r r e d ( n o t i l : i l p
0025620 r e f e r r e d ) ) \r
0025640 i l :
0025660 c l s y m ) \r
0025700 ( t 006 006 006 001
0025720
*
0025760 006 006 ( i l : *
0026000 i l : \ ; " A s k w h a t
0026020 t h e y m e a n t . " ) 006 001 \r
0026040
0026060 ( i l : p r o c e e d -
0026100 c a s e ( e r r o r " S y m
0026120 b o l s n a m e d ~ s e x
0026140 i s t i n L I S P a n d
0026160 I N T E R L I S P " \r
0026200
*
0026240 ( s y m b o l - n
0026260 a m e i l : i l s y m ) ) \r
0026300
0026320 ( i l : p r
0026340 e f e r - c l s y m - p r o c e
0026360 e d ( i l : c o n d i t i o n
0026400 ) \r
0026420
0026440 : t e s t i l : t r u
0026460 e : r e p o r t " R e t u r
0026500 n L I S P s y m b o l , m
0026520 a k e i t p r e f e r r e d
0026540 " \r
0026560
0026600 ( s e t q i l : * p r
0026620 e f e r r e d - r e a d i n g -
0026640 s y m b o l s * ( r e m o v e
0026660 i l : i l s y m \r
0026700
*
0027000 i l : * p r e f e r r e d -
0027020 r e a d i n g - s y m b o l s *
0027040 \r
0027060
*
0027160 : t e s t # ' e q ) ) \r
0027200
0027220 (
0027240 p u s h i l : c l s y m i l
0027260 : * p r e f e r r e d - r e a d
0027300 i n g - s y m b o l s * ) \r
0027320
*
0027360 i l : c l s y m ) \r
0027400
0027420 ( i l : r e t u r n -
0027440 c l s y m - p r o c e e d ( i
0027460 l : c o n d i t i o n ) \r
0027500
0027520 :
0027540 t e s t i l : t r u e : r e
0027560 p o r t " J u s t r e t u r
0027600 n L I S P s y m b o l " i
0027620 l : c l s y m ) \r
0027640
0027660 ( i l : p r e f e r - i
0027700 l s y m - p r o c e e d ( i l
0027720 : c o n d i t i o n ) \r
0027740
0027760 : t
0030000 e s t i l : t r u e : r e p
0030020 o r t " R e t u r n I N T E
0030040 R L I S P s y m b o l , m a
0030060 k e i t p r e f e r r e d "
0030100 \r
0030120
0030140 ( s e t q i l : * p r e
0030160 f e r r e d - r e a d i n g - s
0030200 y m b o l s * ( r e m o v e
0030220 i l : c l s y m \r
0030240
*
0030340 i l : * p r e f e r r e d - r
0030360 e a d i n g - s y m b o l s *
0030400 \r
0030420
*
0030500 :
0030520 t e s t # ' e q ) ) \r
0030540
0030560 ( p
0030600 u s h i l : i l s y m i l :
0030620 * p r e f e r r e d - r e a d i
0030640 n g - s y m b o l s * ) \r
0030660
0030700 i
0030720 l : i l s y m ) \r
0030740
0030760 ( i l : r e t u r n - i
0031000 l s y m - p r o c e e d ( i l
0031020 : c o n d i t i o n ) \r
0031040
0031060 : t
0031100 e s t i l : t r u e : r e p
0031120 o r t " J u s t r e t u r n
0031140 I N T E R L I S P s y m b o
0031160 l " i l : i l s y m ) ) ) ) )
0031200 ) \r ) ) \r \r \r \r \r 006
0031220 004 ( i l : * i l : | ; ; | "
0031240 U s e r f r i e n d l y s y
0031260 m b o l e r r o r r e s o l
0031300 v i n g f u n c t i o n s " )
0031320 006 001 \r \r ( d e f u n 006 002 i l :
0031340 r e s o l v e - m i s s i n g -
0031360 e x t e r n a l - s y m b o l 006
0031400 001 ( i l : n a m e p a c k a
0031420 g e ) \r
0031440
0031460 "
0031500 H a n d l e m i s s i n g e
0031520 x t e r n a l s y m b o l s
0031540 i n a p a c k a g e d u r
0031560 i n g r e a d . " \r ( i
0031600 l : p r o c e e d - c a s e (
0031620 e r r o r " E x t e r n a l
0031640 s y m b o l ~ s n o t f o
0031660 u n d i n p a c k a g e ~
0031700 s . " i l : n a m e ( % p a
0031720 c k a g e - n a m e \r
0031740
*
0032040 p a c
0032060 k a g e ) ) \r
0032100 ( i l : m a k e - e x t e r n
0032120 a l - p r o c e e d ( i l : c
0032140 o n d i t i o n ) \r
0032160 : t e s t
0032200 i l : t r u e : r e p o r t
0032220 " C r e a t e a n e x t e
0032240 r n a l s y m b o l " ( l e
0032260 t ( ( i l : s y m b o l ( i
0032300 n t e r n i l : n a m e \r
0032320
*
0032440 p a c k a g
0032460 e ) ) ) \r
0032500
*
0032560 ( e x
0032600 p o r t i l : s y m b o l p
0032620 a c k a g e ) \r
0032640
*
0032740 i l : s y m b o l ) ) \r
0032760 ( i l : m a k e - i
0033000 n t e r n a l - p r o c e e d
0033020 ( i l : c o n d i t i o n ) \r
0033040
0033060 : t e s t i l : t r u e : r
0033100 e p o r t " C r e a t e a n
0033120 i n t e r n a l s y m b o l
0033140 " ( i n t e r n i l : n a m
0033160 e p a c k a g e ) ) ) ) \r \r (
0033200 d e f u n 006 002 i l : r e s o l
0033220 v e - u s e - p a c k a g e - c
0033240 o n f l i c t 006 001 ( i l : p k
0033260 g i l : c s e t p a c k a g
0033300 e ) " H a n d l e a c o n
0033320 f l i c t f r o m u s e - p
0033340 a c k a g e . " \r ( i l :
0033360 s e t q i l : c s e t ( s o
0033400 r t i l : c s e t ' s t r i
0033420 n g < ) ) \r ( i l : p r o
0033440 c e e d - c a s e ( e r r o r
0033460 " U s e ' i n g p a c k a g
0033500 e ~ A r e s u l t s i n
0033520 n a m e c o n f l i c t s f
0033540 o r s y m b o l s : ~ % ~ {
0033560 ~ S ~ } ~ % " \r
0033600
0033620 ( % p a c k a g e - n a
0033640 m e i l : p k g ) \r
0033660
0033700 i l : c s e t \r
0033720
0033740 ( % p a c k a
0033760 g e - n a m e p a c k a g e )
0034000 ) \r ( i l :
0034020 u n i n t e r n - u s e r - p r
0034040 o c e e d ( i l : c o n d i t
0034060 i o n ) \r
0034100 : t e s t i l : t
0034120 r u e : r e p o r t ( f o r
0034140 m a t t \r
0034160
*
0034220 " U n i n t e r n c
0034240 o n f l i c t i n g s y m b o
0034260 l s f r o m ~ A ( V E R Y
0034300 D A N G E R O U S ) " \r
0034320
*
0034360 ( % p a c
0034400 k a g e - n a m e p a c k a g
0034420 e ) ) \r
0034440 ( d o l i s t ( i l
0034460 : s i l : c s e t ) \r
0034500
0034520 ( i l : m o b y - u n i
0034540 n t e r n i l : s p a c k a
0034560 g e ) ) ) \r
0034600 ( i l : u n i n t e r n - u s e
0034620 e - p r o c e e d ( i l : c o
0034640 n d i t i o n ) \r
0034660 : t e s t
0034700 i l : t r u e : r e p o r t
0034720 ( f o r m a t t \r
0034740
*
0035000 " U n i n t e
0035020 r n c o n f l i c t i n g s
0035040 y m b o l s f r o m ~ A (
0035060 V E R Y D A N G E R O U S ) "
0035100 \r
0035120
0035140 (
0035160 % p a c k a g e - n a m e i l
0035200 : p k g ) ) \r
0035220 ( d o l i s t
0035240 ( i l : s i l : c s e t ) \r
0035260
0035300 ( i l : m o b y -
0035320 u n i n t e r n ( f i n d - s
0035340 y m b o l ( s y m b o l - n a
0035360 m e i l : s ) \r
0035400
*
0035440 i l : p k g
0035460 ) \r
0035500
0035520 i l : p k g ) ) ) \r
0035540 ( i l : a l l o w - s
0035560 h a d o w - p r o c e e d ( i
0035600 l : c o n d i t i o n ) \r
0035620 : t
0035640 e s t i l : t r u e : r e p
0035660 o r t ( f o r m a t t \r
0035700
*
0035740 " L e t s y m b o
0035760 l s i n p a c k a g e ~ s
0036000 s h a d o w a l l o t h e
0036020 r s ( p u s h d o w n o r d
0036040 e r ) " \r
0036060
*
0036120 ( % p a c k a g e - n a m
0036140 e p a c k a g e ) ) \r
0036160 n i l
0036200 ) \r ( i l :
0036220 a b o r t - u s e - p a c k a g
0036240 e - p r o c e e d ( i l : c o
0036260 n d i t i o n ) \r
0036300 : t e s t
0036320 i l : t r u e : r e p o r t
0036340 ( f o r m a t t " A b o r t
0036360 u s i n g p a c k a g e ~
0036400 s " ( % p a c k a g e - n a m
0036420 e i l : p k g ) ) \r
0036440 ( i l :
0036460 r e t f r o m ' u s e - p a c
0036500 k a g e n i l ) ) ) ) \r \r ( d
0036520 e f u n 006 002 i l : r e s o l v
0036540 e - e x p o r t - c o n f l i c
0036560 t 006 001 ( p a c k a g e i l :
0036600 c s e t i l : c p a c k a g e
0036620 s i l : s y m s ) \r
0036640
*
0036720 " H a n
0036740 d l e a c o n f l i c t r
0036760 a i s e d b y e x p o r t .
0037000 " \r ( i l : s e t q i l
0037020 : c s e t ( s o r t i l : c
0037040 s e t ' s t r i n g < ) ) \r
0037060 ( i l : s e t q i l : c p
0037100 a c k a g e s ( s o r t i l
0037120 : c p a c k a g e s ( i l : f
0037140 u n c t i o n ( l a m b d a
0037160 ( i l : a i l : b ) \r
0037200
*
0037260 ( s t r
0037300 i n g < ( % p a c k a g e - n
0037320 a m e i l : a ) \r
0037340
*
0037440 ( % p a c k a g e - n a m e
0037460 i l : b ) ) ) ) ) ) \r ( i
0037500 l : p r o c e e d - c a s e (
0037520 e r r o r " E x p o r t i n g
0037540 t h e s e s y m b o l s f
0037560 r o m t h e ~ A p a c k a
0037600 g e : ~ % ~ { ~ S ~ } ~ % r
0037620 e s u l t s i n n a m e c
0037640 o n f l i c t s w i t h p a
0037660 c k a g e ( s ) : ~ % ~ { ~ A
0037700 ~ } ~ % " \r
0037720
0037740 ( % p a c k a g e - n a m e
0037760 p a c k a g e ) \r
0040000
0040020 i l : c s e t \r
0040040
0040060 ( m a p c a r (
0040100 i l : f u n c t i o n % p a c
0040120 k a g e - n a m e ) \r
0040140
0040160 i l :
0040200 c p a c k a g e s ) ) \r
0040220 ( i l : u n i n t e
0040240 r n - p r o c e e d ( i l : c
0040260 o n d i t i o n ) \r
0040300 : t e s t
0040320 i l : t r u e : r e p o r t
0040340 \r
0040360 " U n i n t e r n c o n
0040400 f l i c t i n g s y m b o l s
0040420 i n p a c k a g e ( s ) ~ *
0040440 ~ * ~ { ~ S ~ } ~ % ( V E R Y
0040460 D A N G E R O U S ) " \r
0040500 ( d
0040520 o l i s t ( i l : p i l : c
0040540 p a c k a g e s ) \r
0040560
0040600 ( d o l i s t ( i l : s y
0040620 m i l : c s e t ) \r
0040640
0040660 ( i l : m o
0040700 b y - u n i n t e r n i l : s
0040720 y m i l : p ) ) ) \r
0040740 ( n s e
0040760 t - d i f f e r e n c e i l :
0041000 s y m s i l : c s e t ) ) \r
0041020 ( i l : a b o
0041040 r t - e x p o r t - p r o c e e
0041060 d ( i l : c o n d i t i o n )
0041100 \r
0041120 : t e s t i l : t r u e
0041140 : r e p o r t ( f o r m a t
0041160 t " A b o r t e x p o r t i
0041200 n g t h e s y m b o l s f
0041220 r o m p a c k a g e ~ s " \r
0041240
*
0041300 ( %
0041320 p a c k a g e - n a m e p a c
0041340 k a g e ) ) \r
0041360 ( i l : r e t f
0041400 r o m ' e x p o r t n i l )
0041420 ) ) ) \r \r ( d e f u n 006 002 i l
0041440 : r e s o l v e - e x p o r t -
0041460 m i s s i n g 006 001 ( p a c k a
0041500 g e i l : m i s s i n g ) "
0041520 H a n d l e m i s s i n g s
0041540 y m b o l s n e e d e d t o
0041560 e x p o r t . " \r ( i l
0041600 : s e t q i l : m i s s i n g
0041620 ( s o r t i l : m i s s i n
0041640 g ' s t r i n g < ) ) \r
0041660 ( i l : p r o c e e d - c a s e
0041700 ( e r r o r " T h e s e s
0041720 y m b o l s a r e n o t a
0041740 v a i l a b l e i n t h e
0041760 ~ A p a c k a g e : ~ % ~ { ~
0042000 S ~ } ~ % " \r
0042020
0042040 ( % p a c k a g e - n a m
0042060 e p a c k a g e ) \r
0042100
0042120 i l : m i s s i n g
0042140 ) \r ( i l :
0042160 i m p o r t - p r o c e e d (
0042200 i l : c o n d i t i o n ) \r
0042220 :
0042240 t e s t i l : t r u e : r e
0042260 p o r t " I m p o r t t h e
0042300 s e s y m b o l s " ( i m p
0042320 o r t i l : m i s s i n g p
0042340 a c k a g e ) ) \r
0042360 ( i l : a b o r t - e x p
0042400 o r t - p r o c e e d ( i l :
0042420 c o n d i t i o n ) \r
0042440 : t e s
0042460 t i l : t r u e : r e p o r
0042500 t ( f o r m a t t " A b o
0042520 r t e x p o r t t o p a c
0042540 k a g e ~ s " ( % p a c k a
0042560 g e - n a m e p a c k a g e )
0042600 \r
0042620
0042640 )
0042660 \r
0042700 ( i l : r e t f r o m ' i
0042720 m p o r t n i l ) ) ) ) \r \r (
0042740 d e f u n 006 002 i l : r e s o l
0042760 v e - i m p o r t - c o n f l i
0043000 c t 006 001 ( p a c k a g e i l
0043020 : c s e t ) \r
0043040 " H a n d
0043060 l e c o n f l i c t s i g n
0043100 a l l e d b y i m p o r t .
0043120 R e t u r n i n g f r o m
0043140 h e r e d o e s s h a d o
0043160 w i n g i m p o r t . " \r
0043200 ( i l : s e t q i l : c s e
0043220 t ( s o r t i l : c s e t
0043240 ' s t r i n g < ) ) \r ( i
0043260 l : p r o c e e d - c a s e (
0043300 e r r o r \r
0043320 " I m p
0043340 o r t i n g t h e s e s y m
0043360 b o l s i n t o t h e ~ A
0043400 p a c k a g e c a u s e s
0043420 a n a m e c o n f l i c t :
0043440 ~ % ~ { ~ S ~ } ~ % " \r
0043460
0043500 ( % p a c k a g
0043520 e - n a m e p a c k a g e ) \r
0043540
0043560 i l : c s
0043600 e t ) \r ( i
0043620 l : s h a d o w i n g - i m p o
0043640 r t - p r o c e e d ( i l : c
0043660 o n d i t i o n ) \r
0043700 : t e s t
0043720 i l : t r u e : r e p o r t
0043740 " I m p o r t s y m b o l s
0043760 w i t h s h a d o w i n g -
0044000 i m p o r t " n i l ) \r
0044020 ( i l : a b o r t
0044040 - i m p o r t - p r o c e e d
0044060 ( i l : c o n d i t i o n ) \r
0044100
0044120 : t e s t i l : t r u e : r
0044140 e p o r t ( f o r m a t t
0044160 " A b o r t i m p o r t i n
0044200 t o p a c k a g e ~ s " (
0044220 % p a c k a g e - n a m e \r
0044240
*
0044360 p a c k a g e ) ) \r
0044400
0044420 ( i l : r e t f r o m ' i m
0044440 p o r t n i l ) ) ) ) \r \r ( d
0044460 e f u n 006 002 i l : r e s o l v
0044500 e - u n i n t e r n - c o n f l
0044520 i c t 006 001 ( s y m b o l i l
0044540 : c s e t p a c k a g e ) "
0044560 H a n d l e a c o n f l i c
0044600 t n o t e d b y u n i n t
0044620 e r n . " \r ( i l : s e t
0044640 q i l : c s e t ( s o r t
0044660 i l : c s e t ' s t r i n g <
0044700 ) ) \r ( i l : p r o c e e
0044720 d - c a s e ( e r r o r \r
0044740
0044760 " U n i n t e r
0045000 n i n g s y m b o l ~ S c
0045020 a u s e s n a m e c o n f l
0045040 i c t a m o n g t h e s e
0045060 s y m b o l s : ~ % ~ { ~ S ~
0045100 } ~ % " \r
0045120
0045140 s y m b o l i l : c s e t )
0045160 \r ( i l : s
0045200 h a d o w i n g - i m p o r t -
0045220 p r o c e e d ( i l : c o n d
0045240 i t i o n ) \r
0045260 : t e s t i l
0045300 : t r u e : r e p o r t " S
0045320 h a d o w i n g i m p o r t
0045340 a s y m b o l " \r
0045360 ( l o o p
0045400 ( l e t ( ( i l : s y m (
0045420 i l : m e n u ( i l : c r e a
0045440 t e i l : m e n u i l : t i
0045460 t l e i l : _ \r
0045500
*
0045540 "
0045560 C h o o s e s y m b o l t o
0045600 s h a d o w i n g - i m p o r
0045620 t " i l : i t e m s \r
0045640
*
0045720 i l : _ i l : c s e t i
0045740 l : c e n t e r f l g i l : _
0045760 t ) ) ) ) \r
0046000
0046020 ( w h e n ( i l : f m e
0046040 m b i l : s y m i l : c s e
0046060 t ) \r
0046100
0046120 ( s h a d o w i n g -
0046140 i m p o r t i l : s y m p a
0046160 c k a g e ) \r
0046200
0046220 ( i l : r e t
0046240 f r o m ' u n i n t e r n t
0046260 ) ) ) ) ) \r
0046300 ( i l : a b o r t - u n i n t e
0046320 r n - p r o c e e d ( i l : c
0046340 o n d i t i o n ) \r
0046360 : t e s t
0046400 i l : t r u e : r e p o r t
0046420 ( f o r m a t t " A b o r
0046440 t u n i n t e r n o f s y
0046460 m b o l ~ s f r o m p a c
0046500 k a g e ~ s " s y m b o l \r
0046520
*
0046560 ( %
0046600 p a c k a g e - n a m e p a c
0046620 k a g e ) ) \r
0046640 ( i l : r e t f
0046660 r o m ' u n i n t e r n n i
0046700 l ) ) ) ) \r \r \r \r \r 006 004 ( i l :
0046720 * i l : | ; ; | " S y m b o
0046740 l i n s p e c t o r " ) 006 001 \r
0046760 \r ( d e f u n 006 002 i l : s y m
0047000 b o l - i n s p e c t - f e t c
0047020 h f n 006 001 ( i l : o b j e c t
0047040 i l : p r o p e r t y ) ( c
0047060 a s e i l : p r o p e r t y
0047100 ( i l : n a m e ( s y m b o l
0047120 - n a m e \r
0047140
*
0047240 i l : o b
0047260 j e c t ) ) \r
0047300
*
0047360 ( i l : v a l u e
0047400 ( i f ( b o u n d p i l : o
0047420 b j e c t ) \r
0047440
*
0047540 ( s y m b o l - v a l u
0047560 e i l : o b j e c t ) \r
0047600
*
0047700 ' i l : n o
0047720 b i n d ) ) \r
0047740
*
0050020 ( i l : p l i s t
0050040 ( s y m b o l - p l i s t i l
0050060 : o b j e c t ) ) \r
0050100
*
0050160 ( p a c k a g
0050200 e ( s y m b o l - p a c k a g
0050220 e i l : o b j e c t ) ) ) ) \r
0050240 \r ( d e f u n 006 002 i l : s y m
0050260 b o l - i n s p e c t - s t o r
0050300 e f n 006 001 ( i l : o b j e c t
0050320 i l : p r o p e r t y i l :
0050340 v a l u e ) ( c a s e i l :
0050360 p r o p e r t y \r
0050400
*
0050500 ( i l : n a m e ( i l : p r
0050520 o m p t p r i n t \r
0050540
*
0050640 \r
0050660
*
0050760 " C a n '
0051000 t s e t s y m b o l n a m
0051020 e " \r
0051040
*
0051140 ) ) \r
0051160
*
0051260 ( i l : v a l u e ( s e t f
0051300 ( s y m b o l - v a l u e \r
0051320
*
0051440 i l : o b j e c t
0051460 ) \r
0051500
*
0051600 i l : v a l
0051620 u e ) ) \r
0051640
*
0051720 ( i l
0051740 : p l i s t ( s e t f ( s y
0051760 m b o l - p l i s t \r
0052000
*
0052120 i l : o b j e c t ) \r
0052140
*
0052260 i l : v a l u e )
0052300 ) \r
0052320
*
0052400 ( p a c k a
0052420 g e ( s e t f ( \r
0052440
*
0052560 s y m b o l - p a c k a g e
0052600 \r
0052620
*
0052720 i l : o b j e
0052740 c t ) \r
0052760
*
0053060 i l : v a
0053100 l u e ) ) ) ) \r \r ( l e t ( (
0053120 i l : f o r m ' ( ( i l : f u
0053140 n c t i o n s y m b o l p ) \r
0053160
0053200 ( i l : n a m e i l : v a l
0053220 u e i l : p l i s t p a c k
0053240 a g e ) \r
0053260 i l : s y m b o l -
0053300 i n s p e c t - f e t c h f n
0053320 i l : s y m b o l - i n s p e c
0053340 t - s t o r e f n n i l n i
0053360 l n i l " S y m b o l i n
0053400 s p e c t o r " ) ) \r
0053420 ) \r ( c o n d ( (
0053440 n o t ( i l : m e m b e r i
0053460 l : f o r m i l : i n s p e c
0053500 t m a c r o s ) ) \r
0053520 ( i l : | p u s h |
0053540 i l : i n s p e c t m a c r o
0053560 s i l : f o r m ) ) ) ) \r \r \r
0053600 \r 006 004 ( i l : * i l : | ; ; |
0053620 " P a c k a g e i n s p e c
0053640 t o r " ) 006 001 \r \r ( d e f u n
0053660 006 002 i l : p a c k a g e - i n s
0053700 p e c t - f e t c h f n 006 001 (
0053720 i l : o b j e c t i l : p r o
0053740 p e r t y ) ( c a s e i l :
0053760 p r o p e r t y ( i l : n a m
0054000 e ( % p a c k a g e - n a m e
0054020 \r
0054040
*
0054140 i l : o b j e c t
0054160 ) ) \r
0054200
*
0054260 ( i l : n i c k n a m e s
0054300 ( % p a c k a g e - n i c k n
0054320 a m e s \r
0054340
*
0054440 i l : o b j e c t ) ) \r
0054460
*
0054560 ( i l : u s e - l i s t ( % p
0054600 a c k a g e - u s e - l i s t \r
0054620
*
0054720 i l
0054740 : o b j e c t ) ) \r
0054760
*
0055040 ( i l : i n
0055060 t e r n a l - s y m b o l s (
0055100 \r
0055120
*
0055200 % p a
0055220 c k a g e - i n t e r n a l - s
0055240 y m b o l s \r
0055260
*
0055360 i l :
0055400 o b j e c t ) ) \r
0055420
*
0055500 ( i l : e x t
0055520 e r n a l - s y m b o l s ( \r
0055540
*
0055640 % p a c
0055660 k a g e - e x t e r n a l - s y
0055700 m b o l s \r
0055720
*
0056020 i l : o
0056040 b j e c t ) ) \r
0056060
*
0056140 ( i l : s h a d
0056160 o w i n g - s y m b o l s ( \r
0056200
*
0056300 % p a c k
0056320 a g e - s h a d o w i n g - s y
0056340 m b o l s \r
0056360
*
0056460 i l :
0056500 o b j e c t ) ) ) ) \r \r ( d e f
0056520 u n 006 002 i l : p a c k a g e -
0056540 i n s p e c t - s t o r e f n 006
0056560 001 ( i l : o b j e c t i l :
0056600 p r o p e r t y i l : v a l u
0056620 e ) ( i l : p r o m p t p r i
0056640 n t \r
0056660
*
0056740 " C a n ' t s e t
0056760 t h e f i e l d s o f a
0057000 p a c k a g e " \r
0057020
*
0057120 ) ) \r \r ( l e t ( ( i
0057140 l : f o r m ' ( ( i l : f u n
0057160 c t i o n p a c k a g e p ) \r
0057200
0057220 ( i l : n a m e i l : n i c
0057240 k n a m e s i l : u s e - l i
0057260 s t i l : i n t e r n a l - s
0057300 y m b o l s i l : e x t e r n
0057320 a l - s y m b o l s \r
0057340
0057360 i l : s h a d o w i n g
0057400 - s y m b o l s ) \r
0057420 i l : p a
0057440 c k a g e - i n s p e c t - f e
0057460 t c h f n i l : p a c k a g e
0057500 - i n s p e c t - s t o r e f n
0057520 n i l n i l n i l \r
0057540 "
0057560 P a c k a g e i n s p e c t o
0057600 r " ) ) ) \r ( c o n d
0057620 ( ( n o t ( i l : m e m b e
0057640 r i l : f o r m i l : i n s
0057660 p e c t m a c r o s ) ) \r
0057700 ( i l : | p u
0057720 s h | i l : i n s p e c t m a
0057740 c r o s i l : f o r m ) ) ) )
0057760 \r \r \r \r 006 004 ( i l : * i l : |
0060000 ; ; | " P a c k a g e - h a s
0060020 h t a b l e i n s p e c t o r
0060040 " ) 006 001 \r \r ( d e f u n 006 002 i
0060060 l : p a c k a g e - h a s h t a
0060100 b l e - i n s p e c t - f e t c
0060120 h f n 006 001 ( i l : o b j e c t
0060140 i l : p r o p e r t y ) ( c
0060160 a s e i l : p r o p e r t y \r
0060200
*
0060300 ( i l : s i
0060320 z e ( \r
0060340
*
0060440 p a c k a g e - h a s h
0060460 t a b l e - s i z e \r
0060500
*
0060600 i
0060620 l : o b j e c t ) ) \r
0060640
*
0060740 ( i l : f r e e ( \r
0060760
*
0061060 p
0061100 a c k a g e - h a s h t a b l e
0061120 - f r e e \r
0061140
*
0061240 i l : o b j
0061260 e c t ) ) \r
0061300
*
0061400 ( i l : d e l e t e d ( \r
0061420
*
0061520 p a c k a g
0061540 e - h a s h t a b l e - d e l e
0061560 t e d \r
0061600
*
0061700 i l : o b
0061720 j e c t ) ) \r
0061740
*
0062040 ( i l : c o n t e n t s ( \r
0062060
*
0062160 p a
0062200 c k a g e - h a s h t a b l e -
0062220 t a b l e \r
0062240
*
0062340 i l
0062360 : o b j e c t ) ) ) ) \r \r ( d e
0062400 f u n 006 002 i l : p a c k a g e
0062420 - h a s h t a b l e - i n s p e
0062440 c t - s t o r e f n 006 001 ( i l
0062460 : o b j e c t i l : p r o p e
0062500 r t y i l : v a l u e ) ( i
0062520 l : p r o m p t p r i n t \r
0062540
*
0062620 " C a n ' t s e
0062640 t t h e f i e l d s o f
0062660 a p a c k a g e - h a s h t a
0062700 b l e " \r
0062720
*
0063020 ) ) \r \r ( l e
0063040 t ( ( i l : f o r m ' ( ( i
0063060 l : f u n c t i o n p a c k a
0063100 g e - h a s h t a b l e - p ) \r
0063120
0063140 ( i l : s i z e i l : f r e
0063160 e i l : d e l e t e d i l :
0063200 c o n t e n t s ) \r
0063220 i l : p a
0063240 c k a g e - h a s h t a b l e -
0063260 i n s p e c t - f e t c h f n
0063300 i l : p a c k a g e - h a s h t
0063320 a b l e - i n s p e c t - s t o
0063340 r e f n ) ) ) \r ( c o
0063360 n d ( ( n o t ( i l : m e m
0063400 b e r i l : f o r m i l : i
0063420 n s p e c t m a c r o s ) ) \r
0063440 ( i l : |
0063460 p u s h | i l : i n s p e c t
0063500 m a c r o s i l : f o r m ) )
0063520 ) ) \r \r ( i l : p u t p r o p s
0063540 006 002 i l : c m l p a c k a g e
0063560 i l : f i l e t y p e 006 001 c
0063600 o m p i l e - f i l e ) \r \r ( i
0063620 l : p u t p r o p s 006 002 i l :
0063640 c m l p a c k a g e i l : m a
0063660 k e f i l e - e n v i r o n m e
0063700 n t 006 001 ( : r e a d t a b l e
0063720 " X C L " : p a c k a g e
0063740 " L I S P " ) ) \r ( i l : d e c
0063760 l a r e \ : i l : d o n t e v
0064000 a l @ l o a d i l : d o e v a
0064020 l @ c o m p i l e i l : d o n
0064040 t c o p y i l : c o m p i l e
0064060 r v a r s \r \r ( i l : a d d t
0064100 o v a r 006 002 i l : n l a m a 006
0064120 001 ) \r \r ( i l : a d d t o v a
0064140 r 006 002 i l : n l a m l 006 001 )
0064160 \r \r ( i l : a d d t o v a r 006
0064200 002 i l : l a m a 006 001 ) \r ) \r (
0064220 i l : p u t p r o p s i l : c
0064240 m l p a c k a g e i l : c o p
0064260 y r i g h t ( " X e r o x C
0064300 o r p o r a t i o n " 1 9 8 6
0064320 ) ) \r ( i l : d e c l a r e \ :
0064340 i l : d o n t c o p y \r (
0064360 i l : f i l e m a p ( n i l )
0064400 ) ) \r i l : s t o p \r
0064413