$ od -c -N 50000 [eris]<Lisp>KOTO>LISPUSERS>RPC-EXAMPLE.DCOM!1
0000000 ( F I L E C R E A T E D " 3 0
0000020 - D e c - 8 5 1 5 : 0 1 : 4 3
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 > R P C - E X A M
0000120 P L E . ; 3 ) \r " 1 2 - N o v
0000140 - 8 5 1 4 : 5 9 : 2 3 " r e
0000160 c o m p i l e d e x p r s :
0000200 A r g T e s t B i n " I N T
0000220 E R L I S P - D 2 2 - N o v -
0000240 8 5 . . . " d a t e d \r "
0000260 2 2 - N o v - 8 5 1 1 : 3 2 :
0000300 5 8 " ) \r ( F I L E C R E A T E
0000320 D " 3 0 - D e c - 8 5 1 5 :
0000340 0 1 : 3 3 " { E R I S } < L I
0000360 S P U S E R S > K O T O > R P C
0000400 - E X A M P L E . ; 3 7 1 3 9
0000420 c h a n g e s t o : ( F N
0000440 S A r g T e s t B ) \r p r e
0000460 v i o u s d a t e : " 6 -
0000500 D e c - 8 5 1 6 : 2 3 : 3 5 "
0000520 { E R I S } < L I S P U S E R
0000540 S > K O T O > R P C - E X A M P
0000560 L E . ; 2 ) \r A r g T e s t A
0000600 D 1 \r ( I 5 f I 4 e
0000620 I 3 d I 2 c I 1
0000640 b I 0 a ) \0 6 \0 \0 \0 006 @
0000660 k 324 A \t \0 \0 E \t \0 \0 g \0 \0 360 262 027
0000700 E n 002 Y \n \0 \0 277 E \t \0 \0 g \0 \0 360
0000720 223 B h 360 200 B C D h 032 032 032 032 032 E \t
0000740 \0 \0 277 020 \0 ( 6 2 Q C L O S E F
0000760 3 4 Q R E A D C 2 7 Q S
0001000 E T F I L E P T R 1 2 Q R E
0001020 A D C 6 M I N U S ) \r ( 3 7
0001040 Q b 1 5 Q a ) \r ( ) \r A r
0001060 g T e s t B D 1 \r ( I 5 f
0001100 I 4 e I 3 d I 2
0001120 c I 1 b I 0 a )
0001140 \0 @ 003 \0 \0 006 021 0 002 D \t \0 \0 271 A k
0001160 324 272 C \t \0 \0 g \0 \0 360 262 027 C n 002 Y
0001200 \n \0 \0 277 C \t \0 \0 g \0 \0 360 223 E h 360
0001220 200 E 270 @ J B I H h 032 032 032 032 032 022 C
0001240 \t \0 \0 277 020 \0 ( 7 4 Q C L O S E
0001260 F 4 1 Q R E A D C 3 4 Q
0001300 S E T F I L E P T R 1 7 Q R
0001320 E A D C 6 M I N U S ) \r ( 4
0001340 4 Q b 2 2 Q a ) \r ( ) \r C
0001360 o m p l e x D 1 \r ( P 1 1 Q
0001400 i P 7 s s P 2 c c
0001420 P 1 c b P 0 c a I
0001440 1 5 Q l 2 I 1 4 Q l 1
0001460 I 1 3 Q r 1 0 I 1 2 Q
0001500 r 9 I 1 1 Q r 8 I 1
0001520 0 Q r 7 I 7 r 6 I 6
0001540 r 5 b I 5 r 5 a I 4
0001560 r 5 I 3 r 4 I 2 r
0001600 3 I 1 r 2 I 0 r 1 )
0001620 001 264 \n \0 \0 016 021 0 002 @ 262 F B o \0
0001640 \0 \0 364 262 > C 001 262 : C 002 001 o \0 \0 \0
0001660 364 262 0 E o \0 \0 \0 364 262 ( F 263 % G 016
0001700 o \0 \0 \0 364 262 034 G 020 o \0 \0 \0 \n \0 \0
0001720 237 G 022 o \0 \0 \0 364 227 G 024 o \0 \0 \0 364
0001740 246 o \0 \0 \0 261 \0 346 G 030 \t \0 \0 l \b 360
0001760 246 o \0 \0 \0 261 \0 326 G 030 l 004 k 021 023 006
0002000 K 003 265 003 207 001 276 M d L 363 233 277 i 022 263
0002020 030 o \0 \0 \0 261 \0 266 N 360 242 h 260 362 M k
0002040 324 275 K 002 [ 260 334 G 030 002 002 002 002 m 377 021
0002060 022 005 K 003 265 \r i 022 263 035 o \0 \0 \0 261 \0
0002100 215 001 275 L d M 360 243 277 h 260 355 m 377 324 274
0002120 K 002 [ 260 340 G 032 \t \0 \0 l 003 360 245 o \0
0002140 \0 \0 260 i G 032 d 001 226 277 o \0 \0 \0 260 ]
0002160 002 001 \t \0 \0 l 002 360 245 o \0 \0 \0 260 N G
0002200 032 002 001 001 o \0 \0 \0 364 245 o \0 \0 \0 260 =
0002220 G 032 002 001 002 001 o \0 \0 \0 364 245 o \0 \0 \0
0002240 260 + G 032 002 002 001 \t \0 \0 k 360 245 o \0 \0
0002260 \0 260 032 G 032 002 002 001 001 o \0 \0 \0 364 244 o
0002300 \0 \0 \0 206 i Z 270 o \0 \0 \0 271 G 026 o \0
0002320 \0 \0 364 244 o \0 \0 \0 271 A 262 030 C 002 002 001
0002340 l 360 324 D \t \0 \0 \n \0 \0 263 X o \0 \0 \0
0002360 260 Q C 002 002 001 o \0 \0 \0 \n \0 \0 262 @ D
0002400 \t \0 \0 l \f 360 262 7 o \0 \0 \0 g \0 \0 \n
0002420 \0 \0 021 001 \a l \f k 021 002 \t O 022 O 020 363
0002440 263 023 O 016 D 360 241 h 210 O 022 k 324 _
0002460 022 260 354 i 022 O 016 \t \0 \0 277 022 244 o \0 \0
0002500 \0 271 H I J h 032 032 032 020 \0 ( 6 4 2 Q
0002520 C L O S E F 5 7 2 Q O P E
0002540 N S T R I N G S T R E A M 5 5
0002560 3 Q G E T E O F P T R 5 4 5
0002600 Q E Q P 5 2 2 Q E Q P 5
0002620 1 7 Q G E T E O F P T R 4 2
0002640 2 Q L E N G T H 3 3 5 Q L
0002660 E N G T H 3 0 2 Q L E N G T
0002700 H 1 2 5 Q L E N G T H 7 0
0002720 Q S T R E Q U A L ) \r ( 5 6 7
0002740 Q I N P U T ) \r ( 6 5 1 Q
0002760 " F a i l u r e 1 3 " 5 6 4
0003000 Q " f i r s t s t r i n g "
0003020 5 4 2 Q 3 6 1 1 0 0 Q 5 3
0003040 0 Q " F a i l u r e 1 2 "
0003060 5 0 0 Q " F a i l u r e 1 a
0003100 " 4 7 2 Q ( T " s 6 " 2
0003120 ( N I L " s 4 " ) ( T "
0003140 s 5 " ) ) 4 6 3 Q " S u c c
0003160 e s s " 4 5 3 Q " F a i l u
0003200 r e 9 " 4 4 5 Q ( T T
0003220 h e n e r y " s 3 " a 3 )
0003240 4 3 1 Q " F a i l u r e 1 0
0003260 " 4 1 0 Q " F a i l u r e
0003300 7 " 4 0 2 Q ( N I L T t
0003320 w a " s 2 " a 2 ) 3 6 6 Q
0003340 " F a i l u r e 6 " 3 6 0
0003360 Q ( T N I L y e n " s 1
0003400 " a 1 ) 3 4 5 Q " F a i l
0003420 u r e 8 " 3 2 6 Q " F a i
0003440 l u r e 5 " 3 1 2 Q " F a
0003460 i l u r e 1 1 " 2 4 6 Q "
0003500 F a i l u r e 3 " 1 7 5 Q
0003520 " f a i l u r e 2 " 1 3 5 Q
0003540 " f a i l u r e 4 " 1 1 5
0003560 Q " F a i l u r e 1 " 1 0
0003600 7 Q ( T N I L ( T N I L
0003620 y e n " f o u r t h s t r
0003640 i n g " n o t h e r ) f o o
0003660 ) 7 7 Q ( T N I L f l a
0003700 t " t h i r d s t r i n g "
0003720 a t o m ) 6 5 Q " s e c o
0003740 n d s t r i n g " 5 4 Q (
0003760 T p e n e r y ) 4 0 Q ( T
0004000 t w a ) 3 0 Q ( N I L h
0004020 e n e r y ) 1 2 Q ( T p e
0004040 n e r y ) ) \r S i m p l e D 1
0004060 \r ( I 1 s e c o n d I 0
0004100 f i r s t ) \0 . \0 \0 \0 002 j @
0004120 363 231 g \0 \0 g \0 \0 \n \0 \0 277 A \t \0 \0
0004140 @ l 002 326 331 j 360 231 g \0 \0 g \0 \0 \n \0
0004160 \0 277 A \t \0 \0 @ 331 j 360 020 \0 ( 4 7 Q
0004200 N C H A R S 4 2 Q S i g n
0004220 a l 2 1 Q N C H A R S 1 4
0004240 Q S i g n a l ) \r ( 3 7 Q b
0004260 a d S t r i n g 3 4 Q S i m
0004300 p l e F a i l e d 1 1 Q b a
0004320 d N u m 6 S i m p l e F a i
0004340 l e d ) \r ( ) \r ( P R E T T Y C
0004360 O M P R I N T R P C - E X A M
0004400 P L E C O M S ) \r ( R P A Q Q
0004420 R P C - E X A M P L E C O M S
0004440 ( ( V A R S S i m p l e S i g
0004460 n a l s S i m p l e S p e c
0004500 S i m p l e T y p e s S i m p
0004520 l e K e y ) ( F N S A r g T
0004540 e s t A A r g T e s t B \r C
0004560 o m p l e x S i m p l e ) (
0004600 R E C O R D S A r g T e s t A
0004620 R e s u l t C o m p l e x R e
0004640 s u l t A r g T e s t B R e s
0004660 u l t F a k e R e s u l t N
0004700 o o n e A r g s R e c 1 R e
0004720 c 2 \r R e c 3 R e c 4 R e
0004740 c 6 R e c 5 ) ) ) \r ( R P A Q
0004760 Q S i m p l e S i g n a l s
0005000 ( ( S i m p l e F a i l e d (
0005020 A R G S ( E n u m e r a t i o
0005040 n b a d N u m b a d S t r i
0005060 n g ) ) ) ( N o o n e F a i l
0005100 e d ( A R G S \r N o o n e A
0005120 r g s ) ( R E T U R N S B O
0005140 O L E A N ) ) ( F a k e ( R
0005160 E T U R N S F a k e R e s u l
0005200 t ) ) ) ) \r ( R P A Q Q S i m
0005220 p l e S p e c ( ( S i m p l e
0005240 ( f i r s t F I X P ) ( s
0005260 e c o n d S T R I N G ) ( R
0005300 E T U R N S B O O L E A N ) )
0005320 ( C o m p l e x ( r 1 B O
0005340 O L E A N ) ( r 2 \r B O O L
0005360 E A N ) ( r 3 R e c 3 ) (
0005400 r 4 R e c 4 ) ( r 5 ( S T
0005420 R E A M { N O D I R C O R E }
0005440 ) ) ( r 5 a ( R E F R e c
0005460 3 ) ) ( r 5 b ( R E F R e
0005500 c 3 ) ) ( r 6 R e c 3 ) (
0005520 r 7 \r S T R I N G ) ( r 8
0005540 R e c 1 ) ( r 9 R e c 2 )
0005560 ( r 1 0 ( R E F R e c 5 ) )
0005600 ( l 1 ( L I S T S S M A L
0005620 L P ) ) ( l 2 ( L I S T M
0005640 L i s t ) ) ( R E T U R N S
0005660 \r C o m p l e x R e s u l t ) )
0005700 ( A r g T e s t A ( a S S
0005720 M A L L P ) ( b F I X P )
0005740 ( c B O O L E A N ) ( d S
0005760 T R I N G ) ( e A T O M )
0006000 ( f ( S T R E A M { D S K }
0006020 A R G F I L E \r ) ) ( R E T U
0006040 R N S A r g T e s t A R e s u
0006060 l t ) ) ( A r g T e s t B (
0006100 a S T R I N G ) ( b S S M
0006120 A L L P ) ( c A T O M ) (
0006140 d ( S T R E A M { N O D I R
0006160 C O R E } ) ) ( e \r F I X P
0006200 ) ( f B O O L E A N ) ( R
0006220 E T U R N S A r g T e s t B R
0006240 e s u l t ) ) ) ) \r ( R P A Q Q
0006260 S i m p l e T y p e s ( ( M
0006300 y E n u m ( E N U M E R A T I
0006320 O N y e n t w a h e n e r
0006340 y p e n e r y f l a t ) )
0006360 ( R e c 1 ( R E C O R D ( f
0006400 1 B O O L E A N ) ( f 2 \r
0006420 B O O L E A N ) ( f 3 M y E
0006440 n u m ) ( f 4 S T R I N G )
0006460 ( f 5 A T O M ) ) ) ( R e
0006500 c 2 ( R E C O R D ( g 1 B
0006520 O O L E A N ) ( g 2 B O O L
0006540 E A N ) ( g 3 R e c 1 ) (
0006560 g 4 \r A T O M ) ) ) ( R e c
0006600 3 ( R E C O R D ( h 1 B o
0006620 o l e a n ) ( h 2 M y E n u
0006640 m ) ) ) ( R e c 4 ( R E C O
0006660 R D ( j 1 B o o l e a n )
0006700 ( j 2 R e c 3 ) ( j 3 F I
0006720 X P ) ) ) ( \r R e c 6 ( R E
0006740 C O R D ( m 1 B O O L E A N
0006760 ) ( m 2 S T R I N G ) ) )
0007000 ( R e c 5 ( S E Q R E C O R D
0007020 ( k 1 B O O L E A N ) ( k
0007040 1 a S T R I N G ) ( s i z e
0007060 S S M A L L P ) ( k 2 \r (
0007100 S E Q U E N C E R e c 6 ) ) )
0007120 ) ( M L i s t ( L I S T R
0007140 e c 1 ) ) ( C o m p l e x R e
0007160 s u l t ( R E S U L T ( a
0007200 B O O L E A N ) ( b S T R I
0007220 N G ) ( c B O O L E A N ) )
0007240 ) ( \r A r g T e s t A R e s u
0007260 l t ( R E S U L T ( a 1 S
0007300 S M A L L P ) ( a 2 F I X P
0007320 ) ( a 3 B O O L E A N ) (
0007340 a 4 S T R I N G ) ( a 5 A
0007360 T O M ) ) ) ( A r g T e s t B
0007400 R e s u l t ( \r R E S U L T
0007420 ( b 1 S T R I N G ) ( b 2
0007440 S S M A L L P ) ( b 3 A T O
0007460 M ) ( b 4 F I X P ) ( b 5
0007500 B O O L E A N ) ) ) ( N o o
0007520 n e A r g s ( S I G A R G S
0007540 ( n 1 S T R I N G ) ( n 2 \r
0007560 S S M A L L P ) ) ) ( F a k
0007600 e R e s u l t ( R E S U L T
0007620 ( f r 1 A T O M ) ( f r 2
0007640 R e c 1 ) ) ) ) ) \r ( R P A Q Q
0007660 S i m p l e K e y " S i m p
0007700 l e ~ 3 6 1 # 0 # 1 2 4 7 1 1 3
0007720 6 1 0 5 " ) \r ( R E C O R D A
0007740 r g T e s t A R e s u l t ( a
0007760 1 a 2 a 3 a 4 a 5 ) ) \r
0010000 ( R E C O R D C o m p l e x R
0010020 e s u l t ( a b c ) ) \r (
0010040 R E C O R D A r g T e s t B R
0010060 e s u l t ( b 1 b 2 b 3
0010100 b 4 b 5 ) ) \r ( R E C O R D
0010120 F a k e R e s u l t ( f r 1
0010140 f r 2 ) ) \r ( R E C O R D N o
0010160 o n e A r g s ( n 1 n 2 ) )
0010200 \r ( R E C O R D R e c 1 ( f
0010220 1 f 2 f 3 f 4 f 5 ) ) \r
0010240 ( R E C O R D R e c 2 ( g 1
0010260 g 2 g 3 g 4 ) ) \r ( R E C
0010300 O R D R e c 3 ( h 1 h 2 )
0010320 ) \r ( R E C O R D R e c 4 (
0010340 j 1 j 2 j 3 ) ) \r ( R E C O
0010360 R D R e c 6 ( m 1 m 2 ) )
0010400 \r ( R E C O R D R e c 5 ( k
0010420 1 k 1 a s i z e . k 2 )
0010440 ) \r ( P U T P R O P S R P C -
0010460 E X A M P L E C O P Y R I G H
0010500 T ( " X e r o x C o r p o r
0010520 a t i o n " 1 9 8 5 ) ) \r N I
0010540 L \r
0010542