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