$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLPACKAGE!28
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 " 3 0 - O c t - 8 6
0000120 1 0 : 0 0 : 2 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 . \ ; 2 8 006 001 2 6 3 9 0
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 : p a c k a g e - h a s h t a b
0000320 l e - i n s p e c t - f e t c h
0000340 f n \r
0000360
0000400 i l : s y m b o
0000420 l - i n s p e c t - f e t c h f
0000440 n i l : r e s o l v e - r e a
0000460 d e r - c o n f l i c t ) \r \r
0000500 i l : | p r e v i o u
0000520 s | i l : | d a t e : | " 2
0000540 8 - O c t - 8 6 1 1 : 5 1 : 4
0000560 8 " i l : { e r i s } < l i s
0000600 p c o r e > s o u r c e s > c m
0000620 l p a c k a g e . \ ; 2 4 ) \r \r
0000640 \r ; C o p y r i g h t ( c )
0000660 1 9 8 6 b y X e r o x C
0000700 o r p o r a t i o n . A l l
0000720 r i g h t s r e s e r v e d
0000740 . \r \r ( i l : p r e t t y c o m
0000760 p r i n t i l : c m l p a c k
0001000 a g e c o m s ) \r \r ( i l : r p
0001020 a q q 006 002 i l : c m l p a c k
0001040 a g e c o m s 006 001 ( ( i l : *
0001060 i l : | ; ; ; | " T h i s
0001100 i s t h e s e c o n d p a
0001120 r t o f t h e p a c k a g
0001140 e s y s t e m , t h e f i
0001160 r s t i s i n L L P A C K
0001200 A G E , w h i c h i s l o
0001220 a d e d d u r i n g t h e
0001240 i n i t " \r
0001260
0001300 ) \r
0001320
0001340 ( i l : a d v i
0001360 s e i l : c o m p . u s e r f
0001400 n ) \r
0001420
0001440 ( i l : s e t f s s y m b o l
0001460 - p a c k a g e ) \r
0001500
0001520 ( i l : f u n c t
0001540 i o n s i l : d w i m - s y m
0001560 b o l - p a c k a g e ) \r
0001600
0001620 ( i l : d e
0001640 c l a r e \ : i l : d o n t e
0001660 v a l @ l o a d i l : d o c o
0001700 p y ( i l : a d d v a r s (
0001720 i l : d w i m u s e r f o r m s
0001740 \r
0001760
*
0002060 ( \r
0002100
*
0002200 i l : d w i m - s y m
0002220 b o l - p a c k a g e \r
0002240
*
0002360 ) ) ) ) \r
0002400
0002420 ( i l : v a r s ( i l : *
0002440 i l : \ ; \r
0002460 " A s s o o
0002500 n a s d e f c o n d i t i o
0002520 n w o r k s a g a i n t h
0002540 i s b e c o m e s t h e c
0002560 o n f l i c t i n g s y m b o
0002600 l c o n d i t i o n . " \r
0002620
*
0002660 ) \r
0002700
*
0002740 i l : n u c o n d i t i o n ) \r
0002760
0003000 ( i l
0003020 : v a r i a b l e s i l : * p
0003040 r e f e r r e d - r e a d i n g
0003060 - s y m b o l s * ) \r
0003100
0003120 ( i l : f u n c
0003140 t i o n s i l : r e s o l v e
0003160 - r e a d e r - c o n f l i c t
0003200 ) \r
0003220 (
0003240 i l : * i l : | ; ; | " U s
0003260 e r f r i e n d l y s y m b
0003300 o l e r r o r r e s o l v i
0003320 n g f u n c t i o n s " ) \r
0003340
0003360 ( i l :
0003400 f u n c t i o n s i l : r e s
0003420 o l v e - m i s s i n g - e x t
0003440 e r n a l - s y m b o l \r
0003460
*
0003520 i l : r e s o l v e - u s e
0003540 - p a c k a g e - c o n f l i c
0003560 t i l : r e s o l v e - e x p
0003600 o r t - c o n f l i c t \r
0003620
*
0003660 i l : r e s o l v e - e x p
0003700 o r t - m i s s i n g i l : r
0003720 e s o l v e - i m p o r t - c o
0003740 n f l i c t \r
0003760
0004000 i l : r
0004020 e s o l v e - u n i n t e r n -
0004040 c o n f l i c t ) \r
0004060
0004100 ( i l : * i l :
0004120 | ; ; | " S y m b o l i n s
0004140 p e c t o r " ) \r
0004160
0004200 ( i l : f u n c t i
0004220 o n s i l : s y m b o l - i n
0004240 s p e c t - f e t c h f n i l
0004260 : s y m b o l - i n s p e c t -
0004300 s t o r e f n ) \r
0004320
0004340 ( i l : p ( l e t
0004360 ( ( i l : f o r m ' ( ( i l
0004400 : f u n c t i o n s y m b o l
0004420 p ) \r
0004440
*
0004500 ( i l : n a m e
0004520 i l : v a l u e i l : p l i s
0004540 t p a c k a g e ) \r
0004560
*
0004620 i
0004640 l : s y m b o l - i n s p e c t
0004660 - f e t c h f n \r
0004700
*
0004740 i l
0004760 : s y m b o l - i n s p e c t -
0005000 s t o r e f n n i l n i l
0005020 n i l \r
0005040
*
0005100 " S y m b o l
0005120 i n s p e c t o r " ) ) ) \r
0005140
*
0005200 ( c o n d ( ( n
0005220 o t ( i l : m e m b e r i l
0005240 : f o r m i l : i n s p e c t
0005260 m a c r o s ) ) \r
0005300
*
0005340 ( i l : | p u s
0005360 h | i l : i n s p e c t m a c
0005400 r o s i l : f o r m ) ) ) ) )
0005420 \r
0005440 ( i
0005460 l : * i l : | ; ; | " P a c
0005500 k a g e i n s p e c t o r " )
0005520 \r
0005540 ( i
0005560 l : f u n c t i o n s i l : p
0005600 a c k a g e - i n s p e c t - f
0005620 e t c h f n i l : p a c k a g
0005640 e - i n s p e c t - s t o r e f
0005660 n ) \r
0005700
0005720 ( i l : p ( l e t ( ( i l :
0005740 f o r m ' ( ( i l : f u n c t
0005760 i o n p a c k a g e p ) \r
0006000
*
0006060 ( i l : n a m e i l : n i
0006100 c k n a m e s i l : u s e - l
0006120 i s t \r
0006140
*
0006220 i l : i n t e r n a l - s y m b
0006240 o l s i l : e x t e r n a l -
0006260 s y m b o l s \r
0006300
*
0006360 i l : s h a d o w i n g
0006400 - s y m b o l s ) \r
0006420
*
0006460 i l
0006500 : p a c k a g e - i n s p e c t
0006520 - f e t c h f n \r
0006540
*
0006600 i l
0006620 : p a c k a g e - i n s p e c t
0006640 - s t o r e f n n i l n i l
0006660 n i l \r
0006700
*
0006740 " P a c k a
0006760 g e i n s p e c t o r " ) ) )
0007000 \r
0007020
0007040 ( c o n d (
0007060 ( n o t ( i l : m e m b e r
0007100 i l : f o r m i l : i n s p e
0007120 c t m a c r o s ) ) \r
0007140
*
0007200 ( i l : | p
0007220 u s h | i l : i n s p e c t m
0007240 a c r o s i l : f o r m ) ) )
0007260 ) ) \r
0007300
0007320 ( i l : * i l : | ; ; | " P
0007340 a c k a g e - h a s h t a b l e
0007360 i n s p e c t o r " ) \r
0007400
0007420 ( i l : f u
0007440 n c t i o n s i l : p a c k a
0007460 g e - h a s h t a b l e - i n s
0007500 p e c t - f e t c h f n \r
0007520
*
0007560 i l : p a c k a g e - h a s
0007600 h t a b l e - i n s p e c t - s
0007620 t o r e f n ) \r
0007640
0007660 ( i l : p ( l e t
0007700 ( ( i l : f o r m ' ( ( i l :
0007720 f u n c t i o n p a c k a g e
0007740 - h a s h t a b l e - p ) \r
0007760
*
0010040 ( i l : s i z e i l : f r
0010060 e e i l : d e l e t e d i l
0010100 : c o n t e n t s ) \r
0010120
*
0010160 i
0010200 l : p a c k a g e - h a s h t a
0010220 b l e - i n s p e c t - f e t c
0010240 h f n \r
0010260
*
0010320 i l : p a c k
0010340 a g e - h a s h t a b l e - i n
0010360 s p e c t - s t o r e f n ) ) )
0010400 \r
0010420
0010440 ( c o n d (
0010460 ( n o t ( i l : m e m b e r
0010500 i l : f o r m i l : i n s p e
0010520 c t m a c r o s ) ) \r
0010540
*
0010600 ( i l : | p
0010620 u s h | i l : i n s p e c t m
0010640 a c r o s i l : f o r m ) ) )
0010660 ) ) \r
0010700
0010720 ( i l : p r o p ( i l : f i l
0010740 e t y p e i l : m a k e f i l
0010760 e - e n v i r o n m e n t ) \r
0011000
*
0011040 i l : c m l p a c k a g e
0011060 ) \r
0011100 (
0011120 i l : d e c l a r e \ : i l :
0011140 d o n t e v a l @ l o a d i l
0011160 : d o e v a l @ c o m p i l e
0011200 i l : d o n t c o p y \r
0011220
*
0011260 i l : c o m p i l e r v a r s
0011300 ( i l : a d d v a r s ( i l
0011320 : n l a m a ) \r
0011340
*
0011420 ( i l : n l a m l ) \r
0011440
*
0011520 ( i l : l a m
0011540 a ) ) ) ) ) \r \r \r \r 006 004 ( i l :
0011560 * i l : | ; ; ; | \r " T h i
0011600 s i s t h e s e c o n d
0011620 p a r t o f t h e p a c k
0011640 a g e s y s t e m , t h e
0011660 f i r s t i s i n L L P A
0011700 C K A G E , w h i c h i s
0011720 l o a d e d d u r i n g t h
0011740 e i n i t " \r ) 006 001 \r \r \r ( i
0011760 l : p u t p r o p s 006 002 i l :
0012000 c o m p . u s e r f n i l : r
0012020 e a d v i c e 006 001 \r
0012040 ( n i l ( i l
0012060 : b e f o r e n i l ( c o n
0012100 d ( ( k e y w o r d p i l :
0012120 x ) \r
0012140
0012160 ( r e t u
0012200 r n ( l i s t ' q u o t e
0012220 i l : x ) ) ) \r
0012240
0012260 (
0012300 ( a n d ( e q ( c a r ( i
0012320 l : l i s t p ( c a r ( i l
0012340 : l i s t p i l : x ) ) ) ) \r
0012360
*
0012440 ' l a m b d a ) \r
0012460
*
0012520 ( c o n d ( ( i
0012540 l : i n t e r s e c t i o n (
0012560 c a d r ( c a r i l : x ) )
0012600 \r
0012620
*
0012660 l a m b
0012700 d a - l i s t - k e y w o r d s
0012720 ) \r
0012740
*
0013000 ( i l : e r r o r
0013020 \r
0013040
0013060 " C a n
0013100 ' t c o p e w i t h l a m
0013120 b d a k e y w o r d s i n
0013140 i n t e r n a l L A M B D A
0013160 l i s t s " \r
0013200
*
0013260 ) ) \r
0013300
*
0013340 ( t ( r e t u
0013360 r n ` ( ( i l : l a m b d a
0013400 , @ ( c d a r i l : x ) ) \r
0013420
*
0013500 ,
0013520 @ ( c d r i l : x ) ) ) ) ) )
0013540 ) ) ) ) ) \r ( i l : r e a d v i
0013560 s e i l : c o m p . u s e r f
0013600 n ) \r ( d e f s e t f 006 002 s y
0013620 m b o l - p a c k a g e 006 001 i
0013640 l : s e t f - s y m b o l - p a
0013660 c k a g e ) \r \r ( d e f u n 006
0013700 002 i l : d w i m - s y m b o l -
0013720 p a c k a g e 006 001 \r n i l
0013740 ( d e c l a r e ( s p e c i
0013760 a l i l : f a u l t x i l :
0014000 f a u l t a p p l y f l g ) ) 006
0014020 006 006 001 \r
0014040
*
0014100 006 006 ( i l : * i l
0014120 : | ; ; | " T h i s i s p
0014140 l a c e d o n D W I M U S E
0014160 R F O R M S t o a t t e m p
0014200 t c o r r e c t i o n s w h
0014220 e r e t h e t y p e d s y
0014240 m b o l i s i n t h e w
0014260 r o n g p a c k a g e . " ) 006
0014300 001 \r ( l e t ( (
0014320 i l : s y m ( o r ( c a r
0014340 ( i l : l i s t p i l : f a u
0014360 l t x ) ) \r
0014400 i
0014420 l : f a u l t x ) ) \r
0014440 i l : o t h e r
0014460 s ) \r (
0014500 c o n d \r
0014520 ( ( a n d ( i l : l i
0014540 t a t o m i l : s y m ) \r
0014560
0014600 ( c d r ( i l : s e t q
0014620 i l : o t h e r s ( f i n d
0014640 - a l l - s y m b o l s ( s y
0014660 m b o l - n a m e i l : s y m
0014700 ) ) ) ) \r
0014720 ( i l : s e
0014740 t q i l : o t h e r s ( i l
0014760 : | f o r | i l : x i l : |
0015000 i n | i l : o t h e r s i l
0015020 : | c o l l e c t | i l : x
0015040 i l : | w h e n | \r
0015060
*
0015120 ( a n d ( i
0015140 l : n e q i l : x i l : s y
0015160 m ) \r
0015200
*
0015240 ( n o t ( k e y
0015260 w o r d p i l : x ) ) \r
0015300
*
0015360 ( i l : | i f | ( a n d (
0015400 i l : l i t a t o m i l : f a
0015420 u l t x ) \r
0015440
*
0015520 ( n o t i l :
0015540 f a u l t a p p l y f l g ) ) \r
0015560
*
0015640 i l : | t
0015660 h e n | 006 006 006 001 \r
0015700
*
0015760 006 006 ( i l : * i l
0016000 : \ ; " E r r o r i s u b
0016020 a " ) 006 001 \r
0016040
*
0016120 ( b o u n d p i l : x ) \r
0016140
*
0016220 i l : | e l
0016240 s e | \r
0016260
*
0016320 (
0016340 f b o u n d p i l : x ) ) ) )
0016360 ) ) \r
0016400 ( i l : | f o r | i l :
0016420 c h o i c e i l : | i n | i
0016440 l : o t h e r s i l : | w h e
0016460 n | ( i l : f i x s p e l l 1
0016500 i l : s y m i l : c h o i c
0016520 e n i l t \r
0016540
*
0016620 (
0016640 a n d ( c d r i l : o t h e
0016660 r s ) \r
0016700
*
0017000 ' i l : m u s t a p p r o v e )
0017020 ) \r
0017040 i l : | d o |
0017060 006 006 006 001
0017100 006 006 ( i l : *
0017120 i l : | ; ; | " N o r m a l l
0017140 y t h e r e i s o n l y
0017160 o n e c h o i c e , a n d
0017200 w e o f f e r i t . I f
0017220 t h e r e i s m o r e t
0017240 h a n o n e c h o i c e ,
0017260 p r o b a b l y s h o u l d
0017300 d o s o m e t h i n g l i k
0017320 e a m e n u . T h i s
0017340 i s q u i c k a n d d i r
0017360 t y - - a s k u s e r f o r
0017400 e a c h i n t u r n a n
0017420 d r e q u i r e a p p r o v
0017440 a l s o t h a t i t d o
0017460 e s n ' t c h o o s e t h e
0017500 f i r s t a u t o m a t i c
0017520 a l l y . " ) 006 001 \r
0017540
0017560 ( r e t u r n ( i l : | i f
0017600 | ( i l : l i s t p i l : f
0017620 a u l t x ) \r
0017640
0017660 i l :
0017700 | t h e n | 006 006 006 001
0017720 006 006 ( i l : *
0017740 i l : \ ; " S Y M = ( C A
0017760 R F A U L T X ) " ) 006 001 \r
0020000
*
0020040 ( i l : / r p l a c a
0020060 i l : f a u l t x i l : c h o
0020100 i c e ) \r
0020120
0020140 i l : | e
0020160 l s e | i l : c h o i c e ) )
0020200 ) ) ) ) ) \r \r ( i l : d e c l a
0020220 r e \ : i l : d o n t e v a l
0020240 @ l o a d i l : d o c o p y
0020260 \r \r ( i l : a d d t o v a r 006
0020300 002 i l : d w i m u s e r f o r m
0020320 s 006 001 ( i l : d w i m - s y m
0020340 b o l - p a c k a g e ) ) \r ) \r
0020360 \r ( i l : r p a q q 006 002 i l :
0020400 n u c o n d i t i o n 006 001 ( i
0020420 l : d e f i n e - c o n d i t i
0020440 o n 006 002 i l : s y m b o l - c
0020460 o n f l i c t 006 001 i l : s i m
0020500 p l e - e r r o r : r e p o r
0020520 t \r
0020540
*
0020620 ( i l : f o r
0020640 m a t n i l \r
0020660
*
0020740 " S y m b o l s n
0020760 a m e d ~ s e x i s t s i
0021000 n p a c k a g e s ~ s " \r
0021020
*
0021120 ( \r
0021140
*
0021240 i l :
0021260 s y m b o l - c o n f l i c t -
0021300 n a m e \r
0021320
*
0021420 i l : c o n d i t i o n
0021440 ) \r
0021460
*
0021560 ( \r
0021600
*
0021660 i l : s
0021700 y m b o l - c o n f l i c t - p
0021720 a c k a g e s \r
0021740
*
0022040 i l : c o n d i t
0022060 i o n ) ) \r
0022100
*
0022160 : h a
0022200 n d l e \r
0022220
*
0022300 ( i l :
0022320 h a n d l e - s y m b o l - c o
0022340 n f l i c t \r
0022360
*
0022440 i
0022460 l : c o n d i t i o n ) \r
0022500
*
0022600 i l : n a m e i l : p
0022620 a c k a g e s ) \r ) \r ( d e f v
0022640 a r 006 002 i l : * p r e f e r r
0022660 e d - r e a d i n g - s y m b o
0022700 l s * 006 001 n i l \r
0022720
0022740 " L i s t o f s y m b o l
0022760 s w h o s e l o o k u p i
0023000 s p r e f e r r e d b y t
0023020 h e l i t a t o m t o s y
0023040 m b o l c o n v e r t e r . "
0023060 ) \r \r ( d e f u n 006 002 i l : r
0023100 e s o l v e - r e a d e r - c o
0023120 n f l i c t 006 001 ( i l : i l s
0023140 y m i l : c l s y m i l : c
0023160 l s y m w h e r e ) " R e a d
0023200 e r f i n d s u n q u a l i
0023220 f i e d s y m b o l t h a t
0023240 e x i s t s i n b o t h
0023260 I n t e r L i s p a n d L i
0023300 s p . C h e c k s * P R E
0023320 F E R R E D - R E A D I N G - S
0023340 Y M B O L S * l i s t a g a
0023360 i n s t n a m e s . " \r
0023400 ( d e c l a r e ( s p e c i a
0023420 l i l : c m l s y m b o l s .
0023440 c o n f l i c t s i l : * p r
0023460 e f e r r e d - r e a d i n g -
0023500 s y m b o l s * ) ) 006 006 006 001 \r
0023520
*
0023600 006 006 ( i l : * i l : | ; ; |
0023620 " C A U T I O N : D o n o
0023640 t a t t e m p t t o m o v
0023660 e t h e n a m e s t r i n g
0023700 c h e c k f r o m \ \ N E
0023720 W . R E A D . S Y M B O L i n
0023740 t o t h i s f u n c t i o n
0023760 a s R E S O L V E - R E A D
0024000 E R - C O N F L I C T h a s
0024020 a d u m m y d e f i n i t i
0024040 o n i n t h e I N I T .
0024060 A l s o , n a m e s t r i n
0024100 g r e s o l u t i o n s m u
0024120 s t b e m a d e d u r i n
0024140 g t h e t i m e t h a t
0024160 p a c k a g e s a r e t u r
0024200 n e d o f f i n t h e b
0024220 e g i n n i n g o f t h e
0024240 I N I T . " ) 006 001 \r ( c o
0024260 n d \r ( ( m e m b e
0024300 r i l : i l s y m i l : c m
0024320 l s y m b o l s . c o n f l i c
0024340 t s : t e s t ' s t r i n g
0024360 = ) 006 006 006 001 \r
0024400
*
0024440 006 006 ( i l : *
0024460 i l : \ ; " I f t h i s
0024500 s y m b o l w a s q u a l i
0024520 f i e d i n K o t o s o u
0024540 r c e s ( e g , i t h a s
0024560 n e v e r a p p e a r e d
0024600 u n q u a l i f i e d i n o
0024620 l d s o u r c e s ) , t h e
0024640 n u s e t h e I n t e r l
0024660 i s p d e f i n i t i o n . "
0024700 ) 006 001 \r i l : i l
0024720 s y m ) \r ( ( n o t
0024740 ( e q i l : c l s y m w h e
0024760 r e : e x t e r n a l ) ) 006 006
0025000 006 001 006 006 ( i l
0025020 : * i l : \ ; \r 006 001
0025040
*
0025100 006 006 " W i l l n o t r e s o
0025120 l v e i n t e r n a l ( t h
0025140 e r e f o r e p r i v a t e )
0025160 s y m b o l s f r o m L I
0025200 S P " ) 006 001 \r i l
0025220 : i l s y m ) \r ( t
0025240 ( l e t ( ( i l : i l p r e
0025260 f e r r e d ( m e m b e r i
0025300 l : i l s y m i l : * p r e f
0025320 e r r e d - r e a d i n g - s y
0025340 m b o l s * : t e s t ' e q
0025360 ) ) \r
0025400 ( i l : c l p r e f e r r e
0025420 d ( m e m b e r i l : c l s
0025440 y m i l : * p r e f e r r e d
0025460 - r e a d i n g - s y m b o l s
0025500 * : t e s t ' e q ) ) ) \r
0025520 ( c o
0025540 n d \r
0025560 ( ( a n d i l : i l p
0025600 r e f e r r e d ( n o t i l
0025620 : c l p r e f e r r e d ) ) \r
0025640
0025660 i l : i l s y m ) \r
0025700 ( ( a n
0025720 d i l : c l p r e f e r r e d
0025740 ( n o t i l : i l p r e f e
0025760 r r e d ) ) \r
0026000 i l : c l s y
0026020 m ) \r
0026040 ( t 006 006 006 001
0026060
*
0026120 006 006 ( i l : * i l : \
0026140 ; " A s k w h a t t h e y
0026160 m e a n t . " ) 006 001 \r
0026200
0026220 ( i l : p r o c e e d - c a s e
0026240 ( e r r o r " S y m b o l s
0026260 n a m e d ~ s e x i s t
0026300 i n L I S P a n d I N T E
0026320 R L I S P " \r
0026340
*
0026400 ( s y m b o l - n a m e
0026420 i l : i l s y m ) ) \r
0026440
0026460 ( i l : p r e f e r
0026500 - c l s y m - p r o c e e d (
0026520 i l : c o n d i t i o n ) \r
0026540
*
0026600 : t e s t i l : t r u e : r
0026620 e p o r t " R e t u r n L I
0026640 S P s y m b o l , m a k e
0026660 i t p r e f e r r e d " \r
0026700
*
0026740 ( s e t q i l : * p r e f e r
0026760 r e d - r e a d i n g - s y m b
0027000 o l s * ( r e m o v e i l :
0027020 i l s y m \r
0027040
*
0027120 i l
0027140 : * p r e f e r r e d - r e a d
0027160 i n g - s y m b o l s * \r
0027200
*
0027300 : t e s
0027320 t # ' e q ) ) \r
0027340
0027360 ( p u s h
0027400 i l : c l s y m i l : * p r
0027420 e f e r r e d - r e a d i n g -
0027440 s y m b o l s * ) \r
0027460
0027500 i l : c
0027520 l s y m ) \r
0027540
0027560 ( i l : r e t u r n - c l s y
0027600 m - p r o c e e d ( i l : c o
0027620 n d i t i o n ) \r
0027640
0027660 : t e s t
0027700 i l : t r u e : r e p o r t
0027720 " J u s t r e t u r n L I
0027740 S P s y m b o l " i l : c l
0027760 s y m ) \r
0030000
0030020 ( i l : p r e f e r - i l s y m
0030040 - p r o c e e d ( i l : c o n
0030060 d i t i o n ) \r
0030100
0030120 : t e s t
0030140 i l : t r u e : r e p o r t
0030160 " R e t u r n I N T E R L I S
0030200 P s y m b o l , m a k e i
0030220 t p r e f e r r e d " \r
0030240
0030260 (
0030300 s e t q i l : * p r e f e r r
0030320 e d - r e a d i n g - s y m b o
0030340 l s * ( r e m o v e i l : c
0030360 l s y m \r
0030400
*
0030460 i l :
0030500 * p r e f e r r e d - r e a d i
0030520 n g - s y m b o l s * \r
0030540
*
0030640 : t e s t
0030660 # ' e q ) ) \r
0030700
0030720 ( p u s h
0030740 i l : i l s y m i l : * p r e
0030760 f e r r e d - r e a d i n g - s
0031000 y m b o l s * ) \r
0031020
0031040 i l : i l
0031060 s y m ) \r
0031100
0031120 ( i l : r e t u r n - i l s y m
0031140 - p r o c e e d ( i l : c o n
0031160 d i t i o n ) \r
0031200
0031220 : t e s t
0031240 i l : t r u e : r e p o r t
0031260 " J u s t r e t u r n I N T
0031300 E R L I S P s y m b o l " i
0031320 l : i l s y m ) ) ) ) ) ) \r
0031340 ) ) \r \r \r \r \r 006 004 ( i l
0031360 : * i l : | ; ; | " U s e r
0031400 f r i e n d l y s y m b o l
0031420 e r r o r r e s o l v i n g
0031440 f u n c t i o n s " ) 006 001 \r \r
0031460 ( d e f u n 006 002 i l : r e s o
0031500 l v e - m i s s i n g - e x t e
0031520 r n a l - s y m b o l 006 001 ( i
0031540 l : n a m e p a c k a g e )
0031560 \r
0031600
0031620 " H a n d
0031640 l e m i s s i n g e x t e r
0031660 n a l s y m b o l s i n a
0031700 p a c k a g e d u r i n g
0031720 r e a d . " \r ( c e r r o
0031740 r " C r e a t e t h e s y
0031760 m b o l ~ s e x t e r n a l
0032000 l y i n p a c k a g e ~ s
0032020 . " \r " E
0032040 x t e r n a l s y m b o l ~
0032060 s n o t f o u n d i n p
0032100 a c k a g e ~ s . " i l : n
0032120 a m e ( % p a c k a g e - n a
0032140 m e p a c k a g e ) ) \r
0032160 ( e x p o r t ( i n t e r n
0032200 i l : n a m e p a c k a g e )
0032220 \r p a c k a
0032240 g e ) ) \r \r ( d e f u n 006 002 i
0032260 l : r e s o l v e - u s e - p a
0032300 c k a g e - c o n f l i c t 006 001
0032320 ( i l : p k g i l : c s e t
0032340 p a c k a g e ) " H a n d l
0032360 e a c o n f l i c t f r o
0032400 m u s e - p a c k a g e . " \r
0032420 ( i l : s e t q i l : c
0032440 s e t ( s o r t i l : c s e
0032460 t ' s t r i n g < ) ) \r
0032500 ( i l : p r o c e e d - c a s e
0032520 ( e r r o r " U s e ' i n g
0032540 p a c k a g e ~ A r e s u
0032560 l t s i n n a m e c o n f
0032600 l i c t s f o r s y m b o l
0032620 s : ~ % ~ { ~ S ~ } ~ % " \r
0032640
0032660 ( % p a c
0032700 k a g e - n a m e i l : p k g
0032720 ) \r
0032740 i l :
0032760 c s e t \r
0033000
0033020 ( % p a c k a g e - n a m e p
0033040 a c k a g e ) ) \r
0033060 ( i l : u n i n t e r n -
0033100 u s e r - p r o c e e d ( i l
0033120 : c o n d i t i o n ) \r
0033140 : t e
0033160 s t i l : t r u e : r e p o
0033200 r t ( f o r m a t t \r
0033220
*
0033260 " U n i
0033300 n t e r n c o n f l i c t i n
0033320 g s y m b o l s f r o m ~
0033340 A ( V E R Y D A N G E R O U
0033360 S ) " \r
0033400
*
0033440 ( % p a c k a g e - n a m e
0033460 p a c k a g e ) ) \r
0033500 ( d o l
0033520 i s t ( i l : s i l : c s e
0033540 t ) \r
0033560 ( i l : m
0033600 o b y - u n i n t e r n i l :
0033620 s p a c k a g e ) ) ) \r
0033640 ( i l : u n i n t
0033660 e r n - u s e e - p r o c e e d
0033700 ( i l : c o n d i t i o n ) \r
0033720
0033740 : t e s t i l : t r u e :
0033760 r e p o r t ( f o r m a t t
0034000 \r
0034020
*
0034060 " U n i n t e r n c o n f l i
0034100 c t i n g s y m b o l s f r
0034120 o m ~ A ( V E R Y D A N G
0034140 E R O U S ) " \r
0034160
*
0034220 ( % p a c k a g e -
0034240 n a m e i l : p k g ) ) \r
0034260 (
0034300 d o l i s t ( i l : s i l :
0034320 c s e t ) \r
0034340 ( i
0034360 l : m o b y - u n i n t e r n
0034400 ( f i n d - s y m b o l ( s y
0034420 m b o l - n a m e i l : s ) \r
0034440
*
0034520 i l : p k g ) \r
0034540
0034560 i l : p k g ) )
0034600 ) \r ( i l :
0034620 a l l o w - s h a d o w - p r o
0034640 c e e d ( i l : c o n d i t i
0034660 o n ) \r
0034700 : t e s t i l : t r
0034720 u e : r e p o r t ( f o r m
0034740 a t t \r
0034760
0035000 " L e
0035020 t s y m b o l s i n p a c
0035040 k a g e ~ s s h a d o w a
0035060 l l o t h e r s ( p u s h d
0035100 o w n o r d e r ) " \r
0035120
*
0035160 ( % p a c k
0035200 a g e - n a m e p a c k a g e
0035220 ) ) \r
0035240 n i l ) \r
0035260 ( i l : a b o r t - u s e
0035300 - p a c k a g e - p r o c e e d
0035320 ( i l : c o n d i t i o n ) \r
0035340
0035360 : t e s t i l : t r u e :
0035400 r e p o r t ( f o r m a t t
0035420 " A b o r t u s i n g p a
0035440 c k a g e ~ s " ( % p a c k
0035460 a g e - n a m e i l : p k g )
0035500 ) \r
0035520 ( i l : r e t f r o m '
0035540 u s e - p a c k a g e n i l )
0035560 ) ) ) \r \r ( d e f u n 006 002 i l
0035600 : r e s o l v e - e x p o r t -
0035620 c o n f l i c t 006 001 ( p a c k
0035640 a g e i l : c s e t i l : c
0035660 p a c k a g e s i l : s y m s
0035700 ) \r
0035720
*
0036000 " H a n d l e a c o n
0036020 f l i c t r a i s e d b y
0036040 e x p o r t . " \r ( i l :
0036060 s e t q i l : c s e t ( s o
0036100 r t i l : c s e t ' s t r i
0036120 n g < ) ) \r ( i l : s e t
0036140 q i l : c p a c k a g e s (
0036160 s o r t i l : c p a c k a g e
0036200 s ( i l : f u n c t i o n (
0036220 l a m b d a ( i l : a i l :
0036240 b ) \r
0036260
*
0036340 ( s t r i n g < ( % p a
0036360 c k a g e - n a m e i l : a )
0036400 \r
0036420
*
0036500 ( % p a c k a g
0036520 e - n a m e i l : b ) ) ) ) )
0036540 ) \r ( i l : p r o c e e d
0036560 - c a s e ( e r r o r " E x
0036600 p o r t i n g t h e s e s y
0036620 m b o l s f r o m t h e ~
0036640 A p a c k a g e : ~ % ~ { ~ S
0036660 ~ } ~ % r e s u l t s i n
0036700 n a m e c o n f l i c t s
0036720 w i t h p a c k a g e ( s ) :
0036740 ~ % ~ { ~ A ~ } ~ % " \r
0036760
0037000 ( % p a c k a g
0037020 e - n a m e p a c k a g e ) \r
0037040
0037060 i l : c s
0037100 e t \r
0037120 ( m
0037140 a p c a r ( i l : f u n c t i
0037160 o n % p a c k a g e - n a m e
0037200 ) \r
0037220
0037240 i l : c p a c k a g e s
0037260 ) ) \r ( i l
0037300 : u n i n t e r n - p r o c e e
0037320 d ( i l : c o n d i t i o n )
0037340 \r
0037360 : t e s t i l : t r u e
0037400 : r e p o r t \r
0037420 " U n i n t
0037440 e r n c o n f l i c t i n g
0037460 s y m b o l s i n p a c k a
0037500 g e ( s ) ~ * ~ * ~ { ~ S ~ }
0037520 ~ % ( V E R Y D A N G E R O U
0037540 S ) " \r
0037560 ( d o l i s t ( i l
0037600 : p i l : c p a c k a g e s )
0037620 \r
0037640 ( d o l i s t
0037660 ( i l : s y m i l : c s e t
0037700 ) \r
0037720
0037740 ( i l : m o b y - u n i n t e
0037760 r n i l : s y m i l : p ) )
0040000 ) \r
0040020 ( n s e t - d i f f e r e
0040040 n c e i l : s y m s i l : c
0040060 s e t ) ) \r
0040100 ( i l : a b o r t - e x p o r t
0040120 - p r o c e e d ( i l : c o n
0040140 d i t i o n ) \r
0040160 : t e s t i
0040200 l : t r u e : r e p o r t (
0040220 f o r m a t t " A b o r t
0040240 e x p o r t i n g t h e s y
0040260 m b o l s f r o m p a c k a
0040300 g e ~ s " \r
0040320
*
0040360 ( % p a c k a g e - n
0040400 a m e p a c k a g e ) ) \r
0040420 (
0040440 i l : r e t f r o m ' e x p o
0040460 r t n i l ) ) ) ) \r \r ( d e f
0040500 u n 006 002 i l : r e s o l v e -
0040520 e x p o r t - m i s s i n g 006 001
0040540 ( p a c k a g e i l : m i s
0040560 s i n g ) " H a n d l e m i
0040600 s s i n g s y m b o l s n e
0040620 e d e d t o e x p o r t . "
0040640 \r ( i l : s e t q i l :
0040660 m i s s i n g ( s o r t i l
0040700 : m i s s i n g ' s t r i n g
0040720 < ) ) \r ( i l : p r o c e
0040740 e d - c a s e ( e r r o r "
0040760 T h e s e s y m b o l s a r
0041000 e n o t a v a i l a b l e
0041020 i n t h e ~ A p a c k a g
0041040 e : ~ % ~ { ~ S ~ } ~ % " \r
0041060
0041100 ( % p a c k
0041120 a g e - n a m e p a c k a g e
0041140 ) \r
0041160 i l :
0041200 m i s s i n g ) \r
0041220 ( i l : i m p o r t - p r
0041240 o c e e d ( i l : c o n d i t
0041260 i o n ) \r
0041300 : t e s t i l : t
0041320 r u e : r e p o r t " I m p
0041340 o r t t h e s e s y m b o l
0041360 s " ( i m p o r t i l : m i
0041400 s s i n g p a c k a g e ) ) \r
0041420 ( i l : a b
0041440 o r t - e x p o r t - p r o c e
0041460 e d ( i l : c o n d i t i o n
0041500 ) \r
0041520 : t e s t i l : t r u e
0041540 : r e p o r t ( f o r m a t
0041560 t " A b o r t e x p o r t
0041600 t o p a c k a g e ~ s "
0041620 ( % p a c k a g e - n a m e p
0041640 a c k a g e ) \r
0041660
*
0041720 ) \r
0041740 ( i l : r e t
0041760 f r o m ' i m p o r t n i l
0042000 ) ) ) ) \r \r ( d e f u n 006 002 i
0042020 l : r e s o l v e - i m p o r t
0042040 - c o n f l i c t 006 001 ( p a c
0042060 k a g e i l : c s e t ) \r
0042100
0042120 " H a n d l e c o n f l i
0042140 c t s i g n a l l e d b y
0042160 i m p o r t . R e t u r n i
0042200 n g f r o m h e r e d o e
0042220 s s h a d o w i n g i m p o
0042240 r t . " \r ( i l : s e t q
0042260 i l : c s e t ( s o r t i
0042300 l : c s e t ' s t r i n g < )
0042320 ) \r ( i l : p r o c e e d
0042340 - c a s e ( e r r o r \r
0042360
0042400 " I m p o r t i n g t h
0042420 e s e s y m b o l s i n t o
0042440 t h e ~ A p a c k a g e
0042460 c a u s e s a n a m e c o
0042500 n f l i c t : ~ % ~ { ~ S ~ }
0042520 ~ % " \r
0042540 (
0042560 % p a c k a g e - n a m e p a
0042600 c k a g e ) \r
0042620
0042640 i l : c s e t ) \r
0042660 ( i l : s h a d o w i
0042700 n g - i m p o r t - p r o c e e
0042720 d ( i l : c o n d i t i o n )
0042740 \r
0042760 : t e s t i l : t r u e
0043000 : r e p o r t " I m p o r t
0043020 s y m b o l s w i t h s h a
0043040 d o w i n g - i m p o r t " n
0043060 i l ) \r ( i
0043100 l : a b o r t - i m p o r t - p
0043120 r o c e e d ( i l : c o n d i
0043140 t i o n ) \r
0043160 : t e s t i l :
0043200 t r u e : r e p o r t ( f o
0043220 r m a t t " A b o r t i m
0043240 p o r t i n t o p a c k a g
0043260 e ~ s " ( % p a c k a g e -
0043300 n a m e \r
0043320
*
0043420 p a c
0043440 k a g e ) ) \r
0043460 ( i l : r e t f
0043500 r o m ' i m p o r t n i l )
0043520 ) ) ) \r \r ( d e f u n 006 002 i l
0043540 : r e s o l v e - u n i n t e r
0043560 n - c o n f l i c t 006 001 ( s y
0043600 m b o l i l : c s e t p a c
0043620 k a g e ) " H a n d l e a
0043640 c o n f l i c t n o t e d b
0043660 y u n i n t e r n . " \r
0043700 ( i l : s e t q i l : c s e t
0043720 ( s o r t i l : c s e t '
0043740 s t r i n g < ) ) \r ( i l
0043760 : p r o c e e d - c a s e ( e
0044000 r r o r \r
0044020 "
0044040 U n i n t e r n i n g s y m b
0044060 o l ~ S c a u s e s n a m
0044100 e c o n f l i c t a m o n g
0044120 t h e s e s y m b o l s : ~
0044140 % ~ { ~ S ~ } ~ % " \r
0044160
0044200 s y m b o l i
0044220 l : c s e t ) \r
0044240 ( i l : s h a d o w i n g -
0044260 i m p o r t - p r o c e e d (
0044300 i l : c o n d i t i o n ) \r
0044320 :
0044340 t e s t i l : t r u e : r e
0044360 p o r t " S h a d o w i n g
0044400 i m p o r t a s y m b o l "
0044420 \r
0044440 ( l o o p ( l e t ( ( i
0044460 l : s y m ( i l : m e n u (
0044500 i l : c r e a t e i l : m e n
0044520 u i l : t i t l e i l : _
0044540 \r
0044560
*
0044620 " C h o o s e s y
0044640 m b o l t o s h a d o w i n
0044660 g - i m p o r t " i l : i t e
0044700 m s \r
0044720
*
0044760 i l : _ i l
0045000 : c s e t i l : c e n t e r f
0045020 l g i l : _ t ) ) ) ) \r
0045040
0045060 ( w h e n
0045100 ( i l : f m e m b i l : s y m
0045120 i l : c s e t ) \r
0045140
0045160 ( s h a
0045200 d o w i n g - i m p o r t i l
0045220 : s y m p a c k a g e ) \r
0045240
*
0045300 ( i l : r e t f r o m ' u n i
0045320 n t e r n t ) ) ) ) ) \r
0045340 ( i l : a b o r t
0045360 - u n i n t e r n - p r o c e e
0045400 d ( i l : c o n d i t i o n )
0045420 \r
0045440 : t e s t i l : t r u e
0045460 : r e p o r t ( f o r m a t
0045500 t " A b o r t u n i n t e r
0045520 n o f s y m b o l ~ s f
0045540 r o m p a c k a g e ~ s "
0045560 s y m b o l \r
0045600
*
0045640 ( % p a c k a g e - n
0045660 a m e p a c k a g e ) ) \r
0045700 (
0045720 i l : r e t f r o m ' u n i n
0045740 t e r n n i l ) ) ) ) \r \r \r \r
0045760 \r 006 004 ( i l : * i l : | ; ; |
0046000 " S y m b o l i n s p e c t
0046020 o r " ) 006 001 \r \r ( d e f u n 006
0046040 002 i l : s y m b o l - i n s p e
0046060 c t - f e t c h f n 006 001 ( i l
0046100 : o b j e c t i l : p r o p e
0046120 r t y ) ( c a s e i l : p r
0046140 o p e r t y ( i l : n a m e
0046160 ( s y m b o l - n a m e \r
0046200
*
0046320 i l : o b j e c t ) ) \r
0046340
*
0046420 ( i l
0046440 : v a l u e ( i f ( b o u n
0046460 d p i l : o b j e c t ) \r
0046500
*
0046600 ( s y m b
0046620 o l - v a l u e i l : o b j e
0046640 c t ) \r
0046660
*
0046760 ' i l : n o b i n d ) ) \r
0047000
*
0047060 ( i l
0047100 : p l i s t ( s y m b o l - p
0047120 l i s t i l : o b j e c t ) )
0047140 \r
0047160
*
0047240 ( p a c k a g e ( s y m b o l
0047260 - p a c k a g e i l : o b j e
0047300 c t ) ) ) ) \r \r ( d e f u n 006
0047320 002 i l : s y m b o l - i n s p e
0047340 c t - s t o r e f n 006 001 ( i l
0047360 : o b j e c t i l : p r o p e
0047400 r t y i l : v a l u e ) ( c
0047420 a s e i l : p r o p e r t y \r
0047440
*
0047540 ( i l : n a m e
0047560 ( i l : p r o m p t p r i n t
0047600 \r
0047620
*
0047720 \r
0047740
*
0050040 " C a n ' t s e t s y m
0050060 b o l n a m e " \r
0050100
*
0050200 ) ) \r
0050220
*
0050320 ( i l : v a l u e
0050340 ( s e t f ( s y m b o l - v
0050360 a l u e \r
0050400
*
0050500 i l
0050520 : o b j e c t ) \r
0050540
*
0050660 i l : v a l u e ) ) \r
0050700
*
0051000 ( i l : p l i s t ( s
0051020 e t f ( s y m b o l - p l i s
0051040 t \r
0051060
*
0051160 i l : o b
0051200 j e c t ) \r
0051220
*
0051320 i l
0051340 : v a l u e ) ) \r
0051360
*
0051460 ( p a c k a g e ( s e t f
0051500 ( \r
0051520
*
0051620 s y m b o l -
0051640 p a c k a g e \r
0051660
*
0052000 i l : o b j e c t ) \r
0052020
*
0052140 i l : v a l u e ) ) ) ) \r \r
0052160 ( l e t ( ( i l : f o r m '
0052200 ( ( i l : f u n c t i o n s y
0052220 m b o l p ) \r
0052240 ( i l : n a m e
0052260 i l : v a l u e i l : p l i
0052300 s t p a c k a g e ) \r
0052320 i l :
0052340 s y m b o l - i n s p e c t - f
0052360 e t c h f n i l : s y m b o l
0052400 - i n s p e c t - s t o r e f n
0052420 n i l n i l n i l " S y
0052440 m b o l i n s p e c t o r " )
0052460 ) \r ) \r (
0052500 c o n d ( ( n o t ( i l : m
0052520 e m b e r i l : f o r m i l
0052540 : i n s p e c t m a c r o s ) )
0052560 \r ( i l
0052600 : | p u s h | i l : i n s p e
0052620 c t m a c r o s i l : f o r m
0052640 ) ) ) ) \r \r \r \r 006 004 ( i l : *
0052660 i l : | ; ; | " P a c k a g e
0052700 i n s p e c t o r " ) 006 001 \r \r
0052720 ( d e f u n 006 002 i l : p a c k
0052740 a g e - i n s p e c t - f e t c
0052760 h f n 006 001 ( i l : o b j e c t
0053000 i l : p r o p e r t y ) ( c
0053020 a s e i l : p r o p e r t y
0053040 ( i l : n a m e ( % p a c k a
0053060 g e - n a m e \r
0053100
*
0053200 i l
0053220 : o b j e c t ) ) \r
0053240
*
0053320 ( i l : n i
0053340 c k n a m e s ( % p a c k a g
0053360 e - n i c k n a m e s \r
0053400
*
0053500 i l : o b
0053520 j e c t ) ) \r
0053540
*
0053620 ( i l : u s e - l
0053640 i s t ( % p a c k a g e - u s
0053660 e - l i s t \r
0053700
*
0054000 i l : o b j e c t ) )
0054020 \r
0054040
*
0054120 ( i l : i n t e r n a l - s y
0054140 m b o l s ( \r
0054160
*
0054260 % p a c k a g e - i n t
0054300 e r n a l - s y m b o l s \r
0054320
*
0054440 i l : o b j e c t ) ) \r
0054460
*
0054560 ( i l : e x t e r n a l - s y m
0054600 b o l s ( \r
0054620
*
0054720 % p a c k a g e - e x t e
0054740 r n a l - s y m b o l s \r
0054760
*
0055100 i l : o b j e c t ) ) \r
0055120
*
0055200 (
0055220 i l : s h a d o w i n g - s y m
0055240 b o l s ( \r
0055260
*
0055360 % p a c k a g e - s h a d o
0055400 w i n g - s y m b o l s \r
0055420
*
0055540 i l : o b j e c t ) ) )
0055560 ) \r \r ( d e f u n 006 002 i l : p
0055600 a c k a g e - i n s p e c t - s
0055620 t o r e f n 006 001 ( i l : o b j
0055640 e c t i l : p r o p e r t y
0055660 i l : v a l u e ) ( i l : p r
0055700 o m p t p r i n t \r
0055720
*
0056000 " C a
0056020 n ' t s e t t h e f i e l
0056040 d s o f a p a c k a g e "
0056060 \r
0056100
*
0056160 ) ) \r \r (
0056200 l e t ( ( i l : f o r m ' (
0056220 ( i l : f u n c t i o n p a c
0056240 k a g e p ) \r
0056260 ( i l : n a m e
0056300 i l : n i c k n a m e s i l
0056320 : u s e - l i s t i l : i n t
0056340 e r n a l - s y m b o l s i l
0056360 : e x t e r n a l - s y m b o l
0056400 s \r
0056420 i l : s h
0056440 a d o w i n g - s y m b o l s )
0056460 \r
0056500 i l : p a c k a g e - i n s
0056520 p e c t - f e t c h f n i l :
0056540 p a c k a g e - i n s p e c t -
0056560 s t o r e f n n i l n i l
0056600 n i l \r
0056620 " P a c k a g e i
0056640 n s p e c t o r " ) ) ) \r
0056660 ( c o n d ( ( n o t ( i
0056700 l : m e m b e r i l : f o r m
0056720 i l : i n s p e c t m a c r o
0056740 s ) ) \r
0056760 ( i l : | p u s h | i l : i n
0057000 s p e c t m a c r o s i l : f
0057020 o r m ) ) ) ) \r \r \r \r 006 004 ( i l
0057040 : * i l : | ; ; | " P a c k
0057060 a g e - h a s h t a b l e i n
0057100 s p e c t o r " ) 006 001 \r \r ( d e
0057120 f u n 006 002 i l : p a c k a g e
0057140 - h a s h t a b l e - i n s p e
0057160 c t - f e t c h f n 006 001 ( i l
0057200 : o b j e c t i l : p r o p e
0057220 r t y ) ( c a s e i l : p r
0057240 o p e r t y \r
0057260
*
0057360 ( i l : s i z e ( \r
0057400
*
0057500 p a c k a
0057520 g e - h a s h t a b l e - s i z
0057540 e \r
0057560
*
0057660 i l : o b j e c t )
0057700 ) \r
0057720
*
0060000 ( i l :
0060020 f r e e ( \r
0060040
*
0060140 p a c k a g e - h a
0060160 s h t a b l e - f r e e \r
0060200
*
0060320 i l : o b j e c t ) ) \r
0060340
*
0060440 ( i l : d e l e t
0060460 e d ( \r
0060500
*
0060600 p a c k a g e - h a s h t a b
0060620 l e - d e l e t e d \r
0060640
*
0060760 i l : o b j e c t ) ) \r
0061000
*
0061100 ( i l : c o n t
0061120 e n t s ( \r
0061140
*
0061240 p a c k a g e - h a s
0061260 h t a b l e - t a b l e \r
0061300
*
0061420 i l : o b j e c t ) )
0061440 ) ) \r \r ( d e f u n 006 002 i l :
0061460 p a c k a g e - h a s h t a b l
0061500 e - i n s p e c t - s t o r e f
0061520 n 006 001 ( i l : o b j e c t i
0061540 l : p r o p e r t y i l : v a
0061560 l u e ) ( i l : p r o m p t p
0061600 r i n t \r
0061620
*
0061660 " C
0061700 a n ' t s e t t h e f i e
0061720 l d s o f a p a c k a g e
0061740 - h a s h t a b l e " \r
0061760
*
0062100 ) ) \r \r ( l e t ( ( i l : f o
0062120 r m ' ( ( i l : f u n c t i o
0062140 n p a c k a g e - h a s h t a
0062160 b l e - p ) \r
0062200 ( i l : s i z e
0062220 i l : f r e e i l : d e l e
0062240 t e d i l : c o n t e n t s )
0062260 \r
0062300 i l : p a c k a g e - h a s
0062320 h t a b l e - i n s p e c t - f
0062340 e t c h f n i l : p a c k a g
0062360 e - h a s h t a b l e - i n s p
0062400 e c t - s t o r e f n ) ) ) \r
0062420 ( c o n d ( ( n o t
0062440 ( i l : m e m b e r i l : f o
0062460 r m i l : i n s p e c t m a c
0062500 r o s ) ) \r
0062520 ( i l : | p u s h | i l :
0062540 i n s p e c t m a c r o s i l
0062560 : f o r m ) ) ) ) \r \r ( i l : p
0062600 u t p r o p s 006 002 i l : c m l
0062620 p a c k a g e i l : f i l e t
0062640 y p e 006 001 c o m p i l e - f i
0062660 l e ) \r \r ( i l : p u t p r o p
0062700 s 006 002 i l : c m l p a c k a g
0062720 e i l : m a k e f i l e - e n
0062740 v i r o n m e n t 006 001 ( : r e
0062760 a d t a b l e " X C L " : p
0063000 a c k a g e " L I S P " ) ) \r
0063020 ( i l : d e c l a r e \ : i l
0063040 : d o n t e v a l @ l o a d i
0063060 l : d o e v a l @ c o m p i l e
0063100 i l : d o n t c o p y i l :
0063120 c o m p i l e r v a r s \r \r (
0063140 i l : a d d t o v a r 006 002 i l
0063160 : n l a m a 006 001 ) \r \r ( i l :
0063200 a d d t o v a r 006 002 i l : n l
0063220 a m l 006 001 ) \r \r ( i l : a d d
0063240 t o v a r 006 002 i l : l a m a 006
0063260 001 ) \r ) \r ( i l : p u t p r o
0063300 p s i l : c m l p a c k a g e
0063320 i l : c o p y r i g h t ( "
0063340 X e r o x C o r p o r a t i o
0063360 n " 1 9 8 6 ) ) \r ( i l : d e
0063400 c l a r e \ : i l : d o n t c
0063420 o p y \r ( i l : f i l e m a
0063440 p ( n i l ) ) ) \r i l : s t o
0063460 p \r
0063462