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