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