Interlisp.medley/library/IMPORTFONTS.LCOM

(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)

(FILECREATED " 5-May-2026 12:21:38" ("compiled on " {MEDLEY}<library>IMPORTFONTS.;116) 
" 5-May-2026 11:14:53" brecompiled exprs%: PEF in "FULL  5-May-2026 ..." dated " 5-May-2026 11:15:02")
(FILECREATED " 5-May-2026 12:21:37" {MEDLEY}<library>IMPORTFONTS.;116 58246 :EDIT-BY rmk :CHANGES-TO (
FNS PEF) :PREVIOUS-DATE " 4-May-2026 15:26:51" {MEDLEY}<library>IMPORTFONTS.;115)
IMPORTFONTSA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 20 TODIRSIZE P 19 TOTALTIME P 18 NOTINSTANTIATED P 17 CHANGED P 16 TOSIZE P 15 FROMSIZE P 14 THISTIME P 13 CAPTIONS P 12 FROMFILE P 11 TOFILE P 10 FONTSTART P 9 FONT P 8 FONT P 7 FS P 3 I P 2 NNOCHARSETS P 1 FROMDIRSIZE I 0 SI::*CLEANUP-FORMS* F 22 TODIR F 23 PHASE F 24 FROMDIR F 25 FONTSPECS F 26 DEVICE F 27 IMPORTFN F 28 NODRIBBLE F 29 LOGINHOST/DIR) ó
W.W0W,W4	
H
c0¿H
c,W.W2W,W4W.W2W0W4c2lW2	ñ³qW8³mgW,koW,mþhdddi
µW:gW.gg
		¿oi
¿	i
¿i	¿W.dgð—¿o°>dgð—¿o°.dgð—¿o°dgð–¿oŒgð´oi
¿W2	i
¿oi
¿W4i
¿oi
¿lW2	ñ¥o„oi
W,²;lhi¿oi
¿W0i
¿lhi¿oi
¿W,°-oi
¿W0i
¿i	¿lhi¿oi
¿i	¿o	W.W2W,W4W2W.dgð’¿jˆW4W0jkô0j	_&¿HµSj	O&Ùoë	_&¿lhi¿L	JÙi
¿oi
¿lL	ñ’±Ao±>
_¿oKi¿oi
¿O
i
¿oi
¿oO
i¿oi
¿O
	i
¿j	_¿W.dgð²¿OW0lW6_¿i_"¿±×dgð¨dgð²h¿OW0
	_µ%O	_¿j_¿W.dgð²'¿O	°-g
_¿Og
°Ïgð´
Oi
_"¿°_dgð²6¿OW0
	_*
