$ od -c -N 50000 [eris]<LispCore>SOURCES>LLSYMBOL!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 006
0000100 001 ( F I L E C R E A T E D " 2
0000120 3 - O c t - 8 6 1 5 : 1 1 : 2
0000140 2 " 006 004 { E R I S } < L I S P
0000160 C O R E > S O U R C E S > L L S
0000200 Y M B O L . ; 5 006 001 9 0 8 9
0000220 \r \r c h a n g e
0000240 s t o % : ( V A R S L L
0000260 S Y M B O L C O M S ) \r
0000300
0000320 ( F U N C T I O N S C L : C O
0000340 P Y - S Y M B O L C L : M A K
0000360 E - K E Y W O R D C L : G E N
0000400 T E M P C L : K E Y W O R D P
0000420 C L : G E N S Y M \r
0000440
0000460 M A K E - K E Y W
0000500 O R D ) \r \r p r e v
0000520 i o u s d a t e % : " 1 6 -
0000540 O c t - 8 6 2 3 : 5 2 : 0 4 "
0000560 { E R I S } < L I S P C O R E
0000600 > S O U R C E S > L L S Y M B O
0000620 L . ; 4 ) \r \r \r ( * " \r C o p
0000640 y r i g h t ( c ) 1 9 8 6
0000660 b y X e r o x C o r p o r a
0000700 t i o n . A l l r i g h t
0000720 s r e s e r v e d . \r " ) \r \r
0000740 ( P R E T T Y C O M P R I N T
0000760 L L S Y M B O L C O M S ) \r \r (
0001000 R P A Q Q 006 002 L L S Y M B O L
0001020 C O M S 006 001 ( ( * ; ; " S
0001040 y m b o l f u n c t i o n s .
0001060 " ) \r
0001100 ( * ; ; " S
0001120 E T B O U N D P a n d R E
0001140 M P R O P a r e a l r e a d
0001160 y i n I n t e r l i s p - D
0001200 " ) \r
0001220 ( F U N C T I O
0001240 N S C L : M A K U N B O U N D
0001260 C L : S Y M B O L - N A M E
0001300 C L : S Y M B O L - V A L U E
0001320 G E T C L : G E T F \r
0001340
0001360 C L : G E T -
0001400 P R O P E R T I E S ) \r
0001420
0001440 ( P ( M O V D ' G E T P R
0001460 O P L I S T ' C L : S Y M B O
0001500 L - P L I S T ) ) \r
0001520 (
0001540 F U N C T I O N S C L : F B O
0001560 U N D P C L : F M A K U N B O
0001600 U N D C L : S Y M B O L - F U
0001620 N C T I O N S E T F - S Y M B
0001640 O L - F U N C T I O N ) \r
0001660
0001700 ( V A R I A B L E S * G E
0001720 N S Y M - C O U N T E R * * G
0001740 E N S Y M - P R E F I X * ) \r
0001760
0002000 ( F U N C T I O N S C
0002020 L : C O P Y - S Y M B O L C L
0002040 : G E N S Y M M A K E - K E Y
0002060 W O R D C L : G E N T E M P
0002100 C L : K E Y W O R D P ) \r
0002120
0002140 ( P R O P F I L E T Y P E
0002160 L L S Y M B O L ) ) ) \r \r \r \r
0002200 006 004 ( * ; ; " S y m b o l
0002220 f u n c t i o n s . " ) 006 001 \r \r
0002240 \r \r \r 006 004 ( * ; ; " S E T
0002260 B O U N D P a n d R E M P R
0002300 O P a r e a l r e a d y i
0002320 n I n t e r l i s p - D " ) 006
0002340 001 \r \r ( C L : D E F U N 006 002 C
0002360 L : M A K U N B O U N D 006 001 (
0002400 C L : S Y M B O L ) " M a k e
0002420 a s y m b o l u n b o u n
0002440 d . " 006 006 006 001 \r
0002460
*
0002520 006 006 ( *
0002540 ; ; \r 006 001
0002560 006 006 " R e a l l y
0002600 s h o u l d m a k e i t h
0002620 a v e n o v a l u e a t
0002640 a l l - - n e e d t o h
0002660 a v e a n u n b o u n d d
0002700 y n a m i c v a l u e " ) 006 001
0002720 \r
0002740
*
0003000 ( S
0003020 E T C L : S Y M B O L ' N O
0003040 B I N D ) \r
0003060
*
0003140 C L : S Y M B O L ) \r \r (
0003160 C L : D E F U N 006 002 C L : S Y
0003200 M B O L - N A M E 006 001 ( C L :
0003220 S Y M B O L ) ( C L : C H E C
0003240 K - T Y P E C L : S Y M B O L
0003260 C L : S Y M B O L ) \r
0003300
*
0003340 ( M K S T R I N G C L : S Y
0003360 M B O L ) ) \r \r ( C L : D E F U
0003400 N 006 002 C L : S Y M B O L - V A
0003420 L U E 006 001 ( C L : S Y M B O L
0003440 ) 006 006 006 001
0003460 006 006 ( * ; ; " L i k e
0003500 E V A L V , b u t m u s t
0003520 g i v e e r r o r i f u n
0003540 b o u n d - u s e s f a c
0003560 t t h a t \ e v a l h a s
0003600 a n o p c o d e w h i c h
0003620 h o o k s i n t o f r e e
0003640 v a r i a b l e m i c r o c
0003660 o d e " ) 006 001 \r ( C L : C
0003700 H E C K - T Y P E C L : S Y M
0003720 B O L C L : S Y M B O L ) \r
0003740 ( \ E V A L C L : S Y M B
0003760 O L ) ) \r \r ( C L : D E F U N
0004000 006 002 G E T 006 001 ( C L : S Y M B
0004020 O L I N D I C A T O R & O P
0004040 T I O N A L ( D E F A U L T
0004060 N I L ) ) " L o o k o n t
0004100 h e p r o p e r t y l i s t
0004120 o f S Y M B O L f o r t
0004140 h e s p e c i f i e d I N D
0004160 I C A T O R . I f t h i s
0004200 i s f o u n d , r e t u r n
0004220 t h e a s s o c i a t e d
0004240 v a l u e , e l s e r e t u
0004260 r n D E F A U L T . " \r
0004300 ( C L : G E T F ( G E T P R O
0004320 P L I S T C L : S Y M B O L )
0004340 \r I N D I C
0004360 A T O R D E F A U L T ) ) \r \r
0004400 ( C L : D E F U N 006 002 C L : G
0004420 E T F 006 001 ( P L A C E I N D
0004440 I C A T O R & O P T I O N A L
0004460 ( D E F A U L T N I L ) )
0004500 " S e a r c h e s t h e p r
0004520 o p e r t y l i s t s t o r
0004540 e d i n P l a c e f o r
0004560 a n i n d i c a t o r E Q
0004600 t o I n d i c a t o r . I
0004620 f o n e i s f o u n d ,
0004640 t h e c o r r e s p o n d i n
0004660 g v a l u e i s r e t u r
0004700 n e d , e l s e t h e D e
0004720 f a u l t i s r e t u r n e
0004740 d . " \r ( C L : D O ( (
0004760 P L I S T P L A C E ( C D D
0005000 R P L I S T ) ) ) \r
0005020 ( ( N U L L P L I S
0005040 T ) \r D E
0005060 F A U L T ) \r
0005100 ( C O N D \r
0005120 ( ( L I T A T O M ( C
0005140 D R P L I S T ) ) \r
0005160 ( E R R O R
0005200 ( C O N C A T P L A C E "
0005220 i s a m a l f o r m e d p
0005240 r o p e r t y l i s t . " ) )
0005260 ) \r (
0005300 ( E Q ( C A R P L I S T ) \r
0005320
0005340 I N D I C A T O R ) \r
0005360 ( R E T U
0005400 R N ( C A D R P L I S T ) )
0005420 ) ) ) ) \r \r ( C L : D E F U N
0005440 006 002 C L : G E T - P R O P E R T
0005460 I E S 006 001 ( P L A C E I N D
0005500 I C A T O R - L I S T ) " L i
0005520 k e G E T F , e x c e p t
0005540 t h a t I n d i c a t o r - L
0005560 i s t i s a l i s t o f
0005600 i n d i c a t o r s w h i c
0005620 h w i l l b e l o o k e d
0005640 f o r i n t h e p r o p
0005660 e r t y l i s t s t o r e d
0005700 i n P l a c e . T h r e e
0005720 v a l u e s a r e r e t u
0005740 r n e d , s e e m a n u a l
0005760 f o r d e t a i l s . " \r
0006000 ( C L : D O ( ( P L I S T
0006020 P L A C E ( C D D R P L I
0006040 S T ) ) ) \r
0006060 ( ( N U L L P L I S T ) \r
0006100 ( C L : V A L
0006120 U E S N I L N I L N I L )
0006140 ) \r ( C O N
0006160 D \r (
0006200 ( L I T A T O M ( C D R P L
0006220 I S T ) ) \r
0006240 ( E R R O R ( C O N C
0006260 A T P L A C E " i s a
0006300 m a l f o r m e d p r o p r t
0006320 y l i s t . " ) ) ) \r
0006340 ( ( M E M Q
0006360 ( C A R P L I S T ) \r
0006400
0006420 I N D I C A T O R - L I S T ) \r
0006440 ( R
0006460 E T U R N ( C L : V A L U E S
0006500 ( C A R P L I S T ) \r
0006520
0006540 ( C A D R
0006560 P L I S T ) \r
0006600
0006620 P L I S T ) ) ) ) ) ) \r
0006640 \r ( M O V D ' G E T P R O P L
0006660 I S T ' C L : S Y M B O L - P
0006700 L I S T ) \r ( C L : D E F U N
0006720 006 002 C L : F B O U N D P 006 001 (
0006740 F N ) ( A N D ( C L : S Y M
0006760 B O L P F N ) \r
0007000
0007020 ( O R ( C L :
0007040 S P E C I A L - F O R M - P F
0007060 N ) \r
0007100
0007120 ( A R G T Y P E F
0007140 N ) \r
0007160
0007200 ( C L : M A C R O -
0007220 F U N C T I O N F N ) ) \r
0007240
0007260 T ) )
0007300 \r \r ( C L : D E F U N 006 002 C L
0007320 : F M A K U N B O U N D 006 001 (
0007340 C L : S Y M B O L ) ( P U T D
0007360 C L : S Y M B O L N I L ) \r
0007400
*
0007440 C L : S Y M B O L ) \r
0007460 \r ( C L : D E F U N 006 002 C L :
0007500 S Y M B O L - F U N C T I O N 006
0007520 001 ( C L : : F N & A U X C
0007540 L : : T E M P ) ( C O N D \r
0007560
*
0007640 ( ( C L : S E T Q
0007660 C L : : T E M P ( C L : S P E
0007700 C I A L - F O R M - P C L : :
0007720 F N ) ) 006 006 006 001 \r
0007740
*
0010000 006 006 ( *
0010020 ; \r 006 001
0010040
0010060 006 006 " R e t u r
0010100 n s o m e t h i n g r e p r
0010120 e s e n t i n g t h e s p e
0010140 c i a l - f o r m ' s i m p l
0010160 e m e n t a t i o n . " ) 006 001 \r
0010200
*
0010260 ( C O N S : S
0010300 P E C I A L - F O R M C L : :
0010320 T E M P ) ) \r
0010340
*
0010400 ( (
0010420 C L : S E T Q C L : : T E M P
0010440 ( C L : M A C R O - F U N C T
0010460 I O N C L : : F N ) ) 006 006 006 001
0010500 \r
0010520
*
0010560 006 006 ( * ; \r 006 001
0010600
*
0010640 006 006 " R e t u r n
0010660 s o m e t h i n g r e p r e
0010700 s e n t i n g t h e m a c r
0010720 o ' s i m p l e m e n t a t i
0010740 o n . " ) 006 001 \r
0010760
*
0011040 ( C O N S : M A C R O C L :
0011060 : T E M P ) ) \r
0011100
*
0011140 (
0011160 ( G E T D C L : : F N ) 006 006 006
0011200 001 \r
0011220
*
0011260 006
0011300 006 ( * ; " R e t u r n t h
0011320 e f u n c t i o n d e f i n
0011340 i t i o n . " ) 006 001 \r
0011360
*
0011440 ) \r
0011460
*
0011520 ( T (
0011540 C L : E R R O R ' U N D E F I
0011560 N E D - F U N C T I O N : N A
0011600 M E C L : : F N ) \r
0011620
*
0011700 ) ) ) \r \r ( C L : D E
0011720 F U N 006 002 S E T F - S Y M B O
0011740 L - F U N C T I O N 006 001 ( F N
0011760 V A L ) ( P U T D F N (
0012000 i f ( C C O D E P V A L ) \r
0012020
*
0012100 t h e n V A L e l
0012120 s e i f ( E X P R P V A L )
0012140 \r
0012160
*
0012220 t h e n V A L e
0012240 l s e i f ( L I T A T O M V
0012260 A L ) \r
0012300
*
0012340 t h e n \r
0012360
*
0012440 ( G E T D V A L ) \r
0012460
*
0012540 e l s e V A L ) \r
0012560
*
0012620 T ) ) \r \r
0012640 ( C L : D E F V A R 006 002 * G E
0012660 N S Y M - C O U N T E R * 006 001
0012700 0 ) \r \r ( C L : D E F V A R 006
0012720 002 * G E N S Y M - P R E F I X *
0012740 006 001 " G " ) \r \r ( C L : D E
0012760 F U N 006 002 C L : C O P Y - S Y
0013000 M B O L 006 001 ( S Y M & O P T
0013020 I O N A L C O P Y - P R O P S
0013040 ) ( C L : C H E C K - T Y P E
0013060 S Y M C L : S Y M B O L ) \r
0013100
*
0013160 ( L E T ( ( N E W S Y
0013200 M ( C L : M A K E - S Y M B O
0013220 L ( C L : S Y M B O L - N A M
0013240 E \r
0013260
*
0013360 S Y M ) ) ) ) \r
0013400
*
0013460 ( C O N D \r
0013500
*
0013560 ( C O P Y - P R
0013600 O P S ( C L : S E T F ( C L
0013620 : S Y M B O L - V A L U E \r
0013640
*
0013760 N E W S Y M ) \r
0014000
*
0014100 ( C L : S Y M B O
0014120 L - V A L U E \r
0014140
*
0014240 S Y M ) ) \r
0014260
*
0014360 ( C L : S E T F ( C L : S Y
0014400 M B O L - F U N C T I O N \r
0014420
*
0014520 N E W S Y
0014540 M ) \r
0014560
*
0014640 ( C L
0014660 : S Y M B O L - F U N C T I O N
0014700 S Y M ) ) \r
0014720
*
0015000 ( C L : S E
0015020 T F ( C L : S Y M B O L - P L
0015040 I S T N E W S Y M ) \r
0015060
*
0015160 ( C O P Y ( C L :
0015200 S Y M B O L - P L I S T \r
0015220
*
0015320 S Y
0015340 M ) ) ) ) ) \r
0015360
*
0015440 N E W S Y M ) ) \r \r ( C L : D E
0015460 F U N 006 002 C L : G E N S Y M 006
0015500 001 ( & O P T I O N A L X )
0015520 ( D E C L A R E ( C L : S P E
0015540 C I A L * G E N S Y M - C O U
0015560 N T E R * * G E N S Y M - P R
0015600 E F I X * ) ) \r
0015620
0015640 ( C L : E T
0015660 Y P E C A S E X ( N U L L )
0015700 \r
0015720
0015740 ( S T R I N
0015760 G ( C L : S E T F * G E N S
0016000 Y M - P R E F I X * X ) ) \r
0016020
*
0016060 ( I N T E G E R
0016100 ( C L : S E T F * G E N S Y
0016120 M - C O U N T E R * X ) ) ) \r
0016140
*
0016200 ( P R O G 1 ( C L : M A K
0016220 E - S Y M B O L ( C O N C A T
0016240 * G E N S Y M - P R E F I X *
0016260 ( M K S T R I N G \r
0016300
*
0016420 * G E N S Y M - C O U N T E R
0016440 * \r
0016460
*
0016560 ) ) ) \r
0016600
*
0016640 ( C L : I N C F
0016660 * G E N S Y M - C O U N T E R *
0016700 ) ) ) \r \r ( C L : D E F U N 006
0016720 002 M A K E - K E Y W O R D 006 001
0016740 ( C L : S Y M B O L ) ( D E C
0016760 L A R E ( C L : S P E C I A L
0017000 * K E Y W O R D - P A C K A G
0017020 E * ) ) \r
0017040
0017060 ( C L : I N T E
0017100 R N ( C L : S Y M B O L - N A
0017120 M E C L : S Y M B O L ) \r
0017140
*
0017200 * K E Y W O R D
0017220 - P A C K A G E * ) ) \r \r ( C L
0017240 : D E F U N 006 002 C L : G E N T
0017260 E M P 006 001 ( & O P T I O N A L
0017300 ( P R E F I X " T " ) \r
0017320
0017340 ( P A C K A
0017360 G E * P A C K A G E * ) ) (
0017400 C L : C H E C K - T Y P E P R
0017420 E F I X S T R I N G P ) \r
0017440
*
0017500 (
0017520 C L : C H E C K - T Y P E P A
0017540 C K A G E P A C K A G E ) \r
0017560
*
0017640 ( C L : D O ( ( C O U N T E R
0017660 0 ( C L : 1 + C O U N T E
0017700 R ) ) \r
0017720
*
0017760 ( C L
0020000 : N A M E S T R I N G ) ) \r
0020020
*
0020100 ( ( N U L L ( C L
0020120 : F I N D - S Y M B O L ( S E
0020140 T Q C L : N A M E S T R I N G
0020160 \r
0020200
*
0020300 ( C O N C A T P R E F I X \r
0020320
*
0020440 ( M K S T R I N G
0020460 \r
0020500
*
0020600 C O U N T E R
0020620 ) ) ) \r
0020640
*
0020720 P A C K A G
0020740 E ) ) \r
0020760
*
0021020 ( C L
0021040 : I N T E R N C L : N A M E S
0021060 T R I N G P A C K A G E ) ) )
0021100 ) \r \r ( C L : D E F U N 006 002 C
0021120 L : K E Y W O R D P 006 001 ( O B
0021140 J E C T ) ( A N D ( C L : S
0021160 Y M B O L P O B J E C T ) \r
0021200
*
0021240 ( E Q ( C L : S Y M B O
0021260 L - P A C K A G E O B J E C T
0021300 ) \r
0021320
0021340 * K E Y W O
0021360 R D - P A C K A G E * ) ) ) \r \r
0021400 \r ( P U T P R O P S 006 002 L L S
0021420 Y M B O L F I L E T Y P E 006 001
0021440 C L : C O M P I L E - F I L E
0021460 ) \r ( P U T P R O P S L L S Y
0021500 M B O L C O P Y R I G H T (
0021520 " X e r o x C o r p o r a t i
0021540 o n " 1 9 8 6 ) ) \r ( D E C L
0021560 A R E % : D O N T C O P Y \r
0021600 ( F I L E M A P ( N I L ) )
0021620 ) \r S T O P \r
0021627