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