_¿O*
_g
_¿O	_"¿°"gð²OW0
_g
_¿Og
jð_$“JkÔºW,²'OW,
_¿O"™OO
ˆOO
_¿j	OÙoë_¿O$²1lhi¿oi
¿l)hi¿oOi¿ƒOµi	¿W,¢±
.O±
+g
_ ¿W.dgð²7¿lhi¿oO i¿oi
¿oOi¿°£dgð³dgð³dgðªdg𢱳¿O"²llhi¿oOi¿oi
¿oO i¿oi
¿oOi¿l2hi¿oO OÙi¿±ÿlhi¿oi
¿oO i¿oi
¿oOi¿±þÏ¿±þËO¾MµNh]¼H¸KkÔ»±ü}N&½°óoi
¿W.dgð—¿o°>dgð—¿o°.dgð—¿o°dgð–¿oŒgð´oi
¿W,¢±ÍW.W4W,_(¿oi
¿O&i
¿oi
¿lhi¿oi
¿O(oë	i
¿oi
¿O(IÙoë	i
¿oi
¿i	¿Jjð³'lhi¿Ji
¿oi
¿i	¿W,²7lL	ñ³,W,oi
¿O&i
¿oi
¿i	L(1775 TERPRI 1768 PRIN1 1756 PRIN1 1747 PRIN1 1730 LENGTH 1717 TERPRI 1710 PRIN1 1698 PRIN1 1690 TAB 1675 TERPRI 1668 PRIN1 1656 PRIN1 1650 FIXR 1634 PRIN1 1622 PRIN1 1616 FIXR 1602 PRIN1 1590 TAB 1580 PRIN1 1568 PRIN1 1559 PRIN1 1545 IMPORTFONTS.DIRSIZE 1527 PRIN1 1442 PRIN1 1397 PRINTNUM 1383 PRIN1 1371 PRINTNUM 1357 PRIN1 1345 TAB 1332 PRINTNUM 1315 TAB 1305 PRINTNUM 1291 PRIN1 1279 PRINTNUM 1265 PRIN1 1253 PRINTNUM 1239 TAB 1185 PRINTNUM 1171 PRIN1 1159 PRINTNUM 1145 TAB 1121 GETFILEINFO 1099 TERPRI 1087 PRINTNUM 1073 TAB 1063 PRIN1 1051 TAB 1026 CLOCK 1017 COPYFILE 1007 MEDLEYFONT.WRITE.FONT 992 MEDLEYFONT.FILENAME 970 FONTPROP 955 GETFILEINFO 943 MEDLEYFONT.FILENAME 921 FAKEFACE 911 GETFILEINFO 889 \MVLIST 884 FAKEFACE.FROMFONT 860 COMPLETE.FONT 842 GETFILEINFO 827 MEDLEYFONT.READ.FONT 815 FONT.TO.MCCS 789 FONTCREATE.SLUGFD 778 INFILEP 773 MEDLEYFONT.FILENAME 711 CLOCK 704 PRIN1 698 FONTFACETOATOM 687 PRIN1 675 PRINTNUM 659 PRIN1 647 PRIN1 637 PRIN1 625 PRINTNUM 596 LENGTH 587 PRIN1 575 PRIN1 567 LENGTH 560 TAB 548 FIXR 534 CLOCK 521 CLOCK 507 IMPORTFONTS.DIRSIZE 483 IMPORTFONTS.CLEAR 470 BKSYSBUF 459 TERPRI 452 PRIN1 440 TAB 430 TERPRI 423 PRIN1 414 PRIN1 398 PRIN1 386 TAB 376 PRIN1 367 PRIN1 355 TAB 342 PRIN1 323 LENGTH 313 PRIN1 301 PRIN1 292 PRIN1 280 PRIN1 274 LENGTH 266 PRIN1 181 TERPRI 174 PRIN1 168 FULLNAME 163 DRIBBLEFILE 157 PRIN1 145 DRIBBLE 140 PSEUDOFILENAME 135 PACKFILENAME 108 SUBSTRING 103 STRPOS 68 LENGTH 57 IMPORTFONTS.FONTSPECS 44 IMPORTFONTS.CLEAR 17 \MVLIST 12 IMPORTFONTS.CONTEXT)
(1513 DEPLOY 1499 FAKE 1483 COMPLETE 1467 MCCS 1451 IMPORT 1220 DEPLOY 1212 FAKE 1203 COMPLETE 1194 MCCS 1132 IMPORT 1116 LENGTH 965 NINSTANTIATEDCHARSETS 950 LENGTH 931 DEPLOY 906 LENGTH 871 FAKE 849 COMPLETE 837 LENGTH 822 ALL 804 MCCS 760 COMPLETE 752 MCCS 722 IMPORT 493 IMPORT 252 DEPLOY 238 FAKE 222 COMPLETE 206 MCCS 190 IMPORT 129 DRIBBLE 124 EXTENSION 117 NAME 80 BODY)
( 1762 " seconds" 1741 " (but not written) in " 1704 " fonts had no character sets" 1662 " KB" 1644 1024.0
 1628 " KB, grew by " 1610 1024.0 1596 "Total size is " 1574 " seconds" 1553 " and written in " 1521 "deployed"
 1507 "faked" 1491 "completed" 1475 "recoded to MCCS" 1459 "imported" 1436 " " 1389 (FLOAT 6 2) 1377 " "
 1363 (FIX 6) 1351 "Copied " 1321 (FIX 5) 1297 (FLOAT 6 2) 1285 " " 1271 (FIX 6) 1259 " -> " 1245 (FIX 6)
 1177 (FLOAT 7 2) 1165 "  " 1151 (FIX 6) 1079 (FLOAT 7 2) 1057 "No instantiated charsets" 1034 1000.0 681
 " " 665 (FIX 2) 653 " " 631 ". " 618 (FIX 3) 606 "s " 581 " font" 542 1000.0 465 " " 446 "(but not writing)"
 408 " from " 392 "to   " 361 "from " 336 "" 330 "s" 307 " font" 286 " " 260 "Deploying " 246 "Faking "
 230 "Completing " 214 "MCCS recoding " 198 "Importing " 151 "Dribbling to " 88 ">")
IMPORTFONTS :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 6 NODRIBBLE I 5 IMPORTFN I 4 TODIR I 3 FROMDIR I 2 DEVICE I 1 FONTSPECS I 0 PHASE F 3 LISPXHIST) 

@	bo
¦@	¿B§gb¿@gð²E	ªo	¿S!g		¿$
¢±¬oi
¿	i
¿i	¿ghg@oogiggghgggi		É
gi		É
h¿(268 TEDIT 242 \INSUREWINDOW 237 WFROMDS 221 \INSUREWINDOW 216 WFROMDS 173 CONCAT 168 DATE 141 DRIBBLE 135 TERPRI 128 PRIN1 122 FULLNAME 117 DRIBBLEFILE 111 PRIN1 96 DRIBBLEFILE 86 SI::RESETUNWIND 81 \MVLIST 76 IMPORTFONTSA0001 61 ERROR 50 \DEFINEDP 24 \ILLEGAL.ARG 17 MEMB 5 U-CASE)
(231 OPENHEIGHT 210 OPENWIDTH 205 DEFAULTFONT 200 FONT 194 PARABREAKCHARS 189 QUIET 184 READONLY 178 LEAVETTY 152 TITLE 146 Dribble 71 SI::RESETUNWIND 41 IMPORT 32 DISPLAY)
( 163 "   " 158 " font dribble" 105 "Dribbled to " 56 "Importing from source requires an IMPORTFN" 12 (IMPORT MCCS COMPLETE FAKE DEPLOY))
FONT.TO.MCCS :D8
(P 4 A0244 P 0 PAIRS I 0 FONT) «
@g
	1Hd¢±“@d@jÏ¿jdðhð@@g
	@g
o
²K@g¿@Éɺg[Jɵ J
KhLɹLI¿I
g@(92 MEMB 82 FONTPROP 69 MCCSMAPFN 64 FONTPROP 31 MOVEFONTCHARS 15 MCCSMAPPAIRS 10 FONTPROP)
(166 MCCS 154 CHARSETINFO 144 CHARSETINFO 126 CHARSETINFO 119 CSCHARENCODING 105 MCCS 100 FONTDESCRIPTOR 77 CHARENCODING 59 CHARENCODING 53 FONTDESCRIPTOR 37 FONTDESCRIPTOR 5 CHARENCODING)
( 87 (GACHA XCCS$ ALTOTEXT PALATINO UNICODE HIPPO CYRILLIC))
IMPORTFONTS.FONTSPECSA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 29 FS P 25 SOURCE P 24 F P 22 SOURCE P 21 F P 19 SOURCE P 18 FC P 16 NEWFONTS P 15 SOURCE P 14 FACE P 13 FS P 12 ETAIL P 7 NEWFONTS P 6 FONTSPEC P 4 EXPANDED P 2 F I 0 SI::*CLEANUP-FORMS* F 30 FROMDIR F 31 FONTSPECS F 32 DEVICE F 33 SI::*RESETFORMS* F 34 PHASE) ö
gggW@hohW@gW<hWBcBW>d²/d
²+
d3@ð²"W>d

™¿kW>
ñšW>
gð”W>hˆW>µg1HµDIgg
WDdgð¢±
6L!Mµ‚±ÌLIµ‚±
O	£Hºh„H
ºH¸IJd²nd
²j
d3@ð²bJd

—¿kJ
ñšJ
gð²I0
J	
	°.d
»J
J
KjW@J_¿Oµ	Oh_‚O&_¿µÓO°0Jd3@ð²#WDJµggdjW@
W<…J	
¹±ÿ

^dgi	Iµ	M]±ÿ
ZO
³gJW<–JO_¿IY°Ó
ZO
¦JO_¿IY±þádgð¢±
µLQO_µLIµ‚±
‡O 	
_
_d
gð²)¿gO
O
O	!O"µoO
gð²)O
gO
O	!O(µ‚±…O
gð²(O
O
gO	!O.µ‚±šO±ÿF
_$¿O
O
O$O
O
O_&¿gO&W<—O&O _ ¿O"_"±ÿK
_*¿O
O
O*O
O
O_,¿gO,W<—O,O _ ¿O(_(±ÿ2
_0¿O
O
O0O
O
O_2¿gO2W<—O2O _ ¿O._.±ÿ
ZO 
¦JO _ ¿IY±þagð²^0L°+d

O:W<
g
_4šO6µ+O4_8_6¿µÖO8L
gg		_6O4°ÓL	(1011 SORTFONTSPECS 998 LAST 992 SORTFONTSPECS 987 CL:REMOVE-DUPLICATES 972 \APPEND2 943 MEDLEYFONT.GETFILEPROP 933 MEDLEYFONT.FILENAME 891 MEMBER 865 IMPORTFONTS.EXISTS? 793 IMPORTFONTS.EXISTS? 721 IMPORTFONTS.EXISTS? 647 FONTFACE.STARS 596 FONTFACE.STARS 549 FONTFACE.STARS 502 DREVERSE 446 MEMBER 424 IMPORTFONTS.EXISTS? 409 MEMBER 386 DREVERSE 380 COERCEFONTSPEC 362 \NCONC2 357 \ILLEGAL.ARG 350 IMPORTFONTS.AVAILABLE 343 MAKEFONTSPEC 257 FONTFACE.STARS 249 \FONT.CHECKARGS 185 DREVERSE 137 CL:REMOVE-DUPLICATES 48 FONTDEVICEPROP 4 IMPORTFONTS.NOCACHE)
(982 EQUAL 977 :TEST 938 INDIRECTS 910 DEPLOY 856 FAKE 784 FAKE 712 FAKE 634 REGULAR 619 COMPRESSED 578 REGULAR 567 ITALIC 527 MEDIUM 518 BOLD 466 FAKE 416 COMPLETE 374 CHARCOERCIONS 333 * 328 * 237 * 148 COMPLETE 132 EQUAL 127 :TEST 114 * 98 * 41 FONTDIRECTORIES 19 QUOTE 14 FONTDEVICEPROP 9 PROGN)
( 29 ((QUOTE FONTDIRECTORIES) OLDVALUE))
IMPORTFONTS.FONTSPECS :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 DEVICE I 2 FROMDIR I 1 FONTSPECS I 0 PHASE F 3 LISPXHIST) 1
Cµ	gbB@bS!g		¿$
(42 SI::RESETUNWIND 37 \MVLIST 32 IMPORTFONTS.FONTSPECSA0001 16 IMPORTFONTS.DIRECTORY)
(27 SI::RESETUNWIND 7 DISPLAY)
()
IMPORTFONTS.CONTEXT :D8
(P 1 P I 3 DEVICE I 2 TODIR I 1 FROMDIR I 0 PHASE F 2 SI::*RESETFORMS*) 
ó
CA@dgð—¿g°Gdgð—¿g°7gð–g°)@dgð—¿g°gð´o
Hµ3hb@gð²<Cg
d£d‘h
o
°%
¹CAI	•Iµ¿i°¼HX°³CB@bgggChohCghhRc@gðª@dgð²*¿gggChohCgA±Çgð²\gggChohCgBAhhRc¿gggChohCg°c@gð²hgggChohCgBAhhRc¿gggChohCghhRc¿AB$
(491 IMPORTFONTS.NOCACHE 478 FONTDEVICEPROP 429 FONTDEVICEPROP 330 FONTDEVICEPROP 212 FONTDEVICEPROP 169 IMPORTFONTS.DIRECTORY 149 DIRECTORYNAMEP 144 IMPORTFONTS.DIRECTORY 132 CONCAT 114 FONTDEVICEPROP 92 IMPORTFONTS.DIRECTORY)
(472 FONTCOERCIONS 452 QUOTE 447 FONTDEVICEPROP 442 PROGN 419 FONTDIRECTORIES 399 QUOTE 394 FONTDEVICEPROP 389 PROGN 381 FAKE 373 FACECOERCIONS 353 QUOTE 348 FONTDEVICEPROP 343 PROGN 320 FONTDIRECTORIES 300 QUOTE 295 FONTDEVICEPROP 290 PROGN 282 COMPLETE 273 FONTDIRECTORIES 253 QUOTE 248 FONTDEVICEPROP 243 PROGN 234 MCCS 225 IMPORT 206 FONTCOERCIONS 186 QUOTE 181 FONTDEVICEPROP 176 PROGN 109 FONTDIRECTORIES 100 DEPLOY 70 DEPLOY 63 COMPLETE 55 FAKE 46 MCCS 39 COMPLETE 32 IMPORT 24 MCCS 16 SOURCE 8 IMPORT)
( 461 ((QUOTE FONTCOERCIONS) OLDVALUE) 408 ((QUOTE FONTDIRECTORIES) OLDVALUE) 362 ((QUOTE FACECOERCIONS) OLDVALUE)
 309 ((QUOTE FONTDIRECTORIES) OLDVALUE) 262 ((QUOTE FONTDIRECTORIES) OLDVALUE) 195 ((QUOTE FONTCOERCIONS) OLDVALUE)
 127 ">" 78 (FAKE COMPLETE MCCS IMPORT))
IMPORTFONTS.NOCACHE :D8
(F 0 SI::*RESETFORMS*) V
gd	gh
¿Pcgd	gh
¿Pcgd	gh
¿Pc(78 SETTOPVAL 66 GETTOPVAL 50 SETTOPVAL 38 GETTOPVAL 22 SETTOPVAL 10 GETTOPVAL)
(72 \FONTSAVAILABLEFILECACHE 60 \FONTSAVAILABLEFILECACHE 44 \FONTEXISTS?-CACHE 32 \FONTEXISTS?-CACHE 16 \FONTSINCORE 4 \FONTSINCORE)
()
IMPORTFONTS.DIRECTORY :D8
(I 2 PHASE I 1 DIRECTORY I 0 DEVICE) ÒAo
’±ÃAµ‚±¥Bgð²@g
d£d‘h
o°|o@Ãœ@g
°L@d²3d
²/
d3@ð²'@d

—¿k@
ñ™@
gðœ@	
°@d3@ð¦@	‡@µgoBµo	
		o
°Üh(204 CONCAT 194 IMPORTFONTS.SUBDIR 188 PSEUDOFILENAME 183 CONCAT 178 L-CASE 173 CONCAT 146 \ILLEGAL.ARG 127 \FONT.CHECKARGS 79 FONTPROP 41 FONTDEVICEPROP 10 MEMB)
(155 DISPLAY 119 * 74 DEVICE 67 FONTDESCRIPTOR 36 FONTDIRECTORIES 27 DEPLOY)
( 199 ">" 168 "" 160 ">" 61 "{MEDLEY}<internal>fonts>" 54 ">" 5 (DONT DON'T))
IMPORTFONTS.CLEAR :D8
(P 6 FS P 3 FILE P 0 NDELETED I 3 DEVICE I 2 TODIR I 1 FONTSPECS I 0 PHASE) 
DB´‚±
>@o
´‚±
-AµfgBgggggCg
d£d‘h

	jIµ‚±<00>JXdjð’±Óddkð¢±<00>¿o±žd²,¿Ad
²&
d3@ð²Ad

—¿kA
ñ™A
gð“Ah€AjLµM°¯
¾MgggNB
	jIµJÔ½L\°Ç
[	“JkغIY°å
[	“JkغIY±ÿPo
i
oi
B	i
i	h(319 TERPRI 313 PRIN1 307 PSEUDOFILENAME 301 PRIN1 290 PRIN1 284 CONCAT 263 DELFILE 246 DELFILE 222 FILDIR 217 PACKFILENAME 212 MEDLEYFONT.FILENAME 90 FILDIR 85 PACKFILENAME 71 FONTDEVICEPROP 17 MEMB)
(205 BODY 200 * 195 VERSION 168 * 66 FONTEXTENSIONS 60 EXTENSION 55 * 50 VERSION 45 * 40 NAME 34 DIRECTORY)
( 295 " deleted from " 279 " fonts" 126 "1 font" 12 (COMPLETE FAKE))
IMPORTFONTS.SUBDIR :D8
(I 0 PHASE) W
@dgð•odgð•ogð•o@dgð•ogð•o@gð‘h(84 \ILLEGAL.ARG)
(75 DEPLOY 61 FAKE 48 COMPLETE 33 MCCS 20 IMPORT 6 SOURCE)
( 68 "faked" 55 "completed" 40 "mccs" 27 "imported" 13 "source")
IMPORTFONTS.DIRSIZE :D8
(I 2 DIRECTORY I 1 DEVICE I 0 PHASE) RgAB@gggAµgg
d£d‘h
go
g
(79 DIRECTORY 69 PACKFILENAME 45 FONTDEVICEPROP 12 IMPORTFONTS.DIRECTORY)
(74 COUNTLENGTH 58 VERSION 40 FONTEXTENSIONS 35 DISPLAY 27 EXTENSION 22 * 17 NAME 4 DIRECTORY)
( 63 "")
IMPORTFONTS.AVAILABLEA0001 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 FONTSPEC F 1 SI::*RESETFORMS* F 2 FROMDIR F 3 PHASE) N
gggPhohPgPRShQcPhdddg
(75 FONTSAVAILABLE 59 IMPORTFONTS.NOCACHE 47 FONTDEVICEPROP 42 IMPORTFONTS.DIRECTORY)
(69 ONLY 34 FONTDIRECTORIES 14 QUOTE 9 FONTDEVICEPROP 4 PROGN)
( 23 ((QUOTE FONTDIRECTORIES) OLDVALUE))
IMPORTFONTS.AVAILABLE :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 FROMDIR I 1 FONTSPEC I 0 PHASE F 3 LISPXHIST) 
S!g		¿$
(23 SI::RESETUNWIND 18 \MVLIST 13 IMPORTFONTS.AVAILABLEA0001)
(8 SI::RESETUNWIND)
()
IMPORTFONTS.EXISTS?A0001 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 FONTSPEC F 1 SI::*RESETFORMS* F 2 FROMDIR F 3 PHASE) J
gggPhohPgPRShQcPhdddi
(71 FONTEXISTS? 59 IMPORTFONTS.NOCACHE 47 FONTDEVICEPROP 42 IMPORTFONTS.DIRECTORY)
(34 FONTDIRECTORIES 14 QUOTE 9 FONTDEVICEPROP 4 PROGN)
( 23 ((QUOTE FONTDIRECTORIES) OLDVALUE))
IMPORTFONTS.EXISTS? :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 FROMDIR I 1 FONTSPEC I 0 PHASE F 3 LISPXHIST) 
S!g		¿$
(23 SI::RESETUNWIND 18 \MVLIST 13 IMPORTFONTS.EXISTS?A0001)
(8 SI::RESETUNWIND)
()
FAKEFACE :D8
(P 5 CHARSET P 3 CHANGED P 2 SOURCEFONT P 1 FACE P 0 FONTSPEC I 0 FONT) 
¸
@g
1H
¹@g
gð«o@
¿@Êjð›oH
¿Id
gð²s¿H
H
gH

H

H
H
H
H	Z²2@È
djð“¿nÿÿjMLó³@MgJ‘i»MkÔ]°èI
gð²pH
H
H

gH

H
H
H
H	Z²2@È
djð“¿nÿÿjMLó³@MgJ‘i»MkÔ]°èI
gð²nH
H
H

