$ od -c -N 50000 [Erinyes]<LispManual>VersionInfo.im!3 0000000 \r { B e g i n S u b S e c S 0000020 y s t e m V e r s i o n I n 0000040 f o r m a t i o n } \r { T i t l 0000060 e S y s t e m V e r s i o n 0000100 I n f o r m a t i o n } \r { T 0000120 e x t \r \r { i n d e x * P R I 0000140 M A R Y * S y s t e m v e r 0000160 s i o n i n f o r m a t i o n 0000200 } \r { i n d e x * P R I M A R 0000220 Y * V e r s i o n i n f o r 0000240 m a t i o n } \r \r I n t e r l i 0000260 s p - D r u n s o n a n 0000300 u m b e r o f d i f f e r e 0000320 n t m a c h i n e s , w i t 0000340 h m a n y p o s s i b l e 0000360 h a r d w a r e c o n f i g u 0000400 r a t i o n s . T h e r e 0000420 h a v e b e e n a n u m b 0000440 e r o f d i f f e r e n t 0000460 r e l e a s e s o f t h e 0000500 I n t e r l i s p - D s o f t 0000520 w a r e . T h e s e f a c 0000540 t s m a k e i t d i f f i 0000560 c u l t t o a n s w e r t 0000600 h e i m p o r t a n t q u e 0000620 s t i o n " w h a t s o f t 0000640 w a r e / h a r d w a r e e n 0000660 v i r o n m e n t a r e y o 0000700 u r u n n i n g ? " w h e n 0000720 r e p o r t i n g b u g s . 0000740 T h e f o l l o w i n g 0000760 f u n c t i o n s a l l o w 0001000 t h e n o v i c e t o c o 0001020 l l e c t t h i s i n f o r 0001040 m a t i o n . \r \r { F n D e f 0001060 { N a m e P R I N T - L I S P 0001100 - I N F O R M A T I O N } { A 0001120 r g s S T R E A M F I L E S 0001140 T R I N G } \r { T y p e N O S 0001160 P R E A D } \r { T e x t \r P r i 0001200 n t s o u t a s u m m a r 0001220 y o f t h e s o f t w a r 0001240 e a n d h a r d w a r e e 0001260 n v i r o n m e n t t h a t 0001300 I n t e r l i s p - D i s r 0001320 u n n i n g i n , a n d a 0001340 l i s t o f a l l l o a 0001360 d e d p a t c h f i l e s : 0001400 \r \r { l i s p c o d e \r I n t e 0001420 r l i s p - D v e r s i o n 0001440 K O T O o f 1 0 - S e p - 8 0001460 5 0 8 : 2 5 : 4 6 \r o n 1 1 0001500 0 8 , m i c r o c o d e 5 6 0001520 5 8 , 8 1 9 1 p a g e s , \r 0001540 m a c h i n e 2 2 2 # 0 . 1 2 0001560 5 0 0 0 . 3 4 6 5 2 # 0 o n \r 0001600 I n t e r l i s p - D v e r s 0001620 i o n 9 - S e p - 8 5 1 8 0001640 : 5 4 : 2 9 \r P a t c h f i l 0001660 e s : G C P A T C H d a t e 0001700 d 1 1 - S e p - 8 5 1 0 : 5 0001720 6 : 3 7 } \r \r { a r g S T R E 0001740 A M } i s t h e s t r e a 0001760 m u s e d t o p r i n t 0002000 t h e s u m m a r y . I f 0002020 n o t g i v e n , i t d 0002040 e f a u l t s t o { l i s p 0002060 T } . \r \r { a r g F I L E S 0002100 T R I N G } i s a s t r i 0002120 n g u s e d t o d e t e r 0002140 m i n e w h a t l o a d e d 0002160 f i l e s s h o u l d b e 0002200 l i s t e d a s " p a t c 0002220 h f i l e s . " A l l f 0002240 i l e n a m e s o n { i n 0002260 d e x L O A D E D F I L E L S 0002300 T V a r } { v a r L O A D E 0002320 D F I L E L S T } ( { P a g e 0002340 R e f V a r L O A D E D F I 0002360 L E L S T } ) t h a t h a v 0002400 e { a r g F I L E S T R I N 0002420 G } a s a s u b s t r i n 0002440 g a s l i s t e d . I f 0002460 { a r g F I L E S T R I N G 0002500 } i s n o t g i v e n , 0002520 i t d e f a u l t s t o t 0002540 h e s t r i n g " P A T C H 0002560 " . \r } } \r \r \r \r { F n D e f 0002600 { N a m e L I S P - I M P L E 0002620 M E N T A T I O N - T Y P E } 0002640 { A r g s } \r { T e x t \r R e 0002660 t u r n s a s t r i n g i 0002700 d e n t i f y i n g t h e t 0002720 y p e o f I n t e r l i s p 0002740 i m p l e m e n t a t i o n 0002760 t h a t i s r u n n i n g , 0003000 e . g . , " I n t e r l i s 0003020 p - D " . \r } } \r \r { F n D e f 0003040 { N a m e L I S P - I M P L 0003060 E M E N T A T I O N - V E R S I 0003100 O N } { A r g s } \r { T e x 0003120 t \r R e t u r n s a s t r i 0003140 n g i d e n t i f y i n g t 0003160 h e v e r s i o n o f I n 0003200 t e r l i s p t h a t i s 0003220 r u n n i n g . C u r r e n 0003240 t l y g i v e s t h e s y 0003260 s t e m n a m e a n d d a 0003300 t e , e . g . , " K O T O 0003320 o f 1 0 - S e p - 8 5 0 8 : 0003340 2 5 : 4 6 " . \r \r T h i s u s 0003360 e s t h e v a r i a b l e s 0003400 { v a r M A K E S Y S N A M 0003420 E } a n d { v a r M A K E 0003440 S Y S D A T E } ( b e l o w ) 0003460 , s o i t w i l l c h a 0003500 n g e i f t h e u s e r 0003520 u s e s { f n M A K E S Y S 0003540 } ( { P a g e R e f F n M 0003560 A K E S Y S } ) t o c r e a 0003600 t e a c u s t o m s y s o 0003620 u t f i l e , o r e x p l 0003640 i c i t l y c h a n g e s t 0003660 h e s e v a r i a b l e s . \r 0003700 } } \r \r \r { F n D e f { N a m 0003720 e S O F T W A R E - T Y P E } 0003740 { A r g s } \r { T e x t \r R 0003760 e t u r n s a s t r i n g 0004000 i d e n t i f y i n g t h e 0004020 o p e r a t i n g s y s t e m 0004040 t h a t I n t e r l i s p 0004060 i s r u n n i n g u n d e r 0004100 . C u r r e n t l y r e t 0004120 u r n s t h e s t r i n g 0004140 " I n t e r l i s p - D " . \r } 0004160 } \r \r { F n D e f { N a m e 0004200 S O F T W A R E - V E R S I O N 0004220 } { A r g s } \r { T e x t \r 0004240 R e t u r n s a s t r i n g 0004260 i d e n t i f y i n g t h e 0004300 v e r s i o n o f t h e 0004320 o p e r a t i n g s y s t e m 0004340 t h a t I n t e r l i s p 0004360 i s r u n n i n g u n d e r 0004400 . C u r r e n t l y , t h 0004420 i s r e t u r n s t h e d 0004440 a t e t h a t t h e I n t 0004460 e r l i s p - D r e l e a s e 0004500 w a s o r i g i n a l l y 0004520 c r e a t e d , s o i t d 0004540 o e s n ' t c h a n g e o v 0004560 e r { f n M A K E S Y S } 0004600 o r { f n S Y S O U T } . \r 0004620 } } \r \r { F n D e f { N a m e 0004640 M A C H I N E - T Y P E } { 0004660 A r g s } \r { T e x t \r R e t 0004700 u r n s a s t r i n g i d 0004720 e n t i f y i n g t h e t y 0004740 p e o f c o m p u t e r h 0004760 a r d w a r e t h a t I n t 0005000 e r l i s p - D i s r u n n 0005020 i n g o n , i . e . , " 1 0005040 1 0 8 " , " 1 1 3 2 " , " 1 0005060 1 8 6 " , e t c . \r } } \r \r { 0005100 F n D e f { N a m e M A C H 0005120 I N E - V E R S I O N } { A r 0005140 g s } \r { T e x t \r R e t u r 0005160 n s a s t r i n g i d e n 0005200 t i f y i n g t h e v e r s 0005220 i o n o f t h e c o m p u 0005240 t e r h a r d w a r e t h a 0005260 t I n t e r l i s p - D i s 0005300 r u n n i n g o n . C u 0005320 r r e n t l y r e t u r n s 0005340 t h e m i c r o c o d e v e 0005360 r s i o n a n d r e a l m 0005400 e m o r y s i z e . \r } } \r \r 0005420 { F n D e f { N a m e M A C 0005440 H I N E - I N S T A N C E } { 0005460 A r g s } \r { T e x t \r R e t 0005500 u r n s a s t r i n g i d 0005520 e n t i f y i n g t h e p a 0005540 r t i c u l a r m a c h i n e 0005560 t h a t I n t e r l i s p - 0005600 D i s r u n n i n g o n . 0005620 C u r r e n t l y r e t u 0005640 r n s t h e m a c h i n e ' 0005660 s N S a d d r e s s . \r } } 0005700 \r \r { F n D e f { N a m e S 0005720 H O R T - S I T E - N A M E } 0005740 { A r g s } \r { T e x t \r R e 0005760 t u r n s a s h o r t s t 0006000 r i n g i d e n t i f y i n g 0006020 t h e s i t e w h e r e 0006040 t h e m a c h i n e i s l 0006060 o c a t e d . C u r r e n t 0006100 l y r e t u r n s { l i s p 0006120 ( E T H E R H O S T N A M E ) 0006140 } ( i f n o n - { l i s p 0006160 N I L } ) o r t h e s t r 0006200 i n g " u n k n o w n " . \r } 0006220 } \r \r { F n D e f { N a m e 0006240 L O N G - S I T E - N A M E } 0006260 { A r g s } \r { T e x t \r R e 0006300 t u r n s a l o n g s t r 0006320 i n g i d e n t i f y i n g 0006340 t h e s i t e w h e r e t 0006360 h e m a c h i n e i s l o 0006400 c a t e d . C u r r e n t l 0006420 y r e t u r n s t h e s a 0006440 m e a s { f n S H O R T - 0006460 S I T E - N A M E } . \r } } \r \r 0006500 \r { V a r D e f { N a m e S 0006520 Y S O U T D A T E } \r { T e x t 0006540 \r V a l u e i s s e t b y 0006560 { f n S Y S O U T } ( { P 0006600 a g e R e f F n S Y S O U T 0006620 } ) t o t h e d a t e b 0006640 e f o r e g e n e r a t i n g 0006660 a v i r t u a l m e m o r 0006700 y i m a g e f i l e . \r } } 0006720 \r \r \r { V a r D e f { N a m e 0006740 M A K E S Y S D A T E } \r { T 0006760 e x t \r V a l u e i s s e t 0007000 b y { f n M A K E S Y S } 0007020 ( { P a g e R e f F n M A 0007040 K E S Y S } ) t o t h e d 0007060 a t e b e f o r e g e n e r 0007100 a t i n g a v i r t u a l 0007120 m e m o r y i m a g e f i l 0007140 e . \r } } \r \r \r { V a r D e f 0007160 { N a m e M A K E S Y S N A M 0007200 E } \r { T e x t \r V a l u e i 0007220 s a l i t a t o m i d e n 0007240 t i f y i n g t h e r e l e 0007260 a s e n a m e o f t h e 0007300 c u r r e n t I n t e r l i s 0007320 p - D s y s t e m , e . g . 0007340 , { l i s p K O T O } . \r } 0007360 } \r \r \r \r { F n D e f { N a m 0007400 e S Y S T E M T Y P E } \r { T 0007420 e x t \r T h e { f n S Y S T 0007440 E M T Y P E } f u n c t i o n 0007460 i s i n t e n d e d t o 0007500 a l l o w p r o g r a m m e r 0007520 s t o w r i t e s y s t e 0007540 m - d e p e n d e n t c o d e 0007560 . { f n S Y S T E M T Y P 0007600 E } r e t u r n s a l i t 0007620 a t o m c o r r e s p o n d i 0007640 n g t o t h e i m p l e m 0007660 e n t a t i o n o f I n t e 0007700 r l i s p : { l i s p D } 0007720 ( f o r I n t e r l i s p - D 0007740 ) , { l i s p T O P S - 2 0 0007760 } , { l i s p T E N E X } , 0010000 { l i s p J E R I C O } , 0010020 o r { l i s p V A X } . \r \r 0010040 I n I n t e r l i s p - D ( 0010060 a n d I n t e r l i s p - 1 0 0010100 ) , { l i s p ( S E L E C T 0010120 Q ( S Y S T E M T Y P E ) { 0010140 e l l i p s i s } ) } e x p r 0010160 e s s i o n s a r e e x p a 0010200 n d e d a t c o m p i l e 0010220 t i m e s o t h a t t h i 0010240 s i s a n e f f e c t i v 0010260 e w a y t o p e r f o r m 0010300 c o n d i t i o n a l c o m 0010320 p i l a t i o n . \r } } \r \r \r { 0010340 F n D e f { N a m e M A C H 0010360 I N E T Y P E } { A r g s } 0010400 \r { T e x t \r R e t u r n s t 0010420 h e t y p e o f m a c h i 0010440 n e t h a t I n t e r l i s 0010460 p - D i s r u n n i n g o 0010500 n : e i t h e r { l i s p 0010520 D O R A D O } ( f o r t h 0010540 e X e r o x 1 1 3 2 ) , { 0010560 l i s p D O L P H I N } ( f 0010600 o r t h e X e r o x 1 1 0 0010620 0 ) , o r { l i s p D A N 0010640 D E L I O N } ( f o r t h e 0010660 X e r o x 1 1 0 8 ) . \r } } 0010700 \r \r \r \r } { E n d S u b S e c 0010720 S y s t e m V e r s i o n 0010740 I n f o r m a t i o n } \r \0 \0 \0 0010760 \0 \0 004 \0 002 \0 ? \0 1 ( D E F A U L 0011000 T F O N T 1 ( G A C H A 1 0011020 0 ) ( G A C H A 8 ) ( T E 0011040 R M I N A L 8 ) ) \0 \n \0 \0 \0 \0 0011060 \0 \0 \0 \0 \0 ? \0 1 ( D E F A U L T 0011100 F O N T 1 ( G A C H A 1 0 0011120 ) ( G A C H A 8 ) ( T E R 0011140 M I N A L 8 ) ) \0 \n \0 \0 \0 \0 \0 0011160 \0 \0 \0 \0 \0 021 355 \0 \0 \0 \0 002 \0 \0 021 355 0011200 \0 001 z 272 0011204