$ od -c -N 50000 [eris]<LispCore>SOURCES>LLSYMBOL.DCOM!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 ( f i l e c r
0000100 e a t e d " 1 6 - O c t - 8 6
0000120 1 4 : 4 5 : 3 8 " ( " c o m
0000140 p i l e d o n " { e r i s
0000160 } < l i s p c o r e > s o u r c
0000200 e s > l l s y m b o l . \ ; 3 )
0000220 \r " 1 4 - O c t - 8 6 2 1 :
0000240 0 6 : 0 5 " " C O M P I L E -
0000260 F I L E d " | i n | " X e r
0000300 o x L i s p 1 4 - O c t - 8
0000320 6 . . . " | d a t e d | "
0000340 1 4 - O c t - 8 6 2 2 : 2 4 :
0000360 4 7 " ) \r ( f i l e c r e a t e
0000400 d " 1 6 - O c t - 8 6 1 4 :
0000420 4 4 : 5 7 " { e r i s } < l i
0000440 s p c o r e > s o u r c e s > l
0000460 l s y m b o l . \ ; 3 8 7 1 3
0000500 | p r e v i o u s | | d a t
0000520 e : | \r " 9 - O c t - 8 6
0000540 1 8 : 2 1 : 3 7 " { e r i s }
0000560 < l i s p c o r e > s o u r c e
0000600 s > l l s y m b o l . \ ; 2 ) \r
0000620 ( r p a q q l l s y m b o l c
0000640 o m s ( ( * | ; ; | " S y
0000660 m b o l f u n c t i o n s . "
0000700 ) ( * | ; ; | \r " S E T
0000720 B O U N D P a n d R E M P R
0000740 O P a r e a l r e a d y i
0000760 n I n t e r l i s p - D " )
0001000 ( f u n c t i o n s c l : m a
0001020 k u n b o u n d c l : s y m b
0001040 o l - n a m e \r c l : s y m b
0001060 o l - v a l u e g e t c l :
0001100 g e t f c l : g e t - p r o p
0001120 e r t i e s ) ( p ( m o v d
0001140 ( q u o t e g e t p r o p l
0001160 i s t ) ( q u o t e c l : s
0001200 y m b o l - p l i s t ) ) ) \r
0001220 ( f u n c t i o n s c l : f b
0001240 o u n d p c l : f m a k u n b
0001260 o u n d c l : s y m b o l - f
0001300 u n c t i o n s e t f - s y m
0001320 b o l - f u n c t i o n ) ( v
0001340 a r i a b l e s \r * g e n s y
0001360 m - c o u n t e r * * g e n s
0001400 y m - p r e f i x * ) ( f u n
0001420 c t i o n s c l \ : c o p y -
0001440 s y m b o l c l : g e n s y m
0001460 c l \ : m a k e - k e y w o r
0001500 d c l \ : g e n t e m p \r c
0001520 l \ : k e y w o r d p ) ( p r
0001540 o p f i l e t y p e l l s y
0001560 m b o l ) ) ) \r c l : m a k u n
0001600 b o u n d d 1 \r ( l ( 0 c
0001620 l : s y m b o l ) ) \0 \n \0 \0 \0
0001640 001 @ g \0 \0 \n \0 \0 @ 020 \0 ( 6 s e
0001660 t ) \r ( 3 n o b i n d ) \r ( )
0001700 \r ( l e t * ( ( a 4 0 2 5 (
0001720 q u o t e c l : m a k u n b o
0001740 u n d ) ) ( a 4 0 2 6 ( q u
0001760 o t e c l : f u n c t i o n )
0002000 ) ( a 4 0 2 7 " M a k e a
0002020 s y m b o l u n b o u n d .
0002040 " ) ) ( \r p r o g n ( c o n
0002060 d ( ( c l : f b o u n d p (
0002100 q u o t e s e t - d o c u m e
0002120 n t a t i o n ) ) ( s e t - d
0002140 o c u m e n t a t i o n a 4 0
0002160 2 5 a 4 0 2 6 a 4 0 2 7 ) )
0002200 ) a 4 0 2 7 ) ) \r c l : s y m
0002220 b o l - n a m e d 1 \r ( l (
0002240 0 c l : s y m b o l ) ) \0
0002260 001 \0 \0 001 @ 021 001 \0 H 303 \0 \0 225 023 @ \t
0002300 \0 \0 020 i g \0 \0 H g \0 \0 \f \0 \0 b \0
0002320 023 260 343 \0 ( 2 5 c h e c k - t y
0002340 p e - f a i l 1 3 m k s t r
0002360 i n g ) \r ( 2 2 c l : s y m b
0002400 o l 1 8 c l : s y m b o l
0002420 7 l i t a t o m ) \r ( ) \r c l
0002440 : s y m b o l - v a l u e d 1
0002460 \r ( l ( 0 c l : s y m b o l
0002500 ) ) \0 036 001 \0 \0 001 @ 021 001 \0 H 303 \0
0002520 \0 223 023 @ , 020 i g \0 \0 H g \0 \0 \f \0
0002540 \0 b \0 023 260 345 \0 ( 2 3 c h e c k
0002560 - t y p e - f a i l ) \r ( 2 0
0002600 c l : s y m b o l 1 6 c l :
0002620 s y m b o l 7 l i t a t o m
0002640 ) \r ( ) \r g e t d 1 \r ( l (
0002660 2 d e f a u l t 1 i n d i
0002700 c a t o r 0 c l : s y m b o
0002720 l ) ) \0 \f \0 \0 \0 003 @ 301 002 311 \0 A
0002740 B \v \0 \0 020 \0 ( 9 c l : g e t f
0002760 ) \r n i l \r ( ) \r ( l e t * (
0003000 ( a 4 0 3 4 ( q u o t e g e
0003020 t ) ) ( a 4 0 3 5 ( q u o t
0003040 e c l : f u n c t i o n ) )
0003060 ( a 4 0 3 6 \r " L o o k o n
0003100 t h e p r o p e r t y l i
0003120 s t o f S Y M B O L f o r
0003140 t h e s p e c i f i e d I
0003160 N D I C A T O R . I f t h i
0003200 s i s f o u n d , r e t u
0003220 r n t h e a s s o c i a t e
0003240 d v a l u e , e l s e r e
0003260 t u r n D E F A U L T . " \r )
0003300 ) ( p r o g n ( c o n d (
0003320 ( c l : f b o u n d p ( q u o
0003340 t e s e t - d o c u m e n t a
0003360 t i o n ) ) ( s e t - d o c u
0003400 m e n t a t i o n a 4 0 3 4
0003420 a 4 0 3 5 a 4 0 3 6 ) ) ) a
0003440 4 0 3 6 ) \r ) \r c l : g e t f
0003460 d 1 \r ( l ( 2 d e f a u l t
0003500 1 i n d i c a t o r 0 p
0003520 l a c e ) ) \0 - 001 \0 \0 003 @ 021 001
0003540 \0 H 265 004 B 020 002 004 l 004 360 262 024 @ o \0
0003560 \0 \0 \n \0 \0 \t \0 \0 277 H 002 002 X 260 345 H
0003600 d 001 A 360 262 366 002 001 020 \0 ( 2 6 e r
0003620 r o r 2 3 c o n c a t ) \r n
0003640 i l \r ( 2 0 " i s a m
0003660 a l f o r m e d p r o p e r t
0003700 y l i s t . " ) \r ( l e t *
0003720 ( ( a 4 0 3 8 ( q u o t e c
0003740 l : g e t f ) ) ( a 4 0 3 9
0003760 ( q u o t e c l : f u n c t i
0004000 o n ) ) ( a 4 0 4 0 \r " S e
0004020 a r c h e s t h e p r o p e
0004040 r t y l i s t s t o r e d
0004060 i n P l a c e f o r a n
0004100 i n d i c a t o r E Q t o
0004120 I n d i c a t o r . I f o
0004140 n e i s f o u n d , t h e
0004160 c o r r e s p o n d i n g v
0004200 a l u e i s r e t u r n e d
0004220 , e l s e t h e D e f a u
0004240 l t i s r e t u r n e d . "
0004260 \r ) ) ( p r o g n ( c o n d
0004300 ( ( c l : f b o u n d p ( q
0004320 u o t e s e t - d o c u m e n
0004340 t a t i o n ) ) ( s e t - d o
0004360 c u m e n t a t i o n a 4 0 3
0004400 8 a 4 0 3 9 a 4 0 4 0 ) ) )
0004420 a 4 0 4 0 ) \r ) \r c l : g e t
0004440 - p r o p e r t i e s d 1 \r (
0004460 l ( 1 i n d i c a t o r - l
0004500 i s t 0 p l a c e ) ) \0 ;
0004520 001 \0 \0 002 @ 021 001 \0 H d 245 d d \v \0 \0
0004540 020 002 004 l 004 360 262 024 @ o \0 \0 \0 \n \0 \0
0004560 \t \0 \0 277 H 002 002 X 260 341 H d 001 A \n \0
0004600 \0 262 364 277 H 001 H 002 001 H \v \0 \0 020 \0 (
0004620 5 6 c l : v a l u e s 4 4
0004640 m e m q 3 0 e r r o r 2 7
0004660 c o n c a t 1 1 c l : v a
0004700 l u e s ) \r n i l \r ( 2 4 "
0004720 i s a m a l f o r m e d
0004740 p r o p r t y l i s t . " ) \r
0004760 ( l e t * ( ( a 4 0 4 2 ( q
0005000 u o t e c l : g e t - p r o p
0005020 e r t i e s ) ) ( a 4 0 4 3
0005040 ( q u o t e c l : f u n c t i
0005060 o n ) ) ( a 4 0 4 4 \r " L i
0005100 k e G E T F , e x c e p t
0005120 t h a t I n d i c a t o r - L
0005140 i s t i s a l i s t o f
0005160 i n d i c a t o r s w h i c
0005200 h w i l l b e l o o k e d
0005220 f o r i n t h e p r o p
0005240 e r t y l i s t s t o r e d
0005260 i n P l a c e . T h r e e
0005300 v a l u e s a r e r e t u
0005320 r n e d , s e e m a n u a l
0005340 f o r d e t a i l s . " \r )
0005360 ) ( p r o g n ( c o n d (
0005400 ( c l : f b o u n d p ( q u o
0005420 t e s e t - d o c u m e n t a
0005440 t i o n ) ) ( s e t - d o c u
0005460 m e n t a t i o n a 4 0 4 2
0005500 a 4 0 4 3 a 4 0 4 4 ) ) ) a
0005520 4 0 4 4 ) \r ) \r ( m o v d ( q
0005540 u o t e g e t p r o p l i s t
0005560 ) ( q u o t e c l : s y m b
0005600 o l - p l i s t ) ) \r c l : f b
0005620 o u n d p d 1 \r ( l ( 0 f
0005640 n ) ) \0 032 \0 \0 \0 001 @ 004 l 004 360 264
0005660 023 @ \t \0 \0 252 @ \t \0 \0 245 @ \t \0 \0 264
0005700 003 i 020 \0 ( 2 0 c l : m a c r o
0005720 - f u n c t i o n 1 5 a r g
0005740 t y p e 1 0 c l : s p e c i
0005760 a l - f o r m - p ) \r n i l \r (
0006000 ) \r c l : f m a k u n b o u n d
0006020 d 1 \r ( l ( 0 c l : s y m
0006040 b o l ) ) \0 \a \0 \0 \0 001 @ \t \0 \0
0006060 @ 020 \0 ( 3 p u t d ) \r n i l \r
0006100 ( ) \r c l : s y m b o l - f u n
0006120 c t i o n d 1 \r ( l ( 0 f
0006140 n ) ) \0 036 \0 \0 \0 001 @ \t \0 \0 265 030
0006160 @ \t \0 \0 265 022 @ \t \0 \0 265 \f g \0 \0 g
0006200 \0 \0 @ \v \0 \0 020 \0 ( 2 7 c l : e
0006220 r r o r 1 5 g e t d 9 c
0006240 l : m a c r o - f u n c t i o n
0006260 3 c l : s p e c i a l - f o
0006300 r m - p ) \r ( 2 3 : n a m e
0006320 2 0 u n d e f i n e d - f u n
0006340 c t i o n ) \r ( ) \r s e t f - s
0006360 y m b o l - f u n c t i o n d
0006400 1 \r ( l ( 1 v a l 0 f n
0006420 ) ) \0 \0 \0 \0 002 @ A d \t \0 \0 222
0006440 277 A 217 \t \0 \0 221 A 211 A d 004 l 004 360 222
0006460 \t \0 \0 i \v \0 \0 020 \0 ( 2 9 p u t
0006500 d 2 5 g e t d 1 2 e x p
0006520 r p 5 c c o d e p ) \r n i l
0006540 \r ( ) \r ( c l : p r o c l a i m
0006560 ( q u o t e ( c l : s p e c
0006600 i a l * g e n s y m - c o u n
0006620 t e r * ) ) ) \r ( o r ( b o u
0006640 n d p ( q u o t e * g e n s
0006660 y m - c o u n t e r * ) ) ( s
0006700 e t q * g e n s y m - c o u n
0006720 t e r * 0 ) ) \r ( c l : p r o
0006740 c l a i m ( q u o t e ( c l
0006760 : s p e c i a l * g e n s y m
0007000 - p r e f i x * ) ) ) \r ( o r
0007020 ( b o u n d p ( q u o t e *
0007040 g e n s y m - p r e f i x * ) )
0007060 ( s e t q * g e n s y m - p
0007100 r e f i x * " G " ) ) \r c l \
0007120 : c o p y - s y m b o l d 1 \r
0007140 ( l ( 1 c o p y - p r o p s
0007160 0 s y m ) ) \0 J 001 \0 \0 002 @
0007200 021 001 \0 H 303 \0 \0 262 1 023 @ \t \0 \0 \t \0
0007220 \0 021 001 \0 A 262 ! H @ \t \0 \0 \n \0 \0 277
0007240 H @ \t \0 \0 \n \0 \0 277 H 301 002 @ 301 002 311
0007260 \0 \t \0 \0 024 \0 H 020 i g \0 \0 H g \0 \0
0007300 \f \0 \0 b \0 023 260 271 \0 ( 6 7 c h e
0007320 c k - t y p e - f a i l 5 2
0007340 c o p y 4 0 s e t f - s y m
0007360 b o l - f u n c t i o n 3 7
0007400 c l : s y m b o l - f u n c t i
0007420 o n 3 1 s e t 2 8 c l :
0007440 s y m b o l - v a l u e 1 7
0007460 c l : m a k e - s y m b o l 1
0007500 4 c l : s y m b o l - n a m e
0007520 ) \r ( 6 4 c l : s y m b o l
0007540 6 0 s y m 7 l i t a t o m
0007560 ) \r ( ) \r c l : g e n s y m d
0007600 1 \r ( l ( 0 x ) f 2 *
0007620 g e n s y m - c o u n t e r *
0007640 f 3 * g e n s y m - p r e f
0007660 i x * ) \0 < 002 002 \0 001 @ 021 021 001 H
0007700 Y 265 004 260 \t \0 \0 224 @ c 006 260 026 I 3
0007720 264 006 @ c 004 212 g \0 \0 H o \0 \0 \0 \f
0007740 \0 \0 277 023 S R \t \0 \0 \n \0 \0 \t \0 \0 R
0007760 k 324 c 004 277 020 \0 ( 5 1 c l \ : m
0010000 a k e - s y m b o l 4 8 c o
0010020 n c a t 4 5 m k s t r i n g
0010040 3 8 c h e c k - t y p e - f
0010060 a i l 1 2 c l : s t r i n g
0010100 p ) \r ( 3 0 x ) \r ( 3 5 (
0010120 o r n u l l s t r i n g i
0010140 n t e g e r ) ) \r c l \ : m a k
0010160 e - k e y w o r d d 1 \r ( l
0010200 ( 0 c l : s y m b o l ) ) \0
0010220 \f \0 \0 \0 001 @ \t \0 \0 ` \0 \0 \n \0 \0 020
0010240 \0 ( 9 c l \ : i n t e r n 3
0010260 c l : s y m b o l - n a m e )
0010300 \r ( 6 * k e y w o r d - p a c
0010320 k a g e * ) \r ( ) \r c l \ : g e
0010340 n t e m p d 1 \r ( l ( 0 |
0010360 - a r g s - | ) f 7 * p a
0010400 c k a g e * ) \0 e \a 001 002 \0 e 021
0010420 001 \0 k H 361 224 o \0 \0 \0 201 k a 021 Q 006
0010440 l 002 H 361 222 W 016 202 l 002 a 272 I [ 303 \0
0010460 \0 262 J \ 303 \0 \0 262 ' j 275 I M \t \0
0010500 \0 \n \0 \0 ^ J \n \0 \0 263 $ N J \n \0 \0
0010520 020 i g \0 \0 K g \0 \0 \f \0 \0 Y 260 320 i
0010540 g \0 \0 L g \0 \0 \f \0 \0 Z 260 311 M k 324
0010560 260 313 \0 ( 9 1 c h e c k - t y p
0010600 e - f a i l 7 7 c h e c k -
0010620 t y p e - f a i l 6 5 c l \
0010640 : i n t e r n 5 8 c l : f i
0010660 n d - s y m b o l 5 3 c o n
0010700 c a t 5 0 m k s t r i n g )
0010720 \r ( 8 8 p a c k a g e 8 4
0010740 p a c k a g e 7 4 s t r i n
0010760 g p 7 0 p r e f i x 4 1
0011000 p a c k a g e 3 4 s t r i n
0011020 g p ) \r ( 1 1 " T " ) \r c l
0011040 \ : k e y w o r d p d 1 \r ( l
0011060 ( 0 o b j e c t ) ) \0 021 \0
0011100 \0 \0 001 @ 004 l 004 360 264 \n @ \t \0 \0 ` \0
0011120 \0 360 020 \0 ( 1 0 c l : s y m b o
0011140 l - p a c k a g e ) \r ( 1 3 *
0011160 k e y w o r d - p a c k a g e *
0011200 ) \r ( ) \r ( p u t p r o p s l
0011220 l s y m b o l f i l e t y p e
0011240 c l : c o m p i l e - f i l e
0011260 ) \r ( p u t p r o p s l l s y
0011300 m b o l c o p y r i g h t (
0011320 " X e r o x C o r p o r a t i
0011340 o n " 1 9 8 6 ) ) \r n i l \r
0011357