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