$ od -c -N 50000 [eris]<LispCore>INTERNAL>library>CONDITIONGRAPH.DCOM!6
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 P A C K A G E " I N T E
0000040 R L I S P " 247 R E A D T A B L
0000060 E " X C L " 247 B A S E 1 0
0000100 ) \r ( f i l e c r e a t e d "
0000120 2 5 - N o v - 8 6 1 7 : 2 9 :
0000140 0 5 " ( " c o m p i l e d o
0000160 n " { e r i s } < l i s p c
0000200 o r e > l i b r a r y > c o n d
0000220 i t i o n g r a p h . \ ; 1 1 )
0000240 \r " 2 5 - N o v - 8 6 0 0 :
0000260 4 6 : 5 7 " | r e c o m p i l
0000300 e d | | c h a n g e s : | |
0000320 n o t h i n g | | i n | " X
0000340 e r o x L i s p 2 5 - N o v
0000360 - 8 6 . . . " | d a t e d |
0000400 \r " 2 5 - N o v - 8 6 0 1 :
0000420 1 8 : 0 1 " ) \r ( f i l e c r e
0000440 a t e d " 2 5 - N o v - 8 6
0000460 1 7 : 2 8 : 0 6 " { e r i s }
0000500 < l i s p c o r e > l i b r a r
0000520 y > c o n d i t i o n g r a p h
0000540 . \ ; 1 1 7 7 6 3 | c h a n
0000560 g e s | | t o : | ( \r f u n
0000600 c t i o n s r e c o m p u t e
0000620 - c o n d i t i o n - g r a p h
0000640 - s e x p r c o u n t - c o n
0000660 d i t i o n - t y p e s - r e c
0000700 u r s i o n g r a p h - c o n
0000720 d i t i o n s \r c o n d i t i
0000740 o n - s u b g r a p h c o u n
0000760 t - c o n d i t i o n - t y p e
0001000 s ) ( v a r s c o n d i t i
0001020 o n g r a p h c o m s ) ( p r
0001040 o p s ( c o n d i t i o n g r
0001060 a p h f i l e c h a n g e s \r
0001100 ) ) ( v a r i a b l e s * c
0001120 o n d i t i o n - g r a p h - w
0001140 i n d o w * * c o n d i t i o
0001160 n - g r a p h - s e x p r * )
0001200 | p r e v i o u s | | d a t e
0001220 : | \r " 2 4 - N o v - 8 6 1
0001240 5 : 4 1 : 0 1 " { e r i s } <
0001260 l i s p c o r e > l i b r a r y
0001300 > c o n d i t i o n g r a p h .
0001320 \ ; 1 0 ) \r ( r p a q q c o n
0001340 d i t i o n g r a p h c o m s
0001360 ( ( v a r i a b l e s * c o n
0001400 d i t i o n - g r a p h - w i n
0001420 d o w * * c o n d i t i o n -
0001440 g r a p h - s e x p r * ) ( f
0001460 u n c t i o n s \r g r a p h -
0001500 c o n d i t i o n s c o n d i
0001520 t i o n - s u b g r a p h c o
0001540 n d i t i o n - s u b g r a p h
0001560 - r e c u r s i o n r e c o m
0001600 p u t e - c o n d i t i o n - g
0001620 r a p h - s e x p r \r c o u n
0001640 t - c o n d i t i o n - t y p e
0001660 s c o u n t - c o n d i t i o
0001700 n - t y p e s - r e c u r s i o
0001720 n ) ( p r o p f i l e c h a
0001740 n g e s c o n d i t i o n g r
0001760 a p h ) ) ) \r ( c l : d e f v a
0002000 r * c o n d i t i o n - g r a
0002020 p h - w i n d o w * n i l "
0002040 W i n d o w i n w h i c h
0002060 t o d i s p l a y t h e c
0002100 o n d i t i o n h i e r a r c
0002120 h y g r a p h . " ) \r ( c l :
0002140 d e f v a r * c o n d i t i o
0002160 n - g r a p h - s e x p r * n
0002200 i l \r " T r e e s t r u c t
0002220 u r e r e p r e s e n t i n g
0002240 l a s t c a l c u l a t e d
0002260 c o n d i t i o n t y p e
0002300 g r a p h . " ) \r ( c l : d e f
0002320 u n g r a p h - c o n d i t i
0002340 o n s ( & o p t i o n a l (
0002360 r o o t ( q u o t e c o n d
0002400 i t i o n ) ) ( r e c o m p u
0002420 t e ( n u l l \r * c o n d i
0002440 t i o n - g r a p h - s e x p r
0002460 * ) ) w ) ( l e t ( ( n e
0002500 w w ( s h o w g r a p h ( l
0002520 a y o u t s e x p r ( c o n d
0002540 i t i o n - s u b g r a p h r
0002560 o o t r e c o m p u t e ) (
0002600 \r q u o t e ( h o r i z o n t
0002620 a l ) ) ) ( o r w * c o n
0002640 d i t i o n - g r a p h - w i n
0002660 d o w * ( c l : f o r m a t
0002700 n i l " C o n d i t i o n t
0002720 y p e g r a p h f r o m :
0002740 ~ S " \r r o o t ) ) n i l
0002760 n i l t ) ) ) ( w i n d o w
0003000 p r o p n e w w ( q u o t e
0003020 t i t l e ) ( c l : f o r m
0003040 a t n i l " C o n d i t i o
0003060 n t y p e g r a p h f r o
0003100 m : ~ S " r o o t \r ) ) (
0003120 o r w * c o n d i t i o n -
0003140 g r a p h - w i n d o w * ( c
0003160 l : s e t f * c o n d i t i o
0003200 n - g r a p h - w i n d o w *
0003220 n e w w ) ) ) ) \r ( c l : d e f
0003240 u n c o n d i t i o n - s u b
0003260 g r a p h ( r o o t r e c o
0003300 m p u t e & a u x ( o n c e
0003320 n i l ) r e s u l t ) ( c
0003340 l : u n l e s s ( c l : s u b
0003360 t y p e p r o o t ( \r q u o
0003400 t e c o n d i t i o n ) ) (
0003420 c l : e r r o r " ~ S i s
0003440 n o t a c o n d i t i o n
0003460 t y p e . " ) ) ( c l : l o o
0003500 p ( c l : w h e n r e c o m
0003520 p u t e ( \r r e c o m p u t e
0003540 - c o n d i t i o n - g r a p h
0003560 - s e x p r ) ) ( c l : s e t
0003600 f r e s u l t ( c o n d i t
0003620 i o n - s u b g r a p h - r e c
0003640 u r s i o n r o o t \r * c o
0003660 n d i t i o n - g r a p h - s e
0003700 x p r * ) ) ( c l : w h e n
0003720 ( o r o n c e r e s u l t )
0003740 ( c l : r e t u r n - f r o m
0003760 c o n d i t i o n - s u b g r
0004000 a p h r e s u l t ) ) ( \r c
0004020 l : f o r m a t * e r r o r -
0004040 o u t p u t * " C o u l d n '
0004060 t f i n d ~ S i n c u r
0004100 r e n t g r a p h . " ) ( c
0004120 l : s e t q o n c e t r e
0004140 c o m p u t e t ) ) ) \r ( c l
0004160 : d e f u n c o n d i t i o n
0004200 - s u b g r a p h - r e c u r s
0004220 i o n ( t a r g e t t r e e
0004240 ) ( c o n d ( ( n u l l t
0004260 r e e ) n i l ) ( ( e q t
0004300 a r g e t ( c a r t r e e )
0004320 ) \r t r e e ) ( t ( c l :
0004340 d o * ( t e m p ( t a i l
0004360 ( c d r t r e e ) ( c d r
0004400 t a i l ) ) ( s u b t r e e
0004420 ( c a r t a i l ) ( c a r
0004440 t a i l ) ) ) ( ( s e t q t
0004460 e m p ( \r c o n d i t i o n -
0004500 s u b g r a p h - r e c u r s i
0004520 o n t a r g e t s u b t r e
0004540 e ) ) t e m p ) ) ) ) ) \r ( c
0004560 l : d e f u n r e c o m p u t
0004600 e - c o n d i t i o n - g r a p
0004620 h - s e x p r n i l ( l e t
0004640 ( ( c g h a s h ( c l : m a
0004660 k e - h a s h - t a b l e ) ) )
0004700 ( c l : f o r m a t \r * e r
0004720 r o r - o u t p u t * " C o
0004740 m p u t i n g c o n d i t i o
0004760 n h i e r a r c h y g r a p
0005000 h . " ) ( m a p c a r ( d a
0005020 t a t y p e s ) ( c l : f u n
0005040 c t i o n ( c l : l a m b d a
0005060 ( \r s y m b o l ) ( b l o c
0005100 k ) ( c l : w h e n ( a n d
0005120 ( n o t ( c l : g e t h a s
0005140 h s y m b o l c g h a s h )
0005160 ) ( c l : s u b t y p e p s
0005200 y m b o l ( q u o t e c o n
0005220 d i t i o n ) ) ) \r ( c l : d
0005240 o ( ( t y p e s y m b o l
0005260 ( c o n d i t i o n - p a r e n
0005300 t t y p e ) ) ( c h a i n
0005320 n i l ) ) ( ( c o n d ( ( n
0005340 u l l t y p e ) ( c l : s e
0005360 t f \r * c o n d i t i o n - g
0005400 r a p h - s e x p r * c h a i
0005420 n ) ) ( ( c l : g e t h a s h
0005440 t y p e c g h a s h ) ( n
0005460 c o n c ( c l : g e t h a s h
0005500 t y p e c g h a s h ) ( l
0005520 i s t c h a i n ) \r ) ) ( t
0005540 n i l ) ) ) ( c l : p r i n
0005560 c " . " ) ( c l : s e t f
0005600 ( c l : g e t h a s h t y p e
0005620 c g h a s h ) ( c l : s e t
0005640 f c h a i n ( c l : i f (
0005660 n u l l c h a i n ) ( l i s
0005700 t \r t y p e ) ( l i s t t
0005720 y p e c h a i n ) ) ) ) ) ) )
0005740 ) ) ) ) \r ( c l : d e f u n c
0005760 o u n t - c o n d i t i o n - t
0006000 y p e s n i l ( c o u n t -
0006020 c o n d i t i o n - t y p e s -
0006040 r e c u r s i o n ( c o n d i
0006060 t i o n - s u b g r a p h ( q
0006100 u o t e \r c o n d i t i o n )
0006120 n i l ) ) ) \r ( c l : d e f u
0006140 n c o u n t - c o n d i t i o
0006160 n - t y p e s - r e c u r s i o
0006200 n ( t r e e ) ( c o n d (
0006220 ( n u l l t r e e ) 0 ) (
0006240 ( c l : s y m b o l p t r e e
0006260 ) 1 ) ( t ( f o r \r s u
0006300 b t r e e i n t r e e s u
0006320 m ( c o u n t - c o n d i t i
0006340 o n - t y p e s - r e c u r s i
0006360 o n s u b t r e e ) ) ) ) ) \r
0006400 ( p u t p r o p s c o n d i t
0006420 i o n g r a p h f i l e c h a
0006440 n g e s ( ( f u n c t i o n s
0006460 r e c o m p u t e - c o n d i
0006500 t i o n - g r a p h - s e x p r
0006520 \r c o u n t - c o n d i t i o
0006540 n - t y p e s - r e c u r s i o
0006560 n g r a p h - c o n d i t i o
0006600 n s c o n d i t i o n - s u b
0006620 g r a p h c o u n t - c o n d
0006640 i t i o n - t y p e s ) ( v a
0006660 r s \r c o n d i t i o n g r a
0006700 p h c o m s ) ( p r o p s (
0006720 c o n d i t i o n g r a p h f
0006740 i l e c h a n g e s ) ) ( v a
0006760 r i a b l e s * c o n d i t i
0007000 o n - g r a p h - w i n d o w *
0007020 \r * c o n d i t i o n - g r a
0007040 p h - s e x p r * ) ) ) \r ( p u
0007060 t p r o p s c o n d i t i o n
0007100 g r a p h c o p y r i g h t
0007120 ( " X e r o x C o r p o r a t
0007140 i o n " 1 9 8 6 ) ) \r n i l \r
0007160