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