$ od -c -N 50000 [eris]<LispUsers>SETF.DCOM!6 0000000 ( F I L E C R E A T E D " 1 4 0000020 - A u g - 8 4 2 1 : 1 8 : 0 0 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 > S E T F . ; 6 ) " 7 - 0000120 A u g - 8 4 1 4 : 5 3 : 5 2 " 0000140 \r t c o m p l % ' d i n " 0000160 I N T E R L I S P - D 7 - A 0000200 u g - 8 4 . . . " d a t e d 0000220 " 7 - A u g - 8 4 1 5 : 5 0000240 7 : 1 8 " ) \r ( F I L E C R E A 0000260 T E D " 1 3 - A u g - 8 4 2 0000300 2 : 4 4 : 5 7 " { E R I S } < 0000320 L I S P U S E R S > S E T F . ; 0000340 6 9 4 8 3 c h a n g e s t 0000360 o : ( F N S S E T F . C L I 0000400 S P 1 S E T F . T R A N \r ) 0000420 p r e v i o u s d a t e : " 0000440 8 - J u l - 8 4 1 2 : 2 9 : 0000460 1 1 " { E R I S } < L I S P U 0000500 S E R S > S E T F . ; 5 ) \r S E 0000520 T F . D E C L A R E R E C O R D 0000540 D 1 \r ( P 5 F I E L D P 0000560 1 A N S W E R P 0 T Y 0000600 P E I 0 D E C ) \0 < 006 \0 0000620 \0 001 021 001 @ \t \0 \0 Y @ 002 001 X d g 0000640 \0 \0 021 0 004 H \t \0 \0 260 032 d 001 021 001 005 0000660 H M \n \0 \0 022 272 K 265 \a J h 032 \ 201 J 0000700 & 273 002 003 265 347 L 022 \v \0 \0 I 020 \0 ( 7 0000720 0 Q P U T P R O P 4 2 Q S 0000740 E T F . D E C L A R E R E C O R 0000760 D 1 2 6 Q R E C O R D F I E 0001000 L D N A M E S 6 S E T F . O 0001020 L D . D E C L A R E R E C O R D 0001040 ) \r ( 1 7 Q S E T F ) \r ( ) \r 0001060 S E T F . D E C L A R E R E C O 0001100 R D 1 D 1 \r ( P 1 T Y P E 0001120 & F I E L D P 0 T Y P E . 0001140 F I E L D I 1 F I E L D 0001160 I 0 T Y P E ) \0 4 002 \0 \0 002 0001200 021 001 @ o \0 \0 \0 A \v \0 \0 X @ A h 0001220 032 032 Y H g \0 \0 I \v \0 \0 H g \0 \0 g 0001240 \0 \0 H 032 \v \0 \0 H g \0 \0 g \0 \0 \v \0 0001260 \0 I 020 \0 ( 6 0 Q P U T P R O P 0001300 4 6 Q P U T P R O P 3 2 Q 0001320 P U T P R O P 1 3 Q P A C 0001340 K * ) \r ( 5 5 Q S E T F . T R 0001360 A N 5 2 Q T R A N 4 1 Q 0001400 S E T F . C L I S P 3 6 Q C 0001420 L I S P W O R D 2 6 Q T Y P 0001440 E & F I E L D ) \r ( 7 " . " 0001460 ) \r S E T F . F I X D A T U M 0001500 D 1 \r ( P 1 A N S W E R P 0001520 0 T Y P E & F I E L D I 0001540 1 D E C L S T I 0 F O R 0001560 M ) \0 + 002 \0 \0 002 021 001 @ d 003 262 0001600 037 001 g \0 \0 033 X 262 026 g \0 \0 H g \0 \0 0001620 @ 002 001 h 032 032 032 032 A \n \0 \0 020 @ A \n 0001640 \0 \0 020 \0 ( 5 0 Q S E T F . O L 0001660 D . F I X D A T U M 4 2 Q S 0001700 E T F . O L D . F I X D A T U M 0001720 ) \r ( 2 6 Q o f 2 2 Q f e 0001740 t c h 1 3 Q T Y P E & F I E 0001760 L D ) \r ( ) \r S E T F . E L T 0002000 D 1 \r ( L ( 0 S E X ) ) \0 0002020 031 \0 \0 \0 001 g \0 \0 @ 002 001 002 001 @ 002 001 0002040 002 002 001 @ 002 002 001 h 032 032 032 032 020 \0 N I 0002060 L \r ( 2 S E T A ) \r ( ) \r S E 0002100 T F . C L I S P A 0 0 0 1 D 1 0002120 \r ( N A M E E R R O R S E T 0002140 L ( 2 E R R O R S E T . W 0002160 1 E R R O R S E T . V 0 E 0002200 R R O R S E T . U ) F 0 C 0002220 L I S P C H A N G E F 1 S 0002240 E X ) \0 023 \0 002 \0 003 ` \0 \0 027 \0 \0 0002260 277 i c \0 277 Q \t \0 \0 h 032 020 \0 ( 1 6 0002300 Q S E T F . C L I S P 1 ) \r ( 0002320 5 P A T G E N S Y M V A R S 0002340 2 P A T G E N S Y M V A R S ) 0002360 \r ( ) \r S E T F . C L I S P D 0002400 1 \r ( P 2 M A C R O Y P 0002420 1 M A C R O X P 0 S E X 0002440 I 0 $ F E X P R $ F 3 0002460 R E S E T V A R S L S T F 0002500 4 R E C O R D S T A T S ) \0 0002520 Q 003 002 003 001 @ 001 @ 002 b \0 277 021 001 \0 T 0002540 \t \0 \0 g \0 \0 ` \0 \0 032 S 032 c 006 021 021 0002560 002 S Z o \0 \0 \0 g \0 \0 \n \0 \0 I 001 002 0002600 027 \0 \0 277 J d S 360 225 277 I 002 c 006 215 S 0002620 \n \0 \0 231 S k J \v \0 \0 I 002 031 277 265 005 0002640 \b \0 \0 001 020 \0 ( 1 1 5 Q E R R O 0002660 R ! 1 0 4 Q N L E F T 7 5 0002700 Q T A I L P 4 7 Q S E T F 0002720 . C L I S P A 0 0 0 1 1 5 Q 0002740 L I S P X W A T C H ) \r ( 5 5 Q 0002760 P A T G E N S Y M V A R S 4 0003000 4 Q I N T E R N A L 2 3 Q 0003020 P A T G E N S Y M V A R S 2 0 0003040 Q P A T G E N S Y M V A R S ) 0003060 \r ( 4 1 Q ( D U M M Y . F O 0003100 R . E R R O R S E T ) ) \r S E T 0003120 F . C L I S P 1 A 0 0 0 1 D 1 0003140 \r ( N A M E E R R O R S E T 0003160 L ( 2 E R R O R S E T . W 0003200 1 E R R O R S E T . V 0 E 0003220 R R O R S E T . U ) P 0 L 0003240 I S P X H I S T F 1 D E F 0003260 F 2 F A U L T F N ) \0 036 0003300 001 002 \0 003 i 027 \0 \0 027 \0 \0 277 021 020 \0 Q 0003320 d h d d R g \0 \0 \r \a \0 \0 023 h h 032 0003340 020 \0 ( 2 7 Q D W I M I F Y 0 ? 0003360 ) \r ( 2 3 Q V A R B O U N D 0003400 6 N O S P E L L F L G 3 D 0003420 W I M E S S G A G ) \r ( ) \r S E 0003440 T F . C L I S P 1 D 1 \r ( P 0003460 1 4 Q M A C R O Y P 1 3 Q 0003500 M A C R O X P 1 2 Q D E 0003520 F P 1 1 Q D E C L S T P 0003540 1 0 Q B I N D I N G S P 0003560 7 A C C E S S P 6 N E W 0003600 V A L U E P 5 D A T U M 0003620 P 4 F I E L D P 3 T Y 0003640 P E P 2 T Y P E & F I E L 0003660 D P 1 T Y P E . F I E L D 0003700 P 0 R E F I 0 S E X 0003720 F 1 5 Q R E S E T V A R S 0003740 L S T F 1 6 Q F A U L T X 0003760 ) 001 p \r 002 \0 001 021 260 \n @ d 001 g \0 0004000 \0 g \0 \0 h 032 032 \n \0 \0 221 002 001 X 001 Y 0004020 g \0 \0 033 _ 024 265 : I g \0 \0 033 Z 265 b 0004040 @ c 034 277 \b \0 \0 277 I g \0 \0 033 Z 265 R 0004060 g \0 \0 g \0 \0 g \0 \0 g \0 \0 I h 032 032 0004100 032 032 032 i \n \0 \0 277 h i \n \0 \0 277 260 312 0004120 004 l 004 360 227 @ k O 024 017 016 260 032 H 002 001 0004140 275 @ 002 002 001 ^ g \0 \0 M g \0 \0 O 024 \v 0004160 \0 \0 \v \0 \0 _ 024 277 @ O 024 \n \0 \0 @ 020 0004200 001 273 J 002 001 274 H 002 001 275 J M J g \0 \0 0004220 M h 032 032 032 \v \0 \0 _ 016 277 @ d 001 g \0 0004240 \0 g \0 \0 h 032 032 \n \0 \0 262 & 002 002 001 276 0004260 @ 002 001 002 h @ 002 001 i \f \0 \0 277 @ 002 002 0004300 h @ \v \0 \0 277 O 016 M N h 032 g \0 \0 215 0004320 002 h @ \v \0 \0 277 O 016 M h g \0 \0 \f \0 0004340 \0 _ 024 277 O 020 227 O 024 \t \0 \0 _ 024 277 g 0004360 \0 \0 ` \0 \0 032 g \0 \0 ` \0 \0 032 W 032 032 0004400 032 c 032 021 021 \f W 032 _ 030 277 o \0 \0 \0 g 0004420 \0 \0 \n \0 \0 O 026 001 002 027 \0 \0 277 O 026 002 0004440 _ 026 001 002 027 \0 \0 277 O 030 d W 032 360 227 277 0004460 O 026 002 c 032 260 024 W 032 \n \0 \0 234 W 032 k 0004500 O 030 \v \0 \0 O 026 002 031 277 243 \b \0 \0 277 023 0004520 O 024 003 252 g \0 \0 O 024 h 032 032 _ 024 277 @ 0004540 O 024 \n \0 \0 @ 020 \0 ( 5 5 4 Q C L 0004560 I S P T R A N 5 2 5 Q E R R 0004600 O R ! 5 1 4 Q N L E F T 5 0004620 0 3 Q T A I L P 4 3 4 Q S 0004640 E T F . C L I S P 1 A 0 0 0 1 0004660 3 6 3 Q \ R E C O R D B L O C 0004700 K / E M B E D P R O G 3 5 0 Q 0004720 \ R E C O R D B L O C K / M A 0004740 K E A C C E S S 3 3 5 Q \ R 0004760 E C O R D B L O C K / D W I M I 0005000 F Y R E C 3 1 4 Q \ R E C O 0005020 R D B L O C K / D W I M I F Y R 0005040 E C 3 0 3 Q \ R E C O R D B 0005060 L O C K / D W I M I F Y R E C 0005100 2 6 1 Q M E M B 2 3 7 Q \ 0005120 R E C O R D B L O C K / A C C E 0005140 S S D E F 2 0 5 Q C L I S P 0005160 T R A N 1 7 4 Q D S U B S T 0005200 1 7 1 Q S U B S T 1 2 4 Q 0005220 B R E A K 1 1 1 6 Q P R I 0005240 N T 5 6 Q S E T F . H E L P 0005260 E R 2 1 Q M E M B ) \r ( 5 3 0005300 6 Q P R O G N 4 5 6 Q N O 0005320 S P E L L F L G 4 4 3 Q D W 0005340 I M E S S G A G 4 3 1 Q I N 0005360 T E R N A L 4 0 3 Q N O S P 0005400 E L L F L G 4 0 0 Q N O S P 0005420 E L L F L G 3 7 4 Q D W I M 0005440 E S S G A G 3 7 1 Q D W I M 0005460 E S S G A G 3 4 5 Q f e t c 0005500 h 3 2 6 Q r e p l a c e 2 0005520 5 3 Q S E T F 2 5 0 Q s e 0005540 t f 2 2 7 Q o f 1 6 4 Q 0005560 D A T U M 1 6 0 Q N E W V A 0005600 L U E 1 0 3 Q f o r 1 0 0 0005620 Q p r o p e r t y 7 5 Q T 0005640 Y P E & F I E L D 7 2 Q N o 0005660 6 3 Q T Y P E & F I E L D 0005700 4 3 Q T Y P E & F I E L D 3 0005720 2 Q S E T F D E F 1 3 Q S 0005740 E T F 1 0 Q s e t f ) \r ( 0005760 4 2 6 Q ( D U M M Y . F O R . 0006000 E R R O R S E T ) ) \r S E T F . 0006020 T R A N D 1 \r ( P 1 4 Q A 0006040 N S W E R P 1 3 Q B I N D 0006060 I N G S P 1 2 Q D E C L S 0006100 T P 1 1 Q D E F P 1 0 0006120 Q A C C E S S P 7 N E W 0006140 V A L U E P 6 D A T U M 0006160 P 5 F I E L D P 4 T Y 0006200 P E P 3 T Y P E & F I E L 0006220 D P 2 T Y P E . F I E L D 0006240 P 1 R E F P 0 S E X 0006260 I 0 $ F E X P R $ F 1 0006300 5 Q F A U L T X ) \0 343 \r 001 003 0006320 001 @ 001 @ 002 b \0 277 021 001 \0 021 300 \f H d 0006340 001 g \0 \0 g \0 \0 h 032 032 \n \0 \0 221 002 001 0006360 Y 001 Z g \0 \0 033 _ 022 265 : J g \0 \0 033 0006400 [ 263 h H c 032 277 \b \0 \0 277 J g \0 \0 033 0006420 [ 263 X g \0 \0 g \0 \0 g \0 \0 g \0 \0 J 0006440 h 032 032 032 032 032 i \n \0 \0 277 h i \n \0 \0 0006460 277 260 312 004 l 004 360 227 H k O 022 017 016 260 033 0006500 I 002 001 276 H 002 002 001 _ 016 g \0 \0 N g \0 0006520 \0 O 022 \v \0 \0 \v \0 \0 _ 022 277 H O 022 001 0006540 030 277 H O 022 002 031 H 020 I 002 001 276 H 001 g 0006560 \0 \0 g \0 \0 h 032 032 \n \0 \0 262 033 H 002 002 0006600 001 _ 016 277 g \0 \0 K g \0 \0 N g \0 \0 O 0006620 016 h 032 032 032 211 g \0 \0 K g \0 \0 N h 032 0006640 032 032 032 _ 030 277 H O 030 001 030 277 H O 030 002 0006660 031 H 020 \0 ( 2 5 1 Q M E M B 2 0006700 0 7 Q D S U B S T 2 0 4 Q 0006720 S U B S T 1 3 6 Q B R E A K 0006740 1 1 3 0 Q P R I N T 7 0 Q 0006760 S E T F . H E L P E R 3 3 Q 0007000 M E M B ) \r ( 3 1 3 Q o f 0007020 3 0 7 Q f e t c h 2 7 5 Q 0007040 w i t h 2 7 1 Q o f 2 6 5 0007060 Q r e p l a c e 2 4 3 Q S 0007100 E T F 2 4 0 Q s e t f 1 7 0007120 7 Q D A T U M 1 7 3 Q N E 0007140 W V A L U E 1 1 5 Q f o r 0007160 1 1 2 Q p r o p e r t y 1 0 0007200 7 Q T Y P E & F I E L D 1 0 0007220 4 Q N o 7 5 Q T Y P E & F 0007240 I E L D 5 5 Q T Y P E & F I 0007260 E L D 4 4 Q S E T F D E F 0007300 2 5 Q S E T F 2 2 Q s e t 0007320 f ) \r ( ) \r S E T F . H E L P E 0007340 R D 1 \r ( P 4 D E C P 0007360 3 F I E L D P 2 T Y P E 0007400 P 1 T Y P E . F I E L D 0007420 P 0 P F 5 F A U L T X 0007440 ) \0 i 005 001 \0 \0 021 P 004 U 003 265 004 h 0007460 020 001 g \0 \0 360 223 U 002 001 200 U 001 Y 004 l 0007500 004 360 264 356 I g \0 \0 033 263 346 o \0 \0 \0 I 0007520 \n \0 \0 X d 264 333 d k 331 j 360 263 323 d I 0007540 \t \0 \0 331 j 360 263 311 I k H k 331 \v \0 \0 0007560 Z I H k 330 m 377 \v \0 \0 [ J \t \0 \0 \ 0007600 K L \t \0 \0 \n \0 \0 264 \a L \t \0 \0 U 020 0007620 \0 ( 1 4 5 Q E V A L 1 3 7 Q 0007640 M E M B 1 3 4 Q R E C O R 0007660 D F I E L D N A M E S 1 2 6 Q 0007700 R E C L O O K 1 2 1 Q S U 0007720 B A T O M 1 0 7 Q S U B A T 0007740 O M 7 2 Q N C H A R S 5 2 0007760 Q S T R P O S ) \r ( 3 7 Q T 0010000 Y P E & F I E L D 1 4 Q S E 0010020 T F ) \r ( 4 6 Q " . " ) \r ( 0010040 P R E T T Y C O M P R I N T S 0010060 E T F C O M S ) \r ( R P A Q Q 0010100 S E T F C O M S ( ( * S E T 0010120 F - - B y K e l l y R o 0010140 a c h * ) ( P R O P S ( s 0010160 e t f C L I S P W O R D ) ( 0010200 S E T F C L I S P W O R D ) 0010220 ( C A R S E T F D E F ) ( \r 0010240 C D R S E T F D E F ) ( E L 0010260 T S E T F D E F ) ( S E T F 0010300 . C L I S P A R G N A M E S ) 0010320 ( S E T F T R A N ) ( S E 0010340 T F . T R A N A R G N A M E S 0010360 ) ) ( F N S \r S E T F . D E 0010400 C L A R E R E C O R D S E T F 0010420 . D E C L A R E R E C O R D 1 0010440 S E T F . F I X D A T U M S E 0010460 T F . E L T S E T F . C L I S 0010500 P S E T F . C L I S P 1 S E 0010520 T F . T R A N \r S E T F . H E 0010540 L P E R ) ( P ( M O V D ? 0010560 ( Q U O T E D E C L A R E R E 0010600 C O R D ) ( Q U O T E S E T 0010620 F . O L D . D E C L A R E R E C 0010640 O R D ) ) ( M O V D ( Q U O 0010660 T E \r S E T F . D E C L A R E 0010700 R E C O R D ) ( Q U O T E D 0010720 E C L A R E R E C O R D ) ) ( 0010740 M O V D ? ( Q U O T E \ R E 0010760 C O R D B L O C K / F I X D A T 0011000 U M ) ( Q U O T E \r S E T F 0011020 . O L D . F I X D A T U M ) ) 0011040 ( M O V D ( Q U O T E S E T 0011060 F . F I X D A T U M ) ( Q U O 0011100 T E \ R E C O R D B L O C K / 0011120 F I X D A T U M ) ) ( A D D T 0011140 O V A R D W I M U S E R F O R 0011160 M S \r ( S E T F . H E L P E R 0011200 ) ) ) ( D E C L A R E : D O 0011220 N T E V A L @ L O A D D O E V 0011240 A L @ C O M P I L E D O N T C 0011260 O P Y C O M P I L E R V A R S 0011300 ( A D D V A R S ( N L A M A 0011320 \r S E T F . T R A N S E T F 0011340 . C L I S P ) ( N L A M L ) 0011360 ( L A M A ) ) ) ) ) \r ( P U T P 0011400 R O P S s e t f C L I S P W 0011420 O R D ( S E T F . C L I S P 0011440 . s e t f ) ) \r ( P U T P R O 0011460 P S S E T F C L I S P W O R 0011500 D ( S E T F . C L I S P . 0011520 S E T F ) ) \r ( P U T P R O P S 0011540 C A R S E T F D E F ( R P 0011560 L A C A D A T U M N E W V A 0011600 L U E ) ) \r ( P U T P R O P S 0011620 C D R S E T F D E F ( R P L 0011640 A C D D A T U M N E W V A L 0011660 U E ) ) \r ( P U T P R O P S E 0011700 L T S E T F D E F S E T F . 0011720 E L T ) \r ( P U T P R O P S S 0011740 E T F . C L I S P A R G N A M 0011760 E S ( S E X ) ) \r ( P U T P R 0012000 O P S S E T F T R A N S E 0012020 T F . T R A N ) \r ( P U T P R O 0012040 P S S E T F . T R A N A R G 0012060 N A M E S ( S E X ) ) \r ( M O 0012100 V D ? ( Q U O T E D E C L A 0012120 R E R E C O R D ) ( Q U O T E 0012140 S E T F . O L D . D E C L A R 0012160 E R E C O R D ) ) \r ( M O V D 0012200 ( Q U O T E S E T F . D E C L 0012220 A R E R E C O R D ) ( Q U O T 0012240 E D E C L A R E R E C O R D ) 0012260 ) \r ( M O V D ? ( Q U O T E 0012300 \ R E C O R D B L O C K / F I X 0012320 D A T U M ) ( Q U O T E S E 0012340 T F . O L D . F I X D A T U M ) 0012360 ) \r ( M O V D ( Q U O T E S 0012400 E T F . F I X D A T U M ) ( Q 0012420 U O T E \ R E C O R D B L O C 0012440 K / F I X D A T U M ) ) \r ( A D 0012460 D T O V A R D W I M U S E R F 0012500 O R M S ( S E T F . H E L P E 0012520 R ) ) \r ( P U T P R O P S S E 0012540 T F C O P Y R I G H T ( " X 0012560 e r o x C o r p o r a t i o n 0012600 " 1 9 8 4 ) ) \r N I L \r 0012615