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