H

gH
H
H
H	Z²1@È
djð“¿nÿÿjMLó³@MgJ‘i»MkÔ]°èK(427 FAKEFACE.CHARSET 386 FONTCREATE1 306 FAKEFACE.CHARSET 265 FONTCREATE1 185 FAKEFACE.CHARSET 144 FONTCREATE1 71 ERROR 47 ERROR 29 FONTPROP 10 FONTPROP)
(421 MOVEFONTCHARS 395 FONTDESCRIPTOR 349 REGULAR 325 COMPRESSED 300 MAKEITALIC.CHAR 274 FONTDESCRIPTOR 221 REGULAR 203 ITALIC 179 MAKEBOLD.CHAR 153 FONTDESCRIPTOR 94 MEDIUM 80 BOLD 54 FONTDESCRIPTOR 34 DISPLAY 24 DEVICE 5 DEVICESPEC)
( 65 "Fonts must be completed before face-faking" 41 "Only display fonts can be face-faked")
FAKEFACE.FROMFILE :D8
(P 0 FACE I 1 FROMDIR I 0 FONTSPEC) ä
@A
	µ‚±Ó@

Hd
gð²=¿@
@
ghdH@
@
@A
	µ‚±‡Hd
gð²4¿@
@
hghH@
@
@A
µIH
gð²2@
@
hdgH@
@
@A
µ
o@
(225 ERROR 212 FAKEFACE.FROMFILE 184 MAKEFONTFACE 152 FAKEFACE.FROMFILE 124 MAKEFONTFACE 87 INFILEP 82 MEDLEYFONT.FILENAME 54 MAKEFONTFACE 11 INFILEP 6 MEDLEYFONT.FILENAME)
(178 REGULAR 163 COMPRESSED 117 REGULAR 102 ITALIC 46 MEDIUM 32 BOLD)
( 219 "No source for face-faking")
FAKEFACE.FROMFONT :D8
(P 1 FONT P 0 FROMFILE I 1 FROMDIR I 0 FONTSPEC) 5 
@A
Xdg
Y@Ig
ô¨@I
Y€IH$
(43 FONTCREATE.SLUGFD 34 FONTPROP 21 MEDLEYFONT.READ.FONT 9 FAKEFACE.FROMFILE)
(29 SPEC 16 ALL)
()
IMPORT.DISPLAY :D8
(I 0 FONTSPECS) 
g@gghg
(27 IMPORTFONTS)
(21 LEGACYDISPLAYFONT 15 {MEDLEY}/fonts/displayfonts/ 10 DISPLAY 4 IMPORT)
()
LEGACYDISPLAYFONTA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 3 CSINFO P 2 FONT P 1 CSNO I 0 SI::*CLEANUP-FORMS* F 8 SI::*RESETFORMS* F 9 FROMDIR F 10 FONTSPEC) Ñ
oggWhWcoggoWhWclÿjWlÿ
#IHó‘JJIoW[™JKI°[JÉIàÐJdÈ
djð“¿nÿÿkؼÉLàÐɵ1JÉJÈ
djð“¿nÿÿkØàJ	MNÐO¿O¿IkÔY°ƒ(184 \BUILDSLUGCSINFO 109 \INSTALLCHARSETINFO 99 \READCHARSET 76 FONTSPEC.TO.FONTDESCRIPTOR 56 FONTDEVICEPROP 21 FONTDEVICEPROP)
(165 FONTDESCRIPTOR 157 FONTDESCRIPTOR 129 FONTDESCRIPTOR 117 FONTDESCRIPTOR 44 FONTEXTENSIONS 39 DISPLAY 14 FONTDIRECTORIES 9 DISPLAY)
( 92 ((AC ACFONT.FILEP ACFONT.GETCHARSET) (STRIKE STRIKEFONT.FILEP STRIKEFONT.GETCHARSET)) 49 (DISPLAYFONT)
 34 (PROGN (FONTDEVICEPROP (QUOTE DISPLAY) (QUOTE FONTEXTENSIONS) OLDVALUE)) 4 (PROGN (FONTDEVICEPROP (QUOTE DISPLAY) (QUOTE FONTDIRECTORIES) OLDVALUE)))
