$ od -c -N 50000 [eros]<Speech>LEXICON>INIT!1
0000000 ( F I L E C R E A T E D " 1 0
0000020 - A u g - 8 4 2 2 : 4 9 : 2 2
0000040 " 006 004 { E R I S } < S P E E C
0000060 H > L E X I C O N > I N I T . ;
0000100 1 006 001 6 4 2 8 \r \r
0000120 c h a n g e s t o :
0000140 ( V A R S D E F A U L T P R I
0000160 N T I N G H O S T I N I T C O
0000200 M S ) \r \t \t ( F N S I N
0000220 I T . H A L V O R S E N ) \r \r
0000240 p r e v i o u s d a
0000260 t e : " 7 - J u n - 8 4 1
0000300 3 : 5 9 : 1 8 " { P H Y L U M
0000320 } < H A L V O R S E N > L I S P
0000340 > I N I T . ; 3 4 ) \r \r \r ( P R
0000360 E T T Y C O M P R I N T I N I
0000400 T C O M S ) \r \r ( R P A Q Q 006
0000420 002 I N I T C O M S 006 001 [ [ D E
0000440 C L A R E : F I R S T ( P
0000460 ( M O V D ? ' D E F A U L T M
0000500 A K E N E W C O M ' O L D D E
0000520 F A U L T M A K E N E W C O M ]
0000540 \r \t \t ( F N S I N I T . H A
0000560 L V O R S E N D E F A U L T M
0000600 A K E N E W C O M F I L E P
0000620 P R C L O S E L F G W I N D O
0000640 W S F I N D N A M E ) \r \t \t
0000660 ( G L O B A L V A R S L F G L
0000700 O G O W L F G W I N D O W L S
0000720 T ) \r \t \t ( V A R S B A C K
0000740 G R O U N D D E F A U L T P R
0000760 I N T I N G H O S T D I R E C
0001000 T O R I E S T E D I T . A B B
0001020 R E V S ) \r \t \t ( P ( I N I
0001040 T . H A L V O R S E N ) ) \r \t \t
0001060 ( D E C L A R E : D O N T E
0001100 V A L @ L O A D D O E V A L @
0001120 C O M P I L E D O N T C O P Y
0001140 C O M P I L E R V A R S \r \t \t
0001160 \t ( A D D V A R S ( N L
0001200 A M A P P R F I L E ) \r \t \t
0001220 \t \t ( N L A M L ) \r \t \t
0001240 \t \t ( L A M A ] ) \r ( D
0001260 E C L A R E : F I R S T \r (
0001300 M O V D ? ' D E F A U L T M A
0001320 K E N E W C O M ' O L D D E F
0001340 A U L T M A K E N E W C O M ) \r
0001360 ) \r ( D E F I N E Q \r \r ( 006 004 I
0001400 N I T . H A L V O R S E N 006 001 \r
0001420 [ L A M B D A N I L
0001440
*
0001500 006 003 (
0001520 * p k h : " 1 0 - A u g - 8
0001540 4 2 2 : 2 6 " ) 006 001 \r
0001560 ( P R O G N ( C N D I R ( Q
0001600 U O T E { P H Y L U M } < H A
0001620 L V O R S E N > L I S P ) ) \r \t
0001640 ( S H A P E W T ( C R
0001660 E A T E R E G I O N 7 4 9 6
0001700 5 3 4 2 9 5 ) ) \r \t (
0001720 S E T Q L A F I T E F L U S H
0001740 M A I L F L G T ) \r \t (
0001760 S E T Q L A F I T E D E F A U
0002000 L T H O S T & D I R ( Q U O T
0002020 E { P H Y L U M } < H A L V O
0002040 R S E N > M A I L > ) ) \r \t
0002060 ( S E T Q L A F I T E S T A
0002100 T U S W I N D O W P O S I T I O
0002120 N ( 006 002 c r e a t e 006 001 P O
0002140 S I T I O N \r \t \t \t \t \t \t
0002160 X C O O R D _ 5 7 7 \r \t \t
0002200 \t \t \t \t Y C O O R D _
0002220 7 4 5 ) ) \r \t ( S E T Q
0002240 L A F I T E B R O W S E R R E
0002260 G I O N \r \t ( 006 002 c r
0002300 e a t e 006 001 R E G I O N \r \t \t
0002320 L E F T _ 2 5 \r \t
0002340 \t B O T T O M _ 2
0002360 0 \r \t \t W I D T H _
0002400 5 3 3 \r \t \t H E I G
0002420 H T _ 1 0 3 ) ) \r \t (
0002440 S E T Q L A F I T E D I S P L
0002460 A Y R E G I O N \r \t (
0002500 006 002 c r e a t e 006 001 R E G I O
0002520 N \r \t \t L E F T _
0002540 4 7 7 \r \t \t B O T T O
0002560 M _ 1 5 \r \t \t W I
0002600 D T H _ 5 3 8 \r \t \t
0002620 H E I G H T _ 3 1 6 ) ) \r
0002640 \t ( S E T Q L A F I T E
0002660 E D I T O R R E G I O N \r \t
0002700 ( 006 002 c r e a t e 006 001 R
0002720 E G I O N \r \t \t L E F
0002740 T _ 4 7 7 \r \t \t B
0002760 O T T O M _ 3 6 2 \r \t \t
0003000 W I D T H _ 5 3 3 \r \t
0003020 \t H E I G H T _ 2
0003040 3 8 ) ) \r \t ( S E T Q Q
0003060 L A F I T E D I S P L A Y A F T
0003100 E R D E L E T E F L G N I L )
0003120 \r \t ( S H A P E W P R O
0003140 M P T W I N D O W \r \t \t (
0003160 006 002 c r e a t e 006 001 R E G I O
0003200 N \r \t \t \t L E F T _ 1
0003220 3 9 \r \t \t \t B O T T O M
0003240 _ 7 1 0 \r \t \t \t W I D T
0003260 H _ 3 9 4 \r \t \t \t H E
0003300 I G H T _ 9 3 ) ) \r \t
0003320 ( C O N D \r \t ( ( W I
0003340 N D O W P L O G O W ) \r \t
0003360 ( C L O S E W L O G
0003400 O W ) ) ) \r \t ( L O A D ?
0003420 ( Q U O T E { E R I S } < L
0003440 I S P U S E R S > C R O C K . D
0003460 C O M ) \r \t \t ( Q U O T E
0003500 S Y S L O A D ) ) \r \t ( S
0003520 E L E C T Q ( M A C H I N E T
0003540 Y P E ) \r \t \t ( D L I O
0003560 N ( V O L U M E D I S P L A Y
0003600 ( Q U O T E O F F ) ) ) \r \t
0003620 \t T ) \r \t [ C O N
0003640 D \r \t ( ( N O T C R
0003660 O C K W I N D O W ) \r \t
0003700 ( C R O C K ( C R E A T
0003720 E R E G I O N 8 5 0 6 4 5
0003740 1 7 3 1 5 4 ] \r \t ( S E
0003760 T Q L A F I T E F L U S H M A
0004000 I L F L G T ) \r \t ( R P
0004020 A Q Q D W I M W A I T 3 0 )
0004040 \r \t ( L O A D ? ( Q U O
0004060 T E B R O W S E R . D C O M )
0004100 \r \t \t ( Q U O T E S Y S L
0004120 O A D ) ) \r \t ( L O A D ?
0004140 ( Q U O T E S I N G L E F I
0004160 L E I N D E X . D C O M ) \r \t \t
0004200 ( Q U O T E S Y S L O A D
0004220 ) ) \r \t ( L O A D ( Q U
0004240 O T E D A T A B A S E F N S .
0004260 D C O M ) \r \t \t ( Q U O T E
0004300 S Y S L O A D ) ) \r \t ( L
0004320 O A D ( Q U O T E { P H Y L
0004340 U M } < H A L V O R S E N > L I
0004360 S P > L I S P U T I L . D C O M
0004400 ) ) \r \t ( R P A Q Q R A
0004420 I S E T ) \r \t ( R P A Q
0004440 Q P F D E F A U L T T ) \r \t
0004460 ( R P A Q Q C H A N G E
0004500 S A R R A Y N I L ) \r \t
0004520 ( R P A Q Q P R O M P T # F L
0004540 G T ) \r \t ( R P A Q Q
0004560 C L I S P I F Y E N G L S H F L
0004600 G N I L ) \r \t ( R P A Q
0004620 Q C U T E F L G N I L ) \r \t
0004640 ( R P A Q Q E D I T C H
0004660 A R A C T E R S ( J ( H G
0004700 ) \r \t \t \t \t Z Y N
0004720 ( O N I L ) ) ) \r \t ( R
0004740 P A Q Q * * C O M M E N T * *
0004760 F L G " ( * - - ) "
0005000 ) \r \t ( R P A Q Q E D I
0005020 T U N S A V E B L O C K F L G
0005040 N I L ) \r \t ( R P A Q Q
0005060 N O R M A L C O M M E N T S F L
0005100 G T ) \r \t ( R P A Q Q
0005120 D E F A U L T R E N A M E M E T
0005140 H O D M A S T E R S C O P E )
0005160 \r \t ( R P A Q Q L I N E
0005200 S P E R P A G E 6 9 ) \r \t
0005220 ( R P A Q Q P U P T R A C E
0005240 F L G N I L ) \r \t [ A D
0005260 D T O V A R E D I T M A C R O
0005300 S \r \t \t ( S H O W D
0005320 N I L U P \r \t \t \t ( O
0005340 R R ( ( E ( R E S E T F O R
0005360 M ( O U T P U T T ) \r \t \t \t
0005400 \t \t \t ( P R O G N ( P R I N T
0005420 D E F \r \t \t \t \t \t \t \t ( O R
0005440 [ E D I T G E T D ( # # 1 )
0005460 \r \t \t \t \t \t \t \t \t
0005500 ( A N D ( C D R L ) \r \t \t \t
0005520 \t \t \t \t \t \t ( E D I T L
0005540 0 L ' ( ! 0 ] \r \t \t \t \t \t
0005560 \t \t ( E R R O R ! ) )
0005600 \r \t \t \t \t \t \t \t N I L T ) \r
0005620 \t \t \t \t \t \t ( T E
0005640 R P R I ) ) ) \r \t \t \t \t
0005660 T ) ) \r \t \t \t \t ( ( E ' S
0005700 H O W D ? ] \r \t ( A D D T
0005720 O V A R E D I T C O M S A S
0005740 H O W D ) \r \t ( A D D T O
0005760 V A R I N I T I A L S L S T
0006000 ( H A L V O R S E N . P A P e
0006020 r - K r i s t i a n p k h : )
0006040 \r \t \t ( H A L V O R S
0006060 E N P e r - K r i s t i a n
0006100 p k h : ) ) \r \t ( R P A Q
0006120 Q L O G I N H O S T / D I R
0006140 { P H Y L U M } < H A L V O R S
0006160 E N > L I S P > ) \r \t ( M
0006200 O V D ? ( Q U O T E E D I T
0006220 F ) \r \t \t ( Q U O T E E F
0006240 ) )
0006260
0006300 006 003 ( * L o a d H I S T
0006320 M E N U i f n o t a l r e
0006340 a d y l o a d e d ) 006 001 \r \t
0006360 ( T T Y I N M E T A T ) \r
0006400 \t ( M O V D ? ( Q U O T
0006420 E E D I T V ) \r \t \t ( Q U
0006440 O T E E V ) ) \r \t ( M O
0006460 V D ? ( Q U O T E E D I T P
0006500 ) \r \t \t ( Q U O T E E P )
0006520 ) \r \t ( M O V D ? ( Q U
0006540 O T E E D I T R E C ) \r \t \t
0006560 ( Q U O T E E R ) ) \r \t
0006600 ( 006 002 f o r 006 001 X 006 002 i n
0006620 006 001 ( Q U O T E ( A N D 006
0006640 002 O R 006 001 ) ) 006 002 d o 006 001 (
0006660 R E M P R O P X ( Q U O T E
0006700 C L I S P I N F I X ) ) ) \r \t
0006720 ( R E C L A I M M I N 1
0006740 0 0 0 0 ) \r \t ( R E M P R
0006760 O P ( Q U O T E - ) \r \t \t
0007000 ( Q U O T E L I S P F N
0007020 ) ) \r \t ( S E T Q C L I
0007040 S P F L G T ) \r \t ( S E
0007060 T Q C L R E M P A R S F L G
0007100 N I L ) \r \t ( S E T Q C
0007120 L I S P I F Y P A C K F L G N
0007140 I L ) \r \t ( S E T Q C L
0007160 I S P I F Y E N G L S H F L G
0007200 N I L ) \r \t ( S E T Q C
0007220 L I S P I F Y P R E T T Y F L G
0007240 N I L ) \r \t ( S E T Q
0007260 C L I S P I F T R A N F L G N
0007300 I L )
0007320 006 003 ( *
0007340 C o m p i l a t i o n * ) 006
0007360 001 \r \t ( S E T Q C L E A
0007400 N U P O P T I O N S ( Q U O T
0007420 E ( R C S T ] ) \r \r ( 006 004 D
0007440 E F A U L T M A K E N E W C O M
0007460 006 001 \r [ L A M B D A ( N A
0007500 M E T Y P E L I S T N A M E
0007520 F I L E )
0007540
0007560 006 003 ( * r m k : " 2 5 - J U
0007600 L - 7 9 1 2 : 1 6 " ) 006 001 \r
0007620 ( O L D D E F A U L T M A
0007640 K E N E W C O M N A M E T Y
0007660 P E L I S T N A M E N I L ]
0007700 ) \r \r ( 006 004 F I L E 006 001 \r [
0007720 N L A M B D A A R G S
0007740
*
0010000 006 003 ( * r
0010020 m k : " 2 5 - J U L - 7 9 2
0010040 3 : 3 1 " ) 006 001 \r [ C O
0010060 N D \r ( ( C D R A
0010100 R G S ) \r \t ( / S E T A T O M V
0010120 A L ( F I L E C O M S ( C A
0010140 R A R G S ) ) \r \t \t
0010160 ( C O N D \r \t \t (
0010200 ( A N D ( L I T A T O M ( C
0010220 A D R A R G S ) ) \r \t \t \t
0010240 ( N U L L ( C D D R A
0010260 R G S ) ) ) \r \t \t \t ( G E T A
0010300 T O M V A L ( C A D R A R G
0010320 S ) ) ) \r \t \t ( T
0010340 ( C D R A R G S ] \r
0010360 ( R E S E T F O R M ( R A D I
0010400 X 1 0 ) \r \t ( M
0010420 A K E F I L E ( C A R A R G
0010440 S ] ) \r \r ( 006 004 P P R 006 001 \r
0010460 [ N L A M B D A X
0010500
*
0010540 006 003 ( *
0010560 r m k : " 2 5 - J U L - 7 9
0010600 2 3 : 3 7 " ) 006 001 \r ( R
0010620 E S E T F O R M ( O U T P U T
0010640 T ) \r \t ( 006 002 f
0010660 o r 006 001 R 006 002 i n 006 001 ( O
0010700 R ( L I S T P X ) \r \t \t \t
0010720 ( L I S T X ) ) \r \t \t
0010740 006 002 d o 006 001 [ P R I N T D
0010760 E F ( O R ( A P P E N D (
0011000 R E C L O O K R ) \r \t \t \t \t \t
0011020 ( F I E L D L O O K R )
0011040 ) \r \t \t \t \t ( C O N S R
0011060 ( Q U O T E ( n o t f o u
0011100 n d ] \r \t \t ( T E R P
0011120 R I T ] ) \r \r ( 006 004 C L O S E
0011140 L F G W I N D O W S 006 001 \r [
0011160 L A M B D A N I L
0011200
*
0011240 006 003 ( * p
0011260 k h : " 2 1 - N O V - 8 3 1
0011300 5 : 5 0 " ) 006 001 \r ( P R
0011320 O G ( T E M P ) \r
0011340 [ 006 002 f o r 006 001 X 006
0011360 002 i n 006 001 L F G W I N D O W L
0011400 S T 006 002 d o 006 001 ( C O N D \r
0011420 \t \t \t \t ( [ S E T Q
0011440 T E M P ( W I N D O W P (
0011460 E V A L ( C A R X ] \r \t \t \t
0011500 \t \t ( C O N D \r \t \t \t \t \t (
0011520 ( W I N D O W P ( W I N D O W
0011540 P R O P T E M P ( Q U O T E
0011560 D E B U G P A N E L ) ) ) \r \t
0011600 \t \t \t \t ( C L O S E W
0011620 ( W I N D O W P R O P T E M P
0011640 ( Q U O T E D E B U G P A N
0011660 E L ) ) ) \r \t \t \t \t \t (
0011700 C L O S E W T E M P ) ) \r \t \t
0011720 \t \t \t ( ( W I N D O W P (
0011740 W I N D O W P R O P T E M P
0011760 ( Q U O T E E D I T C A T M E
0012000 N U ) ) ) \r \t \t \t \t \t (
0012020 C L O S E W ( W I N D O W P R
0012040 O P T E M P ( Q U O T E E
0012060 D I T C A T M E N U ) ) ) \r \t \t
0012100 \t \t \t ( C L O S E W T
0012120 E M P ) ) \r \t \t \t \t \t ( T
0012140 ( C L O S E W T E M P ] \r
0012160 ( C O N D \r \t
0012200 ( ( W I N D O W P L F G
0012220 L O G O W ) \r \t ( C
0012240 L O S E W L F G L O G O W ) )
0012260 ) \r ( S H A
0012300 P E W T ( C R E A T E R E G
0012320 I O N 5 3 7 0 5 3 0 3 6
0012340 9 ] ) \r \r ( 006 004 F I N D N A M E
0012360 006 001 \r [ L A M B D A ( P A
0012400 T F I L E L S T )
0012420
*
0012460 006 003 ( * e d i t e d : " 2 0
0012500 - J a n - 8 4 1 8 : 4 5 " ) 006
0012520 001 \r ( P R O G [ ( F N
0012540 L S T ( 006 002 f o r 006 001 F I L
0012560 E 006 002 i n 006 001 F I L E L S T
0012600 006 002 j o i n 006 001 ( F I L E C
0012620 O M S L S T F I L E ] \r
0012640 ( R E T U R N (
0012660 006 002 f o r 006 001 F N 006 002 i n 006
0012700 001 F N L S T 006 002 w h e n 006 001
0012720 ( S T R P O S P A T F N )
0012740 006 002 c o l l e c t 006 001 F N
0012760 006 002 f i n a l l y 006 001 ( R E T
0013000 U R N $ $ V A L ] ) \r ) \r ( D
0013020 E C L A R E : D O E V A L @ C
0013040 O M P I L E D O N T C O P Y \r
0013060 \r ( A D D T O V A R G L O B A
0013100 L V A R S L F G L O G O W L
0013120 F G W I N D O W L S T ) \r ) \r \r
0013140 ( R P A Q Q 006 002 B A C K G R O
0013160 U N D 006 001 5 2 2 7 5 ) \r \r ( R
0013200 P A Q Q 006 002 D E F A U L T P R
0013220 I N T I N G H O S T 006 001 ( Q U
0013240 A K E ) ) \r \r ( R P A Q Q 006 002
0013260 D I R E C T O R I E S 006 001 ( {
0013300 D S K } { D S K } < S P E E C
0013320 H > { S Y S T E M } { S Y S
0013340 T E M } < S P E E C H > { P H
0013360 Y L U M } < S P E E C H > \r \t
0013400 \t \t { P H Y L U M } < H A L
0013420 V O R S E N > S P E E C H > {
0013440 P H Y L U M } < H A L V O R S E
0013460 N > L I S P { E R I S } < L I
0013500 S P C O R E > L I B R A R Y >
0013520 \r \t \t \t { E R I S } < L I S
0013540 P U S E R S > { E R I S } < L
0013560 I S P > L I B R A R Y ) ) \r \r (
0013600 R P A Q Q 006 002 T E D I T . A B
0013620 B R E V S 006 001 ( ( " 0 " .
0013640 " 312 " ) \r \t \t ( " O
0013660 " . " 351 " ) \r \t \t
0013700 ( " o " . " 371 " ) \r \t \t
0013720 ( " E " . " 341 " )
0013740 \r \t \t ( " e " .
0013760 " 361 " ) \r \t \t ( " b
0014000 " . " 267 " ) \r \t \t
0014020 ( " n " . " 233 " ) \r \t \t
0014040 ( " m " . " 234 " )
0014060 \r \t \t ( " % " " .
0014100 " ` ` " ) ) ) \r ( I N I T . H
0014120 A L V O R S E N ) \r ( D E C L A
0014140 R E : D O N T E V A L @ L O A
0014160 D D O E V A L @ C O M P I L E
0014200 D O N T C O P Y C O M P I L
0014220 E R V A R S \r \r ( A D D T O V
0014240 A R 006 002 N L A M A 006 001 P P R
0014260 F I L E ) \r \r ( A D D T O V A
0014300 R 006 002 N L A M L 006 001 ) \r \r (
0014320 A D D T O V A R 006 002 L A M A 006
0014340 001 ) \r ) \r ( P U T P R O P S
0014360 I N I T C O P Y R I G H T (
0014400 N O N E ) ) \r ( D E C L A R E :
0014420 D O N T C O P Y \r ( F I L
0014440 E M A P ( N I L ( 7 5 4 5
0014460 6 4 5 ( I N I T . H A L V O R
0014500 S E N 7 6 4 . 3 8 6 6 )
0014520 ( D E F A U L T M A K E N E W C
0014540 O M 3 8 6 8 . 4 0 3 3 )
0014560 ( F I L E 4 0 3 5 . 4 3 8
0014600 7 ) \r ( P P R 4 3 8 9 .
0014620 4 6 9 4 ) ( C L O S E L F G W
0014640 I N D O W S 4 6 9 6 . 5 3
0014660 4 7 ) ( F I N D N A M E 5 3
0014700 4 9 . 5 6 4 3 ) ) ) ) ) \r S
0014720 T O P \r
0014724