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