LEGACYDISPLAYFONT :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 FROMDIR I 0 FONTSPEC F 3 LISPXHIST) 0
@hddgi
bS!g		¿$
(41 SI::RESETUNWIND 36 \MVLIST 31 LEGACYDISPLAYFONTA0001 15 \FONT.CHECKARGS)
(26 SI::RESETUNWIND 8 DISPLAY)
()
IPF :D8
(I 1 FONTSPEC I 0 PHASE) &Ad
µgh@
g
(35 MEDLEYFONT.READ.FONT 25 MEDLEYFONT.FILENAME 20 IMPORTFONTS.DIRECTORY)
(30 ALL 13 DISPLAY)
()
IPFSIZES :D8
(P 8 LASTSIZE P 7 SIZE P 6 FONTFILE P 5 DIR P 4 PHASE I 0 FONTSPEC) ª	
@d²3d
²/
d3@ð²'@d

—¿k@
ñ™@
gðœ@hdddi
…@	b¿o<11>HµI
¼@hL½@M
	^²;@M
	^d™g
_¿LOO´dOÙhO_¿»JµKhZ¹HX°¥K&º°ø(126 GETFILEINFO 113 INFILEP 108 MEDLEYFONT.FILENAME 98 INFILEP 93 MEDLEYFONT.FILENAME 85 IMPORTFONTS.DIRECTORY 58 FONTSPECFROMFILENAME 51 \FONT.CHECKARGS)
(121 LENGTH 37 *)
( 66 (IMPORT MCCS COMPLETE FAKE DEPLOY))
PEFA0001 :D8
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 FONTFILE F 3 SI::NLSETQ-VALUE) i@
R	hcg(10 MEDLEYFONT.FILEP)
(19 :NORMAL)
()
PEFA0002A0003 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 CHARSET F 1 PHASE F 2 DIR F 3 FONTSPEC F 4 FONTFILE F 5 TITLETAG) !
QRhS
TP
PhdU
(30 EDITFONT 20 MEDLEYFONT.READ.FONT 13 IMPORTFONTS.CONTEXT)
NIL
()
PEFA0002 :D8
(P 4 RESETSTATE P 3 SI::*RESETFORMS* P 2 LISPXHIST P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 5 LISPXHIST F 6 SI::NLSETQ-VALUE) -i@
U!g		¿$
hcg(28 SI::RESETUNWIND 23 \MVLIST 18 PEFA0002A0003)
(42 :NORMAL 13 SI::RESETUNWIND)
()
PEF :D8
(P 14 *CONDITION-HANDLER-BINDINGS* P 13 SI::*NLSETQFLAG* P 12 *PROCEED-CASES* P 11 SI::NLSETQ-VALUE P 10 C P 5 FONTFILE P 4 DIR P 3 CHARSETNAME P 2 TITLETAG P 1 PHASE I 2 CHARSET I 1 FONTSPEC I 0 PHASES F 15 *PROCEED-CASES* F 16 *CONDITION-HANDLER-BINDINGS*) 
òAd²3d
²/
d3@ð²'Ad

