$ od -c -N 50000 [eris]<LispCore>SOURCES>DEFSTRUCT-RUN-TIME.DCOM!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 ( i l : f i l e c r e a
0000100 t e d " 2 9 - O c t - 8 6 2
0000120 1 : 5 8 : 1 2 " ( " c o m p i
0000140 l e d o n " i l : { e r i
0000160 s } < l i s p c o r e > s o u r
0000200 c e s > d e f s t r u c t - r u
0000220 n - t i m e . \ ; 6 \r ) " 2 1
0000240 - O c t - 8 6 0 4 : 1 3 : 0 1
0000260 " " C O M P I L E - F I L E d
0000300 " i l : | i n | " X e r o x
0000320 L i s p 2 1 - O c t - 8 6
0000340 . . . " i l : | d a t e d |
0000360 \r " 2 1 - O c t - 8 6 0 4 : 4
0000400 8 : 4 3 " ) \r ( i l : f i l e c
0000420 r e a t e d " 2 9 - O c t - 8
0000440 6 2 1 : 5 7 : 5 8 " i l : {
0000460 e r i s } < l i s p c o r e > s
0000500 o u r c e s > d e f s t r u c t
0000520 - r u n - t i m e . \ ; 6 1 1
0000540 9 3 3 \r i l : | c h a n g e s
0000560 | i l : | t o : | ( i l : f
0000600 n s i l : \ \ d e f p r i n t
0000620 . d e f s t r u c t . d e f a u
0000640 l t ) ( i l : v a r s i l :
0000660 d e f s t r u c t - r u n - t i
0000700 m e c o m s ) ( \r i l : f u n
0000720 c t i o n s p r i n t - s t r
0000740 u c t u r e - i n s t a n c e
0000760 d e f a u l t - s t r u c t u r
0001000 e - p r i n t e r s i : : % s
0001020 t r u c t u r e - d e c l a r e
0001040 - d a t a t y p e \r c r e a t
0001060 e - s t r u c t u r e - o b j e
0001100 c t ) ( i l : v a r i a b l e
0001120 s * p r i n t - s t r u c t u
0001140 r e * ) i l : | p r e v i o u
0001160 s | i l : | d a t e : | \r "
0001200 2 4 - O c t - 8 6 1 5 : 4 6 :
0001220 3 2 " i l : { e r i s } < n u
0001240 y e n s > z e b r a > d e f s t
0001260 r u c t - r u n - t i m e . \ ;
0001300 2 1 ) \r ( i l : r p a q q i l
0001320 : d e f s t r u c t - r u n - t
0001340 i m e c o m s ( ( i l : f u n
0001360 c t i o n s s i : : % s t r u
0001400 c t u r e - d e c l a r e - d a
0001420 t a t y p e \r c r e a t e - s
0001440 t r u c t u r e - o b j e c t
0001460 p r i n t - s t r u c t u r e -
0001500 i n s t a n c e ) ( i l : v a
0001520 r i a b l e s * p a r s e d -
0001540 s t r u c t u r e s * * p r i
0001560 n t - s t r u c t u r e * ) \r
0001600 ( i l : f u n c t i o n s s e
0001620 t - p a r s e d - s t r u c t u
0001640 r e p a r s e d - s t r u c t
0001660 u r e s t r u c t u r e - s l
0001700 o t - n a m e s d e f a u l t
0001720 - s t r u c t u r e - p r i n t
0001740 e r \r i l : c r e a t e - s t
0001760 r u c t u r e s t r u c t u r
0002000 e - c o n s t r u c t o r ) (
0002020 i l : s e t f s p a r s e d -
0002040 s t r u c t u r e ) ( i l : *
0002060 i l : | ; ; | \r " U S E S
0002100 S T R U C T U R E - S L O T - N
0002120 A M E S b u t f o r n o w
0002140 s u p p o r t s l o o k i n
0002160 g o n t h e p l i s t . "
0002200 ) ( i l : f u n c t i o n s
0002220 i l : s l o t - l i s t ) ( \r
0002240 i l : f n s i l : \ \ d e f p
0002260 r i n t . d e f s t r u c t . d
0002300 e f a u l t ) ( i l : p r o p
0002320 i l : f i l e t y p e i l :
0002340 d e f s t r u c t - r u n - t i
0002360 m e ) ( i l : p r o p \r i l
0002400 : m a k e f i l e - e n v i r o
0002420 n m e n t i l : d e f s t r u
0002440 c t - r u n - t i m e ) ( i l
0002460 : d e c l a r e \ : i l : d o
0002500 n t e v a l @ l o a d i l : d
0002520 o e v a l @ c o m p i l e \r i
0002540 l : d o n t c o p y i l : c o
0002560 m p i l e r v a r s ( i l : a
0002600 d d v a r s ( i l : n l a m a
0002620 ) ( i l : n l a m l ) ( i l
0002640 : l a m a ) ) ) ) ) \r i l : % s
0002660 t r u c t u r e - d e c l a r e
0002700 - d a t a t y p e a 0 0 0 1 i
0002720 l : d 1 \r ( i l : l ( 0 d e
0002740 s c r i p t o r ) ) \0 033 001 \0 \0
0002760 001 @ 002 002 001 021 001 \0 H g \0 \0 360 246 H g
0003000 \0 \0 360 264 \a @ 002 001 h 032 020 \0 n i l \r
0003020 ( 1 6 i l : f u l l p o i n t
0003040 e r 1 0 i l : p o i n t e r
0003060 ) \r ( ) \r s i : : % s t r u c t
0003100 u r e - d e c l a r e - d a t a
0003120 t y p e i l : d 1 \r ( i l : l
0003140 ( 4 s u p e r t y p e 3
0003160 w o r d - l e n g t h 2 f i
0003200 e l d - d e s c r i p t o r s
0003220 1 f i e l d - s p e c i f i c
0003240 a t i o n s 0 n a m e ) )
0003260 \0 c 004 \0 \0 005 @ 021 001 \0 H 303 \0 \0 262 :
0003300 023 C 021 001 \0 H 3 262 @ 023 g \0 \0 B \n
0003320 \0 \0 021 1 003 @ B C A H D \r 006 \0 \0 \t
0003340 \0 \0 Y 001 272 I 002 001 273 @ i \n \0 \0 J \n
0003360 \0 \0 B K \n \0 \0 020 i g \0 \0 H g \0 \0
0003400 \f \0 \0 b \0 023 260 260 i g \0 \0 H g \0 \0
0003420 \f \0 \0 b 006 023 260 253 \0 ( 9 2 i l :
0003440 c h e c k - t y p e - f a i l
0003460 7 6 i l : c h e c k - t y p e
0003500 - f a i l 6 4 v a l u e s
0003520 5 9 i l : s e t t o p v a l
0003540 5 5 i l : \ \ t y p e g l o b
0003560 a l v a r i a b l e 4 3 i l
0003600 : \ \ m v l i s t 4 0 i l :
0003620 \ \ a s s i g n d a t a t y p e
0003640 1 2 7 m a p c a n ) \r ( 8 9
0003660 i n t e g e r 8 5 w o r d
0003700 - l e n g t h 7 3 s y m b o
0003720 l 6 9 n a m e 2 3 i l :
0003740 % s t r u c t u r e - d e c l a
0003760 r e - d a t a t y p e a 0 0 0 1
0004000 7 i l : l i t a t o m ) \r (
0004020 ) \r ( l e t * ( ( i l : a 1 5
0004040 0 8 ( q u o t e s i : : % s
0004060 t r u c t u r e - d e c l a r e
0004100 - d a t a t y p e ) ) ( i l :
0004120 a 1 5 0 9 ( q u o t e f u n
0004140 c t i o n ) ) ( i l : a 1 5 1
0004160 0 \r " a n a l a g o u s t o
0004200 d e c l a r e - d a t a t y p
0004220 e , b u t d o e s n o t
0004240 p r e p e n d t h e s u p e
0004260 r s d e s c r i p t o r s .
0004300 Y o u m u s t i n c l u d e
0004320 a l l d e s c s . " \r ) )
0004340 ( p r o g n ( c o n d ( ( f
0004360 b o u n d p ( q u o t e i l
0004400 : s e t - d o c u m e n t a t i
0004420 o n ) ) ( i l : s e t - d o c
0004440 u m e n t a t i o n i l : a 1
0004460 5 0 8 i l : a 1 5 0 9 i l :
0004500 a 1 5 1 0 \r ) ) ) i l : a 1 5
0004520 1 0 ) ) \r i l : c r e a t e - s
0004540 t r u c t u r e - o b j e c t a
0004560 0 0 0 1 i l : d 1 \r ( i l : l
0004600 ( 0 i l : $ $ t y p e - f o
0004620 r m ) ) \0 006 \0 \0 \0 001 o \0 \0 \0 020
0004640 \0 n i l \r n i l \r ( 3 ( i l
0004660 : d a t a t y p e s t r u c t
0004700 u r e - o b j e c t ) ) \r c r e
0004720 a t e - s t r u c t u r e - o b
0004740 j e c t i l : d 1 \r n i l \0
0004760 $ \0 \0 \0 \0 g \0 \0 h d j h \r 005 \0 \0
0005000 g \0 \0 g \0 \0 \n \0 \0 277 g \0 \0 g \0 \0
0005020 g \0 \0 \v \0 \0 h 020 \0 ( 3 2 i l :
0005040 p u t 1 9 i l : s e t f - s
0005060 y m b o l - f u n c t i o n 1
0005100 0 s i : : % s t r u c t u r e
0005120 - d e c l a r e - d a t a t y p
0005140 e ) \r ( 2 9 | t y p e - e x p
0005160 a n d - S T R U C T U R E - O B
0005200 J E C T | 2 6 i l : t y p e
0005220 - e x p a n d e r 2 3 s t r
0005240 u c t u r e - o b j e c t 1 6
0005260 i l : c r e a t e - s t r u c
0005300 t u r e - o b j e c t a 0 0 0 1
0005320 1 3 | t y p e - e x p a n d
0005340 - S T R U C T U R E - O B J E C
0005360 T | 2 s t r u c t u r e - o
0005400 b j e c t ) \r ( ) \r ( l e t *
0005420 ( ( i l : a 1 5 1 1 ( q u o t
0005440 e c r e a t e - s t r u c t u
0005460 r e - o b j e c t ) ) ( i l :
0005500 a 1 5 1 2 ( q u o t e f u n
0005520 c t i o n ) ) ( i l : a 1 5 1
0005540 3 \r " c r e a t e s t h e
0005560 e m p t y d a t a t y p e t
0005600 h a t i s i n c l u d e d
0005620 b y e v e r y C o m m o n
0005640 L i s p i n s t a n c e " ) )
0005660 ( p r o g n ( c o n d ( (
0005700 f b o u n d p ( \r q u o t e
0005720 i l : s e t - d o c u m e n t a
0005740 t i o n ) ) ( i l : s e t - d
0005760 o c u m e n t a t i o n i l :
0006000 a 1 5 1 1 i l : a 1 5 1 2 i
0006020 l : a 1 5 1 3 ) ) ) i l : a 1
0006040 5 1 3 ) ) \r p r i n t - s t r u
0006060 c t u r e - i n s t a n c e i
0006100 l : d 1 \r ( i l : l ( 2 d e
0006120 p t h 1 s t r e a m 0 o
0006140 b j e c t ) i l : f 0 * p
0006160 a r s e d - s t r u c t u r e s
0006200 * i l : f 1 % d e f a u l
0006220 t - p r i n t - f u n c t i o n
0006240 ) \0 " \0 002 \0 003 @ A B l 003 @ \t \0
0006260 \0 P 026 002 265 \r o \0 \0 \0 @ \t \0 \0 \n \0
0006300 \0 \t \0 \0 265 003 Q 016 020 \0 ( 2 7 p s
0006320 - p r i n t - f u n c t i o n
0006340 2 4 e r r o r 2 1 t y p e
0006360 - o f 8 t y p e - o f ) \r n
0006400 i l \r ( 1 7 " ~ s i s n
0006420 o t a d e f i n e d s t r
0006440 u c t u r e " ) \r ( l e t * (
0006460 ( i l : a 1 5 1 4 ( q u o t e
0006500 p r i n t - s t r u c t u r e
0006520 - i n s t a n c e ) ) ( i l :
0006540 a 1 5 1 5 ( q u o t e f u n
0006560 c t i o n ) ) ( i l : a 1 5 1
0006600 6 \r " l o o k s u p t h e
0006620 p r i n t f u n c t i o n
0006640 f o r t h e s t r u c t u r
0006660 e i n s t a n c e a n d c
0006700 a l l s i t " ) ) ( p r o g
0006720 n ( c o n d ( ( f b o u n d
0006740 p ( q u o t e \r i l : s e t
0006760 - d o c u m e n t a t i o n ) )
0007000 ( i l : s e t - d o c u m e n
0007020 t a t i o n i l : a 1 5 1 4
0007040 i l : a 1 5 1 5 i l : a 1 5 1
0007060 6 ) ) ) i l : a 1 5 1 6 ) ) \r
0007100 ( p r o c l a i m ( q u o t e
0007120 ( s p e c i a l * p a r s e
0007140 d - s t r u c t u r e s * ) ) )
0007160 \r ( o r ( b o u n d p ( q u
0007200 o t e * p a r s e d - s t r u
0007220 c t u r e s * ) ) ( i l : s e
0007240 t q * p a r s e d - s t r u c
0007260 t u r e s * ( q u o t e ( n
0007300 i l ) ) ) ) \r ( l e t * ( ( i
0007320 l : a 1 5 1 7 ( q u o t e *
0007340 p a r s e d - s t r u c t u r e
0007360 s * ) ) ( i l : a 1 5 1 8 (
0007400 q u o t e v a r i a b l e ) )
0007420 ( i l : a 1 5 1 9 \r " a l l
0007440 d e c l a r e d s t r u c t
0007460 u r e s " ) ) ( p r o g n (
0007500 c o n d ( ( f b o u n d p (
0007520 q u o t e i l : s e t - d o c
0007540 u m e n t a t i o n ) ) ( i l
0007560 : s e t - d o c u m e n t a t i
0007600 o n \r i l : a 1 5 1 7 i l :
0007620 a 1 5 1 8 i l : a 1 5 1 9 ) )
0007640 ) i l : a 1 5 1 9 ) ) \r ( p r
0007660 o c l a i m ( q u o t e ( s
0007700 p e c i a l * p r i n t - s t
0007720 r u c t u r e * ) ) ) \r ( o r
0007740 ( b o u n d p ( q u o t e *
0007760 p r i n t - s t r u c t u r e *
0010000 ) ) ( i l : s e t q * p r i
0010020 n t - s t r u c t u r e * n i
0010040 l ) ) \r ( l e t * ( ( i l : a
0010060 1 5 2 0 ( q u o t e * p r i
0010100 n t - s t r u c t u r e * ) )
0010120 ( i l : a 1 5 2 1 ( q u o t e
0010140 v a r i a b l e ) ) ( i l :
0010160 a 1 5 2 2 \r " F l a g i n d
0010200 i c a t i n g w h e t h e r
0010220 t h e c o n t e n t s o f
0010240 s t r u c t u r e s a r e t
0010260 o b e p r i n t e d . " ) )
0010300 ( p r o g n ( c o n d ( (
0010320 f b o u n d p ( \r q u o t e
0010340 i l : s e t - d o c u m e n t a
0010360 t i o n ) ) ( i l : s e t - d
0010400 o c u m e n t a t i o n i l :
0010420 a 1 5 2 0 i l : a 1 5 2 1 i
0010440 l : a 1 5 2 2 ) ) ) i l : a 1
0010460 5 2 2 ) ) \r s e t - p a r s e d
0010500 - s t r u c t u r e i l : d 1
0010520 \r ( i l : l ( 1 p s 0 n
0010540 a m e ) i l : f 0 * p a r
0010560 s e d - s t r u c t u r e s * )
0010600 \0 027 \0 001 \0 002 @ d P 026 002 226 P 026 d
0010620 A 031 277 020 A 032 P 032 c \0 c \0 020 \0 n i
0010640 l \r n i l \r ( ) \r | e x p a n d
0010660 - P A R S E D - S T R U C T U R
0010700 E | i l : d 1 \r ( i l : l (
0010720 1 s i : : $ $ m a c r o - e n
0010740 v i r o n m e n t 0 s i : :
0010760 $ $ m a c r o - f o r m ) ) \0
0011000 E 002 \0 \0 002 @ 002 021 021 001 H 001 271 H 002 265
0011020 & g \0 \0 g \0 \0 g \0 \0 I o \0 \0 \0 032
0011040 032 h 032 032 g \0 \0 o \0 \0 \0 I h 032 032 032
0011060 h 032 032 032 020 001 262 333 g \0 \0 g \0 \0 I o
0011100 \0 \0 \0 032 032 h 032 032 020 \0 n i l \r ( 5
0011120 6 i l : a s s o c 5 3 c d
0011140 r 3 3 e r r o r 2 0 i l
0011160 : a s s o c 1 7 c d r 1 4
0011200 o r ) \r ( 6 1 ( * p a r s
0011220 e d - s t r u c t u r e s * )
0011240 3 7 " ~ s i s n o t a
0011260 d e f i n e d s t r u c t u r
0011300 e " 2 5 ( * p a r s e d - s
0011320 t r u c t u r e s * ) ) \r ( i l
0011340 : s e t f - m a c r o - f u n c
0011360 t i o n ( q u o t e p a r s
0011400 e d - s t r u c t u r e ) ( q
0011420 u o t e | e x p a n d - P A R
0011440 S E D - S T R U C T U R E | ) )
0011460 \r ( l e t * ( ( i l : a 1 5 2
0011500 5 ( q u o t e p a r s e d -
0011520 s t r u c t u r e ) ) ( i l :
0011540 a 1 5 2 6 ( q u o t e f u n
0011560 c t i o n ) ) ( i l : a 1 5 2
0011600 7 \r " r e t u r n s t h e
0011620 p a r s e d - s t r u c t u r e
0011640 c o r r e s p o n d i n g t
0011660 o n a m e " ) ) ( p r o g n
0011700 ( c o n d ( ( f b o u n d p
0011720 ( q u o t e \r i l : s e t -
0011740 d o c u m e n t a t i o n ) )
0011760 ( i l : s e t - d o c u m e n t
0012000 a t i o n i l : a 1 5 2 5 i
0012020 l : a 1 5 2 6 i l : a 1 5 2 7
0012040 ) ) ) i l : a 1 5 2 7 ) ) \r s
0012060 t r u c t u r e - s l o t - n a
0012100 m e s i l : d 1 \r ( i l : l
0012120 ( 1 d o n t - c o p y 0 s
0012140 t r u c t u r e - n a m e ) i
0012160 l : f 2 * p a r s e d - s t
0012200 r u c t u r e s * ) \0 + 002 001 \0
0012220 002 @ R 026 002 265 \n o \0 \0 \0 @ \n \0 \0 021
0012240 021 001 H 265 \f o \0 \0 \0 @ \n \0 \0 277 H \t
0012260 \0 \0 Y A 220 020 I \t \0 \0 020 \0 ( 4 0
0012300 c o p y - l i s t 3 2 p s -
0012320 a l l - s l o t - n a m e s 2
0012340 7 e r r o r 1 3 e r r o r
0012360 ) \r n i l \r ( 2 3 " ~ S i
0012400 s n o t a d e c l a r e d
0012420 s t r u c t u r e . " 9 "
0012440 ~ s i s n o t a d e f i
0012460 n e d s t r u c t u r e " ) \r
0012500 d e f a u l t - s t r u c t u r
0012520 e - p r i n t e r i l : d 1 \r
0012540 ( i l : l ( 2 i l : p r i n
0012560 t - d e p t h 1 s t r e a m
0012600 0 i l : s t r u c t u r e )
0012620 ) \0 \b \0 \0 \0 003 @ A B \v \0 \0 020 \0
0012640 ( 5 i l : \ \ d e f p r i n t
0012660 . d e f s t r u c t . d e f a u
0012700 l t ) \r n i l \r ( ) \r i l : c r
0012720 e a t e - s t r u c t u r e i
0012740 l : d 1 \r ( i l : l ( 0 s t
0012760 r u c t u r e - f o r m ) ) \0
0013000 Q 006 \0 \0 001 @ 001 \t \0 \0 j 021 022 002 021 0
0013020 005 @ 260 031 d Z 001 \t \0 \0 J 002 001 h 032 032
0013040 [ 003 226 L 265 017 K ] \ 277 002 002 003 265 347 M
0013060 022 260 036 \t \0 \0 \ K 031 260 360 d 001 375 002 I
0013100 k 330 Y n 002 \0 361 226 h l 4 \n \0 \0 277 265
0013120 354 I H 016 020 \0 ( 7 2 i l : \ \ l
0013140 i s p e r r o r 4 8 l a s t
0013160 2 0 m a k e - k e y w o r d
0013200 4 s t r u c t u r e - c o n
0013220 s t r u c t o r ) \r n i l \r ( )
0013240 \r s t r u c t u r e - c o n s t
0013260 r u c t o r i l : d 1 \r ( i l
0013300 : l ( 0 s t r u c t u r e -
0013320 n a m e ) i l : f 1 * p a
0013340 r s e d - s t r u c t u r e s *
0013360 ) \0 / 001 001 \0 001 @ 301 002 311 \0 g \0 \0
0013400 ' 265 $ @ Q 026 002 265 \n o \0 \0 \0 @ \n \0
0013420 \0 021 001 \0 H \t \0 \0 265 \r o \0 \0 \0 H \t
0013440 \0 \0 \n \0 \0 020 \0 ( 4 4 e r r o r
0013460 4 1 p s - n a m e 3 1 p
0013500 s - s t a n d a r d - c o n s t
0013520 r u c t o r 2 4 e r r o r )
0013540 \r ( 7 i l : s t r u c t u r e
0013560 - c o n s t r u c t o r ) \r (
0013600 3 7 " ~ S i s a s t r u
0013620 c t u r e w i t h n o s t
0013640 a n d a r d c o n s t r u c t
0013660 o r . " 2 0 " ~ s i s n
0013700 o t a d e f i n e d s t r
0013720 u c t u r e " ) \r ( r e m p r o
0013740 p ( q u o t e p a r s e d -
0013760 s t r u c t u r e ) ( q u o t
0014000 e i l : s e t f - m e t h o d
0014020 - e x p a n d e r ) ) \r ( i l :
0014040 p u t p r o p s p a r s e d -
0014060 s t r u c t u r e i l : s e t
0014100 f - i n v e r s e s e t - p a
0014120 r s e d - s t r u c t u r e ) \r
0014140 i l : s l o t - l i s t i l :
0014160 d 1 \r ( i l : l ( 0 n a m e
0014200 ) ) \0 024 \0 \0 \0 001 @ 301 002 311 \0 g \0
0014220 \0 ' \t \0 \0 265 006 @ \t \0 \0 020 \0 ( 1 7
0014240 s t r u c t u r e - s l o t -
0014260 n a m e s 1 1 i l : c o p y
0014300 ) \r ( 7 i l : % s l o t - d e
0014320 s c r i p t i o n s ) \r ( ) \r i
0014340 l : \ \ d e f p r i n t . d e f
0014360 s t r u c t . d e f a u l t i
0014400 l : d 1 \r ( i l : p 1 1 i l
0014420 : d e s c r i p t o r i l : p
0014440 1 0 i l : f i e l d i l :
0014460 p 7 * p r i n t - l e v e l
0014500 * i l : p 2 f i r s t - t
0014520 i m e ? i l : p 1 l a b e
0014540 l i l : p 0 t y p e i l
0014560 : i 2 p r i n t - l e v e l
0014600 i l : i 1 s t r e a m i
0014620 l : i 0 i l : s t r u c i
0014640 l : f 1 2 * p r i n t - s t
0014660 r u c t u r e * i l : f 1 3
0014700 i l : * p r i n t - c i r c l
0014720 e - h a s h t a b l e * i l :
0014740 f 1 4 * r e a d t a b l e *
0014760 i l : f 1 5 * p r i n t -
0015000 l e v e l * ) \0 273 \f 004 \0 003 W 030
0015020 246 @ A j \v \0 \0 020 @ \t \0 \0 021 a 006 W
0015040 032 235 @ \t \0 \0 \t \0 \0 [ 001 271 K 002 001 272
0015060 I 265 F J 262 \ A W 034 006 \0 \0 312 004 \a 276
0015100 ] 006 \0 \0 311 274 M N l 002 L 016 277 o \0
0015120 \0 \0 A \n \0 \0 277 H A \n \0 \0 277 W 036 d
0015140 221 k 331 021 001 \a H \t \0 \0 H \t \0 \0 021 "
0015160 \v O 022 003 265 \t 216 \t \0 \0 277 260 270 001 _ 024
0015200 277 O 020 003 265 016 023 023 o \0 \0 \0 A \n \0 \0
0015220 i 020 001 _ 026 277 o \0 \0 \0 A \n \0 \0 277 O
0015240 024 A \n \0 \0 277 o \0 \0 \0 A \n \0 \0 277 O
0015260 026 @ \n \0 \0 A \n \0 \0 277 O 022 002 _ 022 277
0015300 O 020 002 _ 020 277 260 253 \0 ( 1 7 0 i l
0015320 : \ \ p r i n d a t u m 1 6 6
0015340 i l : f e t c h f i e l d 1
0015360 5 9 i l : p r i n 1 1 5 0
0015400 i l : p r i n 2 1 4 3 i l :
0015420 p r i n 1 1 2 9 i l : p r i
0015440 n 1 1 0 7 i l : p r i n 3
0015460 9 5 i l : s l o t - l i s t
0015500 9 1 i l : g e t d e s c r i p
0015520 t o r s 7 7 i l : p r i n 2
0015540 7 1 i l : p r i n 3 2 6
0015560 i l : \ \ m v l i s t 2 3 i
0015600 l : p r i n t - c i r c l e - l
0015620 o o k u p 1 3 i l : t y p e
0015640 n a m e 8 i l : \ \ p r i n
0015660 t - u s i n g - a d d r e s s )
0015700 \r ( 5 3 s t r e a m 4 5 r
0015720 e a d t a b l e p ) \r ( 1 5 5
0015740 " " 1 3 9 " " 1 2 5
0015760 " ) " 6 7 " S ( " ) \r ( i
0016000 l : p u t p r o p s i l : d e
0016020 f s t r u c t - r u n - t i m e
0016040 i l : f i l e t y p e c o m
0016060 p i l e - f i l e ) \r ( i l : p
0016100 u t p r o p s i l : d e f s t
0016120 r u c t - r u n - t i m e i l
0016140 : m a k e f i l e - e n v i r o
0016160 n m e n t ( : r e a d t a b l
0016200 e " X C L " : p a c k a g e
0016220 " L I S P " ) ) \r ( i l : p u
0016240 t p r o p s i l : d e f s t r
0016260 u c t - r u n - t i m e i l :
0016300 c o p y r i g h t ( " X e r o
0016320 x C o r p o r a t i o n " 1
0016340 9 8 6 ) ) \r n i l \r
0016352