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