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