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