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