$ od -c -N 50000 [eris]<Lisp>JCAI>library>CMLSETF.DCOM!1
0000000 ( F I L E C R E A T E D " 1
0000020 - A u g - 8 5 2 1 : 4 6 : 4 6
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > L I B R A R Y > C M L S E T
0000120 F . ; 3 ) \r " 2 8 - J u l - 8
0000140 5 0 1 : 3 9 : 5 0 " r e c o
0000160 m p i l e d A L L i n " I
0000200 N T E R L I S P - D 2 8 - J u
0000220 l - 8 5 . . . " d a t e d
0000240 " 2 8 - J u l - 8 5 0 1 : 5 3
0000260 : 5 3 " ) \r ( F I L E C R E A T
0000300 E D " 1 - A u g - 8 5 1 8
0000320 : 1 4 : 4 7 " { E R I S } < L
0000340 I S P C O R E > L I B R A R Y >
0000360 C M L S E T F . ; 3 4 4 0 5
0000400 c h a n g e s t o : ( V A R
0000420 S \r C M L S E T F C O M S )
0000440 ( P R O P S ( A R G S E T F
0000460 N ) ( C D R S E T F - I N V
0000500 E R S E ) ( C A R S E T F -
0000520 I N V E R S E ) ) ( M A C R O
0000540 S I N C F \r D E F I N E - M
0000560 O D I F Y - M A C R O ) ( F N
0000600 S \ I N C F . E X P A N D S
0000620 V R E F N O M V : G E T - S E
0000640 T F - M E T H O D ) p r e v i
0000660 o u s d a t e : " 3 1 - J u
0000700 l - 8 5 0 4 : 4 8 : 5 4 " \r
0000720 { E R I S } < L I S P C O R E >
0000740 L I B R A R Y > C M L S E T F .
0000760 ; 1 ) \r N O M V : G E T - S E T
0001000 F - M E T H O D D 1 \r ( L (
0001020 0 F O R M ) F 6 * I N -
0001040 T H E - C O M P I L E R * ) \0
0001060 323 006 001 \0 001 021 0 002 @ d 004 l 004 360 262 035
0001100 277 \b \0 \0 271 h d I h 032 g \0 \0 @ I h
0001120 032 032 032 @ h 032 032 032 032 032 020 \t \0 \0 230 o
0001140 \0 \0 \0 @ \n \0 \0 020 @ 001 g \0 \0 \n \0 \0
0001160 265 \n @ 001 g \0 \0 \n \0 \0 X 262 < \b \0 \0
0001200 021 ! 005 @ 214 d 001 272 \b \0 \0 L 032 274 J M
0001220 032 275 002 003 265 361 M \t \0 \0 ] L M K h 032
0001240 H L K h 032 \n \0 \0 032 @ 001 L \t \0 \0 032
0001260 h 032 032 032 032 032 020 @ 001 g \0 \0 \n \0 \0 X
0001300 230 @ k H 017 016 \t \0 \0 020 g \0 \0 \t \0 \0
0001320 262 036 V 262 033 @ \t \0 \0 d @ 360 232 277 o \0
0001340 \0 \0 @ 001 \n \0 \0 020 b \0 023 261 377 J @ \t
0001360 \0 \0 d @ 360 232 277 o \0 \0 \0 @ 001 \n \0 \0
0001400 020 b \0 023 261 377 1 \0 ( 3 1 2 Q E R
0001420 R O R 2 7 4 Q M A C R O E X
0001440 P A N D - 1 2 6 1 Q E R R O
0001460 R 2 4 3 Q C O M P I L E R -
0001500 M A C R O E X P A N D - 1 2 3
0001520 2 Q B O U N D P 2 2 3 Q V
0001540 A L U E S - L I S T 2 1 1 Q
0001560 G E T 1 7 1 Q \ A P P E N D
0001600 2 1 6 2 Q \ A P P E N D 2
0001620 1 4 4 Q R E V E R S E 1 2 5
0001640 Q G E N S Y M 1 1 2 Q G E
0001660 N S Y M 1 0 4 Q G E T 7 2
0001700 Q G E T 6 1 Q E R R O R
0001720 5 0 Q C L : A T O M 1 6 Q
0001740 G E N S Y M ) \r ( 2 2 7 Q * I
0001760 N - T H E - C O M P I L E R *
0002000 2 0 6 Q S E T F - M E T H O D
0002020 - E X P A N D E R 1 0 1 Q S
0002040 E T F N 6 7 Q S E T F - I N
0002060 V E R S E 2 7 Q S E T Q ) \r
0002100 ( 3 0 5 Q " ~ S i s n o
0002120 t a k n o w n l o c a t i
0002140 o n s p e c i f i e r f o r
0002160 S E T F . " 2 5 4 Q " ~ S
0002200 i s n o t a k n o w n
0002220 l o c a t i o n s p e c i f i
0002240 e r f o r S E T F . " 5 5
0002260 Q " ~ S i l l e g a l a t
0002300 o m i c f o r m f o r G E
0002320 T - S E T F - M E T H O D . " )
0002340 \r S V R E F D 1 \r ( L ( 0
0002360 \ C L : L A M B D A . A R G C N
0002400 T ) P 2 S U B S C R I P T
0002420 S P 1 A R R A Y ) \0 K \b
0002440 \0 002 \0 e 021 001 \0 @ 021 021 002 H l 002 021 2
0002460 \a L d K 363 262 025 277 M 022 272 I 005 \a 262 %
0002500 I J 001 k 330 ) \t \0 \0 020 a _ 016 277 N 265
0002520 016 O 016 h 032 ^ 275 L k 324 \ 260 327 O 016 &
0002540 276 260 366 g \0 \0 I J 032 \n \0 \0 020 \0 ( 1
0002560 1 0 Q A P P L Y 4 5 Q I N
0002600 T - C H A R ) \r ( 1 0 2 Q X A
0002620 R E F ) \r ( ) \r \ I N C F . E X
0002640 P A N D D 1 \r ( P 1 0 Q L
0002660 E T - L I S T P 7 V P
0002700 6 D P 4 G E T T E R P
0002720 3 S E T T E R P 2 N E
0002740 W V A L P 1 V A L S P
0002760 0 D U M M I E S I 1 D E
0003000 L T A I 0 % % R E F E R E
0003020 N C E ) \0 b \t \0 \0 002 021 ` 005 @ \t
0003040 \0 \0 ] 001 270 M 002 001 271 M 002 002 001 272 M 002
0003060 002 002 001 273 M 002 002 002 002 001 274 H I 021 022 \b
0003100 N 265 # J 001 g \0 \0 L A h 032 032 032 h 032
0003120 032 O 020 032 _ 020 g \0 \0 O 020 \t \0 \0 K h
0003140 032 032 032 020 002 O 016 002 N 001 O 016 001 h 032 032
0003160 O 020 032 _ 020 277 _ 016 277 ^ 260 307 \0 ( 1 0
0003200 2 Q R E V E R S E 6 N O M
0003220 V : G E T - S E T F - M E T H O
0003240 D ) \r ( 7 5 Q L E T * 5 4 Q
0003260 + ) \r ( ) \r ( P R E T T Y C O
0003300 M P R I N T C M L S E T F C O
0003320 M S ) \r ( R P A Q Q C M L S E
0003340 T F C O M S ( ( M A C R O S
0003360 D E F I N E - M O D I F Y - M A
0003400 C R O I N C F ) ( P R O P
0003420 S E T F - I N V E R S E C A R
0003440 C D R ) ( F N S \r N O M V
0003460 : G E T - S E T F - M E T H O D
0003500 S V R E F \ I N C F . E X P
0003520 A N D ) ( P R O P S E T F N
0003540 A R G ) ( D E C L A R E :
0003560 D O N T E V A L @ L O A D D O
0003600 E V A L @ C O M P I L E \r D O
0003620 N T C O P Y C O M P I L E R V
0003640 A R S ( A D D V A R S ( N L
0003660 A M A ) ( N L A M L ) ( L A
0003700 M A S V R E F ) ) ) ) ) \r ( D
0003720 E F M A C R O D E F I N E - M
0003740 O D I F Y - M A C R O ( N A M
0003760 E L A M B D A - L I S T F U
0004000 N C T I O N & O P T I O N A L
0004020 D O C - S T R I N G ) \r " C
0004040 r e a t e s a n e w r e a
0004060 d - m o d i f y - w r i t e m
0004100 a c r o l i k e P U S H o
0004120 r I N C F . " ( L E T ( (
0004140 O T H E R - A R G S N I L )
0004160 ( R E S T - A R G N I L ) )
0004200 ( \r C L : D O ( ( L L L A M
0004220 B D A - L I S T ( C D R L L
0004240 ) ) ( A R G N I L ) ) ( (
0004260 N U L L L L ) ) ( S E T Q
0004300 A R G ( C A R L L ) ) ( C
0004320 O N D ( ( E Q A R G ( Q U
0004340 O T E \r & O P T I O N A L ) )
0004360 ) ( ( E Q A R G ( Q U O T
0004400 E & R E S T ) ) ( C L : I F
0004420 ( S Y M B O L P ( C A D R
0004440 L L ) ) ( S E T Q R E S T -
0004460 A R G ( C A D R L L ) ) (
0004500 E R R O R \r " N o n - s y m b
0004520 o l & r e s t a r g i n
0004540 d e f i n i t i o n o f ~ S
0004560 . " N A M E ) ) ( C L : I F
0004600 ( N U L L ( C D D R L L )
0004620 ) ( R E T U R N N I L ) (
0004640 E R R O R \r " I l l e g a l
0004660 s t u f f a f t e r & r e s
0004700 t a r g i n D e f i n e -
0004720 M o d i f y - M a c r o . " ) )
0004740 ) ( ( F M E M B A R G ( Q
0004760 U O T E ( & K E Y & A L L O
0005000 W - O T H E R - K E Y S \r & A
0005020 U X ) ) ) ( E R R O R " ~ S
0005040 n o t a l l o w e d i n
0005060 D e f i n e - M o d i f y - M a
0005100 c r o l a m b d a l i s t .
0005120 " A R G ) ) ( ( S Y M B O L
0005140 P A R G ) ( C L : P U S H
0005160 A R G \r O T H E R - A R G S )
0005200 ) ( ( A N D ( C O N S P A
0005220 R G ) ( S Y M B O L P ( C A
0005240 R A R G ) ) ) ( C L : P U S
0005260 H ( C A R A R G ) O T H E
0005300 R - A R G S ) ) ( T ( E R R
0005320 O R \r " I l l e g a l s t u
0005340 f f i n l a m b d a l i s
0005360 t o f D e f i n e - M o d i
0005400 f y - M a c r o . " ) ) ) ) (
0005420 S E T Q O T H E R - A R G S
0005440 ( R E V E R S E O T H E R - A
0005460 R G S ) ) ( \r B Q U O T E (
0005500 D E F M A C R O ( \ , N A M
0005520 E ) ( % % R E F E R E N C E
0005540 ( \ , @ L A M B D A - L I S T
0005560 ) ) ( \ , D O C - S T R I N
0005600 G ) ( M U L T I P L E - V A L
0005620 U E - B I N D ( \r D U M M I E
0005640 S V A L S N E W V A L S E
0005660 T T E R G E T T E R ) ( G E
0005700 T - S E T F - M E T H O D % %
0005720 R E F E R E N C E ) ( C L : D
0005740 O ( ( D D U M M I E S ( C
0005760 D R D ) ) ( V V A L S (
0006000 \r C D R V ) ) ( L E T - L I
0006020 S T N I L ( C O N S ( L I
0006040 S T ( C A R D ) ( C A R
0006060 V ) ) L E T - L I S T ) ) )
0006100 ( ( N U L L D ) ( C L : P U
0006120 S H ( L I S T ( C A R N E
0006140 W V A L ) ( \r \ , ( C L : I
0006160 F R E S T - A R G ( B Q U O
0006200 T E ( L I S T * ( Q U O T E
0006220 ( \ , F U N C T I O N ) )
0006240 G E T T E R ( \ , @ O T H E
0006260 R - A R G S ) ( \ , R E S T
0006300 - A R G ) ) ) ( \r B Q U O T E
0006320 ( L I S T ( Q U O T E ( \
0006340 , F U N C T I O N ) ) G E T
0006360 T E R ( \ , @ O T H E R - A
0006400 R G S ) ) ) ) ) ) L E T - L I
0006420 S T ) ( B Q U O T E ( L E T
0006440 * ( \ , ( N R E V E R S E
0006460 \r L E T - L I S T ) ) ( \ ,
0006500 S E T T E R ) ) ) ) ) ) ) ) ) )
0006520 \r ( D E F M A C R O I N C F
0006540 ( % % R E F E R E N C E & O P
0006560 T I O N A L ( D E L T A 1 )
0006600 ) \r " T h e f i r s t a r
0006620 g u m e n t i s s o m e l
0006640 o c a t i o n h o l d i n g
0006660 a n u m b e r . T h i s
0006700 n u m b e r i s \r i n c r
0006720 e m e n t e d b y t h e s
0006740 e c o n d a r g u m e n t ,
0006760 D E L T A , w h i c h d e f
0007000 a u l t s t o 1 . " ( \ I
0007020 N C F . E X P A N D % % R E F
0007040 E R E N C E D E L T A ) ) \r (
0007060 P U T P R O P S C A R S E T
0007100 F - I N V E R S E R P L A C A
0007120 ) \r ( P U T P R O P S C D R
0007140 S E T F - I N V E R S E R P L
0007160 A C D ) \r ( P U T P R O P S A
0007200 R G S E T F N S E T A R G )
0007220 \r ( P U T P R O P S C M L S E
0007240 T F C O P Y R I G H T ( " X
0007260 e r o x C o r p o r a t i o n
0007300 " 1 9 8 5 ) ) \r N I L \r
0007315