1
0
mirror of synced 2026-04-07 14:43:54 +00:00
Files
Interlisp.medley/library/IMPORTFONTS.LCOM

344 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 " 5-Apr-2026 14:27:30" ("compiled on " {WMEDLEY}<library>IMPORTFONTS.;94)
" 5-Apr-2026 13:45:24" brecompiled exprs%: IMPORTFONTS IMPORTFONTS.DIRECTORY in "FULL 5-Apr-2026 ..."
dated " 5-Apr-2026 13:45:32")
(FILECREATED " 5-Apr-2026 14:27:30" {WMEDLEY}<library>IMPORTFONTS.;94 59200 :EDIT-BY rmk :CHANGES-TO (
FNS IMPORTFONTS IMPORTFONTS.DIRECTORY FAKEFACE) :PREVIOUS-DATE " 5-Apr-2026 11:51:28"
{WMEDLEY}<library>IMPORTFONTS.;92)
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 DEVICE F 26 FONTSPECS F 27 IMPORTFN F 28 NODRIBBLE F 29 LOGINHOST/DIR) ˜W.W0W,W2 Hc0¿Hc,W.W4W,W2 W.W4W0W2 c4d²qW8³mgW,koW,mþhdddi
 µW:gW.gg
 ¿oi
¿ i
¿i ¿W.dgð—¿o°.dgð—¿o°dgð¿oŒgð´oi
¿W4 i
¿oi
¿W2i
¿oi
¿lW4 ñ¥o„oi
W,²;lhi ¿oi
¿W0i
¿lhi ¿oi
¿W,°-oi
¿W0i
¿i ¿lhi ¿oi
¿i ¿o W.W4W,W2 W4W.dgð¿jˆW2W0 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.W2W, _(¿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(1684 TERPRI 1677 PRIN1 1665 PRIN1 1656 PRIN1 1639 LENGTH 1626 TERPRI 1619 PRIN1 1607 PRIN1 1599 TAB 1584 TERPRI 1577 PRIN1 1565 PRIN1 1559 FIXR 1543 PRIN1 1531 PRIN1 1525 FIXR 1511 PRIN1 1499 TAB 1489 PRIN1 1477 PRIN1 1468 PRIN1 1454 IMPORTFONTS.DIRSIZE 1436 PRIN1 1367 PRIN1 1322 PRINTNUM 1308 PRIN1 1296 PRINTNUM 1282 PRIN1 1270 TAB 1257 PRINTNUM 1240 TAB 1230 PRINTNUM 1216 PRIN1 1204 PRINTNUM 1190 PRIN1 1178 PRINTNUM 1164 TAB 1119 PRINTNUM 1105 PRIN1 1093 PRINTNUM 1079 TAB 1055 GETFILEINFO 1033 TERPRI 1021 PRINTNUM 1007 TAB 997 PRIN1 985 TAB 960 CLOCK 951 COPYFILE 941 MEDLEYFONT.WRITE.FONT 926 MEDLEYFONT.FILENAME 904 FONTPROP 889 FAKEFACE 879 GETFILEINFO 857 \MVLIST 852 FAKEFACE.FROMFONT 833 COMPLETE.FONT 815 GETFILEINFO 800 MEDLEYFONT.READ.FONT 788 FONT.TO.MCCS 762 FONTCREATE.SLUGFD 751 INFILEP 746 MEDLEYFONT.FILENAME 687 CLOCK 680 PRIN1 674 FONTFACETOATOM 663 PRIN1 651 PRINTNUM 635 PRIN1 623 PRIN1 613 PRIN1 601 PRINTNUM 572 LENGTH 563 PRIN1 551 PRIN1 543 LENGTH 536 TAB 524 FIXR 510 CLOCK 497 CLOCK 483 IMPORTFONTS.DIRSIZE 459 IMPORTFONTS.CLEAR 446 BKSYSBUF 435 TERPRI 428 PRIN1 416 TAB 406 TERPRI 399 PRIN1 390 PRIN1 374 PRIN1 362 TAB 352 PRIN1 343 PRIN1 331 TAB 318 PRIN1 299 LENGTH 289 PRIN1 277 PRIN1 268 PRIN1 256 PRIN1 250 LENGTH 242 PRIN1 173 TERPRI 166 PRIN1 160 FULLNAME 155 DRIBBLEFILE 149 PRIN1 137 DRIBBLE 132 PSEUDOFILENAME 127 PACKFILENAME 100 SUBSTRING 95 STRPOS 57 IMPORTFONTS.FONTSPECS 44 IMPORTFONTS.CLEAR 17 \MVLIST 12 IMPORTFONTS.CONTEXT)
(1422 FAKE 1408 COMPLETE 1392 MCCS 1376 IMPORT 1145 FAKE 1137 COMPLETE 1128 MCCS 1066 IMPORT 1050 LENGTH 899 NINSTANTIATEDCHARSETS 874 LENGTH 840 FAKE 822 COMPLETE 810 LENGTH 795 ALL 777 MCCS 733 COMPLETE 725 MCCS 698 IMPORT 469 IMPORT 228 FAKE 214 COMPLETE 198 MCCS 182 IMPORT 121 DRIBBLE 116 EXTENSION 109 NAME 72 BODY)
( 1671 " seconds" 1650 " (but not written) in " 1613 " fonts had no character sets" 1571 " KB" 1553 1024.0
1537 " KB, grew by " 1519 1024.0 1505 "Total size is " 1483 " seconds" 1462 " and written in " 1430 "faked"
1416 "completed" 1400 "recoded to MCCS" 1384 "imported" 1361 " " 1314 (FLOAT 6 2) 1302 " " 1288 (FIX 6)
1276 "Copied " 1246 (FIX 5) 1222 (FLOAT 6 2) 1210 " " 1196 (FIX 6) 1184 " -> " 1170 (FIX 6) 1111 (FLOAT 7 2)
1099 " " 1085 (FIX 6) 1013 (FLOAT 7 2) 991 "No instantiated charsets" 968 1000.0 657 " " 641 (FIX 2)
629 " " 607 ". " 594 (FIX 3) 582 "s " 557 " font" 518 1000.0 441 " " 422 "(but not writing)" 384 " from "
368 "to " 337 "from " 312 "" 306 "s" 283 " font" 262 " " 236 "Faking " 222 "Completing " 206 "MCCS recoding "
190 "Importing " 143 "Dribbling to " 80 ">")
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 A0301 P 0 PAIRS I 0 FONT) «@g
1Hd¢±“@d @@g
@¿jdðhð@g
o
²K@g¿@Éɺg[Jɵ JKhLɹLI¿Igi(92 MEMB 82 FONTPROP 53 MCCSMAPFN 48 FONTPROP 31 MOVEFONTCHARS 15 MCCSMAPPAIRS 10 FONTPROP)
(166 MCCS 154 CHARSETINFO 144 CHARSETINFO 126 CHARSETINFO 119 CSCHARENCODING 105 MCCS 100 FONTDESCRIPTOR 77 CHARENCODING 61 FONTDESCRIPTOR 43 CHARENCODING 37 FONTDESCRIPTOR 5 CHARENCODING)
( 87 (GACHA XCCS$ ALTOTEXT PALATINO UNICODE))
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óJWIJo [™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)
( 94 ((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 11 *CONDITION-HANDLER-BINDINGS* P 10 SI::*NLSETQFLAG* P 9 *PROCEED-CASES* P 8 SI::NLSETQ-VALUE P 7 *CONDITION-HANDLER-BINDINGS* P 6 SI::*NLSETQFLAG* P 5 *PROCEED-CASES* P 4 SI::NLSETQ-VALUE 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 12 *PROCEED-CASES* F 13 *CONDITION-HANDLER-BINDINGS*) \ B£jb¿Ad²3d²/d3@ð²'Ad—¿kAñ™AgðœAhdddi
…A bC@ AH
!`WioWM gð´L¢±¶B µjb@dgð¿g…i
ZB [d ¬KoJ º`WioW O gð´OµJoi
¿B i
¿oi
¿Ai
¿oi
¿Hi
¿i hAi
oi
Hi
i (345 TERPRI 339 PRIN1 332 PRIN1 321 PRIN1 312 TERPRI 305 PRIN1 297 PRIN1 285 PRIN1 277 PRIN1 265 PRIN1 259 OCTALSTRING 252 PRIN1 226 PEFA0002 195 CONCAT 182 OCTALNUM? 175 CHARSET.ENCODE 168 L-CASE 141 CHARSET.DECODE 120 PEFA0001 88 MEDLEYFONT.FILENAME 78 IMPORTFONTS.DIRECTORY 73 IMPORTFONTS.SUBDIR 64 FONTSPECFROMFILENAME 57 \FONT.CHECKARGS)
(232 :NORMAL 204 SI::NLSETQ-PROCEED-CASE 161 MCCS 153 MCCS 126 :NORMAL 99 SI::NLSETQ-PROCEED-CASE 43 *)
( 326 " not found in " 291 " not found in " 271 " of " 246 "Charset " 213 (CL:ERROR . SI::NLSETQHANDLER)
189 " " 108 (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