$ od -c -N 50000 [eris]<Lisp>KOTO>Library>CMLCHARACTER.DCOM!2
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