$ 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