$ od -c -N 50000 [eris]<LispCore>SOURCES>DEFSTRUCT-RUN-TIME.DCOM!5
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 4 - O c t - 8 6 1
0000120 5 : 4 6 : 4 9 " ( " c o m p i
0000140 l e d o n " i l : { e r i
0000160 s } < n u y e n s > z e b r a >
0000200 d e f s t r u c t - r u n - t i
0000220 m e . \ ; 2 1 ) \r " 2 1 - O c
0000240 t - 8 6 0 4 : 1 3 : 0 1 " "
0000260 C O M P I L E - F I L E d " i
0000300 l : | i n | " X e r o x L i
0000320 s p 2 1 - O c t - 8 6 . . .
0000340 " i l : | d a t e d | \r " 2
0000360 1 - O c t - 8 6 0 4 : 4 8 : 4
0000400 3 " ) \r ( i l : f i l e c r e a
0000420 t e d " 2 4 - O c t - 8 6 1
0000440 5 : 4 6 : 3 2 " i l : { e r i
0000460 s } < n u y e n s > z e b r a >
0000500 d e f s t r u c t - r u n - t i
0000520 m e . \ ; 2 1 9 6 4 4 i l :
0000540 | c h a n g e s | \r i l : | t
0000560 o : | ( i l : f u n c t i o n
0000600 s p a r s e d - s t r u c t u
0000620 r e s e t - p a r s e d - s t
0000640 r u c t u r e s i : : % s t r
0000660 u c t u r e - d e c l a r e - d
0000700 a t a t y p e \r i l : c r e a
0000720 t e - s t r u c t u r e c r e
0000740 a t e - s t r u c t u r e s t
0000760 r u c t u r e - c o n s t r u c
0001000 t o r ) ( i l : v a r s i l
0001020 : d e f s t r u c t - r u n - t
0001040 i m e c o m s ) ( i l : f n s
0001060 \r i l : \ \ d e f p r i n t .
0001100 d e f s t r u c t . d e f a u l
0001120 t ) i l : | p r e v i o u s |
0001140 i l : | d a t e : | " 2 2 -
0001160 O c t - 8 6 1 3 : 1 1 : 5 9 "
0001200 \r i l : { e r i s } < n u y e
0001220 n s > z e b r a > d e f s t r u
0001240 c t - r u n - t i m e . \ ; 1 7
0001260 ) \r ( i l : r p a q q i l : d
0001300 e f s t r u c t - r u n - t i m
0001320 e c o m s ( ( i l : f u n c t
0001340 i o n s s i : : % s t r u c t
0001360 u r e - d e c l a r e - d a t a
0001400 t y p e ) ( i l : v a r i a b
0001420 l e s \r * p a r s e d - s t r
0001440 u c t u r e s * ) ( i l : f u
0001460 n c t i o n s s e t - p a r s
0001500 e d - s t r u c t u r e p a r
0001520 s e d - s t r u c t u r e s t
0001540 r u c t u r e - s l o t - n a m
0001560 e s \r d e f a u l t - s t r u
0001600 c t u r e - p r i n t e r i l
0001620 : c r e a t e - s t r u c t u r
0001640 e s t r u c t u r e - c o n s
0001660 t r u c t o r ) ( i l : s e t
0001700 f s p a r s e d - s t r u c t
0001720 u r e ) ( i l : * \r i l : |
0001740 ; ; | " U S E S S T R U C T
0001760 U R E - S L O T - N A M E S b
0002000 u t f o r n o w s u p p o
0002020 r t s l o o k i n g o n t
0002040 h e p l i s t . " ) ( i l :
0002060 f u n c t i o n s \r i l : s l
0002100 o t - l i s t ) ( i l : f n s
0002120 i l : \ \ d e f p r i n t . d
0002140 e f s t r u c t . d e f a u l t
0002160 ) ( i l : p r o p i l : f i
0002200 l e t y p e i l : d e f s t r
0002220 u c t - r u n - t i m e ) ( \r
0002240 i l : p r o p i l : m a k e f
0002260 i l e - e n v i r o n m e n t
0002300 i l : d e f s t r u c t - r u n
0002320 - t i m e ) ( i l : d e c l a
0002340 r e \ : i l : d o n t e v a l
0002360 @ l o a d i l : d o e v a l @
0002400 c o m p i l e \r i l : d o n t
0002420 c o p y i l : c o m p i l e r
0002440 v a r s ( i l : a d d v a r s
0002460 ( i l : n l a m a ) ( i l :
0002500 n l a m l ) ( i l : l a m a )
0002520 ) ) ) ) \r i l : % s t r u c t u
0002540 r e - d e c l a r e - d a t a t
0002560 y p e a 0 0 0 1 i l : d 1 \r (
0002600 i l : l ( 0 d e s c r i p t
0002620 o r ) ) \0 033 001 \0 \0 001 @ 002 002 001 021
0002640 001 \0 H g \0 \0 360 246 H g \0 \0 360 264 \a @
0002660 002 001 h 032 020 \0 n i l \r ( 1 6 i l
0002700 : f u l l p o i n t e r 1 0
0002720 i l : p o i n t e r ) \r ( ) \r s
0002740 i : : % s t r u c t u r e - d e
0002760 c l a r e - d a t a t y p e i
0003000 l : d 1 \r ( i l : l ( 4 s u
0003020 p e r t y p e 3 w o r d - l
0003040 e n g t h 2 f i e l d - d e
0003060 s c r i p t o r s 1 f i e l
0003100 d - s p e c i f i c a t i o n s
0003120 0 n a m e ) ) \0 c 004 \0 \0 005
0003140 @ 021 001 \0 H 303 \0 \0 262 : 023 C 021 001 \0 H
0003160 3 262 @ 023 g \0 \0 B \n \0 \0 021 1 003 @
0003200 B C A H D \r 006 \0 \0 \t \0 \0 Y 001 272 I
0003220 002 001 273 @ i \n \0 \0 J \n \0 \0 B K \n \0
0003240 \0 020 i g \0 \0 H g \0 \0 \f \0 \0 b \0 023
0003260 260 260 i g \0 \0 H g \0 \0 \f \0 \0 b 006 023
0003300 260 253 \0 ( 9 2 i l : c h e c k -
0003320 t y p e - f a i l 7 6 i l :
0003340 c h e c k - t y p e - f a i l
0003360 6 4 v a l u e s 5 9 i l :
0003400 s e t t o p v a l 5 5 i l :
0003420 \ \ t y p e g l o b a l v a r i
0003440 a b l e 4 3 i l : \ \ m v l
0003460 i s t 4 0 i l : \ \ a s s i
0003500 g n d a t a t y p e 1 2 7 m
0003520 a p c a n ) \r ( 8 9 i n t e g
0003540 e r 8 5 w o r d - l e n g t
0003560 h 7 3 s y m b o l 6 9 n
0003600 a m e 2 3 i l : % s t r u c
0003620 t u r e - d e c l a r e - d a t
0003640 a t y p e a 0 0 0 1 7 i l :
0003660 l i t a t o m ) \r ( ) \r ( l e t
0003700 * ( ( i l : a 2 1 3 5 ( q u
0003720 o t e s i : : % s t r u c t u
0003740 r e - d e c l a r e - d a t a t
0003760 y p e ) ) ( i l : a 2 1 3 6
0004000 ( q u o t e f u n c t i o n )
0004020 ) ( i l : a 2 1 3 7 \r " a n
0004040 a l a g o u s t o d e c l a
0004060 r e - d a t a t y p e , b u t
0004100 d o e s n o t p r e p e n
0004120 d t h e s u p e r s d e s
0004140 c r i p t o r s . Y o u m u
0004160 s t i n c l u d e a l l d
0004200 e s c s . " \r ) ) ( p r o g n
0004220 ( c o n d ( ( f b o u n d p
0004240 ( q u o t e i l : s e t - d
0004260 o c u m e n t a t i o n ) ) (
0004300 i l : s e t - d o c u m e n t a
0004320 t i o n i l : a 2 1 3 5 i l
0004340 : a 2 1 3 6 i l : a 2 1 3 7 \r
0004360 ) ) ) i l : a 2 1 3 7 ) ) \r (
0004400 p r o c l a i m ( q u o t e
0004420 ( s p e c i a l * p a r s e d
0004440 - s t r u c t u r e s * ) ) ) \r
0004460 ( o r ( b o u n d p ( q u o
0004500 t e * p a r s e d - s t r u c
0004520 t u r e s * ) ) ( i l : s e t
0004540 q * p a r s e d - s t r u c t
0004560 u r e s * ( q u o t e ( n i
0004600 l ) ) ) ) \r ( l e t * ( ( i l
0004620 : a 2 1 3 8 ( q u o t e * p
0004640 a r s e d - s t r u c t u r e s
0004660 * ) ) ( i l : a 2 1 3 9 ( q
0004700 u o t e i l : v a r i a b l e
0004720 ) ) ( i l : a 2 1 4 0 \r " a
0004740 l l d e c l a r e d s t r u
0004760 c t u r e s " ) ) ( p r o g n
0005000 ( c o n d ( ( f b o u n d p
0005020 ( q u o t e i l : s e t - d
0005040 o c u m e n t a t i o n ) ) (
0005060 i l : s e t - d o c u m e n t a
0005100 t i o n \r i l : a 2 1 3 8 i
0005120 l : a 2 1 3 9 i l : a 2 1 4 0
0005140 ) ) ) i l : a 2 1 4 0 ) ) \r s
0005160 e t - p a r s e d - s t r u c t
0005200 u r e i l : d 1 \r ( i l : l
0005220 ( 1 p s 0 n a m e ) i l
0005240 : f 0 * p a r s e d - s t r
0005260 u c t u r e s * ) \0 027 \0 001 \0 002
0005300 @ d P 026 002 226 P 026 d A 031 277 020 A 032 P
0005320 032 c \0 c \0 020 \0 n i l \r n i l \r (
0005340 ) \r | e x p a n d - P A R S E D
0005360 - S T R U C T U R E | i l : d
0005400 1 \r ( i l : l ( 1 i l : $ $
0005420 m a c r o - e n v i r o n m e n
0005440 t 0 i l : $ $ m a c r o - f
0005460 o r m ) ) \0 E 002 \0 \0 002 @ 002 021 021
0005500 001 H 001 271 H 002 265 & g \0 \0 g \0 \0 g \0
0005520 \0 I o \0 \0 \0 032 032 h 032 032 g \0 \0 o \0
0005540 \0 \0 I h 032 032 032 h 032 032 032 020 001 262 333 g
0005560 \0 \0 g \0 \0 I o \0 \0 \0 032 032 h 032 032 020
0005600 \0 n i l \r ( 5 6 i l : a s s o
0005620 c 5 3 c d r 3 3 e r r o
0005640 r 2 0 i l : a s s o c 1 7
0005660 c d r 1 4 o r ) \r ( 6 1
0005700 ( * p a r s e d - s t r u c t
0005720 u r e s * ) 3 7 " ~ s i s
0005740 n o t a d e f i n e d s
0005760 t r u c t u r e " 2 5 ( * p
0006000 a r s e d - s t r u c t u r e s
0006020 * ) ) \r ( i l : s e t f - m a c
0006040 r o - f u n c t i o n ( q u o
0006060 t e p a r s e d - s t r u c t
0006100 u r e ) ( q u o t e | e x p
0006120 a n d - P A R S E D - S T R U C
0006140 T U R E | ) ) \r ( l e t * ( (
0006160 i l : a 2 1 4 3 ( q u o t e
0006200 p a r s e d - s t r u c t u r e
0006220 ) ) ( i l : a 2 1 4 4 ( q u
0006240 o t e f u n c t i o n ) ) (
0006260 i l : a 2 1 4 5 \r " r e t u r
0006300 n s t h e p a r s e d - s t
0006320 r u c t u r e c o r r e s p o
0006340 n d i n g t o n a m e " ) )
0006360 ( p r o g n ( c o n d ( (
0006400 f b o u n d p ( q u o t e \r
0006420 i l : s e t - d o c u m e n t a
0006440 t i o n ) ) ( i l : s e t - d
0006460 o c u m e n t a t i o n i l :
0006500 a 2 1 4 3 i l : a 2 1 4 4 i
0006520 l : a 2 1 4 5 ) ) ) i l : a 2
0006540 1 4 5 ) ) \r s t r u c t u r e -
0006560 s l o t - n a m e s i l : d 1
0006600 \r ( i l : l ( 1 d o n t - c
0006620 o p y 0 s t r u c t u r e -
0006640 n a m e ) i l : f 2 * p a
0006660 r s e d - s t r u c t u r e s *
0006700 ) \0 + 002 001 \0 002 @ R 026 002 265 \n o \0
0006720 \0 \0 @ \n \0 \0 021 021 001 H 265 \f o \0 \0 \0
0006740 @ \n \0 \0 277 H \t \0 \0 Y A 220 020 I \t \0
0006760 \0 020 \0 ( 4 0 c o p y - l i s t
0007000 3 2 p s - a l l - s l o t -
0007020 n a m e s 2 7 e r r o r 1
0007040 3 e r r o r ) \r n i l \r ( 2
0007060 3 " ~ S i s n o t a d
0007100 e c l a r e d s t r u c t u r
0007120 e . " 9 " ~ s i s n o t
0007140 a d e f i n e d s t r u c
0007160 t u r e " ) \r d e f a u l t - s
0007200 t r u c t u r e - p r i n t e r
0007220 i l : d 1 \r ( i l : l ( 2
0007240 i l : p r i n t - d e p t h 1
0007260 s t r e a m 0 i l : s t r
0007300 u c t u r e ) ) \0 \a \0 \0 \0 003 @
0007320 A \n \0 \0 020 \0 ( 4 i l : \ \ d e
0007340 f p r i n t . d e f s t r u c t
0007360 . d e f a u l t ) \r n i l \r ( )
0007400 \r i l : c r e a t e - s t r u c
0007420 t u r e i l : d 1 \r ( i l : l
0007440 ( 0 s t r u c t u r e - f o
0007460 r m ) ) \0 Q 006 \0 \0 001 @ 001 \t \0 \0
0007500 j 021 022 002 021 0 005 @ 260 031 d Z 001 \t \0 \0
0007520 J 002 001 h 032 032 [ 003 226 L 265 017 K ] \ 277
0007540 002 002 003 265 347 M 022 260 036 \t \0 \0 \ K 031 260
0007560 360 d 001 375 002 I k 330 Y n 002 \0 361 226 h l
0007600 4 \n \0 \0 277 265 354 I H 016 020 \0 ( 7 2
0007620 i l : \ \ l i s p e r r o r 4
0007640 8 l a s t 2 0 i l : m a k
0007660 e - k e y w o r d 4 s t r u
0007700 c t u r e - c o n s t r u c t o
0007720 r ) \r n i l \r ( ) \r s t r u c t
0007740 u r e - c o n s t r u c t o r
0007760 i l : d 1 \r ( i l : l ( 0 s
0010000 t r u c t u r e - n a m e ) i
0010020 l : f 1 * p a r s e d - s t
0010040 r u c t u r e s * ) \0 / 001 001 \0
0010060 001 @ 301 002 311 \0 g \0 \0 ' 265 $ @ Q 026 002
0010100 265 \n o \0 \0 \0 @ \n \0 \0 021 001 \0 H \t \0
0010120 \0 265 \r o \0 \0 \0 H \t \0 \0 \n \0 \0 020 \0
0010140 ( 4 4 e r r o r 4 1 p s -
0010160 n a m e 3 1 p s - s t a n d
0010200 a r d - c o n s t r u c t o r
0010220 2 4 e r r o r ) \r ( 7 i l :
0010240 s t r u c t u r e - c o n s t r
0010260 u c t o r ) \r ( 3 7 " ~ S
0010300 i s a s t r u c t u r e w
0010320 i t h n o s t a n d a r d
0010340 c o n s t r u c t o r . " 2 0
0010360 " ~ s i s n o t a d e
0010400 f i n e d s t r u c t u r e "
0010420 ) \r ( r e m p r o p ( q u o t
0010440 e p a r s e d - s t r u c t u
0010460 r e ) ( q u o t e i l : s e
0010500 t f - m e t h o d - e x p a n d
0010520 e r ) ) \r ( i l : p u t p r o p
0010540 s p a r s e d - s t r u c t u
0010560 r e i l : s e t f - i n v e r
0010600 s e s e t - p a r s e d - s t
0010620 r u c t u r e ) \r i l : s l o t
0010640 - l i s t i l : d 1 \r ( i l :
0010660 l ( 0 n a m e ) ) \0 024 \0 \0
0010700 \0 001 @ 301 002 311 \0 g \0 \0 ' \t \0 \0 265 006
0010720 @ \t \0 \0 020 \0 ( 1 7 s t r u c t
0010740 u r e - s l o t - n a m e s 1
0010760 1 i l : c o p y ) \r ( 7 i l
0011000 : % s l o t - d e s c r i p t i
0011020 o n s ) \r ( ) \r i l : \ \ d e f
0011040 p r i n t . d e f s t r u c t .
0011060 d e f a u l t i l : d 1 \r ( i
0011100 l : p 8 i l : d e s c r i p
0011120 t o r i l : p 7 i l : f i
0011140 e l d i l : p 4 * p r i n
0011160 t - l e v e l * i l : p 0
0011200 t y p e i l : i 1 s t r e
0011220 a m i l : i 0 i l : s t r
0011240 u c i l : f 9 * r e a d t
0011260 a b l e * i l : f 1 0 * p
0011300 r i n t - l e v e l * ) \0 212 \t
0011320 002 \0 002 @ \t \0 \0 021 1 003 A W 022 006 \0 \0
0011340 312 004 \a 273 Z 006 \0 \0 311 271 J K l 002 I
0011360 016 277 o \0 \0 \0 A \n \0 \0 H A \n \0 \0 W
0011400 024 d 221 k 331 021 001 004 H \t \0 \0 H \t \0 \0
0011420 021 " \b N 003 265 003 207 001 _ 016 277 M 003 265 016
0011440 023 023 o \0 \0 \0 A \n \0 \0 i 020 001 _ 020 277
0011460 o \0 \0 \0 A \n \0 \0 277 O 016 A \n \0 \0 277
0011500 o \0 \0 \0 A \n \0 \0 277 O 020 @ \n \0 \0 A
0011520 \n \0 \0 277 N 002 276 M 002 275 260 271 \0 ( 1 2
0011540 7 i l : p r i n 2 1 2 3 i
0011560 l : f e t c h f i e l d 1 1 6
0011600 i l : p r i n 1 1 0 7 i l
0011620 : p r i n 2 1 0 0 i l : p r
0011640 i n 1 8 6 i l : p r i n 1
0011660 6 0 i l : s l o t - l i s t
0011700 5 6 i l : g e t d e s c r i p
0011720 t o r s 4 3 i l : p r i n 2
0011740 3 8 i l : p r i n 3 3 i
0011760 l : t y p e n a m e ) \r ( 2 0
0012000 s t r e a m 1 2 r e a d t a
0012020 b l e p ) \r ( 1 1 2 " "
0012040 9 6 " " 8 2 " ) " 3 4
0012060 " S ( " ) \r ( i l : p u t p r
0012100 o p s i l : d e f s t r u c t
0012120 - r u n - t i m e i l : f i l
0012140 e t y p e c o m p i l e - f i
0012160 l e ) \r ( i l : p u t p r o p s
0012200 i l : d e f s t r u c t - r u
0012220 n - t i m e i l : m a k e f i
0012240 l e - e n v i r o n m e n t (
0012260 : r e a d t a b l e " X C L "
0012300 : p a c k a g e " L I S P "
0012320 ) ) \r ( i l : p u t p r o p s
0012340 i l : d e f s t r u c t - r u n
0012360 - t i m e i l : c o p y r i g
0012400 h t ( " X e r o x C o r p o
0012420 r a t i o n " 1 9 8 6 ) ) \r n
0012440 i l \r
0012443