—¿kA
ñ™A
gðœAhdddi
…A	b¿@QHd £H¹h„H
¹H¸Bdið²L¿Mg
A
NµO°<
_	³O	³O_¿OµOh__¿N^°ÐO&_¿°õ	µjbµ.Igð²+ABhdo
¿±ÿzd


IAOµï±ÿdAhI¼AL
½`WioW O	gð´O¢±®Idgð–¿g…i
ºB	[	¬KoJº`WioW O	gð´O
’±þÅoi
¿B	i
¿oi
¿Ai
¿oi
¿Li
¿i	¿±þzAi
¿oi
¿Li
¿i	¿±þT(492 TERPRI 485 PRIN1 477 PRIN1 465 PRIN1 454 TERPRI 447 PRIN1 439 PRIN1 427 PRIN1 419 PRIN1 407 PRIN1 401 OCTALSTRING 394 PRIN1 366 PEFA0002 335 CONCAT 322 OCTALNUM? 316 CHARSET.ENCODE 309 L-CASE 271 PEFA0001 240 MEDLEYFONT.FILENAME 232 IMPORTFONTS.DIRECTORY 216 PEF 198 EDITFONT 166 CHARSET.DECODE 128 UNIHANCHARSETP 119 KANJICHARSETP 99 MEDLEYFONT.GETFILEPROP 58 FONTSPECFROMFILENAME 51 \FONT.CHECKARGS)
(372 :NORMAL 344 SI::NLSETQ-PROCEED-CASE 302 MCCS 294 MCCS 277 :NORMAL 249 SI::NLSETQ-PROCEED-CASE 180 DEPLOY 94 CHARSET 37 *)
( 471 " not found in " 433 " not found in " 413 " of " 388 "Charset " 353 (CL:ERROR . SI::NLSETQHANDLER)
 329 " " 258 (CL:ERROR . SI::NLSETQHANDLER) 192 "Deployed")
