$ od -c -N 50000 [eris]<LispCore>SOURCES>LLSYMBOL!3
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 1 4 : 4 4 : 5 7 " 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 \ ; 3 006 001 8 7 1 3 \r \r
0000220 | p r e v i o u s |
0000240 | d a t e : | " 9 - O c t -
0000260 8 6 1 8 : 2 1 : 3 7 " { e r
0000300 i s } < l i s p c o r e > s o u
0000320 r c e s > l l s y m b o l . \ ;
0000340 2 ) \r \r \r ; C o p y r i g h t
0000360 ( c ) 1 9 8 6 b y X e r
0000400 o x C o r p o r a t i o n .
0000420 A l l r i g h t s r e s e
0000440 r v e d . \r \r ( p r e t t y c o
0000460 m p r i n t l l s y m b o l c
0000500 o m s ) \r \r ( r p a q q 006 002 l
0000520 l s y m b o l c o m s 006 001 ( (
0000540 * | ; ; | " S y m b o l f
0000560 u n c t i o n s . " ) \r
0000600
0000620 ( * | ; ; | " S E T B O
0000640 U N D P a n d R E M P R O P
0000660 a r e a l r e a d y i n
0000700 I n t e r l i s p - D " ) \r
0000720
0000740 ( f u n c t i o n s c l
0000760 : m a k u n b o u n d c l : s
0001000 y m b o l - n a m e c l : s y
0001020 m b o l - v a l u e g e t c
0001040 l : g e t f \r
0001060
0001100 c l : g e t - p r o p e
0001120 r t i e s ) \r
0001140 ( p (
0001160 m o v d ' g e t p r o p l i s
0001200 t ' c l : s y m b o l - p l i
0001220 s t ) ) \r
0001240 ( f u n c t
0001260 i o n s c l : f b o u n d p
0001300 c l : f m a k u n b o u n d c
0001320 l : s y m b o l - f u n c t i o
0001340 n s e t f - s y m b o l - f u
0001360 n c t i o n ) \r
0001400 ( v a
0001420 r i a b l e s * g e n s y m -
0001440 c o u n t e r * * g e n s y m
0001460 - p r e f i x * ) \r
0001500 (
0001520 f u n c t i o n s c l \ : c o
0001540 p y - s y m b o l c l : g e n
0001560 s y m c l \ : m a k e - k e y
0001600 w o r d c l \ : g e n t e m p
0001620 c l \ : k e y w o r d p ) \r
0001640
0001660 ( p r o p f i l e t y
0001700 p e l l s y m b o l ) ) ) \r \r
0001720 \r \r 006 004 ( * | ; ; | " S y m
0001740 b o l f u n c t i o n s . " )
0001760 006 001 \r \r \r \r \r 006 004 ( * | ; ; |
0002000 " S E T B O U N D P a n d
0002020 R E M P R O P a r e a l r
0002040 e a d y i n I n t e r l i s
0002060 p - D " ) 006 001 \r \r ( c l : d e f
0002100 u n 006 002 c l : m a k u n b o u
0002120 n d 006 001 ( c l : s y m b o l )
0002140 " M a k e a s y m b o l
0002160 u n b o u n d . " 006 003 006 001 \r
0002200
*
0002260 006 003 ( * | ; ; | \r 006 001
0002300 006 003
0002320 " R e a l l y s h o u l d m
0002340 a k e i t h a v e n o v
0002360 a l u e a t a l l - - n
0002400 e e d t o h a v e a n u
0002420 n b o u n d d y n a m i c v
0002440 a l u e " ) 006 001 \r
0002460
*
0002540 ( s e t c l : s y
0002560 m b o l ' n o b i n d ) \r
0002600
*
0002660 c l : s y
0002700 m b o l ) \r \r ( c l : d e f u n
0002720 006 002 c l : s y m b o l - n a m
0002740 e 006 001 ( c l : s y m b o l )
0002760 ( c l : c h e c k - t y p e c
0003000 l : s y m b o l c l : s y m b
0003020 o l ) \r
0003040
0003060 ( m k s t r i
0003100 n g c l : s y m b o l ) ) \r \r
0003120 ( c l : d e f u n 006 002 c l : s
0003140 y m b o l - v a l u e 006 001 ( c
0003160 l : s y m b o l ) 006 003 006 001
0003200 006 003 ( * |
0003220 ; ; | " L i k e E V A L V ,
0003240 b u t m u s t g i v e e
0003260 r r o r i f u n b o u n d
0003300 - u s e s f a c t t h a t
0003320 \ \ e v a l h a s a n o
0003340 p c o d e w h i c h h o o k
0003360 s i n t o f r e e v a r i
0003400 a b l e m i c r o c o d e " )
0003420 006 001 \r ( c l : c h e c k -
0003440 t y p e c l : s y m b o l c
0003460 l : s y m b o l ) \r ( \ \
0003500 e v a l c l : s y m b o l ) )
0003520 \r \r ( c l : d e f u n 006 002 g e
0003540 t 006 001 ( c l : s y m b o l i
0003560 n d i c a t o r & o p t i o n
0003600 a l ( d e f a u l t n i l )
0003620 ) " L o o k o n t h e p
0003640 r o p e r t y l i s t o f
0003660 S Y M B O L f o r t h e s
0003700 p e c i f i e d I N D I C A T
0003720 O R . I f t h i s i s f
0003740 o u n d , r e t u r n t h e
0003760 a s s o c i a t e d v a l u
0004000 e , e l s e r e t u r n D
0004020 E F A U L T . " \r ( c l :
0004040 g e t f ( g e t p r o p l i s
0004060 t c l : s y m b o l ) \r
0004100 i n d i c a t o r
0004120 d e f a u l t ) ) \r \r ( c l :
0004140 d e f u n 006 002 c l : g e t f 006
0004160 001 ( p l a c e i n d i c a t
0004200 o r & o p t i o n a l ( d e
0004220 f a u l t n i l ) ) " S e a
0004240 r c h e s t h e p r o p e r
0004260 t y l i s t s t o r e d i
0004300 n P l a c e f o r a n i
0004320 n d i c a t o r E Q t o I
0004340 n d i c a t o r . I f o n
0004360 e i s f o u n d , t h e
0004400 c o r r e s p o n d i n g v a
0004420 l u e i s r e t u r n e d ,
0004440 e l s e t h e D e f a u l
0004460 t i s r e t u r n e d . " \r
0004500 ( c l : d o ( ( p l i s
0004520 t p l a c e ( c d d r p l
0004540 i s t ) ) ) \r
0004560 ( ( n u l l p l i s t ) \r
0004600 d e f a u l
0004620 t ) \r ( c o
0004640 n d \r
0004660 ( ( l i t a t o m ( c d r p
0004700 l i s t ) ) \r
0004720 ( e r r o r ( c o n
0004740 c a t p l a c e " i s a
0004760 m a l f o r m e d p r o p e
0005000 r t y l i s t . " ) ) ) \r
0005020 ( ( e q
0005040 ( c a r p l i s t ) \r
0005060 i n
0005100 d i c a t o r ) \r
0005120 ( r e t u r n (
0005140 c a d r p l i s t ) ) ) ) ) )
0005160 \r \r ( c l : d e f u n 006 002 c l
0005200 : g e t - p r o p e r t i e s 006
0005220 001 ( p l a c e i n d i c a t
0005240 o r - l i s t ) " L i k e G
0005260 E T F , e x c e p t t h a t
0005300 I n d i c a t o r - L i s t
0005320 i s a l i s t o f i n d
0005340 i c a t o r s w h i c h w i
0005360 l l b e l o o k e d f o r
0005400 i n t h e p r o p e r t y
0005420 l i s t s t o r e d i n
0005440 P l a c e . T h r e e v a l
0005460 u e s a r e r e t u r n e d
0005500 , s e e m a n u a l f o r
0005520 d e t a i l s . " \r ( c
0005540 l : d o ( ( p l i s t p l a
0005560 c e ( c d d r p l i s t ) )
0005600 ) \r ( ( n u
0005620 l l p l i s t ) \r
0005640 ( c l : v a l u e s
0005660 n i l n i l n i l ) ) \r
0005700 ( c o n d \r
0005720 ( ( l i t
0005740 a t o m ( c d r p l i s t )
0005760 ) \r
0006000 ( e r r o r ( c o n c a t p
0006020 l a c e " i s a m a l f
0006040 o r m e d p r o p r t y l i
0006060 s t . " ) ) ) \r
0006100 ( ( m e m q ( c a r
0006120 p l i s t ) \r
0006140 i n d i
0006160 c a t o r - l i s t ) \r
0006200 ( r e t u r
0006220 n ( c l : v a l u e s ( c a
0006240 r p l i s t ) \r
0006260
0006300 ( c a d r p l i s
0006320 t ) \r
0006340
0006360 p l i s t ) ) ) ) ) ) \r \r ( m o
0006400 v d ' g e t p r o p l i s t
0006420 ' c l : s y m b o l - p l i s t
0006440 ) \r ( c l : d e f u n 006 002 c l
0006460 : f b o u n d p 006 001 ( f n )
0006500 ( a n d ( c l : s y m b o l p
0006520 f n ) \r
0006540
0006560 ( o r ( c l : s p e c
0006600 i a l - f o r m - p f n ) \r
0006620
*
0006660 ( a r g t y p e f n ) \r
0006700
*
0006740 ( c l : m a c r o - f u n c
0006760 t i o n f n ) ) \r
0007000
0007020 t ) ) \r \r ( c
0007040 l : d e f u n 006 002 c l : f m a
0007060 k u n b o u n d 006 001 ( c l : s
0007100 y m b o l ) ( p u t d c l :
0007120 s y m b o l n i l ) \r
0007140
*
0007200 c l : s y m b o l ) \r \r ( c l
0007220 : d e f u n 006 002 c l : s y m b
0007240 o l - f u n c t i o n 006 001 ( f
0007260 n ) ( c o n d \r
0007300
0007320 ( (
0007340 c l : s p e c i a l - f o r m -
0007360 p f n ) 006 003 006 001 \r
0007400
*
0007440 006 003 ( *
0007460 \ ; \r 006 001
0007500
0007520 006 003 " R e t
0007540 u r n s o m e t h i n g r e
0007560 p r e s e n t i n g t h e s
0007600 p e c i a l - f o r m ' s i m
0007620 p l e m e n t a t i o n . " ) 006
0007640 001 \r
0007660
0007700 ) \r
0007720
0007740 (
0007760 ( c l : m a c r o - f u n c t i
0010000 o n f n ) 006 003 006 001 \r
0010020
*
0010060 006 003 (
0010100 * \ ; \r 006 001
0010120
*
0010160 006 003 " R e t u r n s o m e
0010200 t h i n g r e p r e s e n t i
0010220 n g t h e m a c r o ' s i
0010240 m p l e m e n t a t i o n . " )
0010260 006 001 \r
0010300
0010320 ) \r
0010340
*
0010400 ( ( g e t d f n ) 006 003 006 001
0010420 006 003 ( *
0010440 \ ; " R e t u r n t h e f
0010460 u n c t i o n d e f i n i t i
0010500 o n . " ) 006 001 \r
0010520
0010540 ) \r
0010560
*
0010620 ( t ( c l : e r r o
0010640 r ' u n d e f i n e d - f u n
0010660 c t i o n : n a m e f n ) )
0010700 ) ) \r \r ( c l : d e f u n 006 002
0010720 s e t f - s y m b o l - f u n c
0010740 t i o n 006 001 ( f n v a l )
0010760 ( p u t d f n ( 006 002 | i f |
0011000 006 001 ( c c o d e p v a l ) \r
0011020
*
0011100 006 002 | t h e n | 006 001
0011120 v a l \r
0011140
*
0011200 006 002 | e l s e i f
0011220 | 006 001 ( e x p r p v a l ) \r
0011240
*
0011320 006 002 | t h e n | 006 001
0011340 v a l \r
0011360
*
0011420 006 002 | e l s e i f
0011440 | 006 001 ( l i t a t o m v a l
0011460 ) \r
0011500
*
0011540 006 002 | t h e n | 006
0011560 001 ( g e t d v a l ) \r
0011600
*
0011660 006 002 | e l s e | 006 001 v a l ) \r
0011700
*
0011740 t )
0011760 ) \r \r ( c l : d e f v a r 006 002
0012000 * g e n s y m - c o u n t e r *
0012020 006 001 0 ) \r \r ( c l : d e f v a
0012040 r 006 002 * g e n s y m - p r e f
0012060 i x * 006 001 " G " ) \r \r ( c l
0012100 : d e f u n 006 002 c l \ : c o p
0012120 y - s y m b o l 006 001 ( s y m
0012140 & o p t i o n a l c o p y - p
0012160 r o p s ) ( c l : c h e c k -
0012200 t y p e s y m c l : s y m b
0012220 o l ) \r
0012240
*
0012300 ( l e t ( (
0012320 n e w s y m ( c l : m a k e -
0012340 s y m b o l ( c l : s y m b o
0012360 l - n a m e \r
0012400
*
0012500 s y m ) )
0012520 ) ) \r
0012540
*
0012600 ( c o
0012620 n d \r
0012640
*
0012720 ( c o p y - p r o p s ( c l :
0012740 s e t f ( c l : s y m b o l -
0012760 v a l u e \r
0013000
*
0013100 n e w s y m )
0013120 \r
0013140
*
0013240 ( c l : s y m b o l - v a l u
0013260 e \r
0013300
*
0013400 s y m ) ) \r
0013420
*
0013500 ( c l
0013520 : s e t f ( c l : s y m b o l
0013540 - f u n c t i o n \r
0013560
*
0013660 n e w s y m ) \r
0013700
*
0014000 ( c l : s
0014020 y m b o l - f u n c t i o n s
0014040 y m ) ) \r
0014060
*
0014140 ( c l : s e t
0014160 f ( c l : s y m b o l - p l i
0014200 s t n e w s y m ) \r
0014220
*
0014320 ( c o p y ( c l :
0014340 s y m b o l - p l i s t \r
0014360
*
0014460 s
0014500 y m ) ) ) ) ) \r
0014520
*
0014600 n e w s y m ) ) \r \r ( c l :
0014620 d e f u n 006 002 c l : g e n s y
0014640 m 006 001 ( & o p t i o n a l x
0014660 ) ( 006 002 d e c l a r e 006 001 (
0014700 c l : s p e c i a l * g e n s
0014720 y m - c o u n t e r * * g e n
0014740 s y m - p r e f i x * ) ) \r
0014760
*
0015020 ( c l : e t y p e c a s e x
0015040 ( n u l l ) \r
0015060
*
0015120 ( s t r i n g ( c l : s e t f
0015140 * g e n s y m - p r e f i x *
0015160 x ) ) \r
0015200
0015220 ( i
0015240 n t e g e r ( c l : s e t f
0015260 * g e n s y m - c o u n t e r *
0015300 x ) ) ) \r
0015320
0015340 ( p r o g 1 (
0015360 c l \ : m a k e - s y m b o l
0015400 ( c o n c a t * g e n s y m -
0015420 p r e f i x * ( m k s t r i n
0015440 g \r
0015460
*
0015560 * g e n s y m -
0015600 c o u n t e r * \r
0015620
*
0015740 ) ) ) \r
0015760
0016000 (
0016020 c l : i n c f * g e n s y m -
0016040 c o u n t e r * ) ) ) \r \r ( c l
0016060 : d e f u n 006 002 c l \ : m a k
0016100 e - k e y w o r d 006 001 ( c l :
0016120 s y m b o l ) ( 006 002 d e c l a
0016140 r e 006 001 ( c l : s p e c i a l
0016160 * k e y w o r d - p a c k a g
0016200 e * ) ) \r
0016220
0016240 ( c l \
0016260 : i n t e r n ( c l : s y m b
0016300 o l - n a m e c l : s y m b o
0016320 l ) \r
0016340
*
0016400 * k e y w o r d - p a c k a g
0016420 e * ) ) \r \r ( c l : d e f u n
0016440 006 002 c l \ : g e n t e m p 006 001
0016460 ( & o p t i o n a l ( p r e f
0016500 i x " T " ) \r
0016520
0016540 ( p a c k a g e * p
0016560 a c k a g e * ) ) ( c l : c h
0016600 e c k - t y p e p r e f i x
0016620 s t r i n g p ) \r
0016640
*
0016700 ( c l : c
0016720 h e c k - t y p e p a c k a g
0016740 e p a c k a g e ) \r
0016760
*
0017020 ( c l
0017040 : d o ( ( c o u n t e r 0
0017060 ( c l : 1 + c o u n t e r ) )
0017100 \r
0017120
*
0017160 ( c l : n
0017200 a m e s t r i n g ) ) \r
0017220
*
0017300 ( ( n u l l ( c l :
0017320 f i n d - s y m b o l ( s e t
0017340 q c l : n a m e s t r i n g \r
0017360
*
0017500 ( c o n c a t p r e f i x \r
0017520
*
0017640 ( m k s t r i n
0017660 g \r
0017700
*
0020000 c o u n t
0020020 e r ) ) ) \r
0020040
*
0020120 p a c
0020140 k a g e ) ) \r
0020160
*
0020240 ( c l \ : i n t e r n c l :
0020260 n a m e s t r i n g p a c k a
0020300 g e ) ) ) ) \r \r ( c l : d e f u
0020320 n 006 002 c l \ : k e y w o r d p
0020340 006 001 ( o b j e c t ) ( a n d
0020360 ( c l : s y m b o l p o b j
0020400 e c t ) \r
0020420
0020440 ( e q ( c
0020460 l : s y m b o l - p a c k a g e
0020500 o b j e c t ) \r
0020520
*
0020560 * k e y w o r d - p a c k a
0020600 g e * ) ) ) \r \r \r ( p u t p r o
0020620 p s 006 002 l l s y m b o l f i
0020640 l e t y p e 006 001 c l : c o m p
0020660 i l e - f i l e ) \r ( p u t p r
0020700 o p s l l s y m b o l c o p
0020720 y r i g h t ( " X e r o x C
0020740 o r p o r a t i o n " 1 9 8 6
0020760 ) ) \r ( d e c l a r e \ : d o
0021000 n t c o p y \r ( f i l e m a
0021020 p ( n i l ) ) ) \r s t o p \r
0021037