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