AEF :D8
(I 2 CLOSE I 1 CHARSET I 0 FONTSPEC) B•¿o@A(19 PEF 6 EFCLOSE)
NIL
( 12 (IMPORT MCCS COMPLETE FAKE DEPLOY))
IEF :D8
(I 1 CHARSET I 0 FONTSPEC) g@A(11 PEF)
(4 IMPORT)
()
MEF :D8
(I 1 CHARSET I 0 FONTSPEC) g@A(11 PEF)
(4 MCCS)
()
CEF :D8
(I 1 CHARSET I 0 FONTSPEC) g@A(11 PEF)
(4 COMPLETE)
()
FEF :D8
(I 1 CHARSET I 0 FONTSPEC) g@A(11 PEF)
(4 FAKE)
()
DEF :D8
(I 1 CHARSET I 0 FONTSPEC) g@A(11 PEF)
(4 DEPLOY)
()
EFCLOSE :D8
(P 1 W) 5
Hµh
Yg
²Ig
–I	¿HX°×(45 CLOSEW 38 GETWINDOWUSERPROP 25 GETWINDOWUSERPROP 4 OPENWINDOWS)
(33 CHARITEMS 20 FONT)
()
SHOWCHARSA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 3 C P 1 CHARS P 0 OLDFONT I 0 SI::*CLEANUP-FORMS* F 7 FROMCHAR F 8 TOCHAR F 9 SI::*RESETFORMS* F 10 ONELINE F 11 FONT) û
hi

