$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>TCPHTE!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D "
0000120 8 - J a n - 8 7 1 6 : 4 3 : 2
0000140 0 " 006 004 { E R I S } < L I S P
0000160 C O R E > T C P > T C P H T E .
0000200 ; 2 006 001 7 6 5 4 \r \r
0000220 p r e v i o u s d a t
0000240 e % : " 1 5 - S e p - 8 5 1
0000260 7 : 5 6 : 1 3 " { E R I S } <
0000300 L I S P C O R E > T C P > T C P
0000320 H T E . ; 1 ) \r \r \r ( * " \r C
0000340 o p y r i g h t ( c ) 1 9 8
0000360 5 , 1 9 8 7 b y X e r o x
0000400 C o r p o r a t i o n . A
0000420 l l r i g h t s r e s e r v
0000440 e d . \r " ) \r \r ( P R E T T Y C
0000460 O M P R I N T T C P H T E C O
0000500 M S ) \r \r ( R P A Q Q 006 002 T C
0000520 P H T E C O M S 006 001 ( ( R E C
0000540 O R D S H O S T S . T X T . E
0000560 N T R Y H T E L I N E ) \r
0000600
0000620 ( F N S A D D A S S O C \
0000640 H T E . P A R S E . E N T R Y
0000660 \ H T E . R E A D . F I L E \
0000700 H T E . R E A D ; \ H T E . R
0000720 E A D L I N E ) \r
0000740 ( I N I
0000760 T V A R S ( H O S T S . T E X
0001000 T . D I R E C T O R I E S ) ) )
0001020 ) \r ( D E C L A R E % : E V A
0001040 L @ C O M P I L E \r \r ( D A T A
0001060 T Y P E 006 002 H O S T S . T X T
0001100 . E N T R Y 006 001 ( H T E . T Y
0001120 P E H T E . A D D R E S S E S
0001140 H T E . N A M E S H T E . M
0001160 A C H I N E . T Y P E H T E .
0001200 O S . T Y P E \r
0001220
0001240 H T E . P R
0001260 O T O C O L S ) ) \r \r ( R E C O
0001300 R D 006 002 H T E L I N E 006 001 (
0001320 T Y P E A D D R E S S E S N
0001340 A M E S M A C H I N E . T Y P
0001360 E O S . T Y P E P R O T O C
0001400 O L S ) ) \r ) \r ( / D E C L A R
0001420 E D A T A T Y P E ' H O S T S
0001440 . T X T . E N T R Y ' ( P O I
0001460 N T E R P O I N T E R P O I
*
0001520 N T E R P O I N T E R ) \r
0001540 ' ( ( H O S T S . T X
0001560 T . E N T R Y 0 P O I N T E
0001600 R ) \r ( H O S
0001620 T S . T X T . E N T R Y 2 P
0001640 O I N T E R ) \r
0001660 ( H O S T S . T X T . E N T R
0001700 Y 4 P O I N T E R ) \r
0001720 ( H O S T S . T X T
0001740 . E N T R Y 6 P O I N T E R
0001760 ) \r ( H O S T
0002000 S . T X T . E N T R Y 8 P O
0002020 I N T E R ) \r
0002040 ( H O S T S . T X T . E N T R Y
0002060 1 0 P O I N T E R ) ) \r
0002100 ' 1 2 ) \r ( D E F I N
0002120 E Q \r \r ( 006 004 A D D A S S O C 006
0002140 001 \r [ L A M B D A ( K E Y
0002160 V A L A L I S T ) 006 006 006 001
0002200
*
0002240 006 006 ( * e j s % : " 2
0002260 7 - J a n - 8 5 2 1 : 1 5 " )
0002300 006 001 \r ( L E T ( ( O L
0002320 D L S T ( F A S S O C K E Y
0002340 A L I S T ) ) ) \r
0002360 ( C O N D \r
0002400 ( O L D L S T ( 006 002
0002420 p u s h 006 001 ( C D R O L D L
0002440 S T ) \r
0002460 V A
0002500 L ) ) \r
0002520 ( T ( N C O N C 1 A L I S T
0002540 ( L I S T K E Y V A L ] )
0002560 \r \r ( 006 004 \ H T E . P A R S E .
0002600 E N T R Y 006 001 \r [ L A M B D
0002620 A ( E N T R Y ) 006 006 006 001
0002640
*
0002700 006 006 ( * e j
0002720 s % : " 1 5 - S e p - 8 5 1
0002740 7 : 4 5 " ) 006 001 \r ( L E
0002760 T ( [ H T E . E N T R Y ( 006
0003000 002 c r e a t e 006 001 H O S T S .
0003020 T X T . E N T R Y \r
0003040
0003060 H T E . T Y P E _
0003100 ( C A R ( 006 002 f e t c h 006 001
0003120 ( H T E L I N E T Y P E )
0003140 006 002 o f 006 001 E N T R Y ) ) \r
0003160
0003200 H T E . A
0003220 D D R E S S E S _ ( 006 002 f o
0003240 r 006 001 X 006 002 i n 006 001 ( 006 002
0003260 f e t c h 006 001 ( H T E L I N E
0003300 A D D R E S S E S ) 006 002 o f
0003320 006 001 E N T R Y ) \r
0003340
*
0003400 006 002 c o l l e
0003420 c t 006 001 ( \ I P . R E A D . S
0003440 T R I N G . A D D R E S S ( M
0003460 K S T R I N G X ) ) ) \r
0003500
0003520 H T E . N A M
0003540 E S _ ( 006 002 f o r 006 001 N A
0003560 M E 006 002 I N 006 001 ( 006 002 f e t
0003600 c h 006 001 ( H T E L I N E N A
0003620 M E S ) 006 002 o f 006 001 E N T R
0003640 Y ) \r
0003660
0003700 006 002
0003720 c o l l e c t 006 001 ( U - C A S
0003740 E N A M E ) ) \r
0003760
0004000 H T E . M A C H I N E
0004020 . T Y P E _ ( C A R ( 006 002
0004040 f e t c h 006 001 ( H T E L I N E
0004060 M A C H I N E . T Y P E ) 006
0004100 002 o f 006 001 E N T R Y ) ) \r
0004120
0004140 H T E . O S
0004160 . T Y P E _ ( C A R ( 006 002
0004200 f e t c h 006 001 ( H T E L I N E
0004220 O S . T Y P E ) 006 002 o f 006 001
0004240 E N T R Y ] \r
0004260 ( P R O T O L S T ( 006 002 f
0004300 e t c h 006 001 ( H T E L I N E
0004320 P R O T O C O L S ) 006 002 o f 006
0004340 001 E N T R Y ) ) \r
0004360 ( P R O T O C O L S (
0004400 C O N S ) ) ) \r
0004420 [ 006 002 f o r 006 001 P R O T O E
0004440 N T R Y 006 002 i n 006 001 P R O T
0004460 O L S T 006 002 d o 006 001 ( C O N
0004500 D \r
0004520
0004540 ( ( S
0004560 T R P O S ' / P R O T O E N
0004600 T R Y ) \r
0004620
*
0004660 ( 006 002 A D D A S S O C 006 001 (
0004700 S U B A T O M P R O T O E N T
0004720 R Y 1 \r
0004740
*
0005020 ( S U B 1 ( S T R P O S
0005040 ' / P R O T O E N T R Y ) ) )
0005060 \r
0005100
*
0005140 ( S U B A T O M P R O
0005160 T O E N T R Y \r
0005200
*
0005260 ( S T R P O S ' / P R O
0005300 T O E N T R Y N I L N I L
0005320 N I L T ) ) \r
0005340
*
0005400 P R O T O
0005420 C O L S ] \r (
0005440 006 002 r e p l a c e 006 001 ( H O S
0005460 T S . T X T . E N T R Y H T E
0005500 . P R O T O C O L S ) 006 002 o f
0005520 006 001 H T E . E N T R Y 006 002 w
0005540 i t h 006 001 ( C D R P R O T O
0005560 C O L S ) ) \r
0005600 ( 006 002 f o r 006 001 N A M E 006 002
0005620 i n 006 001 ( 006 002 f e t c h 006 001
0005640 ( H T E L I N E N A M E S )
0005660 006 002 o f 006 001 E N T R Y ) 006 002
0005700 d o 006 001 ( P U T H A S H ( U
0005720 - C A S E N A M E ) \r
0005740
*
0006020 H T E
0006040 . E N T R Y \ I P . H O S T N
0006060 A M E S ] ) \r \r ( 006 004 \ H T E .
0006100 R E A D . F I L E 006 001 \r [ L
0006120 A M B D A ( F I L E W A N T
0006140 E D T Y P E S ) 006 006 006 001
0006160
0006200 006 006 (
0006220 * e j s % : " 2 7 - J a n -
0006240 8 5 2 1 : 5 2 " ) 006 001 \r
0006260 ( 006 002 D E C L A R E 006 001 ( G
0006300 L O B A L V A R S \ I P . H O
0006320 S T N A M E S ) ) \r ( C
0006340 L R H A S H \ I P . H O S T N
0006360 A M E S ) \r ( S E T Q
0006400 F I L E ( O P E N S T R E A M
0006420 F I L E ' I N P U T ' O L
0006440 D ) ) \r [ O R W A N T
0006460 E D T Y P E S ( S E T Q W A
0006500 N T E D T Y P E S ' ( H O S T
0006520 ] \r [ 006 002 b i n d 006 001
0006540 ( S C R A T C H L S T _ ( L
0006560 I S T N I L N I L N I L
0006600 N I L N I L N I L ) ) \r
0006620 E N T R Y 006 002
0006640 u n t i l 006 001 ( E O F P F I
0006660 L E ) 006 002 d o 006 001 ( S E T Q
0006700 E N T R Y ( 006 002 \ H T E . R
0006720 E A D L I N E 006 001 F I L E S
0006740 C R A T C H L S T ) ) \r
0006760
*
0007020 ( C O N D \r
0007040
0007060 (
0007100 ( F M E M B ( C A R ( 006 002 f
0007120 e t c h 006 001 ( H T E L I N E
0007140 T Y P E ) 006 002 o f 006 001 E N T
0007160 R Y ) ) \r
0007200
*
0007240 W A N T E D T Y P E S
0007260 ) \r
0007300
0007320 ( 006 002 \ H
0007340 T E . P A R S E . E N T R Y 006 001
0007360 E N T R Y ] \r ( C L O
0007400 S E F F I L E ] ) \r \r ( 006 004 \
0007420 H T E . R E A D ; 006 001 \r [ L
0007440 A M B D A ( F L R D T B L )
0007460 006 006 006 001
0007500
0007520 006 006 (
0007540 * e j s % : " 2 7 - J a n -
0007560 8 5 2 0 : 1 9 " ) 006 001 \r
0007600 ( 006 002 u n t i l 006 001 ( S E L
0007620 C H A R Q ( B I N F L ) \r
0007640 (
0007660 ( C R L F E O L ) \r
0007700
0007720 T ) \r
0007740 N I L ) ) \r N
0007760 I L ] ) \r \r ( 006 004 \ H T E . R E
0010000 A D L I N E 006 001 \r [ L A M B
0010020 D A ( S T R E A M S C R A T
0010040 C H L S T W A N T E D T Y P E
0010060 S ) 006 006 006 001
0010100 006 006 ( * e
0010120 j s % : " 2 7 - J a n - 8 5
0010140 2 1 : 5 5 " ) 006 001 \r [ C
0010160 O N D \r ( S C R A
0010200 T C H L S T ( 006 002 f o r 006 001
0010220 X 006 002 o n 006 001 S C R A T C H
0010240 L S T 006 002 d o 006 001 ( R P L A
0010260 C A X N I L ) ) ) \r
0010300 ( T ( S E T Q S C R A
0010320 T C H L S T ( L I S T N I L
0010340 N I L N I L N I L N I L
0010360 N I L ] \r ( 006 002 b i n
0010400 d 006 001 C H A R S F I E L D C
0010420 O N T E N T S C H ( F I E L
0010440 D # _ 1 ) \r 006
0010460 002 d o 006 001 ( C O N D \r
0010500 ( ( N O T (
0010520 E O F P S T R E A M ) ) \r
0010540 ( S E T
0010560 Q C H ( B I N S T R E A M
0010600 ) ) \r
0010620 ( S E L C H A R Q C H \r
0010640
0010660 ( % : ( C O N D \r
0010700
0010720 ( C H A R S ( 006 002 p
0010740 u s h 006 001 F I E L D C O N T E
0010760 N T S ( P A C K C ( D R E V
0011000 E R S E C H A R S ) ) ) \r
0011020
0011040 (
0011060 S E T Q C H A R S ) ) ) \r
0011100
0011120 [ C O N D \r
0011140
0011160 ( F I E L D C O N T E
0011200 N T S ( R P L A C A ( F N T
0011220 H S C R A T C H L S T F I E
0011240 L D # ) \r
0011260
*
0011320 ( D R E V E R S E F
0011340 I E L D C O N T E N T S ) ) \r
0011360
*
0011420 ( S E T Q F I E L D C O N T E
0011440 N T S ) \r
0011460
0011500 ( 006 002 a d d 006 001 F
0011520 I E L D # 1 ) \r
0011540
0011560 ( C O N D \r
0011600
*
0011640 ( ( A N D ( E Q F I
0011660 E L D # 2 ) \r
0011700
*
0011740 ( N O T ( F M E M B ( C
0011760 A A R S C R A T C H L S T ) \r
0012000
*
0012060 W A N T E D T Y P E
0012100 S ) ) ) \r
0012120
0012140 ( 006 002 u n t
0012160 i l 006 001 ( O R ( E O F P S
0012200 T R E A M ) \r
0012220
*
0012260 ( N O T ( S E L
0012300 C H A R Q ( \ P E E K B I N
0012320 S T R E A M ) \r
0012340
*
0012420 ( ( C R E O L L F ) \r
0012440
*
0012520 T
0012540 ) \r
0012560
*
0012620 N I L )
0012640 ) ) 006 002 d o 006 001 ( 006 002 \ H T
0012660 E . R E A D ; 006 001 S T R E A M
0012700 ] ) \r
0012720 ( ; ( 006 002 \ H T E
0012740 . R E A D ; 006 001 S T R E A M )
0012760 \r
0013000 ( R E T U R N ) )
0013020 \r
0013040 ( ( S P A C E T A B
0013060 % , ) \r
0013100 ( C O
0013120 N D \r
0013140 ( C
0013160 H A R S ( 006 002 p u s h 006 001 F
0013200 I E L D C O N T E N T S ( P A
0013220 C K C ( D R E V E R S E C H
0013240 A R S ) ) ) \r
0013260
0013300 ( S E T Q C
0013320 H A R S ) ) ) ) \r
0013340 ( ( E O
0013360 L C R L F ) \r
0013400
0013420 ( 006 002 u n t i l 006 001 ( O R
0013440 ( E O F P S T R E A M ) \r
0013460
*
0013520 ( N O T ( S E L C H A R Q
0013540 ( \ P E E K B I N S T R E A
0013560 M ) \r
0013600
*
0013640 ( ( C R E O L L F ) \r
0013660
*
0013740 T ) \r
0013760
*
0014020 N I L ) ) ) 006 002 d o 006 001 ( B
0014040 I N S T R E A M ) ) \r
0014060
0014100 ( C O N D \r
0014120
0014140 ( ( O R ( E O F P
0014160 S T R E A M ) \r
0014200
0014220 ( S E L C H A R
0014240 Q ( \ P E E K B I N S T R E
0014260 A M ) \r
0014300
0014320 ( ( S P A C E
0014340 T A B ) \r
0014360
*
0014420 N I L ) \r
0014440
0014460 T ) ) \r
0014500
0014520 ( R E T U
0014540 R N S C R A T C H L S T ) ) )
0014560 ) \r
0014600 ( 006 002 p u s h 006 001 C
0014620 H A R S C H ) ) ) \r
0014640 ( T ( C O N D
0014660 \r
0014700 ( C H A R S ( 006 002 p u
0014720 s h 006 001 F I E L D C O N T E N
0014740 T S ( P A C K C ( D R E V E
0014760 R S E C H A R S ) ) ) \r
0015000
0015020 ( S E T Q C H A
0015040 R S ) ) ) \r
0015060 [ C O N D \r
0015100 (
0015120 F I E L D C O N T E N T S ( R
0015140 P L A C A ( F N T H S C R A
0015160 T C H L S T F I E L D # ) \r
0015200
*
0015240 ( D R E V E R S
0015260 E F I E L D C O N T E N T S )
0015300 ) \r
0015320 ( S E T
0015340 Q F I E L D C O N T E N T S )
0015360 \r
0015400 ( 006 002 a d
0015420 d 006 001 F I E L D # 1 ) \r
0015440
0015460 ( C O N D \r
0015500
0015520 ( ( A N D
0015540 ( E Q F I E L D # 2 ) \r
0015560
*
0015620 ( N O T ( F M E M B ( C
0015640 A A R S C R A T C H L S T ) \r
0015660
*
0015720 W
0015740 A N T E D T Y P E S ) ) ) \r
0015760
0016000 ( 006 002 u
0016020 n t i l 006 001 ( O R ( E O F P
0016040 S T R E A M ) \r
0016060
*
0016120 ( N O T ( S E L C H A R Q
0016140 ( \ P E E K B I N S T R E A
0016160 M ) \r
0016200
*
0016240 ( ( C R E O L L
0016260 F ) \r
0016300
*
0016340 T ) \r
0016360
*
0016440 N I L ) ) ) 006 002 d o 006 001
0016460 ( 006 002 \ H T E . R E A D ; 006 001
0016500 S T R E A M ] \r
0016520 ( R E T U R N
0016540 S C R A T C H L S T ] ) \r ) \r \r
0016560 ( R P A Q ? 006 002 H O S T S . T
0016600 E X T . D I R E C T O R I E S 006
0016620 001 ) \r ( P U T P R O P S T C
0016640 P H T E C O P Y R I G H T (
0016660 " X e r o x C o r p o r a t i
0016700 o n " 1 9 8 5 1 9 8 7 ) ) \r
0016720 ( D E C L A R E % : D O N T C
0016740 O P Y \r ( F I L E M A P (
0016760 N I L ( 1 0 9 8 7 5 3 4 (
0017000 A D D A S S O C 1 1 0 8 .
0017020 1 3 9 2 ) ( \ H T E . P A R S
0017040 E . E N T R Y 1 3 9 4 . 3
0017060 1 2 6 ) ( \ H T E . R E A D .
0017100 F I L E 3 1 2 8 . \r 3 8 5
0017120 0 ) ( \ H T E . R E A D ; 3
0017140 8 5 2 . 4 0 8 4 ) ( \ H T
0017160 E . R E A D L I N E 4 0 8 6
0017200 . 7 5 3 2 ) ) ) ) ) \r S T O P
0017220 \r
0017221