1
0
mirror of synced 2026-05-09 01:03:19 +00:00
Files
Interlisp.medley/library/IMPORTFONTS.LCOM
2026-04-17 14:34:36 -07:00

345 lines
25 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)
(FILECREATED "16-Apr-2026 22:39:50" ("compiled on " {WMEDLEY}<library>IMPORTFONTS.;98)
"16-Apr-2026 11:19:55" brecompiled exprs%: LEGACYDISPLAYFONT in "FULL 16-Apr-2026 ..." dated
"16-Apr-2026 11:20:03")
(FILECREATED "16-Apr-2026 22:39:37" {WMEDLEY}<library>IMPORTFONTS.;98 60135 :EDIT-BY rmk :CHANGES-TO (
FNS LEGACYDISPLAYFONT) :PREVIOUS-DATE "15-Apr-2026 22:10:41" {WMEDLEY}<library>IMPORTFONTS.;97)
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 TODIRECTORY F 23 PHASE F 24 FROMDIRECTORY F 25 FONTSPECS F 26 DEVICE F 27 IMPORTFN F 28 NODRIBBLE F 29 LOGINHOST/DIR)  W.W0W,W4 Hc0¿Hc,W.W2W,W4 W.W2W0W4 c2lW2 ñ³qW8³mgW,koW,mþhdddi
 µW:gW.gg
 ¿oi