W	®Wi
µWc<0E>WµMW	²=W	­W	µWc<10>WW2KdJó”¿L°¾Mµ
Nh]¼KkÔ[°êN&½°÷W	Ygd	go
¿WcI°\d

Hi
¿Kã	oKlÿå	i
¿l
hi¿Wi
¿K	i
¿W¦i	¿µ¥h(241 TERPRI 231 PRIN1 225 CHARACTER 218 CHANGEFONT 209 TAB 199 PRIN1 193 CONCAT 188 OCTALSTRING 174 OCTALSTRING 166 CHANGEFONT 151 TERPRI 140 SETTOPVAL 124 GETTOPVAL 112 CHCON 61 CHARCODE.DECODE 53 CHARCODEP 44 CHARCODEP 25 CHARCODE.DECODE 16 CHARCODEP 6 DSPFONT)
(130 OLDFONT 118 OLDFONT)
( 179 "," 135 (PROGN (DSPFONT OLDVALUE)))
SHOWCHARS :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 ONELINE I 2 TOCHAR I 1 FROMCHAR I 0 FONT F 3 LISPXHIST) 3
@µo	bS!g		¿$
(48 TERPRI 38 SI::RESETUNWIND 33 \MVLIST 28 SHOWCHARSA0001 12 FONTCREATE)
(23 SI::RESETUNWIND)
( 7 (CLASSIC 12))
CSSOURCE :D8
(P 7 SOURCE P 6 CSINFO P 2 FONTSPEC P 1 CS I 2 INDIRECT I 1 FONT I 0 PHASE) œA	©@A
b¿@Ag
AÈ
djð’¿lÿjAg
SAÉIàÐɾIHó³ON²ANÊjð²4B²JgNÉô³IgNÉh½Lµ
Mh\»IkÔ¹°¬M&¼°÷K(55 FONTPROP 28 FONTPROP 13 IPF 5 FONTP)
(122 CHARSETINFO 116 SOURCE 103 CHARSETINFO 97 SOURCE 81 CHARSETINFO 50 SPEC 34 FONTDESCRIPTOR 23 SPEC)
()
FONTDEFFONTS :D8
(P 10 FONT P 8 FP P 7 FONTLIST P 6 FD P 4 F I 0 FACES F 11 FONTDEFS) «

