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