$ 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