@AHµ&IbW!Mµ:Ogg	d¢¼hƒ
¼H¸L	»Jµ	KhZ¹°¿K&º°º
¾gN°d

O
Oµ
µëM]° 
_²-O
o
³@²O
	@
—OO_¿O_°½(153 MEMBER 147 \FONTFACE 132 MEMB 59 \FONTFACE 41 SORTFONTSPECS 36 CL:REMOVE-DUPLICATES)
(82 FONTPROFILE 31 EQUAL 26 :TEST)
( 127 (PDF POSTSCRIPT))
(PRETTYCOMPRINT IMPORTFONTSCOMS)
(RPAQQ IMPORTFONTSCOMS ((FNS IMPORTFONTS FONT.TO.MCCS IMPORTFONTS.FONTSPECS IMPORTFONTS.CONTEXT 
IMPORTFONTS.NOCACHE IMPORTFONTS.DIRECTORY IMPORTFONTS.CLEAR IMPORTFONTS.SUBDIR IMPORTFONTS.DIRSIZE) (
FNS IMPORTFONTS.AVAILABLE IMPORTFONTS.EXISTS?) (FNS FAKEFACE FAKEFACE.FROMFILE FAKEFACE.FROMFONT) (
COMS (* ; "For legacy display imports") (FNS IMPORT.DISPLAY LEGACYDISPLAYFONT) (FILES ACFONT)) (COMS (
* ; "For testing") (FNS IPF IPFSIZES) (FNS PEF AEF IEF MEF CEF FEF DEF EFCLOSE) (FNS SHOWCHARS 
CSSOURCE FONTDEFFONTS) (FILES EDITFONT))))
(FILESLOAD ACFONT)
(FILESLOAD EDITFONT)
NIL