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