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