¿ i
¿i ¿W.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ˆW4W0 jkô0j _&¿HµSj O&Ùoë _&¿lhi ¿L JÙi
¿oi
¿lL ñ’±o± _¿oKi ¿oi
¿Oi
¿oi
¿oOi ¿oi
¿O i
¿j _¿W.dgð²¿OW0lW6_¿i±­dgð¨dgð²e¿OW0
_µ%O _¿j_¿W.dgð²'¿O °eg
_¿Og
°Ïgð´BOi
°8gð²3OW0
_*_¿O*_g
_¿O _"¿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𢱳¿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Œ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(1692 TERPRI 1685 PRIN1 1673 PRIN1 1664 PRIN1 1647 LENGTH 1634 TERPRI 1627 PRIN1 1615 PRIN1 1607 TAB 1592 TERPRI 1585 PRIN1 1573 PRIN1 1567 FIXR 1551 PRIN1 1539 PRIN1 1533 FIXR 1519 PRIN1 1507 TAB 1497 PRIN1 1485 PRIN1 1476 PRIN1 1462 IMPORTFONTS.DIRSIZE 1444 PRIN1 1375 PRIN1 1330 PRINTNUM 1316 PRIN1 1304 PRINTNUM 1290 PRIN1 1278 TAB 1265 PRINTNUM 1248 TAB 1238 PRINTNUM 1224 PRIN1 1212 PRINTNUM 1198 PRIN1 1186 PRINTNUM 1172 TAB 1127 PRINTNUM 1113 PRIN1 1101 PRINTNUM 1087 TAB 1063 GETFILEINFO 1041 TERPRI 1029 PRINTNUM 1015 TAB 1005 PRIN1 993 TAB 968 CLOCK 959 COPYFILE 949 MEDLEYFONT.WRITE.FONT 934 MEDLEYFONT.FILENAME 912 FONTPROP 897 FAKEFACE 887 GETFILEINFO 865 \MVLIST 860 FAKEFACE.FROMFONT 841 COMPLETE.FONT 823 GETFILEINFO 808 MEDLEYFONT.READ.FONT 796 FONT.TO.MCCS 770 FONTCREATE.SLUGFD 759 INFILEP 754 MEDLEYFONT.FILENAME 695 CLOCK 688 PRIN1 682 FONTFACETOATOM 671 PRIN1 659 PRINTNUM 643 PRIN1 631 PRIN1 621 PRIN1 609 PRINTNUM 580 LENGTH 571 PRIN1 559 PRIN1 551 LENGTH 544 TAB 532 FIXR 518 CLOCK 505 CLOCK 491 IMPORTFONTS.DIRSIZE 467 IMPORTFONTS.CLEAR 454 BKSYSBUF 443 TERPRI 436 PRIN1 424 TAB 414 TERPRI 407 PRIN1 398 PRIN1 382 PRIN1 370 TAB 360 PRIN1 351 PRIN1 339 TAB 326 PRIN1 307 LENGTH 297 PRIN1 285 PRIN1 276 PRIN1 264 PRIN1 258 LENGTH 250 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)
(1430 FAKE 1416 COMPLETE 1400 MCCS 1384 IMPORT 1153 FAKE 1145 COMPLETE 1136 MCCS 1074 IMPORT 1058 LENGTH 907 NINSTANTIATEDCHARSETS 882 LENGTH 848 FAKE 830 COMPLETE 818 LENGTH 803 ALL 785 MCCS 741 COMPLETE 733 MCCS 706 IMPORT 477 IMPORT 236 FAKE 222 COMPLETE 206 MCCS 190 IMPORT 129 DRIBBLE 124 EXTENSION 117 NAME 80 BODY)
( 1679 " seconds" 1658 " (but not written) in " 1621 " fonts had no character sets" 1579 " KB" 1561 1024.0
1545 " KB, grew by " 1527 1024.0 1513 "Total size is " 1491 " seconds" 1470 " and written in " 1438 "faked"
1424 "completed" 1408 "recoded to MCCS" 1392 "imported" 1369 " " 1322 (FLOAT 6 2) 1310 " " 1296 (FIX 6)
1284 "Copied " 1254 (FIX 5) 1230 (FLOAT 6 2) 1218 " " 1204 (FIX 6) 1192 " -> " 1178 (FIX 6) 1119 (FLOAT 7 2)
1107 " " 1093 (FIX 6) 1021 (FLOAT 7 2) 999 "No instantiated charsets" 976 1000.0 665 " " 649 (FIX 2)
637 " " 615 ". " 602 (FIX 3) 590 "s " 565 " font" 526 1000.0 449 " " 430 "(but not writing)" 392 " from "
376 "to " 345 "from " 320 "" 314 "s" 291 " font" 270 " " 244 "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 TODIRECTORY I 3 FROMDIRECTORY 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))
FONT.TO.MCCS :D8
(P 4 A0244 P 0 PAIRS I 0 FONT) «@g
1Hd¢±“@d @¿jdðhð@@g
@g
o
²K@g¿@Éɺg[Jɵ JKhLɹLI¿Ig@(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 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 26 FROMDIRECTORY F 27 FONTSPECS F 28 DEVICE F 29 SI::*RESETFORMS* F 30 PHASE) gggW8hohW8gW4 hW:c:W6d²/d²+d3@ð²"W6d™¿kW6ñšW6gð”W6hˆW6µg1HµDIgg W<dgð¢±6L!Mµ‚±ÌLIµ‚±O £Hºh„HºH¸IJd²nd²jd3@ð²bJd—¿kJñšJgð²I0
J  °.d»JJKjW8J_¿Oµ Oh_O&_¿µÓO°0Jd3@ð²#W<JµggdjW8
W4 …J
¹±ÿ
^dgi  Iµ M]±ÿZO
³gJW4 JO_¿IY°ÓZO
¦JO_¿IY±þág𢱵LQO_µLIµ‚±O __dgð²)¿gOOO !O"µoOgð²)OgOO !O(µ‚±Ogð²(OOgO !O.µ‚±šO±ÿF_$¿OOO$OOO_&¿gO&W4 —O&O _ ¿O"_"±ÿK_*¿OOO*OOO_,¿gO,W4 —O,O _ ¿O(_(±ÿ2_0¿OOO0OOO_2¿gO2W4 —O2O _ ¿O._.±ÿZO
¦JO _ ¿IY±þaL (910 SORTFONTSPECS 890 MEMBER 864 IMPORTFONTS.EXISTS? 792 IMPORTFONTS.EXISTS? 720 IMPORTFONTS.EXISTS? 646 FONTFACE.STARS 595 FONTFACE.STARS 548 FONTFACE.STARS 501 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)
(855 FAKE 783 FAKE 711 FAKE 633 REGULAR 618 COMPRESSED 577 REGULAR 566 ITALIC 526 MEDIUM 517 BOLD 465 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 FROMDIRECTORY I 1 FONTSPECS I 0 PHASE F 3 LISPXHIST) 6Cµ gbB@ bS!g ¿$(47 SI::RESETUNWIND 42 \MVLIST 37 IMPORTFONTS.FONTSPECSA0001 21 IMPORTFONTS.DIRECTORY 16 IMPORTFONTS.SUBDIR)
(32 SI::RESETUNWIND 7 DISPLAY)
()
IMPORTFONTS.CONTEXT :D8
(I 3 DEVICE I 2 TODIRECTORY I 1 FROMDIRECTORY I 0 PHASE F 0 SI::*RESETFORMS*)  CA@dgð—¿g°-dgð—¿g°gð•g<00>@gð´g bCB@ bgggChohCgh hPc@gðª@dgð²*¿gggChohCgÇgð²\gggChohCgBAh hPc¿gggChohCg°c@gð²hgggChohCgBAh hPc¿gggChohCgh hPc¿AB$(408 IMPORTFONTS.NOCACHE 395 FONTDEVICEPROP 346 FONTDEVICEPROP 247 FONTDEVICEPROP 129 FONTDEVICEPROP 86 IMPORTFONTS.DIRECTORY 81 IMPORTFONTS.SUBDIR 71 IMPORTFONTS.DIRECTORY 66 IMPORTFONTS.SUBDIR)
(389 FONTCOERCIONS 369 QUOTE 364 FONTDEVICEPROP 359 PROGN 336 FONTDIRECTORIES 316 QUOTE 311 FONTDEVICEPROP 306 PROGN 298 FAKE 290 FACECOERCIONS 270 QUOTE 265 FONTDEVICEPROP 260 PROGN 237 FONTDIRECTORIES 217 QUOTE 212 FONTDEVICEPROP 207 PROGN 199 COMPLETE 190 FONTDIRECTORIES 170 QUOTE 165 FONTDEVICEPROP 160 PROGN 151 MCCS 142 IMPORT 123 FONTCOERCIONS 103 QUOTE 98 FONTDEVICEPROP 93 PROGN 61 COMPLETE 53 FAKE 46 MCCS 39 COMPLETE 32 IMPORT 24 MCCS 16 SOURCE 8 IMPORT)
( 378 ((QUOTE FONTCOERCIONS) OLDVALUE) 325 ((QUOTE FONTDIRECTORIES) OLDVALUE) 279 ((QUOTE FACECOERCIONS) OLDVALUE)
226 ((QUOTE FONTDIRECTORIES) OLDVALUE) 179 ((QUOTE FONTDIRECTORIES) OLDVALUE) 112 ((QUOTE FONTCOERCIONS) OLDVALUE))
IMPORTFONTS.NOCACHE :D8
(F 0 SI::*RESETFORMS*) Vgd 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 SUBDIR I 1 DIRECTORY I 0 DEVICE) ¯Ao
’± ‚±‡`oœ@g
°L@d²3d²/d3@ð²'@d—¿k@ñ™@gðœ@ °@d3@ð¦@ ‡@µgoo o
°áh(169 CONCAT 158 PSEUDOFILENAME 153 CONCAT 148 L-CASE 143 CONCAT 116 \ILLEGAL.ARG 97 \FONT.CHECKARGS 49 FONTPROP 10 MEMB)
(125 DISPLAY 89 * 44 DEVICE 37 FONTDESCRIPTOR 26 MEDLEYDIR)
( 164 ">" 138 "" 130 ">" 31 "internal>fonts>" 5 (DONT DON'T))
IMPORTFONTS.CLEAR :D8
(P 6 FS P 3 FILE P 0 NDELETED I 3 DEVICE I 2 TODIRECTORY I 1 FONTSPECS I 0 PHASE) DB´‚±>@o
´‚±-AµfgBgggggCg
d£dh
 jIµ‚±<00>JXdjð±Óddkð¢±<00>¿o±žd²,¿Ad²&d3@ð²Ad—¿kAñ™Agð“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 1 FROMFLAG I 0 PHASE) A²@@dgð•odgð•ogð•o@gð•o@dgð•ogð•o@dgð•ogð•o@gð²»o(63 \ILLEGAL.ARG)
(126 FAKE 112 COMPLETE 99 MCCS 84 IMPORT 71 SOURCE 50 FAKE 36 COMPLETE 23 MCCS 9 IMPORT)
( 134 "faked" 119 "completed" 106 "mccs" 91 "imported" 78 "source" 57 "completed" 43 "mccs" 30 "imported"
16 "imported")
IMPORTFONTS.DIRSIZE :D8
(I 3 FROMFLAG I 2 DIRECTORY I 1 DEVICE I 0 PHASE) XgAB@C
ggggg
d£dhgo
g
(85 DIRECTORY 75 PACKFILENAME 51 FONTDEVICEPROP 18 IMPORTFONTS.DIRECTORY 13 IMPORTFONTS.SUBDIR)
(80 COUNTLENGTH 64 VERSION 46 FONTEXTENSIONS 41 DISPLAY 33 EXTENSION 28 * 23 NAME 4 DIRECTORY)
( 69 "")
IMPORTFONTS.AVAILABLEA0001 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 FONTSPEC F 1 SI::*RESETFORMS* F 2 FROMDIRECTORY F 3 PHASE) SgggPhohPgPRS hQcPhdddg
(80 FONTSAVAILABLE 64 IMPORTFONTS.NOCACHE 52 FONTDEVICEPROP 47 IMPORTFONTS.DIRECTORY 42 IMPORTFONTS.SUBDIR)
(74 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 FROMDIRECTORY 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 FROMDIRECTORY F 3 PHASE) OgggPhohPgPRS hQcPhdddi
(76 FONTEXISTS? 64 IMPORTFONTS.NOCACHE 52 FONTDEVICEPROP 47 IMPORTFONTS.DIRECTORY 42 IMPORTFONTS.SUBDIR)
(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 FROMDIRECTORY I 1 FONTSPEC I 0 PHASE F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 IMPORTFONTS.EXISTS?A0001)
(8 SI::RESETUNWIND)
()
IMPORTFONTS.DEPLOY :D8
(P 7 FS P 6 N P 4 FONT P 3 FS P 0 FONTSPECS I 4 TODIRECTORY I 3 FROMDIRECTORY I 2 DEVICE I 1 FONTSPECS I 0 PHASE) ÷@§gb¿Bµ gbC@ bBg
d£dh b¿@AhB H1Iµ[JH
gg XdjMµYNi
¿oi
¿Ci
¿oi
¿Di
¿i h»JKC
g
ºIY°‡_C
OD
¿hO
¿NkÔ¾M]±ÿ(234 FLUSHFONTCACHE 225 COPYFILE 220 MEDLEYFONT.FILENAME 212 MEDLEYFONT.FILENAME 197 \NCONC2 192 MEDLEYFONT.GETFILEPROP 182 MEDLEYFONT.FILENAME 170 TERPRI 163 PRIN1 155 PRIN1 143 PRIN1 135 PRIN1 123 PRIN1 106 CL:REMOVE-DUPLICATES 91 \APPEND2 72 IMPORTFONTS.FONTSPECS 60 PSEUDOFILENAME 47 FONTDEVICEPROP 31 IMPORTFONTS.DIRECTORY 26 IMPORTFONTS.SUBDIR)
(187 INDIRECTS 101 EQUAL 96 :TEST 42 FONTDIRECTORIES 17 DISPLAY 6 FAKE)
( 149 " to " 129 " fonts copied from ")
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@
¿@ÊoH
¿Idgð²s¿HHgHHHHHH Z²2@È
djð“¿nÿÿjMLó³@MgJ i»MkÔ]°èIgð²pHHHgHHHHH Z²2@È
djð“¿nÿÿjMLó³@MgJ i»MkÔ]°èIgð²nHHHHgHHHH 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 FROMDIRECTORY I 0 FONTSPEC) ä@A
µ‚±Ó@Hdgð²=¿@@ghdH @@@A
µ‚±‡Hdgð²4¿@@hghH @@@A
µIHgð²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 FROMDIRECTORY 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)
()
IMPORTFONTS.PHASES :D8
(P 1 P I 4 TODIRECTORY I 3 FROMDIRECTORY I 2 FONTSPECS I 1 DEVICE I 0 PHASES) T@ h¿d¢¹hƒ¹H¸Idgð²¿gBACD
¿°ÎBACDhi
¿i ¿°¸(79 TERPRI 72 IMPORTFONTS 57 IMPORTFONTS.DEPLOY 18 DRIBBLE 4 TDRIBBLE)
(47 FAKE 38 DEPLOY)
()
MISSINGFACE :D8
(P 22 NEEDED P 21 MRR P 19 FACE P 18 FS P 16 FONTSPEC P 15 F P 10 OTHERS P 9 BIRS P 8 BRRS P 7 MIRS P 6 MRRS P 5 FAMILIESOFINTEREST P 4 C I 0 DIRECTORY F 23 ALTOFONTFAMILIES F 24 NSFONTFAMILIES) ¨W.W0gg
AHµYI
Q
g@gg QOµ@O!O"µnN!O(µ‚±ÒO, \d3@ðšL»Jµ KhZ¹H<58>K&º°ø_ _ M
²O _¿OµOh__¿O_°<>O&_¿°ó_$_&¿O$g¿O& dgð—¿O$N¾°@dgðš¿O$O_¿°-dgðš¿O$O_¿°gð˜O$O_¿‡O$O_¿O"_"±ÿ#_*O
³ogO* O,_,¿O*O
³ogO* O,_,¿O*O
³ogO* O,_,¿O(_(±þ¾(408 SUBST 389 MEMBER 374 SUBST 355 MEMBER 340 SUBST 321 MEMBER 225 FONTFACETOATOM 167 FONTSPECFROMFILENAME 158 MEMB 149 FONTSPECFROMFILENAME 111 SORTFONTSPECS 71 FILDIR 66 PACKFILENAME 42 CL:REMOVE-DUPLICATES 37 \APPEND2 32 \APPEND2 18 FONTDEVICEPROP)
(401 FACE 367 FACE 333 FACE 284 BIR 266 BRR 247 MIR 231 MRR 216 FACE 61 *-*.MEDLEYDISPLAYFONT 56 BODY 50 BODY 13 CHARCOERCIONS 8 DISPLAY)
( 396 (BOLD ITALIC REGULAR) 362 (BOLD REGULAR REGULAR) 328 (MEDIUM ITALIC REGULAR))
IMPORT.DISPLAY :D8
(I 1 NODRIBBLE I 0 FONTSPECS) g@ghdg
(23 IMPORTFONTS)
(17 LEGACYDISPLAYFONT 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 FROMDIRECTORY F 10 FONTSPEC) ÑoggW hWcoggoW 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 FROMDIRECTORY 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
(40 MEDLEYFONT.READ.FONT 30 MEDLEYFONT.FILENAME 25 IMPORTFONTS.DIRECTORY 20 IMPORTFONTS.SUBDIR)
(35 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¹H K&º°ø(131 GETFILEINFO 118 INFILEP 113 MEDLEYFONT.FILENAME 103 INFILEP 98 MEDLEYFONT.FILENAME 90 IMPORTFONTS.DIRECTORY 85 IMPORTFONTS.SUBDIR 58 FONTSPECFROMFILENAME 51 \FONT.CHECKARGS)
(126 LENGTH 37 *)
( 66 (IMPORT MCCS COMPLETE FAKE))
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 PHASE F 1 DIR F 2 FONTSPEC F 3 TITLETAG F 4 FONTFILE F 5 CHARSET) PQhR TUhdS
(24 EDITFONT 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 17 *CONDITION-HANDLER-BINDINGS* P 16 SI::*NLSETQFLAG* P 15 *PROCEED-CASES* P 14 SI::NLSETQ-VALUE P 13 *CONDITION-HANDLER-BINDINGS* P 12 SI::*NLSETQFLAG* P 11 *PROCEED-CASES* P 10 SI::NLSETQ-VALUE P 9 C P 8 C P 3 CHARSETNAME P 2 TITLETAG P 1 FONTFILE P 0 DIR I 3 DIRECTORY I 2 CHARSET I 1 FONTSPEC I 0 PHASE F 18 *PROCEED-CASES* F 19 *CONDITION-HANDLER-BINDINGS*) ¾Ad²3d²/d3@ð²'Ad—¿kAñ™AgðœAhdddi
…A bC@ AH
!Bdið²D¿Ig
ALµM°5_ ³O ­O_¿Nµ
Oh^½L\°ÖO&¾°÷ µjbd²d @AOCi
µìh
`W$ioW&
O gð´O¢±«@dgð¿g…i
ZB [d ¬KoJ º`W$ioW&O gð´OµJoi
¿B i
¿oi
¿Ai
¿oi
¿Hi
¿i hAi
oi
Hi
i (443 TERPRI 437 PRIN1 430 PRIN1 419 PRIN1 410 TERPRI 403 PRIN1 395 PRIN1 383 PRIN1 375 PRIN1 363 PRIN1 357 OCTALSTRING 350 PRIN1 324 PEFA0002 293 CONCAT 280 OCTALNUM? 273 CHARSET.ENCODE 266 L-CASE 228 PEFA0001 191 PEF 162 CHARSET.DECODE 131 CHINESECHARSETP 122 KANJICHARSETP 103 MEDLEYFONT.GETFILEPROP 82 MEDLEYFONT.FILENAME 72 IMPORTFONTS.DIRECTORY 67 IMPORTFONTS.SUBDIR 58 FONTSPECFROMFILENAME 51 \FONT.CHECKARGS)
(330 :NORMAL 302 SI::NLSETQ-PROCEED-CASE 259 MCCS 251 MCCS 234 :NORMAL 206 SI::NLSETQ-PROCEED-CASE 98 CHARSETS 37 *)
( 424 " not found in " 389 " not found in " 369 " of " 344 "Charset " 311 (CL:ERROR . SI::NLSETQHANDLER)
287 " " 215 (CL:ERROR . SI::NLSETQHANDLER))
AEF :D8
(I 2 CLOSE I 1 CHARSET I 0 FONTSPEC) ;B•¿@A
@A
@A
@A
@Ahdo
h(50 EDITFONT 35 FEF 28 CEF 21 MEF 14 IEF 6 EFCLOSE)
NIL
( 44 "Deployed")
IEF :D8
(I 2 DIRECTORY I 1 CHARSET I 0 FONTSPEC) g@AB (12 PEF)
(4 IMPORT)
()
MEF :D8
(I 2 DIRECTORY I 1 CHARSET I 0 FONTSPEC) g@AB (12 PEF)
(4 MCCS)
()
CEF :D8
(I 2 DIRECTORY I 1 CHARSET I 0 FONTSPEC) g@AB (12 PEF)
(4 COMPLETE)
()
FEF :D8
(I 2 DIRECTORY I 1 CHARSET I 0 FONTSPEC) g@AB (12 PEF)
(4 FAKE)
()
EFCLOSE :D8
(P 1 W) 5HµhYg
²Ig
I ¿H×(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°\dHi
¿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) 3o 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
SIàÐɾ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°dO
Oµ
µëM]° _²-Oo
³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? IMPORTFONTS.DEPLOY) (FNS FAKEFACE FAKEFACE.FROMFILE
FAKEFACE.FROMFONT) (FNS IMPORTFONTS.PHASES MISSINGFACE) (COMS (* ; "For legacy display imports") (FNS
IMPORT.DISPLAY LEGACYDISPLAYFONT) (FILES ACFONT)) (COMS (* ; "For testing") (FNS IPF IPFSIZES) (FNS
PEF AEF IEF MEF CEF FEF EFCLOSE) (FNS SHOWCHARS CSSOURCE FONTDEFFONTS) (FILES EDITFONT))))
(FILESLOAD ACFONT)
(FILESLOAD EDITFONT)
NIL