$ od -c -N 50000 [eris]<LispCore>SOURCES>DEFSTRUCT-RUN-TIME!6
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 " X C
0000040 L " 247 P A C K A G E " L I S
0000060 P " ) \r 006 001 ( i l : f i l e c r
0000100 e a t e d " 2 9 - O c t - 8 6
0000120 2 1 : 5 7 : 5 8 " 006 004 i l :
0000140 { e r i s } < l i s p c o r e >
0000160 s o u r c e s > d e f s t r u c
0000200 t - r u n - t i m e . \ ; 6 006 001
0000220 1 1 9 3 3 \r \r
0000240 i l : | c h a n g e s | i l :
0000260 | t o : | ( i l : f n s i
0000300 l : \ \ d e f p r i n t . d e f
0000320 s t r u c t . d e f a u l t ) \r
0000340
0000360 ( i l
0000400 : v a r s i l : d e f s t r u
0000420 c t - r u n - t i m e c o m s )
0000440 \r
0000460 ( i
0000500 l : f u n c t i o n s p r i n
0000520 t - s t r u c t u r e - i n s t
0000540 a n c e d e f a u l t - s t r
0000560 u c t u r e - p r i n t e r \r
0000600
*
0000640 s i : : % s t r u c t u
0000660 r e - d e c l a r e - d a t a t
0000700 y p e c r e a t e - s t r u c
0000720 t u r e - o b j e c t ) \r
0000740
0000760 ( i l : v a
0001000 r i a b l e s * p r i n t - s
0001020 t r u c t u r e * ) \r \r
0001040 i l : | p r e v i o u s |
0001060 i l : | d a t e : | " 2 4 - O
0001100 c t - 8 6 1 5 : 4 6 : 3 2 "
0001120 i l : { e r i s } < n u y e n s
0001140 > z e b r a > d e f s t r u c t
0001160 - r u n - t i m e . \ ; 2 1 ) \r
0001200 \r \r ; C o p y r i g h t ( c
0001220 ) 1 9 8 6 b y X e r o x
0001240 C o r p o r a t i o n . A l
0001260 l r i g h t s r e s e r v e
0001300 d . \r \r ( i l : p r e t t y c o
0001320 m p r i n t i l : d e f s t r
0001340 u c t - r u n - t i m e c o m s
0001360 ) \r \r ( i l : r p a q q 006 002 i
0001400 l : d e f s t r u c t - r u n -
0001420 t i m e c o m s 006 001 ( ( i l :
0001440 f u n c t i o n s s i : : % s
0001460 t r u c t u r e - d e c l a r e
0001500 - d a t a t y p e \r
0001520
*
0001560 c r e a t e - s t
0001600 r u c t u r e - o b j e c t p
0001620 r i n t - s t r u c t u r e - i
0001640 n s t a n c e ) \r
0001660
0001700 ( i
0001720 l : v a r i a b l e s * p a r
0001740 s e d - s t r u c t u r e s *
0001760 * p r i n t - s t r u c t u r e
0002000 * ) \r
0002020
0002040 ( i l : f u n c
0002060 t i o n s s e t - p a r s e d
0002100 - s t r u c t u r e p a r s e
0002120 d - s t r u c t u r e \r
0002140
*
0002200 s t r u c t u
0002220 r e - s l o t - n a m e s d e
0002240 f a u l t - s t r u c t u r e -
0002260 p r i n t e r \r
0002300
*
0002340 i l : c r e a t e - s
0002360 t r u c t u r e s t r u c t u
0002400 r e - c o n s t r u c t o r ) \r
0002420
*
0002460 ( i l : s e t f s p
0002500 a r s e d - s t r u c t u r e )
0002520 \r
0002540
0002560 ( i l : * i l : |
0002600 ; ; | \r
0002620
0002640 " U S E S S T R U C T
0002660 U R E - S L O T - N A M E S b
0002700 u t f o r n o w s u p p o
0002720 r t s l o o k i n g o n t
0002740 h e p l i s t . " \r
0002760
*
0003020 ) \r
0003040
0003060 ( i l
0003100 : f u n c t i o n s i l : s l
0003120 o t - l i s t ) \r
0003140
0003160 ( i
0003200 l : f n s i l : \ \ d e f p r
0003220 i n t . d e f s t r u c t . d e
0003240 f a u l t ) \r
0003260
0003300 ( i l :
0003320 p r o p i l : f i l e t y p e
0003340 i l : d e f s t r u c t - r u
0003360 n - t i m e ) \r
0003400
0003420 ( i l
0003440 : p r o p i l : m a k e f i l
0003460 e - e n v i r o n m e n t i l
0003500 : d e f s t r u c t - r u n - t
0003520 i m e ) \r
0003540
0003560 ( i l : d e
0003600 c l a r e \ : i l : d o n t e
0003620 v a l @ l o a d i l : d o e v
0003640 a l @ c o m p i l e i l : d o
0003660 n t c o p y \r
0003700
*
0003740 i l : c o m p i l e r v
0003760 a r s ( i l : a d d v a r s
0004000 ( i l : n l a m a ) \r
0004020
*
0004100 ( i
0004120 l : n l a m l ) \r
0004140
*
0004220 ( i l :
0004240 l a m a ) ) ) ) ) \r ( d e f u n
0004260 006 002 s i : : % s t r u c t u r
0004300 e - d e c l a r e - d a t a t y
0004320 p e 006 001 ( n a m e f i e l d
0004340 - s p e c i f i c a t i o n s
0004360 f i e l d - d e s c r i p t o r
0004400 s w o r d - l e n g t h \r
0004420
*
0004460 s u p e
0004500 r t y p e ) " a n a l a g o u
0004520 s t o d e c l a r e - d a t
0004540 a t y p e , b u t d o e s
0004560 n o t p r e p e n d t h e
0004600 s u p e r s d e s c r i p t o
0004620 r s . Y o u m u s t i n c
0004640 l u d e a l l d e s c s . "
0004660 \r 006 006 006 001
0004700
*
0004740 006 006 ( i l : * i
0004760 l : | ; ; ; | \r 006 001
0005000
0005020 006 006 " N . B .
0005040 d e s c r i p t i o n s a
0005060 n d s p e c s a r e f o r
0005100 A L L s l o t s , n o t
0005120 j u s t l o c a l - s l o t s
0005140 . " ) 006 001 006 006 006 001 \r
0005160
*
0005220 006 006 ( i
0005240 l : * i l : | ; ; | " f i e
0005260 l d - s p e c i f i c a t i o n
0005300 s i s a l i s t o f t
0005320 h e f o r m ' ( p o i n t e
0005340 r p o i n t e r ( b i t s
0005360 3 ) ( b i t s 5 ) w o r d
0005400 f i x p ) . S e e p .
0005420 8 . 2 1 I R M " ) 006 001 006 006 006 001
0005440 \r
0005460
*
0005520 006 006 ( i l : * i l : | ;
0005540 ; | " f i e l d - d e s c r i
0005560 p t o r s i s t h e l i s
0005600 t r e t u r n e d f r o m
0005620 t r a n s l a t e . d a t a t y
0005640 p e w h e n g i v e n t h
0005660 e a b o v e F I E L D - S P
0005700 E C I F I C A T I O N S . T
0005720 h e y a r e l e g a l t o
0005740 p a s s t o f e t c h f i
0005760 e l d . " ) 006 001 006 006 006 001 \r
0006000
*
0006040 006
0006060 006 ( i l : * i l : | ; ; | \r
0006100 006 001
0006120
0006140 006 006 " w o r
0006160 d - l e n g t h i s t h e
0006200 c a r o f t h e r e s u l
0006220 t o f t r a n s l a t e . d
0006240 a t a t y p e . " ) 006 001 006 006 006 001
0006260 \r
0006300
*
0006340 006 006 ( i l : * i l : | ;
0006360 ; | \r 006 001
0006400
*
0006440 006 006 " s u p e r
0006460 t y p e i s t h e t y p e
0006500 n a m e o f t h e s u p e
0006520 r t y p e . " ) 006 001 \r ( c
0006540 h e c k - t y p e n a m e s
0006560 y m b o l ) \r ( c h e c k
0006600 - t y p e w o r d - l e n g t
0006620 h i n t e g e r ) \r ( l
0006640 e t ( ( r e f e r e n c e - c
0006660 o u n t e d - p o i n t e r s
0006700 ( m a p c a n # ' ( l a m b d
0006720 a ( d e s c r i p t o r ) \r
0006740
*
0007020 ( c a s e ( c a d d
0007040 r d e s c r i p t o r ) \r
0007060
*
0007140 ( ( i l : p
0007160 o i n t e r i l : f u l l p o
0007200 i n t e r ) \r
0007220
*
0007300 ( l i s t ( c a d r
0007320 d e s c r i p t o r ) ) ) ) )
0007340 \r
0007360
0007400 f i e
0007420 l d - d e s c r i p t o r s ) )
0007440 ) \r ( m u l t i
0007460 p l e - v a l u e - b i n d (
0007500 t y p e - n u m b e r r e d e
0007520 c l a r e d ? ) \r
0007540 ( i l : \ \ a s
0007560 s i g n d a t a t y p e 1 n a
0007600 m e f i e l d - d e s c r i p
0007620 t o r s w o r d - l e n g t h
0007640 f i e l d - s p e c i f i c a
0007660 t i o n s \r
0007700 r e f
0007720 e r e n c e - c o u n t e d - p
0007740 o i n t e r s s u p e r t y p
0007760 e ) 006 006 006 001 \r
0010000
*
0010040 006 006 ( i l : *
0010060 i l : | ; ; | \r 006 001
0010100
*
0010140 006 006
0010160 " s e t t h e m a g i c g
0010200 l o b a l t o t h e a l l
0010220 o c a t e d t y p e n u m b
0010240 e r " ) 006 001 \r
0010260 ( i l : s e t t o p
0010300 v a l ( i l : \ \ t y p e g l
0010320 o b a l v a r i a b l e n a m
0010340 e t ) \r
0010360 t y p e -
0010400 n u m b e r ) \r
0010420 ( v a l u e s f
0010440 i e l d - d e s c r i p t o r s
0010460 r e d e c l a r e d ? ) ) ) )
0010500 \r \r ( d e f u n 006 002 c r e a t
0010520 e - s t r u c t u r e - o b j e
0010540 c t 006 001 n i l \r
0010560
0010600 " c r e a t e s t h e
0010620 e m p t y d a t a t y p e
0010640 t h a t i s i n c l u d e d
0010660 b y e v e r y C o m m o n
0010700 L i s p i n s t a n c e " \r
0010720
*
0010760 ( s i : : % s t r u c t u
0011000 r e - d e c l a r e - d a t a t
0011020 y p e % d e f a u l t - s t r
0011040 u c t u r e - i n c l u d e n
0011060 i l \r
0011100
0011120 n i
0011140 l 0 n i l ) \r
0011160
0011200 ( i l :
0011220 w i t h o u t - f i l e p k g
0011240 ( d e f t y p e 006 002 s t r u c
0011260 t u r e - o b j e c t 006 001 \r
0011300
*
0011360 n i l ` ( i l
0011400 : d a t a t y p e , \r
0011420
*
0011520 % d e f a u l t - s t r u c
0011540 t u r e - i n c l u d e ) ) \r )
0011560 ) \r \r ( d e f u n 006 002 p r i n
0011600 t - s t r u c t u r e - i n s t
0011620 a n c e 006 001 ( o b j e c t s
0011640 t r e a m d e p t h ) \r
0011660
0011700 " l
0011720 o o k s u p t h e p r i n
0011740 t f u n c t i o n f o r t
0011760 h e s t r u c t u r e i n s
0012000 t a n c e a n d c a l l s
0012020 i t " \r ( f u n c a l l
0012040 ( o r ( p s - p r i n t - f u
0012060 n c t i o n ( p a r s e d - s
0012100 t r u c t u r e ( t y p e - o
0012120 f o b j e c t ) ) ) \r
0012140 % d e f
0012160 a u l t - p r i n t - f u n c t
0012200 i o n ) \r o
0012220 b j e c t s t r e a m d e p
0012240 t h ) ) \r \r ( d e f v a r 006 002
0012260 * p a r s e d - s t r u c t u r
0012300 e s * 006 001 ' ( n i l ) " a l
0012320 l d e c l a r e d s t r u c
0012340 t u r e s " ) \r \r ( d e f v a
0012360 r 006 002 * p r i n t - s t r u c
0012400 t u r e * 006 001 n i l " F l a
0012420 g i n d i c a t i n g w h e
0012440 t h e r t h e c o n t e n t
0012460 s o f s t r u c t u r e s
0012500 a r e t o b e p r i n t e
0012520 d . " ) \r \r ( d e f u n 006 002 s
0012540 e t - p a r s e d - s t r u c t
0012560 u r e 006 001 ( n a m e p s )
0012600 ( l e t ( ( o l d ( p a r s
0012620 e d - s t r u c t u r e n a m
0012640 e t ) ) ) \r
0012660
*
0012720 ( i f o l d ( r p l a c
0012740 d ( i l : a s s o c n a m e
0012760 * p a r s e d - s t r u c t u
0013000 r e s * ) \r
0013020
*
0013100 p s ) \r
0013120
*
0013160 ( s e t q * p a r s e d
0013200 - s t r u c t u r e s * ( p u
0013220 s h ( c o n s n a m e p s
0013240 ) \r
0013260
*
0013360 * p a r s e d - s t r u c t u
0013400 r e s * ) ) ) \r
0013420
*
0013460 ) ) \r \r ( d e f m a c r o
0013500 006 002 p a r s e d - s t r u c t
0013520 u r e 006 001 ( n a m e & o p t
0013540 i o n a l ( n o - e r r o r
0013560 n i l ) ) \r
0013600
*
0013640 " r e t u r n s
0013660 t h e p a r s e d - s t r u
0013700 c t u r e c o r r e s p o n d
0013720 i n g t o n a m e " \r
0013740 ( c o n d \r ( n o -
0013760 e r r o r ` ( c d r ( i l :
0014000 a s s o c , n a m e * p a r
0014020 s e d - s t r u c t u r e s * )
0014040 ) ) \r ( t ` ( o r
0014060 ( c d r ( i l : a s s o c
0014100 , n a m e * p a r s e d - s t
0014120 r u c t u r e s * ) ) \r
0014140 ( e r r o r
0014160 " ~ s i s n o t a d e
0014200 f i n e d s t r u c t u r e "
0014220 , n a m e ) ) ) ) ) \r \r ( d e
0014240 f u n 006 002 s t r u c t u r e -
0014260 s l o t - n a m e s 006 001 ( s t
0014300 r u c t u r e - n a m e & o p
0014320 t i o n a l ( d o n t - c o p
0014340 y n i l ) ) ( l e t * ( (
0014360 p s ( p a r s e d - s t r u c
0014400 t u r e \r
0014420
*
0014520 s t r u c t u r
0014540 e - n a m e ) ) \r
0014560
*
0014660 n a m e s ) \r
0014700
*
0015000 ( i f (
0015020 n o t p s ) \r
0015040
*
0015140 ( e r r o r
0015160 \r
0015200
*
0015260 " ~ S i s n o t
0015300 a d e c l a r e d s t r u c
0015320 t u r e . " \r
0015340
*
0015440 s
0015460 t r u c t u r e - n a m e \r
0015500
*
0015620 ) ) \r
0015640
*
0015740 ( s e t q n a m e
0015760 s ( \r
0016000
*
0016100 p s - a l l - s
0016120 l o t - n a m e s \r
0016140
*
0016260 p s ) ) \r
0016300
*
0016400 ( i f d o n t - c
0016420 o p y n a m e s \r
0016440
*
0016540 ( c o p y
0016560 - l i s t n a m e s ) ) ) ) \r
0016600 \r ( d e f u n 006 002 d e f a u l
0016620 t - s t r u c t u r e - p r i n
0016640 t e r 006 001 ( i l : s t r u c t
0016660 u r e s t r e a m i l : p r
0016700 i n t - d e p t h ) ( 006 002 d e
0016720 c l a r e 006 001 ( i g n o r e
0016740 i l : p r i n t - d e p t h \r
0016760
*
0017100 ) ) \r
0017120
*
0017200 ( \r
0017220
*
0017320 i l : \ \ d e f p r
0017340 i n t . d e f s t r u c t . d e
0017360 f a u l t \r
0017400
*
0017460 i l :
0017500 s t r u c t u r e s t r e a m
0017520 \r
0017540
*
0017620 i l : p r i n
0017640 t - d e p t h ) ) \r \r ( d e f u
0017660 n 006 002 i l : c r e a t e - s t
0017700 r u c t u r e 006 001 ( s t r u c
0017720 t u r e - f o r m ) ( a p p l
0017740 y ( s t r u c t u r e - c o n
0017760 s t r u c t o r ( c a r s t
0020000 r u c t u r e - f o r m ) ) \r
0020020
*
0020100 ( 006 002 i l : f o r 006 001 t a
0020120 i l 006 002 i l : o n 006 001 ( c d
0020140 r s t r u c t u r e - f o r m
0020160 ) \r
0020200
*
0020240 006 002 i l : b y 006
0020260 001 ( c d d r t a i l ) \r
0020300
*
0020360 006 002 i l : j o i n 006 001
0020400 ( l i s t ( m a k e - k e y w
0020420 o r d ( c a r t a i l ) ) \r
0020440
*
0020540 ( c a d r t a i l ) )
0020560 ) ) ) \r \r ( d e f u n 006 002 s t
0020600 r u c t u r e - c o n s t r u c
0020620 t o r 006 001 ( s t r u c t u r e
0020640 - n a m e ) ( o r ( g e t
0020660 s t r u c t u r e - n a m e '
0020700 i l : s t r u c t u r e - c o n
0020720 s t r u c t o r ) \r
0020740
*
0021000 ( l e t
0021020 * ( ( p s ( p a r s e d - s
0021040 t r u c t u r e s t r u c t u
0021060 r e - n a m e ) ) \r
0021100
*
0021160 ( c o n s t r u c t o r
0021200 ( p s - s t a n d a r d - c o n
0021220 s t r u c t o r p s ) ) ) \r
0021240
*
0021320 ( o r c o n s t
0021340 r u c t o r ( e r r o r \r
0021360
*
0021440 " ~ S i s a s t r u
0021460 c t u r e w i t h n o s t
0021500 a n d a r d c o n s t r u c t
0021520 o r . " \r
0021540
*
0021640 ( p s - n a m e p s )
0021660 ) ) ) ) ) \r \r ( d e f s e t f
0021700 006 002 p a r s e d - s t r u c t u
0021720 r e 006 001 s e t - p a r s e d -
0021740 s t r u c t u r e ) \r \r \r \r \r 006
0021760 004 ( i l : * i l : | ; ; | "
0022000 U S E S S T R U C T U R E - S
0022020 L O T - N A M E S b u t f o
0022040 r n o w s u p p o r t s l
0022060 o o k i n g o n t h e p l
0022100 i s t . " ) 006 001 \r \r ( d e f u n
0022120 006 002 i l : s l o t - l i s t 006
0022140 001 ( n a m e ) ( o r ( i l
0022160 : c o p y ( g e t n a m e
0022200 ' i l : % s l o t - d e s c r i
0022220 p t i o n s ) ) \r
0022240
0022260 ( s t r u c t u
0022300 r e - s l o t - n a m e s n a
0022320 m e ) ) ) \r \r ( i l : d e f i n
0022340 e q \r \r ( 006 004 i l : \ \ d e f p
0022360 r i n t . d e f s t r u c t . d
0022400 e f a u l t 006 001 \r ( i l : l
0022420 a m b d a ( i l : s t r u c
0022440 s t r e a m p r i n t - l e v
0022460 e l ) 006 006 006 001
0022500 006 006 ( i l :
0022520 * i l : | g b n | " 2 9 - O
0022540 c t - 8 6 2 1 : 3 2 " ) 006 001 \r
0022560 ( i f ( n o t * p r
0022600 i n t - s t r u c t u r e * ) \r
0022620 ( i l : \ \ p r
0022640 i n t - u s i n g - a d d r e s
0022660 s i l : s t r u c s t r e a
0022700 m 0 ) \r ( l e
0022720 t ( ( t y p e ( i l : t y p
0022740 e n a m e i l : s t r u c ) )
0022760 \r l
0023000 a b e l f i r s t - t i m e ?
0023020 ) \r (
0023040 w h e n i l : * p r i n t - c
0023060 i r c l e - h a s h t a b l e *
0023100 006 006 006 001 006 006 ( i l : *
0023120 i l : | ; ; | \r 006 001
0023140
0023160 006 006 " o
0023200 n l y t r u e i f * p r i
0023220 n t - c i r c l e * i s t r
0023240 u e a n d t h e s t r u c
0023260 t u r e i s c i r c u l a r
0023300 . " ) 006 001 \r
0023320 ( m u l t i p
0023340 l e - v a l u e - s e t q ( l
0023360 a b e l f i r s t - t i m e ?
0023400 ) \r
0023420 ( i l :
0023440 p r i n t - c i r c l e - l o o
0023460 k u p i l : s t r u c ) ) ) \r
0023500 ( w h
0023520 e n l a b e l 006 006 006 001
0023540
0023560 006 006 ( i l : * i l
0023600 : | ; ; | \r 006 001
0023620
*
0023660 006 006 " t h
0023700 i s g u y n e e d s t o
0023720 b e f l a g g e d f o r c
0023740 i r c l e - p r i n t i n g " )
0023760 006 001 \r
0024000 ( i l : p r i n 3
0024020 l a b e l ) ) \r
0024040 ( w h e n f i r s t
0024060 - t i m e ? ( i l : \ \ o u t
0024100 c h a r s t r e a m ( 006 002 i
0024120 l : | f e t c h | 006 001 ( r e a
0024140 d t a b l e p i l : h a s h m
0024160 a c r o c h a r ) \r
0024200
*
0024260 006 002 i l : | o f | 006 001 * r e
0024300 a d t a b l e * ) ) \r
0024320 ( i
0024340 l : p r i n 3 " S ( " s t r
0024360 e a m ) \r
0024400 ( i l : p r i n
0024420 2 t y p e s t r e a m ) \r
0024440
0024460 ( l e t ( ( * p r i n t -
0024500 l e v e l * ( a n d * p r i
0024520 n t - l e v e l * ( i l : s u
0024540 b 1 * p r i n t - l e v e l *
0024560 ) ) ) ) \r
0024600 ( 006 002
0024620 d e c l a r e 006 001 ( i l : s p
0024640 e c v a r s * p r i n t - l e
0024660 v e l * ) ) \r
0024700 (
0024720 006 002 i l : | f o r | 006 001 i l :
0024740 f i e l d 006 002 i l : | i n | 006
0024760 001 ( i l : s l o t - l i s t
0025000 t y p e ) 006 002 i l : | a s | 006
0025020 001 i l : d e s c r i p t o r \r
0025040
0025060 006 002 i l :
0025100 | i n | 006 001 ( i l : g e t d e
0025120 s c r i p t o r s t y p e )
0025140 006 002 i l : | d o | 006 001 ( i l :
0025160 p r i n 1 " " s t r e a m
0025200 ) \r
0025220
*
0025300 ( i l : p r i n 2 i l
0025320 : f i e l d s t r e a m ) \r
0025340
*
0025440 ( i l : p r i n 1 " " s
0025460 t r e a m ) \r
0025500
*
0025560 ( i l : \ \ p
0025600 r i n d a t u m ( i l : f e t
0025620 c h f i e l d \r
0025640
*
0025740 i l : d e
0025760 s c r i p t o r \r
0026000
*
0026100 i l :
0026120 s t r u c ) \r
0026140
*
0026240 s t r e a m ) ) ) \r
0026260 ( i l
0026300 : p r i n 1 " ) " s t r e a
0026320 m ) ) \r
0026340 t ) ) ) ) \r ) \r \r ( i l : p u
0026360 t p r o p s 006 002 i l : d e f s
0026400 t r u c t - r u n - t i m e i
0026420 l : f i l e t y p e 006 001 c o m
0026440 p i l e - f i l e ) \r \r ( i l :
0026460 p u t p r o p s 006 002 i l : d e
0026500 f s t r u c t - r u n - t i m e
0026520 i l : m a k e f i l e - e n v
0026540 i r o n m e n t 006 001 ( : r e a
0026560 d t a b l e " X C L " : p a
0026600 c k a g e " L I S P " ) ) \r (
0026620 i l : d e c l a r e \ : i l :
0026640 d o n t e v a l @ l o a d i l
0026660 : d o e v a l @ c o m p i l e
0026700 i l : d o n t c o p y i l : c
0026720 o m p i l e r v a r s \r \r ( i
0026740 l : a d d t o v a r 006 002 i l :
0026760 n l a m a 006 001 ) \r \r ( i l : a
0027000 d d t o v a r 006 002 i l : n l a
0027020 m l 006 001 ) \r \r ( i l : a d d t
0027040 o v a r 006 002 i l : l a m a 006 001
0027060 ) \r ) \r ( i l : p u t p r o p
0027100 s i l : d e f s t r u c t - r
0027120 u n - t i m e i l : c o p y r
0027140 i g h t ( " X e r o x C o r
0027160 p o r a t i o n " 1 9 8 6 ) )
0027200 \r ( i l : d e c l a r e \ : i
0027220 l : d o n t c o p y \r ( i l
0027240 : f i l e m a p ( n i l ( 9
0027260 4 3 1 1 1 4 9 6 ( i l : \ \
0027300 d e f p r i n t . d e f s t r u
0027320 c t . d e f a u l t 9 4 4 4
0027340 . 1 1 4 9 4 ) ) ) ) ) \r i l :
0027360 s t o p \r
0027365