$ od -c -N 50000 [eris]<LispCore>SOURCES>LLSYMBOL!8
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 5 - O c t - 8 6 2 3 : 0 7 : 4
0000140 6 " 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 . ; 8 006 001 1 0 5 6 4
0000220 \r \r c h a n g e
0000240 s t o % : ( F U N C T I O
0000260 N S C L : S Y M B O L - F U N
0000300 C T I O N S E T F - S Y M B O
0000320 L - F U N C T I O N C L : F M
0000340 A K U N B O U N D C L : M A K
0000360 U N B O U N D ) \r \r
0000400 p r e v i o u s d a t e % :
0000420 " 2 3 - O c t - 8 6 1 5 : 1 1
0000440 : 2 2 " { E R I S } < L I S P
0000460 C O R E > S O U R C E S > L L S
0000500 Y M B O L . ; 5 ) \r \r \r ( * "
0000520 \r C o p y r i g h t ( c ) 1
0000540 9 8 6 b y X e r o x C o r
0000560 p o r a t i o n . A l l r
0000600 i g h t s r e s e r v e d . \r
0000620 " ) \r \r ( P R E T T Y C O M P R
0000640 I N T L L S Y M B O L C O M S
0000660 ) \r \r ( R P A Q Q 006 002 L L S Y
0000700 M B O L C O M S 006 001 ( ( * ;
0000720 ; " S y m b o l f u n c t i
0000740 o n s . " ) \r
0000760 ( * ;
0001000 ; " S E T B O U N D P a n
0001020 d R E M P R O P a r e a l
0001040 r e a d y i n I n t e r l i
0001060 s p - D " ) \r
0001100 ( F U N
0001120 C T I O N S C L : M A K U N B
0001140 O U N D C L : S Y M B O L - N
0001160 A M E C L : S Y M B O L - V A
0001200 L U E G E T C L : G E T F
0001220 \r
0001240 C L :
0001260 G E T - P R O P E R T I E S ) \r
0001300
0001320 ( P ( M O V D ' G
0001340 E T P R O P L I S T ' C L : S
0001360 Y M B O L - P L I S T ) ) \r
0001400
0001420 ( F U N C T I O N S C L
0001440 : F B O U N D P C L : F M A K
0001460 U N B O U N D C L : S Y M B O
0001500 L - F U N C T I O N S E T F -
0001520 S Y M B O L - F U N C T I O N )
0001540 \r
0001560 ( V A R I A B L E S
0001600 * G E N S Y M - C O U N T E R
0001620 * * G E N S Y M - P R E F I X
0001640 * ) \r
0001660 ( F U N C T I O
0001700 N S C L : C O P Y - S Y M B O
0001720 L C L : G E N S Y M M A K E
0001740 - K E Y W O R D C L : G E N T
0001760 E M P C L : K E Y W O R D P )
0002000 \r
0002020 ( P R O P F I L E
0002040 T Y P E L L S Y M B O L ) ) )
0002060 \r \r \r \r 006 004 ( * ; ; " S y m
0002100 b o l f u n c t i o n s . " )
0002120 006 001 \r \r \r \r \r 006 004 ( * ; ; "
0002140 S E T B O U N D P a n d R
0002160 E M P R O P a r e a l r e a
0002200 d y i n I n t e r l i s p -
0002220 D " ) 006 001 \r \r ( C L : D E F U N
0002240 006 002 C L : M A K U N B O U N D
0002260 006 001 ( C L : S Y M B O L ) "
0002300 M a k e a s y m b o l u n
0002320 b o u n d . " ( S E T C L :
0002340 S Y M B O L ' N O B I N D ) 006
0002360 006 006 001 \r
0002400
*
0002440 006 006 ( *
0002460 ; " u n b o u n d s y m b
0002500 o l s a r e s e t t o I
0002520 L : N O B I N D " ) 006 001 \r
0002540
*
0002620 ( P U T H A
0002640 S H C L : S Y M B O L N I L
0002660 C O M P V A R M A C R O H A S
0002700 H ) 006 006 006 001 \r
0002720
*
0003000 006 006 ( * ; " r e m o
0003020 v e a n y c o n s t a n t
0003040 e n t r y " ) 006 001 \r
0003060
*
0003140 C L : S Y M B O L
0003160 ) \r \r ( C L : D E F U N 006 002 C
0003200 L : S Y M B O L - N A M E 006 001
0003220 ( C L : S Y M B O L ) ( C L :
0003240 C H E C K - T Y P E C L : S Y
0003260 M B O L C L : S Y M B O L ) \r
0003300
*
0003340 ( M K S T R I N G C
0003360 L : S Y M B O L ) ) \r \r ( C L :
0003400 D E F U N 006 002 C L : S Y M B O
0003420 L - V A L U E 006 001 ( C L : S Y
0003440 M B O L ) 006 006 006 001
0003460 006 006 ( * ; ; " L
0003500 i k e E V A L V , b u t m
0003520 u s t g i v e e r r o r i
0003540 f u n b o u n d - u s e s
0003560 f a c t t h a t \ e v a l
0003600 h a s a n o p c o d e w
0003620 h i c h h o o k s i n t o
0003640 f r e e v a r i a b l e m i
0003660 c r o c o d e " ) 006 001 \r (
0003700 C L : C H E C K - T Y P E C L
0003720 : S Y M B O L C L : S Y M B O
0003740 L ) \r ( \ E V A L C L :
0003760 S Y M B O L ) ) \r \r ( C L : D E
0004000 F U N 006 002 G E T 006 001 ( C L :
0004020 S Y M B O L I N D I C A T O R
0004040 & O P T I O N A L ( D E F A
0004060 U L T N I L ) ) " L o o k
0004100 o n t h e p r o p e r t y
0004120 l i s t o f S Y M B O L f
0004140 o r t h e s p e c i f i e d
0004160 I N D I C A T O R . I f t
0004200 h i s i s f o u n d , r e
0004220 t u r n t h e a s s o c i a
0004240 t e d v a l u e , e l s e
0004260 r e t u r n D E F A U L T . "
0004300 \r ( C L : G E T F ( G E
0004320 T P R O P L I S T C L : S Y M
0004340 B O L ) \r I
0004360 N D I C A T O R D E F A U L T
0004400 ) ) \r \r ( C L : D E F U N 006 002
0004420 C L : G E T F 006 001 ( P L A C E
0004440 I N D I C A T O R & O P T I
0004460 O N A L ( D E F A U L T N I
0004500 L ) ) " S e a r c h e s t h
0004520 e p r o p e r t y l i s t
0004540 s t o r e d i n P l a c e
0004560 f o r a n i n d i c a t o r
0004600 E Q t o I n d i c a t o r
0004620 . I f o n e i s f o u
0004640 n d , t h e c o r r e s p o
0004660 n d i n g v a l u e i s r
0004700 e t u r n e d , e l s e t h
0004720 e D e f a u l t i s r e t
0004740 u r n e d . " \r ( C L : D
0004760 O ( ( P L I S T P L A C E
0005000 ( C D D R P L I S T ) ) ) \r
0005020 ( ( N U L L
0005040 P L I S T ) \r
0005060 D E F A U L T ) \r
0005100 ( C O N D \r
0005120 ( ( L I T A T O
0005140 M ( C D R P L I S T ) ) \r
0005160 ( E R
0005200 R O R ( C O N C A T P L A C
0005220 E " i s a m a l f o r m
0005240 e d p r o p e r t y l i s t
0005260 . " ) ) ) \r
0005300 ( ( E Q ( C A R P L I
0005320 S T ) \r
0005340 I N D I C A T O R )
0005360 \r (
0005400 R E T U R N ( C A D R P L I
0005420 S T ) ) ) ) ) ) \r \r ( C L : D E
0005440 F U N 006 002 C L : G E T - P R O
0005460 P E R T I E S 006 001 ( P L A C E
0005500 I N D I C A T O R - L I S T )
0005520 " L i k e G E T F , e x c
0005540 e p t t h a t I n d i c a t
0005560 o r - L i s t i s a l i s
0005600 t o f i n d i c a t o r s
0005620 w h i c h w i l l b e l o
0005640 o k e d f o r i n t h e
0005660 p r o p e r t y l i s t s t
0005700 o r e d i n P l a c e . T
0005720 h r e e v a l u e s a r e
0005740 r e t u r n e d , s e e m a
0005760 n u a l f o r d e t a i l s
0006000 . " \r ( C L : D O ( ( P
0006020 L I S T P L A C E ( C D D R
0006040 P L I S T ) ) ) \r
0006060 ( ( N U L L P L I S T
0006100 ) \r ( C L
0006120 : V A L U E S N I L N I L
0006140 N I L ) ) \r
0006160 ( C O N D \r
0006200 ( ( L I T A T O M ( C D
0006220 R P L I S T ) ) \r
0006240 ( E R R O R (
0006260 C O N C A T P L A C E " i
0006300 s a m a l f o r m e d p r
0006320 o p r t y l i s t . " ) ) ) \r
0006340 ( ( M
0006360 E M Q ( C A R P L I S T ) \r
0006400
0006420 I N D I C A T O R - L I
0006440 S T ) \r
0006460 ( R E T U R N ( C L : V A
0006500 L U E S ( C A R P L I S T )
0006520 \r
0006540 ( C
0006560 A D R P L I S T ) \r
0006600
0006620 P L I S T ) ) )
0006640 ) ) ) \r \r ( M O V D ' G E T P
0006660 R O P L I S T ' C L : S Y M B
0006700 O L - P L I S T ) \r ( C L : D E
0006720 F U N 006 002 C L : F B O U N D P
0006740 006 001 ( F N ) ( A N D ( C L
0006760 : S Y M B O L P F N ) \r
0007000
0007020 ( O R
0007040 ( C L : S P E C I A L - F O R M
0007060 - P F N ) \r
0007100
0007120 ( A R G T Y
0007140 P E F N ) \r
0007160
0007200 ( C L : M A
0007220 C R O - F U N C T I O N F N )
0007240 ) \r
0007260
0007300 T ) ) \r \r ( C L : D E F U N
0007320 006 002 C L : F M A K U N B O U N D
0007340 006 001 ( C L : S Y M B O L ) (
0007360 P U T D C L : S Y M B O L N
0007400 I L ) \r
0007420
0007440 ( R E M P R O
0007460 P C L : S Y M B O L ' C L :
0007500 M A C R O - F U N C T I O N ) \r
0007520
*
0007560 ( R E M P R O P C L
0007600 : S Y M B O L ' C L : : S P E
0007620 C I A L - F O R M ) \r
0007640
*
0007700 C L : S Y M B O L ) \r \r ( C L :
0007720 D E F U N 006 002 C L : S Y M B O
0007740 L - F U N C T I O N 006 001 ( C L
0007760 : S Y M B O L & A U X ( D E
0010000 F ( G E T D C L : S Y M B O
0010020 L ) ) ) ( C O N D \r
0010040
*
0010140 ( D E F ) 006 006 006 001 \r
0010160
*
0010240 006 006 ( * ;
0010260 " G E T D r e t u r n e d
0010300 n o n - N I L " ) 006 001 \r
0010320
*
0010420 ( ( C L : S E T Q D E
0010440 F ( \r
0010460
*
0010560 C L : S P E C I
0010600 A L - F O R M - P \r
0010620
*
0010740 C L : S Y M B O L ) ) 006 006 006 001
0010760 \r
0011000
*
0011040 006 006 ( * ; \r 006 001
0011060
*
0011120 006 006 " R e t u r n s o m e t h
0011140 i n g r e p r e s e n t i n g
0011160 t h e s p e c i a l - f o r
0011200 m ' s i m p l e m e n t a t i
0011220 o n . " ) 006 001 \r
0011240
*
0011340 ( C O N S : S P E C I A L -
0011360 F O R M D E F ) ) \r
0011400
*
0011500 ( ( C L : S E T Q D E F
0011520 ( \r
0011540
*
0011640 C L : M A C R O -
0011660 F U N C T I O N \r
0011700
*
0012020 C L : S Y M B O L ) ) 006 006 006 001 \r
0012040
*
0012120 006 006 ( * ; \r 006 001
0012140
*
0012200 006 006 " R e t u r n
0012220 s o m e t h i n g r e p r e s
0012240 e n t i n g t h e m a c r o
0012260 ' s i m p l e m e n t a t i o
0012300 n . " ) 006 001 \r
0012320
*
0012420 ( C O N S : M A C R O D E F
0012440 ) ) \r
0012460
*
0012540 ( T \r
0012560
*
0012640 006 006 ( *
0012660 \r 006 001 006 006 " p a t c h
0012700 t o m a k e ( U N D O A B
0012720 L Y ( S E T F ( S Y M B O L
0012740 - F U N C T I O N - - ) ) )
0012760 n o t e r r o r w h e n a
0013000 t t e m p t i n g t o g e t
0013020 o l d v a l u e " ) 006 001 \r
0013040
*
0013140 N I L ) \r
0013160
*
0013260 ( T ( C L : E R
0013300 R O R ' \r
0013320
*
0013420 U N D E F I N E
0013440 D - F U N C T I O N \r
0013460
*
0013560 : N
0013600 A M E C L : S Y M B O L ) ) )
0013620 ) \r \r ( C L : D E F U N 006 002 S
0013640 E T F - S Y M B O L - F U N C T
0013660 I O N 006 001 ( C L : S Y M B O L
0013700 C L : : D E F I N I T I O N )
0013720 006 006 006 001 006 006 ( * ; ;
0013740 " i n v e r s e o f S Y M
0013760 B O L - F U N C T I O N " ) 006 001
0014000 \r ( 006 002 I F 006 001 ( L I S
0014020 T P C L : : D E F I N I T I O
0014040 N ) \r 006 002 T H E N
0014060 006 001 ( C A S E ( C A R C L
0014100 : : D E F I N I T I O N ) \r
0014120
0014140 ( : M A C R O 006 006 006 001
0014160
0014200 006 006 ( *
0014220 ; " S Y M B O L - F U N C T I
0014240 O N c o n s e s u p t h i
0014260 s l i s t " ) 006 001 \r
0014300
0014320 ( C L : S E T F ( C L
0014340 : M A C R O - F U N C T I O N
0014360 C L : S Y M B O L ) \r
0014400
0014420 ( C D R
0014440 C L : : D E F I N I T I O N ) )
0014460 \r
0014500 ( C L : R E
0014520 T U R N - F R O M S E T F - S
0014540 Y M B O L - F U N C T I O N C
0014560 L : : D E F I N I T I O N ) ) \r
0014600
0014620 ( : S P E C I A L - F O R M
0014640 ( C L : S E T F ( G E T C
0014660 L : S Y M B O L ' S P E C I A
0014700 L - F O R M ) \r
0014720
*
0014760 ( C D R C L : : D E F I N I T
0015000 I O N ) ) \r
0015020 (
0015040 C L : R E T U R N - F R O M S
0015060 E T F - S Y M B O L - F U N C T
0015100 I O N C L : : D E F I N I T I
0015120 O N ) ) ) \r 006 002 E L S
0015140 E I F 006 001 ( C L : S Y M B O L
0015160 P C L : : D E F I N I T I O N
0015200 ) \r 006 002 T H E N 006
0015220 001 ( C L : R E T U R N - F R O
0015240 M S E T F - S Y M B O L - F U
0015260 N C T I O N ( P U T D C L :
0015300 S Y M B O L ( G E T D C L :
0015320 : D E F I N I T I O N ) \r
0015340
*
0015420 T ) ) \r
0015440 C L : : D E F I N I T I
0015460 O N ) \r ( P U T D C L :
0015500 S Y M B O L C L : : D E F I N
0015520 I T I O N T ) ) \r \r ( C L : D
0015540 E F V A R 006 002 * G E N S Y M -
0015560 C O U N T E R * 006 001 0 ) \r \r (
0015600 C L : D E F V A R 006 002 * G E N
0015620 S Y M - P R E F I X * 006 001 " G
0015640 " ) \r \r ( C L : D E F U N 006
0015660 002 C L : C O P Y - S Y M B O L 006
0015700 001 ( S Y M & O P T I O N A L
0015720 C O P Y - P R O P S ) ( C L
0015740 : C H E C K - T Y P E S Y M
0015760 C L : S Y M B O L ) \r
0016000
*
0016040 (
0016060 L E T ( ( N E W S Y M ( C L
0016100 : M A K E - S Y M B O L ( C L
0016120 : S Y M B O L - N A M E \r
0016140
*
0016260 S Y M ) ) ) ) \r
0016300
*
0016360 ( C O N D \r
0016400
*
0016460 ( C O P Y - P R O P S (
0016500 C L : S E T F ( C L : S Y M B
0016520 O L - V A L U E \r
0016540
*
0016640 N E W S Y
0016660 M ) \r
0016700
*
0017000 ( C L : S Y M B O L - V A L
0017020 U E \r
0017040
*
0017140 S Y M ) ) \r
0017160
*
0017240 ( C L :
0017260 S E T F ( C L : S Y M B O L -
0017300 F U N C T I O N \r
0017320
*
0017420 N E W S Y M ) \r
0017440
*
0017540 ( C L : S Y M B
0017560 O L - F U N C T I O N S Y M )
0017600 ) \r
0017620
*
0017700 ( C L : S E T F ( C
0017720 L : S Y M B O L - P L I S T N
0017740 E W S Y M ) \r
0017760
*
0020060 ( C O P Y ( C L : S Y M B O
0020100 L - P L I S T \r
0020120
*
0020220 S Y M ) ) ) )
0020240 ) \r
0020260
*
0020320 N E W S Y
0020340 M ) ) \r \r ( C L : D E F U N 006
0020360 002 C L : G E N S Y M 006 001 ( & O
0020400 P T I O N A L X ) ( 006 002 D E
0020420 C L A R E 006 001 ( C L : S P E C
0020440 I A L * G E N S Y M - C O U N
0020460 T E R * * G E N S Y M - P R E
0020500 F I X * ) ) \r
0020520
0020540 ( C L : E T Y
0020560 P E C A S E X ( N U L L ) \r
0020600
*
0020640 ( S T R I N G
0020660 ( C L : S E T F * G E N S Y
0020700 M - P R E F I X * X ) ) \r
0020720
*
0020760 ( I N T E G E R
0021000 ( C L : S E T F * G E N S Y M
0021020 - C O U N T E R * X ) ) ) \r
0021040
*
0021100 ( P R O G 1 ( C L : M A K E
0021120 - S Y M B O L ( C O N C A T
0021140 * G E N S Y M - P R E F I X *
0021160 ( M K S T R I N G \r
0021200
*
0021320 * G E N S Y M - C O U N T E R *
0021340 \r
0021360
*
0021460 ) ) ) \r
0021500
*
0021540 ( C L : I N C F *
0021560 G E N S Y M - C O U N T E R * )
0021600 ) ) \r \r ( C L : D E F U N 006 002
0021620 M A K E - K E Y W O R D 006 001 (
0021640 C L : S Y M B O L ) ( 006 002 D E
0021660 C L A R E 006 001 ( C L : S P E C
0021700 I A L * K E Y W O R D - P A C
0021720 K A G E * ) ) \r
0021740
0021760 ( C L : I
0022000 N T E R N ( C L : S Y M B O L
0022020 - N A M E C L : S Y M B O L )
0022040 \r
0022060
0022100 * K E Y W
0022120 O R D - P A C K A G E * ) ) \r \r
0022140 ( C L : D E F U N 006 002 C L : G
0022160 E N T E M P 006 001 ( & O P T I O
0022200 N A L ( P R E F I X " T " )
0022220 \r
0022240 ( P A
0022260 C K A G E * P A C K A G E * )
0022300 ) ( C L : C H E C K - T Y P E
0022320 P R E F I X S T R I N G P )
0022340 \r
0022360
*
0022420 ( C L : C H E C K - T Y P E
0022440 P A C K A G E P A C K A G E
0022460 ) \r
0022500
*
0022540 ( C L : D O ( ( C O U N
0022560 T E R 0 ( C L : 1 + C O U
0022600 N T E R ) ) \r
0022620
*
0022700 ( C L : N A M E S T R I N G ) )
0022720 \r
0022740
*
0023000 ( ( N U L L
0023020 ( C L : F I N D - S Y M B O L
0023040 ( S E T Q C L : N A M E S T R
0023060 I N G \r
0023100
*
0023200 ( C O N C A T P R E F
0023220 I X \r
0023240
*
0023340 ( M K S T R
0023360 I N G \r
0023400
*
0023500 C O U N
0023520 T E R ) ) ) \r
0023540
*
0023620 P A C
0023640 K A G E ) ) \r
0023660
*
0023740 ( C L : I N T E R N C L : N A
0023760 M E S T R I N G P A C K A G E
0024000 ) ) ) ) \r \r ( C L : D E F U N
0024020 006 002 C L : K E Y W O R D P 006 001
0024040 ( O B J E C T ) ( A N D ( C
0024060 L : S Y M B O L P O B J E C T
0024100 ) \r
0024120
0024140 ( E Q ( C L : S Y
0024160 M B O L - P A C K A G E O B J
0024200 E C T ) \r
0024220
0024240 * K E
0024260 Y W O R D - P A C K A G E * ) )
0024300 ) \r \r \r ( P U T P R O P S 006 002
0024320 L L S Y M B O L F I L E T Y P
0024340 E 006 001 C L : C O M P I L E - F
0024360 I L E ) \r ( P U T P R O P S L
0024400 L S Y M B O L C O P Y R I G H
0024420 T ( " X e r o x C o r p o r
0024440 a t i o n " 1 9 8 6 ) ) \r ( D
0024460 E C L A R E % : D O N T C O P
0024500 Y \r ( F I L E M A P ( N I
0024520 L ) ) ) \r S T O P \r
0024532