$ od -c -N 50000 [eris]<LispCore>SOURCES>LLSYMBOL!4
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 " I N T
0000060 E R L I S P " ) \r 006 001 ( f i l e
0000100 c r e a t e d " 1 6 - O c t -
0000120 8 6 2 3 : 5 2 : 0 4 " 006 004 {
0000140 e r i s } < l i s p c o r e > s
0000160 o u r c e s > l l s y m b o l .
0000200 \ ; 4 006 001 9 1 2 4 \r \r
0000220 | c h a n g e s | |
0000240 t o : | ( f u n c t i o n s
0000260 c l : s y m b o l - f u n c t
0000300 i o n ) \r \r | p r e
0000320 v i o u s | | d a t e : | "
0000340 1 6 - O c t - 8 6 1 4 : 4 4 :
0000360 5 7 " { e r i s } < l i s p c
0000400 o r e > s o u r c e s > l l s y
0000420 m b o l . \ ; 3 ) \r \r \r ; C o
0000440 p y r i g h t ( c ) 1 9 8 6
0000460 b y X e r o x C o r p o r
0000500 a t i o n . A l l r i g h
0000520 t s r e s e r v e d . \r \r ( p
0000540 r e t t y c o m p r i n t l l
0000560 s y m b o l c o m s ) \r \r ( r p
0000600 a q q 006 002 l l s y m b o l c o
0000620 m s 006 001 ( ( * | ; ; | " S
0000640 y m b o l f u n c t i o n s .
0000660 " ) \r
0000700 ( * | ; ; |
0000720 " S E T B O U N D P a n d
0000740 R E M P R O P a r e a l r e
0000760 a d y i n I n t e r l i s p
0001000 - D " ) \r
0001020 ( f u n c t
0001040 i o n s c l : m a k u n b o u
0001060 n d c l : s y m b o l - n a m
0001100 e c l : s y m b o l - v a l u
0001120 e g e t c l : g e t f \r
0001140
0001160 c l : g e
0001200 t - p r o p e r t i e s ) \r
0001220
0001240 ( p ( m o v d ' g e t
0001260 p r o p l i s t ' c l : s y m
0001300 b o l - p l i s t ) ) \r
0001320
0001340 ( f u n c t i o n s c l : f
0001360 b o u n d p c l : f m a k u n
0001400 b o u n d c l : s y m b o l -
0001420 f u n c t i o n s e t f - s y
0001440 m b o l - f u n c t i o n ) \r
0001460
0001500 ( v a r i a b l e s *
0001520 g e n s y m - c o u n t e r *
0001540 * g e n s y m - p r e f i x * )
0001560 \r
0001600 ( f u n c t i o n s
0001620 c l \ : c o p y - s y m b o l
0001640 c l : g e n s y m c l \ : m
0001660 a k e - k e y w o r d c l \ :
0001700 g e n t e m p c l \ : k e y w
0001720 o r d p ) \r
0001740 ( p r o p
0001760 f i l e t y p e l l s y m b
0002000 o l ) ) ) \r \r \r \r 006 004 ( * | ;
0002020 ; | " S y m b o l f u n c t
0002040 i o n s . " ) 006 001 \r \r \r \r \r 006 004
0002060 ( * | ; ; | " S E T B O U
0002100 N D P a n d R E M P R O P
0002120 a r e a l r e a d y i n I
0002140 n t e r l i s p - D " ) 006 001 \r \r
0002160 ( c l : d e f u n 006 002 c l : m
0002200 a k u n b o u n d 006 001 ( c l :
0002220 s y m b o l ) " M a k e a
0002240 s y m b o l u n b o u n d . "
0002260 006 003 006 001 \r
0002300
*
0002340 006 003 ( * | ; ;
0002360 | \r 006 001
0002400 006 003 " R e a l l y s
0002420 h o u l d m a k e i t h a
0002440 v e n o v a l u e a t a
0002460 l l - - n e e d t o h a
0002500 v e a n u n b o u n d d y
0002520 n a m i c v a l u e " ) 006 001 \r
0002540
*
0002620 ( s e
0002640 t c l : s y m b o l ' n o b
0002660 i n d ) \r
0002700
*
0002760 c l : s y m b o l ) \r \r ( c
0003000 l : d e f u n 006 002 c l : s y m
0003020 b o l - n a m e 006 001 ( c l : s
0003040 y m b o l ) ( c l : c h e c k
0003060 - t y p e c l : s y m b o l
0003100 c l : s y m b o l ) \r
0003120
*
0003160 ( m k s t r i n g c l : s y m
0003200 b o l ) ) \r \r ( c l : d e f u n
0003220 006 002 c l : s y m b o l - v a l
0003240 u e 006 001 ( c l : s y m b o l )
0003260 006 003 006 001
0003300 006 003 ( * | ; ; | " L i k e
0003320 E V A L V , b u t m u s t
0003340 g i v e e r r o r i f u
0003360 n b o u n d - u s e s f a
0003400 c t t h a t \ \ e v a l h
0003420 a s a n o p c o d e w h i
0003440 c h h o o k s i n t o f r
0003460 e e v a r i a b l e m i c r
0003500 o c o d e " ) 006 001 \r ( c l
0003520 : c h e c k - t y p e c l : s
0003540 y m b o l c l : s y m b o l )
0003560 \r ( \ \ e v a l c l : s
0003600 y m b o l ) ) \r \r ( c l : d e f
0003620 u n 006 002 g e t 006 001 ( c l : s
0003640 y m b o l i n d i c a t o r
0003660 & o p t i o n a l ( d e f a u
0003700 l t n i l ) ) " L o o k o
0003720 n t h e p r o p e r t y l
0003740 i s t o f S Y M B O L f o
0003760 r t h e s p e c i f i e d
0004000 I N D I C A T O R . I f t h
0004020 i s i s f o u n d , r e t
0004040 u r n t h e a s s o c i a t
0004060 e d v a l u e , e l s e r
0004100 e t u r n D E F A U L T . " \r
0004120 ( c l : g e t f ( g e t
0004140 p r o p l i s t c l : s y m b
0004160 o l ) \r i n
0004200 d i c a t o r d e f a u l t )
0004220 ) \r \r ( c l : d e f u n 006 002 c
0004240 l : g e t f 006 001 ( p l a c e
0004260 i n d i c a t o r & o p t i o
0004300 n a l ( d e f a u l t n i l
0004320 ) ) " S e a r c h e s t h e
0004340 p r o p e r t y l i s t s
0004360 t o r e d i n P l a c e f
0004400 o r a n i n d i c a t o r
0004420 E Q t o I n d i c a t o r .
0004440 I f o n e i s f o u n
0004460 d , t h e c o r r e s p o n
0004500 d i n g v a l u e i s r e
0004520 t u r n e d , e l s e t h e
0004540 D e f a u l t i s r e t u
0004560 r n e d . " \r ( c l : d o
0004600 ( ( p l i s t p l a c e (
0004620 c d d r p l i s t ) ) ) \r
0004640 ( ( n u l l p
0004660 l i s t ) \r
0004700 d e f a u l t ) \r
0004720 ( c o n d \r
0004740 ( ( l i t a t o m
0004760 ( c d r p l i s t ) ) \r
0005000 ( e r r
0005020 o r ( c o n c a t p l a c e
0005040 " i s a m a l f o r m e
0005060 d p r o p e r t y l i s t .
0005100 " ) ) ) \r
0005120 ( ( e q ( c a r p l i s
0005140 t ) \r
0005160 i n d i c a t o r ) \r
0005200 ( r
0005220 e t u r n ( c a d r p l i s
0005240 t ) ) ) ) ) ) \r \r ( c l : d e f
0005260 u n 006 002 c l : g e t - p r o p
0005300 e r t i e s 006 001 ( p l a c e
0005320 i n d i c a t o r - l i s t )
0005340 " L i k e G E T F , e x c e
0005360 p t t h a t I n d i c a t o
0005400 r - L i s t i s a l i s t
0005420 o f i n d i c a t o r s w
0005440 h i c h w i l l b e l o o
0005460 k e d f o r i n t h e p
0005500 r o p e r t y l i s t s t o
0005520 r e d i n P l a c e . T h
0005540 r e e v a l u e s a r e r
0005560 e t u r n e d , s e e m a n
0005600 u a l f o r d e t a i l s .
0005620 " \r ( c l : d o ( ( p l
0005640 i s t p l a c e ( c d d r
0005660 p l i s t ) ) ) \r
0005700 ( ( n u l l p l i s t )
0005720 \r ( c l :
0005740 v a l u e s n i l n i l n
0005760 i l ) ) \r (
0006000 c o n d \r
0006020 ( ( l i t a t o m ( c d r
0006040 p l i s t ) ) \r
0006060 ( e r r o r ( c
0006100 o n c a t p l a c e " i s
0006120 a m a l f o r m e d p r o
0006140 p r t y l i s t . " ) ) ) \r
0006160 ( ( m e
0006200 m q ( c a r p l i s t ) \r
0006220
0006240 i n d i c a t o r - l i s
0006260 t ) \r
0006300 ( r e t u r n ( c l : v a l
0006320 u e s ( c a r p l i s t ) \r
0006340
0006360 ( c a
0006400 d r p l i s t ) \r
0006420
0006440 p l i s t ) ) ) )
0006460 ) ) \r \r ( m o v d ' g e t p r
0006500 o p l i s t ' c l : s y m b o
0006520 l - p l i s t ) \r ( c l : d e f
0006540 u n 006 002 c l : f b o u n d p 006
0006560 001 ( f n ) ( a n d ( c l :
0006600 s y m b o l p f n ) \r
0006620
0006640 ( o r (
0006660 c l : s p e c i a l - f o r m -
0006700 p f n ) \r
0006720
0006740 ( a r g t y p
0006760 e f n ) \r
0007000
0007020 ( c l : m a c
0007040 r o - f u n c t i o n f n ) )
0007060 \r
0007100
0007120 t ) ) \r \r ( c l : d e f u n 006
0007140 002 c l : f m a k u n b o u n d 006
0007160 001 ( c l : s y m b o l ) ( p
0007200 u t d c l : s y m b o l n i
0007220 l ) \r
0007240
0007260 c l : s y m b o
0007300 l ) \r \r ( c l : d e f u n 006 002
0007320 c l : s y m b o l - f u n c t i
0007340 o n 006 001 ( c l : : f n & a u
0007360 x c l : : t e m p ) ( c o n
0007400 d \r
0007420
*
0007460 ( ( c l : s e
0007500 t q c l : : t e m p ( c l :
0007520 s p e c i a l - f o r m - p c
0007540 l : : f n ) ) 006 003 006 001 \r
0007560
*
0007620 006 003
0007640 ( * \ ; \r 006 001
0007660
0007700 006 003 " R
0007720 e t u r n s o m e t h i n g
0007740 r e p r e s e n t i n g t h e
0007760 s p e c i a l - f o r m ' s
0010000 i m p l e m e n t a t i o n . "
0010020 ) 006 001 \r
0010040
*
0010100 ( c o n
0010120 s : s p e c i a l - f o r m
0010140 c l : : t e m p ) ) \r
0010160
*
0010240 ( ( c l : s e t q c l : :
0010260 t e m p ( c l : m a c r o - f
0010300 u n c t i o n c l : : f n ) )
0010320 006 003 006 001 \r
0010340
*
0010400 006 003 ( * \ ; \r
0010420 006 001
0010440
0010460 006 003 " R
0010500 e t u r n s o m e t h i n g
0010520 r e p r e s e n t i n g t h e
0010540 m a c r o ' s i m p l e m e
0010560 n t a t i o n . " ) 006 001 \r
0010600
*
0010660 ( c o n s : m a c r
0010700 o c l : : t e m p ) ) \r
0010720
*
0011000 ( ( g e t d c l : : f
0011020 n ) 006 003 006 001 \r
0011040
*
0011120 006 003 ( * \ ; " R e t u
0011140 r n t h e f u n c t i o n
0011160 d e f i n i t i o n . " ) 006 001 \r
0011200
*
0011260 ) \r
0011300
*
0011360 ( t ( c l : e r r o r ' u
0011400 n d e f i n e d - f u n c t i o
0011420 n : n a m e c l : : f n ) \r
0011440
*
0011520 ) ) ) \r \r (
0011540 c l : d e f u n 006 002 s e t f -
0011560 s y m b o l - f u n c t i o n 006
0011600 001 ( f n v a l ) ( p u t d
0011620 f n ( 006 002 | i f | 006 001 ( c
0011640 c o d e p v a l ) \r
0011660
*
0011740 006 002 | t h e n | 006 001 v a l \r
0011760
*
0012040 006 002 | e l s e i f | 006 001 (
0012060 e x p r p v a l ) \r
0012100
*
0012160 006 002 | t h e n | 006 001 v a l \r
0012200
*
0012260 006 002 | e l s e i f | 006 001 (
0012300 l i t a t o m v a l ) \r
0012320
*
0012400 006 002 | t h e n | 006 001 ( g e
0012420 t d v a l ) \r
0012440
*
0012500 006 002 | e l
0012520 s e | 006 001 v a l ) \r
0012540
*
0012600 t ) ) \r \r ( c
0012620 l : d e f v a r 006 002 * g e n s
0012640 y m - c o u n t e r * 006 001 0 )
0012660 \r \r ( c l : d e f v a r 006 002 *
0012700 g e n s y m - p r e f i x * 006 001
0012720 " G " ) \r \r ( c l : d e f u
0012740 n 006 002 c l \ : c o p y - s y m
0012760 b o l 006 001 ( s y m & o p t i
0013000 o n a l c o p y - p r o p s )
0013020 ( c l : c h e c k - t y p e
0013040 s y m c l : s y m b o l ) \r
0013060
*
0013140 ( l e t ( ( n e w s y
0013160 m ( c l : m a k e - s y m b o
0013200 l ( c l : s y m b o l - n a m
0013220 e \r
0013240
*
0013340 s y m ) ) ) ) \r
0013360
*
0013440 ( c o n d \r
0013460
*
0013540 ( c o p y
0013560 - p r o p s ( c l : s e t f
0013600 ( c l : s y m b o l - v a l u e
0013620 \r
0013640
*
0013740 n e w s y m ) \r
0013760
*
0014060 ( c l :
0014100 s y m b o l - v a l u e \r
0014120
*
0014220 s y
0014240 m ) ) \r
0014260
*
0014340 ( c l : s e t f
0014360 ( c l : s y m b o l - f u n c
0014400 t i o n \r
0014420
*
0014520 n e w s y m ) \r
0014540
*
0014640 ( c l : s y m b o l
0014660 - f u n c t i o n s y m ) ) \r
0014700
*
0015000 ( c l : s e t f ( c l
0015020 : s y m b o l - p l i s t n e
0015040 w s y m ) \r
0015060
*
0015160 ( c o p y ( c l : s y m b o
0015200 l - p l i s t \r
0015220
*
0015320 s y m ) ) )
0015340 ) ) \r
0015360
*
0015420 n e w
0015440 s y m ) ) \r \r ( c l : d e f u n
0015460 006 002 c l : g e n s y m 006 001 (
0015500 & o p t i o n a l x ) ( 006 002
0015520 d e c l a r e 006 001 ( c l : s p
0015540 e c i a l * g e n s y m - c o
0015560 u n t e r * * g e n s y m - p
0015600 r e f i x * ) ) \r
0015620
0015640 ( c l : e
0015660 t y p e c a s e x ( n u l l
0015700 ) \r
0015720
0015740 ( s t r i
0015760 n g ( c l : s e t f * g e n
0016000 s y m - p r e f i x * x ) ) \r
0016020
*
0016060 ( i n t e g e
0016100 r ( c l : s e t f * g e n s
0016120 y m - c o u n t e r * x ) ) )
0016140 \r
0016160
0016200 ( p r o g 1 ( c l \ : m
0016220 a k e - s y m b o l ( c o n c
0016240 a t * g e n s y m - p r e f i
0016260 x * ( m k s t r i n g \r
0016300
*
0016420 * g e n s y m - c o u n t
0016440 e r * \r
0016460
*
0016560 ) ) )
0016600 \r
0016620
0016640 ( c l : i n
0016660 c f * g e n s y m - c o u n t
0016700 e r * ) ) ) \r \r ( c l : d e f u
0016720 n 006 002 c l \ : m a k e - k e y
0016740 w o r d 006 001 ( c l : s y m b o
0016760 l ) ( 006 002 d e c l a r e 006 001
0017000 ( c l : s p e c i a l * k e y
0017020 w o r d - p a c k a g e * ) ) \r
0017040
*
0017100 ( c l \ : i n t e
0017120 r n ( c l : s y m b o l - n a
0017140 m e c l : s y m b o l ) \r
0017160
*
0017220 * k e y
0017240 w o r d - p a c k a g e * ) ) \r
0017260 \r ( c l : d e f u n 006 002 c l \
0017300 : g e n t e m p 006 001 ( & o p t
0017320 i o n a l ( p r e f i x " T
0017340 " ) \r
0017360
0017400 ( p a c k a g e * p a c k a g
0017420 e * ) ) ( c l : c h e c k - t
0017440 y p e p r e f i x s t r i n
0017460 g p ) \r
0017500
*
0017540 ( c l : c h e c k -
0017560 t y p e p a c k a g e p a c
0017600 k a g e ) \r
0017620
*
0017660 ( c l : d o (
0017700 ( c o u n t e r 0 ( c l : 1
0017720 + c o u n t e r ) ) \r
0017740
*
0020020 ( c l : n a m e s t
0020040 r i n g ) ) \r
0020060
*
0020140 ( ( n u l l ( c l : f i n d -
0020160 s y m b o l ( s e t q c l :
0020200 n a m e s t r i n g \r
0020220
*
0020320 ( c o n
0020340 c a t p r e f i x \r
0020360
*
0020500 ( m k s t r i n g \r
0020520
*
0020640 c o u n t e r ) ) )
0020660 \r
0020700
*
0020760 p a c k a g e )
0021000 ) \r
0021020
*
0021060 ( c l \
0021100 : i n t e r n c l : n a m e s
0021120 t r i n g p a c k a g e ) ) )
0021140 ) \r \r ( c l : d e f u n 006 002 c
0021160 l \ : k e y w o r d p 006 001 ( o
0021200 b j e c t ) ( a n d ( c l :
0021220 s y m b o l p o b j e c t ) \r
0021240
*
0021300 ( e q ( c l : s y m
0021320 b o l - p a c k a g e o b j e
0021340 c t ) \r
0021360
0021400 * k e
0021420 y w o r d - p a c k a g e * ) )
0021440 ) \r \r \r ( p u t p r o p s 006 002
0021460 l l s y m b o l f i l e t y p
0021500 e 006 001 c l : c o m p i l e - f
0021520 i l e ) \r ( p u t p r o p s l
0021540 l s y m b o l c o p y r i g h
0021560 t ( " X e r o x C o r p o r
0021600 a t i o n " 1 9 8 6 ) ) \r ( d
0021620 e c l a r e \ : d o n t c o p
0021640 y \r ( f i l e m a p ( n i
0021660 l ) ) ) \r s t o p \r
0021672