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