(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8) (FILECREATED "26-Feb-2026 17:01:47" ("compiled on " {WMEDLEY}FONT.;677) "26-Feb-2026 12:11:15" "COMPILE-FILEd" in "FULL 26-Feb-2026 ..." dated "26-Feb-2026 12:11:24") (FILECREATED "26-Feb-2026 17:01:47" {WMEDLEY}FONT.;677 278005 :EDIT-BY rmk :CHANGES-TO (FNS MOVEFONTCHARS) :PREVIOUS-DATE "20-Feb-2026 12:54:44" {WMEDLEY}FONT.;675) (RPAQQ FONTCOMS ((* ;; "font functions ") (FNS CHARWIDTH CHARWIDTHY STRINGWIDTH \CHARWIDTH.DISPLAY \STRINGWIDTH.DISPLAY \STRINGWIDTH.GENERIC) (COMS (FNS DEFAULTFONT FONTCLASS FONTCLASSUNPARSE FONTCLASSCOMPONENT SETFONTCLASSCOMPONENT GETFONTCLASSCOMPONENT) (MACROS \GETFONTCLASSCOMPONENT \SETFONTCLASSCOMPONENT)) (VARS NSFONTFAMILIES ALTOFONTFAMILIES) (INITVARS MCCSFONTFAMILIES) (COMS (* ;; "Creation: ") (FNS FONTCREATE FONTCREATE1 FONTCREATE.SLUGFD \FONT.CHECKARGS1 \FONTCREATE1.NOFN FONTFILEP \READCHARSET) (FNS \FONT.CHECKARGS \CHARSET.CHECK) (FNS COERCEFONTSPEC COERCEFONTSPEC.TARGETFACE) (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS COERCEFONTSPEC.MATCH COERCEFONTSPEC.TARGET)) (MACROS SPREADFONTSPEC) (FNS MAKEFONTSPEC) (FNS COMPLETE.FONT COMPLETEFONTP COMPLETE.CHARSET PRUNESLUGCSINFOS MONOSPACEFONTP)) (COMS (* ;; "Property extraction:") (FNS FONTASCENT FONTDESCENT FONTHEIGHT FONTPROP \AVGCHARWIDTH) (EXPORT (OPTIMIZERS FONTPROP)) (FNS FONTDEVICEPROP)) ( COMS (* ; "Moving character information") (FNS EDITCHAR) (* ; "Should this be on EDITFONT ?") (FNS GETCHARBITMAP PUTCHARBITMAP \GETCHARBITMAP.CSINFO \PUTCHARBITMAP.CSINFO) (FNS MOVECHARBITMAP MOVEFONTCHARS \MOVEFONTCHAR \MOVEFONTCHARS.SOURCEDATA \MAKESLUGCHAR SLUGCHARP.DISPLAY) (MACROS UPDATEINFOELEMENT)) (FNS FONTFILES \FINDFONTFILE \FONTFILENAMES \FONTFILENAME FONTSPECFROMFILENAME) ( FNS FONTCOPY FONTP FONTUNPARSE SETFONTDESCRIPTOR \STREAMCHARWIDTH \COERCECHARSET \BUILDSLUGCSINFO \FONTSYMBOL \DEVICESYMBOL \FONTFACE \FONTFACE.COLOR SETFONTCHARENCODING) (FNS FONTSAVAILABLE FONTEXISTS? \SEARCHFONTFILES FLUSHFONTCACHE FINDFONTFILES SORTFONTSPECS) (FNS MATCHFONTFACE MAKEFONTFACE FONTFACETOATOM) (INITVARS \FONTSINCORE \FONTEXISTS?-CACHE \FONTSAVAILABLEFILECACHE \DEFAULTDEVICEFONTS) (* ;; "The INITVARS value of MEDLEY-INIT-VARS in MEDLEY dalso includes these entries. That's because FONT is in the INIT, so these entries would be lost when MEDLEY-INIT-VARS is reinitialized when the Lisp loadup starts" ) (ADDVARS (MEDLEY-INIT-VARS (\FONTEXISTS?-CACHE NIL RESET) (\FONTSAVAILABLEFILECACHE NIL RESET))) ( COMS (GLOBALVARS \DEFAULTDEVICEFONTS \UNITWIDTHSVECTOR) (INITVARS \UNITWIDTHSVECTOR) (FNS \UNITWIDTHSVECTOR) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\UNITWIDTHSVECTOR)))) (DECLARE%: DONTCOPY ( EXPORT (RECORDS FONTCLASS FONTDESCRIPTOR FONTFACE CHARSETINFO FONTSPEC) (MACROS FONTASCENT FONTDESCENT FONTHEIGHT \FGETOFFSET \FSETOFFSET \FGETWIDTH \FSETWIDTH \FGETCHARWIDTH \FSETCHARWIDTH \FGETIMAGEWIDTH \FSETIMAGEWIDTH) (MACROS \GETCHARSETINFO \SETCHARSETINFO \INSURECHARSETINFO \CREATECSINFOELEMENT \CREATEFONTCHARSETVECTOR CHARSETPROP) (PROP ARGNAMES CHARSETPROP) (CONSTANTS ( SLUGCHARINDEX (ADD1 \MAXTHINCHAR)) (SLUGCHARSET (ADD1 \MAXCHARSET)))) (MACROS INDIRECTCHARSETP)) (FNS FONTDESCRIPTOR.DEFPRINT FONTCLASS.DEFPRINT) (INITRECORDS FONTCLASS FONTDESCRIPTOR CHARSETINFO) ( SYSRECORDS FONTCLASS FONTDESCRIPTOR CHARSETINFO) (FNS \CREATEKERNELEMENT \FSETLEFTKERN \FGETLEFTKERN) (FNS \CREATEFONT \CREATECHARSET \INSTALLCHARSETINFO \INSTALLCHARSETINFO.CHARENCODING) (DECLARE%: DONTCOPY (MACROS FIRSTCHARSETCODE LASTCHARSETCODE)) (FNS \FONTRESETCHARWIDTHS) (MACROS \FGETCHARIMAGEWIDTH) (LOCALVARS . T) (PROP FILETYPE FONT) (* ;; "") (* ;; "DISPLAY") (COMS (* ; "Functions for DISPLAY IMAGESTREAMTYPES ") (FNS \CREATEDISPLAYFONT \CREATECHARSET.DISPLAY \FONTEXISTS?.DISPLAY)) (FNS STRIKEFONT.FILEP STRIKEFONT.GETCHARSET WRITESTRIKEFONTFILE STRIKECSINFO) ( COMS (* ; "Bitmap faking") (FNS MAKEBOLD.CHARSET MAKEBOLD.CHAR MAKEITALIC.CHARSET MAKEITALIC.CHAR \SFMAKEBOLD \SFMAKEITALIC) (FNS \SFMAKEROTATEDFONT \SFROTATECSINFO \SFROTATEFONTCHARACTERS \SFROTATECSINFOOFFSETS) (FNS \SFMAKECOLOR)) (EXPORT (GLOBALVARS DISPLAYFONTDIRECTORIES DISPLAYFONTEXTENSIONS DISPLAYCHARCOERCIONS DISPLAYFONTCOERCIONS DISPLAYCHARSETFNS)) (DECLARE%: DONTEVAL@LOAD DOCOPY (INITVARS (DISPLAYFONTDIRECTORIES NIL)) (ADDVARS (DISPLAYCHARSETFNS (STRIKE STRIKEFONT.FILEP STRIKEFONT.GETCHARSET))) (* ; "The loadup might have fewer") (ADDVARS ( DISPLAYFONTEXTENSIONS MEDLEYDISPLAYFONT DISPLAYFONT))) (INITVARS (DISPLAYFONTCOERCIONS (QUOTE ((( HELVETICA (<= * 2)) (HELVETICA 4)) ((MODERN (<= 15 * 16)) (* 14)) ((MODERN (<= 17 * 21)) (* 18)) (( MODERN (<= 22 * 28)) (* 24)) ((MODERN (<= 29 * 33)) (* 30)) ((MODERN (<= 34 * 40)) (* 36)) ((MODERN ( <= 41 * 65)) (* 48)) ((MODERN (<= 66 *)) (* 72)) ((PALATINO 9) (PALATINO 12)) ((PALATINO (<= * 8)) ( PALATINO 10)) ((TITAN (<= * 9) BOLD) (MODERN 10)) ((TITAN (<= * 9) ITALIC) (MODERN 10)) ((TITAN (<= * 9)) (TITAN 10)) (LPT AMTEX)))) (DISPLAYCHARCOERCIONS (QUOTE ((GACHA TERMINAL) (MODERN CLASSIC) ( TIMESROMAN CLASSIC) (HELVETICA MODERN) (TERMINAL MODERN) (HIPPO CLASSIC) (CYRILLIC CLASSIC) (MATH CLASSIC) (SIGMA MODERN) (SYMBOL MODERN) (TITAN CLASSIC) (PALATINO CLASSIC) (OPTIMA MODERN) (BOLDPS CLASSIC) (PCTERMINAL CLASSIC) (TITANLEGAL CLASSIC)))) (\DEFAULTCHARSET 0)) (* ;; "") (* ;; "Defunct coercions? Mapping for DOS filenames, Adobe equivalences") (COMS (INITVARS ( ADOBEDISPLAYFONTCOERCIONS (QUOTE (((HELVETICABLACK 16) (HELVETICABLACK 18)) ((SYMBOL) (ADOBESYMBOL)) ( (SYMBOL 11) (ADOBESYMBOL 10)) ((AVANTGARDE-DEMI) (AVANTGARDE)) ((AVANTGARDE-BOOK) (AVANTGARDE)) (( NEWCENTURYSCHLBK) (CENTURYSCHOOLBOOK)) ((BOOKMAN-LIGHT) (BOOKMAN)) ((BOOKMAN-DEMI) (BOOKMAN)) (( HELVETICA-NARROW) (HELVETICANARROW)) ((HELVETICA 24) (ADOBEHELVETICA 24))))) (*DISPLAY-FONT-NAME-MAP* (QUOTE ((TIMESROMAN . TR) (HELVETICA . HV) (TIMESROMAND . TD) (HELVETICAD . HD) (MODERN . MD) (CLASSIC . CL) (GACHA . GC) (TITAN . TI) (LETTERGOTHIC . LG) (BOLDPS . BP) (TERMINAL . TM) (CLASSICTHIN . CT) (HIPPO . HP) (LOGO . LG) (MATH . MA) (OLDENGLISH . OE) (SYMBOL . SY)))))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA FONTCOPY))))) CHARWIDTH :D8 (L (1 FONT 0 CHARCODE)) @dj@@ `Ad;A@YJ"IJJI NOOO@lgi X?A @\M"LMML NOOO@l.4H@lK(135 \CREATECHARSET 105 FONTCREATE 96 \GETSTREAM 60 \CREATECHARSET 15 \ILLEGAL.ARG) (172 IMAGEOPS 165 STREAM 124 FONTDESCRIPTOR 90 OUTPUT 49 FONTDESCRIPTOR 26 FONTDESCRIPTOR) () CHARWIDTHY :D8 (L (1 FONT 0 CHARCODE)) @dj@@ `Ad=A@YJ"IJJI NOOOd3 0dkjgi XH.6H@lKA @\M"LMML NOOOd3 dd@l(165 \CREATECHARSET 135 FONTCREATE 98 \GETSTREAM 60 \CREATECHARSET 15 \ILLEGAL.ARG) (154 FONTDESCRIPTOR 119 IMAGEOPS 112 STREAM 104 STREAM 92 OUTPUT 49 FONTDESCRIPTOR 26 FONTDESCRIPTOR) () STRINGWIDTH :D8 (L (3 RDTBL 2 FLG 1 FONT 0 STR) F 4 *READTABLE*) @Ad;@ABCCdiTAAjA YI Agi XHA` X@HBCCdiTHHjH [K .2H@BCCdiTlJ(153 \STRINGWIDTH.GENERIC 139 \CREATECHARSET 97 FONTCREATE 81 \GETSTREAM 67 \STRINGWIDTH.GENERIC 53 \CREATECHARSET) (188 READTABLEP 166 IMAGEOPS 159 STREAM 130 FONTDESCRIPTOR 117 READTABLEP 92 DEFAULTFONT 75 OUTPUT 44 FONTDESCRIPTOR 31 READTABLEP 9 FONTDESCRIPTOR) () \CHARWIDTH.DISPLAY :D8 (L (1 CHARCODE 0 STREAM)) =@0 AHIHIIH JKLLAl(36 \CREATECHARSET) (25 FONTDESCRIPTOR) () \STRINGWIDTH.DISPLAY :D8 (L (2 RDTBL 1 STR 0 STREAM)) @0AH BHA (18 \STRINGWIDTH.GENERIC) NIL () \STRINGWIDTH.GENERICA0014 :D8 (L (1 CC 0 DUMMY) F 3 CSET F 4 FONT F 5 TOTALWIDTH F 6 WIDTHSBASE F 7 SPACEWIDTH) NUAl WASAV2AcTSTSST HIJJc Alc (49 \CREATECHARSET) (38 FONTDESCRIPTOR) () \STRINGWIDTH.GENERIC :D8 (L (2 RDTBL 0 STR) P 4 CSET P 3 WIDTHSBASE P 2 SPACEWIDTH P 1 FONT P 0 TOTALWIDTH I 3 SPACEWIDTH I 1 FONT F 22 *PRINT-LEVEL* F 23 *PRINT-LENGTH*) %@dd3@BjAC#g@BdW,W. Hk@jc N__N jh_MOrOOMOM_OOO;O_AO%AOOA OOO O _Ol COOl_Mk]O Gjq BrAAjA _O"BAN__O'OOOO OOOONl_@QOdj _ Odj _"O mOl _Odj lD_$O OO$O"O O"O _O;O_AO%AOOA O&O(O*O*_MOl COOlBOl"ONOjԽO k_ zM(475 \CREATECHARSET 396 %%ARRAY-TYPE-NUMBER 378 \GETBASEFIXP 358 %%ARRAY-BASE 338 %%ARRAY-OFFSET 292 \CREATECHARSET 230 \CREATECHARSET 197 STRINGP 140 \CREATECHARSET 37 \MAPPNAME) (462 FONTDESCRIPTOR 278 FONTDESCRIPTOR 249 READTABLEP 221 FONTDESCRIPTOR 127 FONTDESCRIPTOR 24 \STRINGWIDTH.GENERICA0014) () DEFAULTFONTA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 DEVICE F 3 SI::NLSETQ-VALUE) i@`hddRi hcg(20 FONTCREATE) (29 :NORMAL 9 DEFAULTFONT) () DEFAULTFONT :D8 (L (2 NOERRORFLG 1 FONT) P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 DEVICE F 4 *PROCEED-CASES* F 5 *CONDITION-HANDLER-BINDINGS*) x@gb`C`,`TioUI gHbg A`@A `hdd@B (117 FONTCREATE 100 SETFONTCLASSCOMPONENT 80 FONTCLASS 55 DEFAULTFONTA0001) (106 DEFAULTFONT 93 DEFAULTFONT 85 DEFAULTFONT 75 DEFAULTFONT 61 :NORMAL 36 SI::NLSETQ-PROCEED-CASE 26 DEFAULTFONT 19 FONTCLASS 14 DEFAULTFONT 6 DISPLAY) ( 44 (CL:ERROR . SI::NLSETQHANDLER)) FONTCLASS :D8 (L (2 CREATEFORDEVICES 1 FONTLIST 0 NAME))  AY`d@ II3 kdJIIdhddg dKIIdLIIdM0 IFd_O^N3Odo@Ah OO_O Oh_O&_O_dOXB_OHO_hO_O_HhddO (214 FONTCREATE 124 ERROR 53 FONTCREATE) (47 DISPLAY 9 |FONTCLASSTYPE#|) ( 114 "illegal font class specification") FONTCLASSUNPARSE :D8 (L (3 NOERRORFLG 2 FONT 1 DEVICE 0 FONTCLASS)) c@ @@ @ @ h@@d[K hIHhZH&J (96 \APPEND2 70 FONTUNPARSE 40 FONTUNPARSE 32 FONTUNPARSE 24 FONTUNPARSE) (55 FONTCLASS 13 FONTCLASS 5 FONTCLASS) () FONTCLASSCOMPONENT :D8 (L (3 NOERRORFLG 2 FONT 1 DEVICE 0 FONTCLASS)) )@hddAC BBhddAC b@AB (37 SETFONTCLASSCOMPONENT 26 FONTCREATE 11 FONTCREATE) NIL () SETFONTCLASSCOMPONENT :D8 (L (2 FONT 1 DEVICE 0 FONTCLASS)) ~@ABhddA CIdgHJJdgHJJgHJJHI\dKKLhNNMMddJ(12 FONTCREATE) (111 FONTCLASS 101 FONTCLASS 85 FONTCLASS 69 FONTCLASS 61 PRESS 51 FONTCLASS 42 INTERPRESS 31 FONTCLASS 22 DISPLAY) () GETFONTCLASSCOMPONENT :D8 (L (2 NOERRORFLG 1 DEVICE 0 FONTCLASS)) P@Adg@dg@@XddHhddgi XkAdg@Hog@H]Ag@HJ@A\KKLhJJIIHBoAo @ HBho@ (239 ERROR 222 ERROR 216 CONCAT 89 FONTCREATE) (186 FONTCLASS 176 FONTCLASS 160 FONTCLASS 145 FONTCLASS 137 PRESS 126 FONTCLASS 118 INTERPRESS 108 FONTCLASS 99 DISPLAY 82 DEVICE 68 FONTDESCRIPTOR 56 FONTCLASS 47 FONTCLASS 38 INTERPRESS 28 FONTCLASS 19 DISPLAY 8 FONTCLASS) ( 233 "NOT A FONTCLASS" 211 " fontclass component" 205 "Invalid ") (PUTPROPS \GETFONTCLASSCOMPONENT MACRO (OPENLAMBDA (FCLASS DEVICE) (SELECTQ DEVICE (DISPLAY (fetch ( FONTCLASS DISPLAYFD) of FCLASS)) (INTERPRESS (fetch (FONTCLASS INTERPRESSFD) of FCLASS)) (GETMULTI ( fetch (FONTCLASS OTHERFDS) of FCLASS) DEVICE)))) (PUTPROPS \SETFONTCLASSCOMPONENT MACRO (OPENLAMBDA (FCLASS DEVICE NEWFONT) (SELECTQ DEVICE (DISPLAY ( replace (FONTCLASS DISPLAYFD) of FCLASS with NEWFONT)) (INTERPRESS (replace (FONTCLASS INTERPRESSFD) of FCLASS with NEWFONT)) (PRESS (replace (FONTCLASS PRESSFD) of FCLASS with NEWFONT)) (PUTMULTI (fetch (FONTCLASS OTHERFDS) of FCLASS) DEVICE NEWFONT)))) (RPAQQ NSFONTFAMILIES (CLASSIC MODERN TERMINAL OPTIMA TITAN BOLDPS PCTERMINAL)) (RPAQQ ALTOFONTFAMILIES (TIMESROMAN TIMESROMAND HELVETICA HELVETICAD CLARITY BRAVOX TONTO CREAM OLDENGLISH)) (RPAQ? MCCSFONTFAMILIES NIL) FONTCREATE :D8 (L (6 CHARSET 5 NOERRORFLG 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) OF b @dABCD@@ABCD XdHF EhoH (74 ERROR 57 FONTCREATE1 41 \FONT.CHECKARGS 8 \CHARSET.CHECK) (48 FONTDESCRIPTOR 18 FONTDESCRIPTOR) ( 68 "FONT NOT FOUND") FONTCREATE1 :D8 (L (1 CHARSET 0 FONTSPEC) F 2 \DEFAULTCHARSET) xARb `@i X2@ W@ XN@` IhhIHi 0HdAAAH HH H(114 \AVGCHARWIDTH 99 \CREATECHARSET 69 EXTENDMULTI-PAIR 38 \CREATEFONT 30 FONTEXISTS? 20 FETCHMULTI-PAIR) (108 FONTDESCRIPTOR 87 FONTDESCRIPTOR 61 \FONTSINCORE 48 \FONTSINCORE 13 \FONTSINCORE) () FONTCREATE.SLUGFD :D8 (L (5 CHARSET 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) `dDd@dAdBdAdj dA dC @ABCDhHdIdgAo HdIlli HdI1H EHEIHlkjKJHKIKk[(127 \BUILDSLUGCSINFO 108 \ALLOCBLOCK 87 FIXR) (164 FONTDESCRIPTOR 136 FONTDESCRIPTOR 72 MCCS 4 |FONTDESCRIPTORTYPE#|) ( 81 0.75) \FONT.CHECKARGS1 :D8 (L (2 NOERRORFLG 1 STREAM 0 SPEC) F 15 \DISPLAYSTREAMTYPES) @ h@ b@` o bA(d3@Ad A  A AgY@dSIdg@g@I@XddHHhddIi Z~Idg`JJg`JJIg`JJ`I\dKKLhNNMMddJIW @`Idg```g```Ig````_I_dO'O_OhO_OOOdd`Bho@o @hddIB X|Idg@HHg@HHIg@HH@_I_dO'O_OhO_OOOddHBVIo@o @@ @ h@ XAHIHHhddIB (757 FONTCREATE 726 DSPFONT 710 IMAGESTREAMP 694 ERROR 689 CONCAT 542 FONTCREATE 522 ERROR 517 CONCAT 313 MEMB 178 FONTCREATE 82 IMAGESTREAMTYPE 75 IMAGESTREAMP 68 \DEVICESYMBOL 60 STRINGP 39 ERROR 13 DSPFONT 5 IMAGESTREAMP) (740 FONTDESCRIPTOR 717 WINDOW 700 FONTDESCRIPTOR 652 FONTCLASS 639 FONTCLASS 618 FONTCLASS 598 FONTCLASS 590 PRESS 579 FONTCLASS 571 INTERPRESS 561 FONTCLASS 552 DISPLAY 529 FONTCLASS 493 \GUARANTEEDDISPLAYFONT 478 FONTCLASS 465 FONTCLASS 444 FONTCLASS 430 DEFAULTFONT 424 \GUARANTEEDDISPLAYFONT 417 \GUARANTEEDDISPLAYFONT 412 FONTCLASS 407 DEFAULTFONT 399 PRESS 392 \GUARANTEEDDISPLAYFONT 385 \GUARANTEEDDISPLAYFONT 380 FONTCLASS 375 DEFAULTFONT 367 INTERPRESS 361 \GUARANTEEDDISPLAYFONT 354 \GUARANTEEDDISPLAYFONT 349 FONTCLASS 344 DEFAULTFONT 335 DISPLAY 323 DEFAULTFONT 292 FONTCLASS 282 FONTCLASS 266 FONTCLASS 256 DEFAULTFONT 246 FONTCLASS 241 DEFAULTFONT 234 PRESS 223 FONTCLASS 218 DEFAULTFONT 211 INTERPRESS 201 FONTCLASS 196 DEFAULTFONT 188 DISPLAY 159 FONTDESCRIPTOR 147 FONTCLASS 137 FONTCLASS 129 INTERPRESS 120 FONTCLASS 111 DISPLAY 99 FONTCLASS 91 DISPLAY 27 DEFAULTFONT) ( 684 " is invalid" 678 " component for " 512 " is invalid" 506 "DISPLAY component for " 34 "No DEFAULTFONT") \FONTCREATE1.NOFN :D8 (L (5 CHARSET 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) oD (15 ERROR 10 CONCAT) NIL ( 4 "FONTCREATE function is not specified for image-type ") FONTFILEPA0001A0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 FNS F 4 STRM F 5 SI::NLSETQ-VALUE) i@STkJhc gNIL (22 :NORMAL) () FONTFILEPA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 6 *CONDITION-HANDLER-BINDINGS* P 5 SI::*NLSETQFLAG* P 4 *PROCEED-CASES* P 3 SI::NLSETQ-VALUE P 2 STRM P 1 FNS I 0 SI::*CLEANUP-FORMS* F 7 DEVICE F 8 SI::*RESETFORMS* F 9 FILE F 10 *CONDITION-HANDLER-BINDINGS* F 11 *PROCEED-CASES*) vWg1Wg !oWg ZhWcHh`WioWL gKIJ HX(110 CLOSEF? 88 FONTFILEPA0001A0002 41 OPENSTREAM 21 FONTDEVICEPROP) (94 :NORMAL 67 SI::NLSETQ-PROCEED-CASE 36 INPUT 16 CHARSETFNS 6 DISPLAY) ( 76 (CL:ERROR . SI::NLSETQHANDLER) 29 (PROGN (CLOSEF? OLDVALUE))) FONTFILEP :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 DEVICE I 0 FILE F 3 LISPXHIST) (AgbS!g $(33 SI::RESETUNWIND 28 \MVLIST 23 FONTFILEPA0001) (18 SI::RESETUNWIND 6 DISPLAY) () \READCHARSETA0001A0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 FNS F 4 STRM F 5 SI::NLSETQ-VALUE) i@STkJhc gNIL (22 :NORMAL) () \READCHARSETA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 23 *CONDITION-HANDLER-BINDINGS* P 22 SI::*NLSETQFLAG* P 21 *PROCEED-CASES* P 20 SI::NLSETQ-VALUE P 18 FNS P 2 STRM I 0 SI::*CLEANUP-FORMS* F 24 FONTSPEC F 25 CHARSET F 26 SI::*RESETFORMS* F 27 MCCSFONTFAMILIES F 28 *PROCEED-CASES* F 29 NSFONTFAMILIES F 30 *CONDITION-HANDLER-BINDINGS* F 31 FONT F 32 ALTOFONTFAMILIES)  W0W2 HhW0g o!O" KHX_$oIg ZhW4c4`W8ioW<O* gO(mO$JW2W>lL[SgKvW0_&K_g_OOOhNNMMW2jO&dW6 g"W: gO&dW@ gK_g_O'O_OhO_OOOI gKeK_g_ O'O_O hO_OOOW0W0W0W0W0W0KW2CJ O"_"1(503 CLOSEF? 365 MKSTRING 360 PSEUDOFILENAME 285 MEMB 267 MEMB 251 MEMB 118 \READCHARSETA0001A0002 78 OPENSTREAM 34 FONTDEVICEPROP 8 FONTFILES) (489 CHARSETINFO 436 CHARSETINFO 423 CHARSETINFO 402 CHARSETINFO 393 SOURCE 378 CHARSETINFO 372 SOURCE 346 CHARSETINFO 333 CHARSETINFO 312 CHARSETINFO 303 FILE 292 ALTOTEXT 273 XCCS$ 258 MCCS 230 CHARSETINFO 220 CHARSETINFO 202 CHARSETINFO 193 CSCHARENCODING 172 CHARSETINFO 166 CSCHARENCODING 157 CHARSETINFO 124 :NORMAL 96 SI::NLSETQ-PROCEED-CASE 73 INPUT 29 CHARSETFNS) ( 105 (CL:ERROR . SI::NLSETQHANDLER) 67 (PROGN (CLOSEF? OLDVALUE)) 41 ((MEDLEYFONT MEDLEYFONT.FILEP MEDLEYFONT.GETCHARSET))) \READCHARSET :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 FONT I 1 CHARSET I 0 FONTSPEC F 3 LISPXHIST) *@d&jS!g $(35 SI::RESETUNWIND 30 \MVLIST 25 \READCHARSETA0001) (20 SI::RESETUNWIND) () \FONT.CHECKARGS :D8 (L (5 ALWAYSFONTSPEC 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) @dgdd3@@@ D b@dd3@@iY@@@dgXbAHbBHbCHbDHbh@d@Di X DJgbAHbBHbCH bDHbDdd3@Ddi D 'Dgi bd ddhD b@@d3@@dio@ @ bAd3 jAgoA BgBhD bCjb3 jCCgC H8E0AH)BHCH DHhH @ABCD (465 MAKEFONTSPEC 396 \ILLEGAL.ARG 364 \FONTFACE 347 ERROR 317 U-CASE 310 ERROR 283 \ILLEGAL.ARG 267 IMAGESTREAMTYPE 258 \GETSTREAM 244 \DEVICESYMBOL 237 STRINGP 141 \FONT.CHECKARGS1 41 \FONT.CHECKARGS1 35 FONTCLASS) (445 FONTDESCRIPTOR 434 FONTDESCRIPTOR 422 FONTDESCRIPTOR 410 FONTDESCRIPTOR 388 * 354 * 334 * 252 OUTPUT 213 FONTDESCRIPTOR 199 FONTDESCRIPTOR 186 FONTDESCRIPTOR 173 FONTDESCRIPTOR 160 FONTDESCRIPTOR 152 DISPLAY 130 FONTDESCRIPTOR 69 FONT 11 CLASS) ( 341 "Illegal font size" 304 "Illegal font family") \CHARSET.CHECK :D8 (L (0 CHARSET)) @j@@ (15 CHARSET.DECODE) NIL () COERCEFONTSPEC :D8 (L (2 ALL 1 COERCIONS) P 22 * P 14 DEVICE P 13 ROTATION P 12 FACE P 11 SIZE P 10 FAMILY I 0 FONTSPEC) Add3@@Ag bP@_dOg __O_O_O_O_H J Yddd3@@OOOOOlIddh[KO_,O*O*o O* O* KKO_,O*O*o O* O* TKKg O 6KO_,O*O*o O* O* Iddh\L_ do O(#O_,O do OO LL_"do O(#O_,O" do OO"LLO _OLL_&_$do O&(#O&_,O$ do O&O$_OMONOOOOMNOOO h_POJ FOdhdddi BOAi OA dh_dJ JZO(_(HX(650 MEMBER 632 COERCEFONTSPEC 623 COERCEFONTSPEC 609 FONTEXISTS? 593 MEMBER 579 MAKEFONTSPEC 530 MEMB 519 EVAL 495 MEMB 469 COERCEFONTSPEC.TARGETFACE 447 MEMB 436 EVAL 412 MEMB 384 MEMB 373 EVAL 349 MEMB 314 EVAL 300 MEMB 268 MATCHFONTFACE 261 \FONTFACE 237 EVAL 223 MEMB 187 EVAL 173 MEMB 103 DREVERSE 53 FONTPROP 22 FONTDEVICEPROP) (256 * 48 SPEC 39 FONTDESCRIPTOR 17 FONTCOERCIONS) ( 525 (NIL *) 490 (NIL *) 442 (NIL *) 407 (NIL *) 379 (NIL *) 344 (NIL *) 295 (NIL *) 218 (NIL *) 168 (NIL *)) COERCEFONTSPEC.TARGETFACE :D8 (L (1 FFACE 0 TFACE) P 2 *) @do AAHdo I"IH do IH@AHdo I"IH do IH@AHdo I"IH do IH (195 MAKEFONTFACE 182 MEMB 171 EVAL 152 MEMB 121 MEMB 110 EVAL 91 MEMB 62 MEMB 51 EVAL 32 MEMB 11 MEMB) NIL ( 177 (NIL *) 147 (NIL *) 116 (NIL *) 86 (NIL *) 57 (NIL *) 27 (NIL *) 6 (NIL *)) (PUTPROPS SPREADFONTSPEC MACRO ((FSPEC) (LET ((FS FSPEC)) (* ;; "Unwrap a FONTSPEC ") (CL:WHEN (type? FONTDESCRIPTOR FS) (SETQ FS (FONTPROP FS (QUOTE SPEC)))) (SETQ FAMILY (fetch (FONTSPEC FSFAMILY) of FS )) (SETQ SIZE (fetch (FONTSPEC FSSIZE) of FS)) (SETQ FACE (fetch (FONTSPEC FSFACE) of FS)) (SETQ ROTATION (fetch (FONTSPEC FSROTATION) of FS)) (SETQ DEVICE (fetch (FONTSPEC FSDEVICE) of FS))))) MAKEFONTSPEC :D8 (L (5 BASE 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) @E Eg b @EAEBECEDEh(17 FONTPROP 5 FONTP) (12 SPEC) () COMPLETE.FONT :D8 (L (1 EVENIFCOMPLETE 0 FONTSPEC)) x@ Hg bAHdjLljJI3HJ[AKjJH [K@JH JkZHkH H(116 PRUNESLUGCSINFOS 91 COMPLETE.CHARSET 80 \CREATECHARSET 19 FONTPROP 5 FONTCREATE) (105 FONTDESCRIPTOR 68 CHARSETINFO 30 FONTDESCRIPTOR 14 SPEC) () COMPLETEFONTP :D8 (L (0 FONT)) '@ bljIH@IhIkYi(5 FONTCREATE) NIL () COMPLETE.CHARSET :D8 (L (3 FONT 2 CHARSET 1 FONTSPEC 0 CSINFO)) CB@@dj-BlB IHbJCg @k@C @_g_O#O_OhOONNAIdC "ABI ]IMhIhKLh[IkYoL&(158 \COERCECHARSET 147 SLUGCHARP.DISPLAY 77 MOVEFONTCHARS 58 FONTDEVICEPROP) (128 CHARSETINFO 117 CHARSETINFO 96 CHARSETINFO 87 SOURCE 65 CHARSETINFO 53 CHARCOERCIONS 20 CHARSETINFO 5 FONTDESCRIPTOR) () PRUNESLUGCSINFOS :D8 (L (0 FONT)) A@ bljIH@@IZJj@IhIkY(5 FONTCREATE) (48 FONTDESCRIPTOR 36 CHARSETINFO) () MONOSPACEFONTP :D8 (L (3 RETURNVARIABLES 2 SKIPSLUGS 1 CODES 0 FONT)) @ bAd$ A A A bAlhbdABIH8BId@ "M I@ ]I@ IK Lh[IkYL&Jh CJ (145 SORT 108 CHARWIDTH 100 CHARWIDTH 87 SLUGCHARP.DISPLAY 51 \CHARSET.CHECK 45 CHARCODE.DECODE 35 CHARCODEP 27 CHARCODE.DECODE 18 CHARCODEP 5 FONTCREATE) NIL () FONTASCENT :D8 (L (0 FONTSPEC)) @ (5 FONTCREATE) NIL () FONTDESCENT :D8 (L (0 FONTSPEC)) @ (5 FONTCREATE) NIL () FONTHEIGHT :D8 (L (0 FONTSPEC)) @  (5 FONTCREATE) (10 FONTDESCRIPTOR) () FONTPROP :D8 (L (1 PROP 0 FONT) F 7 NSFONTFAMILIES F 8 ALTOFONTFAMILIES F 9 MCCSFONTFAMILIES) @ bAdgd dg@g@ Adg@g@Adg@ g@Adg@g@Adg@HHg@HHAdg@ g@Adg`@Y@ddW g7W g!@dW gHIIg@@@ @ @hAdg@d g g@dAdg@dg@dAdg@dg@doiAdg@dpjg@Adg>lj@CJIIH&NNjIL Mh\IkԹM&Kg@Adg@ (647 \ILLEGAL.ARG 393 FONTPROP 382 COPY 346 COPY 300 MEMB 276 MEMB 253 MEMB 88 COPY 5 FONTCREATE) (635 FONTTOMCCSFN 622 AVGCHARWIDTH 588 CHARSETINFO 554 CHARSETS 541 SCALE 516 DEVICEEXPANSION 491 DEVICEWEIGHT 466 DEVICESLOPE 441 DEVICEFACE 420 DEVICESIZE 399 DEVICEFAMILY 388 SPEC 366 DEVICESPEC 329 SPEC 313 FONTDESCRIPTOR 307 MCCS 291 FONTDESCRIPTOR 282 ALTOTEXT 267 FONTDESCRIPTOR 260 XCCS$ 244 FONTDESCRIPTOR 227 CHARENCODING 214 DEVICE 202 ROTATION 170 BACKCOLOR 138 FORECOLOR 122 EXPANSION 108 SLOPE 94 WEIGHT 77 FACE 64 SIZE 52 FAMILY 39 DESCENT 27 ASCENT 14 HEIGHT) () \AVGCHARWIDTH :D8 (L (0 FONT)) ,lA@ HjHo@ djk(35 FIXR 27 FONTCREATE 7 CHARWIDTH) NIL ( 21 0.6) optimize-FONTPROP :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) x@HgHdggHhdggHhdggHhggogHhgNIL (117 IGNOREMACRO 104 of 94 fetch 86 FONTTOMCCSFN 75 FONTHEIGHT 67 HEIGHT 55 FONTDESCENT 47 DESCENT 35 FONTASCENT 27 ASCENT 13 QUOTE) ( 99 (FONTDESCRIPTOR FONTTOMCCSFN)) (PUTPROP (QUOTE FONTPROP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-FONTPROP) (GET ( QUOTE FONTPROP) (QUOTE COMPILER:OPTIMIZER-LIST)))) FONTDEVICEPROP :D8 (L (1 PROP 0 FONTDEVICE)) P@dd3@@ " bd@g gA H H (77 GETTOPVAL 69 BOUNDP 60 PACK* 41 FONTPROP 20 \FONT.CHECKARGS 13 \FONTSYMBOL) (54 DISPLAY 36 DEVICE 28 FONTDESCRIPTOR) () EDITCHAR :D8 (L (1 FONT 0 CHARCODE)) .@ @ bA @H@H (43 PUTCHARBITMAP 38 EDITBM 33 GETCHARBITMAP 21 FONTCREATE 13 CHARCODE.DECODE 5 CHARCODEP) NIL () GETCHARBITMAP :D8 (L (1 FONT 0 CHARCODE)) P@d @ bdlA @HIHIIH JKLL (77 \GETCHARBITMAP.CSINFO 59 \CREATECHARSET 27 FONTCREATE 15 CHARCODE.DECODE 6 CHARCODEP) (48 FONTDESCRIPTOR) () PUTCHARBITMAP :D8 (L (3 NEWCHARDESCENT 2 NEWCHARBITMAP 1 FONT 0 CHARCODE) P 5 \INTERRUPTABLE) BB @ bA bd@HIHIIH JKLLA@lHBC QH AdIIH A dJJAKAL AKL B(93 \PUTCHARBITMAP.CSINFO 62 \CREATECHARSET 27 FONTCREATE 19 CHARCODE.DECODE 12 \ILLEGAL.ARG) (169 FONTDESCRIPTOR 159 FONTDESCRIPTOR 149 FONTDESCRIPTOR 132 FONTDESCRIPTOR 124 CHARSETINFO 109 FONTDESCRIPTOR 101 CHARSETINFO 51 FONTDESCRIPTOR 5 BITMAP) () \GETCHARBITMAP.CSINFO :D8 (L (1 CSINFO 0 CODE)) b@AXI AdA@ZKH HA@jIjdJK (93 BKBITBLT 67 BITMAPCREATE 20 BITMAPHEIGHT) (75 CHARSETINFO 60 BITMAP 46 CHARSETINFO 38 CHARSETINFO 28 CHARSETINFO 8 CHARSETINFO) () \PUTCHARBITMAP.CSINFO :D8 (L (3 NEWCHARDESCENT 2 NEWCHARBITMAP 1 CSINFO 0 THINCODE) P 27 \INTERRUPTABLE) 6A A HIغAAA]M@L@A__h__O_&B_B_CH_OO_OdHH_OdII_ OO _"K@_$dKn;OOO"O& _OjdOjOH_(jO(O(jOJ O_$NOdON_OOO"O& _OjdOjOH_*jO*O*jO$J OO$NjOO$OOH_,jO,O,jOO$Nkذ4OIOH1OO"O& _OjdOjOH_.jO.O.jOJ BjdOOO$OO_0jO0O0jOO ONL@OMAK@O$Onj_4_2O4O2-AOAO AO B@OKdO4O$O4KO4OO4k_4(440 BKBITBLT 401 BKBITBLT 366 BITMAPCREATE 302 BKBITBLT 267 BITMAPCREATE 232 BKBITBLT 197 BITMAPCREATE) (515 CHARSETINFO 504 CHARSETINFO 493 CHARSETINFO 121 BITMAP 111 BITMAP 100 BITMAP 82 BITMAP 73 CHARSETINFO 50 CHARSETINFO 41 CHARSETINFO 32 CHARSETINFO 19 CHARSETINFO 5 CHARSETINFO) () MOVECHARBITMAP :D8 (L (4 CLIP 3 DESTFONT 2 DESTCODE 1 SRCEFONT 0 SRCECODE)) A C  @A ^H ZI \H [I ]DJdLL_DKdMM_JOKOZN OO _NjKO_jOOjOjOK_jOOjN JKOO_dOO BCONO h(193 PUTCHARBITMAP 178 BKBITBLT 153 BITMAPWIDTH 107 BITMAPCREATE 97 BITMAPWIDTH 55 FONTCREATE 46 FONTCREATE 37 FONTCREATE 28 FONTCREATE 21 GETCHARBITMAP 11 FONTCREATE 5 FONTCREATE) NIL () MOVEFONTCHARSA0001 :D8 (L (1 KEY 0 VAL) F 0 DEFAULTSOURCEFONT F 1 DESTFONT) @AAP @Q h(17 \MOVEFONTCHAR 10 \MOVEFONTCHARS.SOURCEDATA) NIL () MOVEFONTCHARS :D8 (L (0 PAIRS) I 2 DEFAULTSOURCEFONT I 1 DESTFONT) @A bBAb@d (@g hddAg qHIv\ddh\] M AM_^ONOON LB MhJ KhZHXK&dHHA A(192 \MOVEFONTCHAR 153 \MOVEFONTCHARS.SOURCEDATA 142 \CREATECHARSET 104 CHARCODE.DECODE 97 CHARCODEP 65 FONTCREATE 59 FONTPROP 41 MAPHASH 27 HARRAYP 10 FONTCREATE) (128 FONTDESCRIPTOR 54 DEVICE 36 MOVEFONTCHARSA0001) () \MOVEFONTCHAR :D8 (L (2 DFONT 1 DCODE 0 SOURCEDATA)) |BAHIHIIH JKLLAl g@3g@g@ HdHHH g@IH _Hj*H djdjBAHg@\IHLg@ Hg@NMllk HMMINHg@__O%Ollk _HOOIOHg@__O%Ollk _HOOIOg@HIg@ HjH_g_O'O_OhO_OOOBg g@H _dOOZg@H _ dO O [HJ HK BKJB _"dO"O"KB_$dO$O$BKBJ BJK H(480 FONTPROP 397 \FSETLEFTKERN 355 \ALLOCBLOCK 299 \ALLOCBLOCK 248 \ALLOCBLOCK 215 \PUTCHARBITMAP.CSINFO 152 COPYALL 130 \MAKESLUGCHAR 111 \COPYARRAYBLOCK 32 \CREATECHARSET) (627 FONTDESCRIPTOR 617 FONTDESCRIPTOR 607 FONTDESCRIPTOR 587 FONTDESCRIPTOR 566 FONTDESCRIPTOR 553 CHARSETINFO 544 CHARSETINFO 524 CHARSETINFO 515 ASCENT 496 CHARSETINFO 487 DESCENT 475 SPEC 461 CHARSETINFO 448 CHARSETINFO 427 CHARSETINFO 418 SOURCE 404 CHARSETINFO 389 LEFTKERN 378 LEFTKERN 325 YWIDTHS 269 IMAGEWIDTHS 224 WIDTHS 207 DESCENT 191 BITMAP 176 FONTDESCRIPTOR 158 CHARSETINFO 139 CHARSETINFO 119 SLUG 103 CHARSETINFO 78 IMAGEWIDTHS 70 WIDTHS 60 IMAGEWIDTHS 21 FONTDESCRIPTOR) () \MOVEFONTCHARS.SOURCEDATA :D8 (L (1 DEFAULTSOURCEFONT 0 SOURCE))  p@A@JwJ Ap@ddhZ Ag J Ag J Ag J Ag J Ag h Hd H XHdJ hXH8JH\M#LMML  OOOOHl!JJjJ ^NngIgK gK gKdIgKdIgKdIgK K I gK IK gHhh(388 \GETCHARBITMAP.CSINFO 365 ELT 244 \CREATECHARSET 199 \CREATECHARSET 160 SLUGCHARP.DISPLAY 150 CHARCODE.DECODE 142 CHARCODEP 134 FONTCREATE 123 FONTPROP 104 FONTPROP 86 FONTPROP 69 FONTPROP 53 FONTPROP) (394 SLUG 377 CHARSETINFO 371 BITMAP 357 CHARSETINFO 345 CHARSETINFO 339 LEFTKERN 324 IMAGEWIDTHS 309 YWIDTHS 294 WIDTHS 286 CHARSETINFO 280 DESCENT 272 CHARSETINFO 266 ASCENT 259 CHAR8CODE 235 FONTDESCRIPTOR 188 FONTDESCRIPTOR 118 DEVICE 99 ROTATION 81 FACE 64 SIZE 48 FAMILY 16 FONTDESCRIPTOR) () \MAKESLUGCHAR :D8 (L (1 FONT/CSINFO 0 CODE)) PAd6A@[L!KLLK MNOO@l偸@HZd2dIJndIHjd JIJno HIHnHIHnHdHIHnH H IH n H(270 SETA 265 ELT 136 HELP 112 \PUTCHARBITMAP.CSINFO 107 BITMAPCREATE 43 \CREATECHARSET) (255 CHARSETINFO 246 CHARSETINFO 236 CHARSETINFO 219 CHARSETINFO 209 CHARSETINFO 198 CHARSETINFO 180 CHARSETINFO 170 CHARSETINFO 153 CHARSETINFO 143 CHARSETINFO 72 CHARSETINFO 32 FONTDESCRIPTOR 9 FONTDESCRIPTOR) ( 131 "NONDISPLAY SLUG ?") SLUGCHARP.DISPLAY :D8 (L (1 FONT/CHARSETINFO 0 CODE)) KAdA@Hh0Hjh!H@lHlkNIL (62 CHARSETINFO 47 CHARSETINFO 32 CHARSETINFO 6 CHARSETINFO) () (PUTPROPS UPDATEINFOELEMENT MACRO ((FIELD) (LET ((DBLOCK (ffetch (CHARSETINFO FIELD) of DCSINFO)) ( NEWVAL (GETMULTI SOURCEDATA (QUOTE FIELD)))) (CL:WHEN NEWVAL (CL:UNLESS DBLOCK (SETQ DBLOCK ( \CREATECSINFOELEMENT)) (freplace (CHARSETINFO FIELD) of DCSINFO with DBLOCK)) (\FSETWIDTH DBLOCK DTHINCODE NEWVAL))))) FONTFILES :D8 (L (3 EXTLST 2 DIRLST 1 CHARSET 0 FONTSPEC) F 6 \DEFAULTCHARSET) `@]dMg ]MMMMB Lg ddhbC Lg ddhbAVbHIJKLgBC ddhHIJKLABC ddh (151 \APPEND2 139 \FINDFONTFILE 118 \FINDFONTFILE 85 FONTDEVICEPROP 62 FONTDEVICEPROP 23 FONTPROP) (110 NOCHARSET 80 FONTEXTENSIONS 57 FONTDIRECTORIES 18 SPEC 10 FONTDESCRIPTOR) () \FINDFONTFILE :D8 (L (7 EXTLST 6 DIRLST 5 CHARSET 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) Fhhb G1HIdHhHHI@ABJE FAL M L_hL_LgOgK _N Oh^O&(102 INFILEP 97 PACKFILENAME.STRING 60 \NCONC2 45 \FONTFILENAME) (91 BODY 84 DIRECTORY) () \FONTFILENAMES :D8 (L (4 EXTENSIONS 3 DEVICE 2 FACE 1 SIZE 0 FAMILY)) jDAHIDAH4I dhH@ABLg J KhZK&HhHH@ABLj J KhZK&(88 \FONTFILENAME 49 \FONTFILENAME 22 \APPEND2) (43 NOCHARSET) () \FONTFILENAME :D8 (L (4 CHARSET 3 EXTENSION) P 1 DEVICE P 0 ROTATION I 2 FACE I 1 SIZE I 0 FAMILY) ( B b`@AdgLl A:AB]dMg ]bMbMbMMoA ZDd3 o hD[gKoKo o@JoB KoK o gC \oL LkA LN _ O l*LNk l*O_OOh__NkԾO&_L(255 NTHCHARCODE 241 CONCATCODES 229 NTHCHARCODE 216 STRPOS 204 PACKFILENAME.STRING 193 CONCAT 181 CONCAT 168 FONTFACETOATOM 149 CONCAT 120 MEMB 109 OCTALSTRING 98 CONCAT 54 FONTPROP 5 \FONTFACE) (198 EXTENSION 130 NAME 49 SPEC 41 FONTDESCRIPTOR 21 *) ( 210 "**" 187 "" 175 "-C" 162 "-" 155 "" 144 ">" 138 "c" 115 (NIL NOCHARSET) 92 "0") FONTSPECFROMFILENAME :D8 (L (1 DEVICE 0 FONTFILE)) @  Hg'\k_LO Y3IOk԰OZLkJk ]J_LO 3ROi[LJKk ^LdK gKkػL \dK _dk dlBgOk԰dlLglMgOl dlIglRgOl dlCgdlEglRgh_hO h_oLhddi` _LO o 3 _Ad A {k`Hg'Oh`_g h__Od0OiO_hO_O_OO OiO_Add3@A bMNOdMNOjAh(473 \FONTSYMBOL 443 STRING.EQUAL 393 FONTDEVICEPROP 350 IMAGESTREAMTYPE 342 STREAMP 330 MKATOM 325 CONCAT 315 SUBSTRING 303 STRPOS 277 MEMB 228 NTHCHARCODE 197 NTHCHARCODE 147 NTHCHARCODE 138 SUBSTRING 130 U-CASE 112 NTHCHAR 101 MKATOM 96 SUBSTRING 76 NTHCHAR 63 MKATOM 58 U-CASE 53 SUBSTRING 28 NTHCHAR 5 UNPACKFILENAME.STRING) (388 FONTEXTENSIONS 365 EXTENSION 359 IMAGESTREAMTYPES 297 UPPERCASEARRAY 263 REGULAR 252 EXPANDED 239 COMPRESSED 219 REGULAR 208 ITALIC 188 MEDIUM 177 LIGHT 158 BOLD 117 - 14 NAME) ( 320 "Q" 287 "-c") FONTCOPY :D8 (L (0 FONTSPECS)) xekahddka-Hdllalag'Hl__OdOYh _d[O]O\O ^O_HlO"dO +IJhHOdagkaOl_HO"kah_$O"adgO$[dgO$]dgO$ \ndgO$LLL\PdgLO$LL\3dgLLO$L\dg3LLLL_dddhddOO$\dg4LLLL_dddhddOO$\dgO$^dgO$_gO$YvO"l`HlXlaPlaBd__$OdgO$[%dgO$]dgO$ \dgO$LLL\dgLO$LL\dgLLO$L\dg2LLLL_dddhddOO$\qdg3LLLL_dddhddOO$\7dgO$^)dgO$_gO$YIiZO IiZO"a O"l_"KMLNOI (885 FONTCREATE 861 \ILLEGAL.ARG 837 \ILLEGAL.ARG 578 \FONTFACE 238 \FONTFACE 69 FONTCREATE) (818 NOERROR 804 DEVICE 790 ROTATION 732 FORECOLOR 675 BACKCOLOR 647 EXPANSION 618 SLOPE 588 WEIGHT 568 FACE 553 SIZE 538 FAMILY 482 NOERROR 467 DEVICE 452 ROTATION 393 FORECOLOR 335 BACKCOLOR 307 EXPANSION 278 SLOPE 248 WEIGHT 228 FACE 213 SIZE 198 FAMILY 160 DEVICE 117 FONTDESCRIPTOR 107 FONTDESCRIPTOR 97 FONTDESCRIPTOR 87 FONTDESCRIPTOR 77 FONTDESCRIPTOR 41 DEVICE 18 FONTCLASS) () FONTP :D8 (L (0 X)) @d@@NIL (14 FONTCLASS 6 FONTDESCRIPTOR) () FONTUNPARSE :D8 (L (0 FONT)) H@dg@ +@g Hi YHHIHh(52 FONTFACETOATOM 39 FONTPROP 19 FONTCLASSUNPARSE) (34 SPEC 26 FONTDESCRIPTOR 13 CLASS 6 FONTCLASS) () SETFONTDESCRIPTOR :D8 (L (5 FONT 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) @ABCD HdHg XbHbHbHbHb @d`dh`XAYdHHIhKKdJXBYdHHIhMMdLXCYdHH_IhOOdNXDYdHH_IhO_OdOddEdhddD (222 FONTCREATE 33 FONTPROP 10 \FONT.CHECKARGS) (95 \FONTSINCORE 89 \FONTSINCORE 78 \FONTSINCORE 28 SPEC 20 FONTDESCRIPTOR) () \STREAMCHARWIDTH :D8 (L (2 TTBL 1 STREAM 0 CHARCODE) F 6 \PRIMTERMTABLE) @lb0A A0XH`XB V@lIɀ@Iɀ jI@ldl+@l@@lH#jl JJl@ԺH^jHJdld@l w@l q@l k@dlddlH$l 5H hA K]LMLhA M ]dhA $MH@dj@l @l @dl jhlj(277 SHOULDNT 227 DSPRIGHTMARGIN 216 IMOD 209 DSPLEFTMARGIN 191 DSPXPOSITION 77 GETHASH 37 TERMTABLEP 14 DISPLAYSTREAMP) (70 CHARTABLE 60 CHARTABLE 45 TERMTABLEP 30 \UNITWIDTHSVECTOR) () \COERCECHARSET :D8 (L (4 FONT 3 COERCIONS 2 CODE 1 CHARSET 0 FONTSPEC)) C@Bggd3@@C b@Ci !HhA YAIAAI KLMMZ9BBI .DIJhIDIHX(107 SLUGCHARP.DISPLAY 83 \CREATECHARSET 56 FONTCREATE1 40 COERCEFONTSPEC 29 FONTDEVICEPROP) (146 FONTDESCRIPTOR 140 FONTDESCRIPTOR 129 FONTDESCRIPTOR 123 FONTDESCRIPTOR 72 FONTDESCRIPTOR 16 FONTCOERCIONS 10 CHARCOERCIONS) () \BUILDSLUGCSINFO :D8 (L (1 SLUGWIDTH 0 FONT) F 14 \DISPLAYSTREAMTYPES) @ @ @ Hj"o@k@ A @ bjA`HI_dO dI dkdkdnllk _dOllk _dO[d\lj__OOKLJW Lllk KMlj__OOqAHk nNkhAk KNK )@djHo b@A LOAOk_RMOjOk_~(334 FIXR 305 \FZEROP 288 BLTSHADE 272 BITMAPCREATE 237 \ALLOCBLOCK 222 MEMB 168 \ALLOCBLOCK 146 \ALLOCBLOCK 62 FIXR) (351 FONTDESCRIPTOR 340 FONTDESCRIPTOR 316 FONTDESCRIPTOR 295 CHARSETINFO 244 CHARSETINFO 211 CHARSETINFO 184 CHARSETINFO 96 |CHARSETINFOTYPE#| 72 FONTDESCRIPTOR 54 FONTDESCRIPTOR 42 FONTDESCRIPTOR 21 FONTDESCRIPTOR 13 FONTDESCRIPTOR 5 FONTDESCRIPTOR) ( 328 0.6 36 1.2) \FONTSYMBOL :D8 (L (1 ElseReturnXFlg 0 X)) 1@dd3@@  @ A@o (46 ERROR 31 MKATOM 26 U-CASE 19 STRINGP 13 U-CASE) NIL ( 41 "Want an IL symbol") \DEVICESYMBOL :D8 (L (1 ElseReturnXFlg 0 X)) .@gi @g.,A (43 \FONTSYMBOL 11 \GETSTREAM) (34 IMAGEOPS 27 STREAM 21 DISPLAY 5 OUTPUT) () \FONTFACE :D8 (L (2 DEV 1 NOERRORFLG 0 FACE)) Agggggd@@d| @ @ Io Ig gHJo HKo HIgJgKgAhd3@@ @ l@ dlBdlbg1dlMdlmdlRdlrgdlLdllgH@l dlRdlrgdlIdligH@l dlRdlrg0dlCdlcgdlEdleg @dggY;ggZ,@dgggZg@dgi@dg gYg g@dg ggpo bo@ @AB @o gYZ[7HYZ[0L IdgJgKgoIgJgKgoIdgJgKgoIgJgKgoIJKh(599 \ILLEGAL.ARG 574 MEMB 562 \FONTFACE.COLOR 553 STRPOS 538 MEMB 511 STRING.EQUAL 489 STRING.EQUAL 468 STRING.EQUAL 316 NTHCHARCODE 270 NTHCHARCODE 196 CHCON1 183 NCHARS 171 STRINGP 122 MEMB 108 MEMB 88 STRING.EQUAL 75 MEMB 63 U-CASE 53 U-CASE 44 U-CASE) (720 REGULAR 712 ITALIC 703 BOLD 689 REGULAR 681 ITALIC 671 MEDIUM 656 REGULAR 648 REGULAR 639 BOLD 625 REGULAR 617 REGULAR 607 MEDIUM 580 * 524 ITALIC 518 BOLD 506 BOLDITALIC 495 ITALIC 484 ITALIC 475 BOLD 463 BOLD 448 REGULAR 439 STANDARD 431 ITALIC 425 BOLD 417 BOLDITALIC 407 ITALIC 400 ITALIC 392 BOLD 384 BOLD 370 EXPANDED 351 COMPRESSED 332 REGULAR 304 ITALIC 286 REGULAR 258 LIGHT 240 MEDIUM 212 BOLD 148 ERROR 140 ERROR 131 ERROR 94 MEDIUM 83 REGULAR 28 REGULAR 23 MEDIUM 18 ERROR 12 REGULAR 5 REGULAR) ( 727 (BOLD ITALIC REGULAR) 696 (MEDIUM ITALIC REGULAR) 663 (BOLD REGULAR REGULAR) 632 (MEDIUM REGULAR REGULAR) 569 (* ***) 547 "-" 533 (STANDARD REGULAR NIL NNN) 117 (COMPRESSED REGULAR EXPANDED *) 103 (REGULAR ITALIC *) 70 (BOLD MEDIUM LIGHT *)) \FONTFACE.COLOR :D8 (L (2 DEV 1 NOERRORFLG 0 FACE)) @B bp@d" 124 "" 113 ">" 106 ">") FLUSHFONTCACHEA0001 :D8 (L (4 DPAIR 3 R 2 FC 1 S 0 FM) F 0 FAMILY F 1 SIZE F 2 NFLUSHED F 3 ROTATION F 4 DEVICE F 5 FACE) NP@PgAQAQg4UB +SCSgTDTgD RkcDdh(32 MATCHFONTFACE) (58 * 44 * 22 * 9 *) () FLUSHFONTCACHE :D8 (L (0 TYPE) P 3 NFLUSHED I 5 DEVICE I 4 ROTATION I 3 FACE I 2 SIZE I 1 FAMILY) @ ob'0@dABCDE IHhZH&JAgBgCgDgEgi HdHg XbHbHbHbHb j@dg`%g`@dg` g @Kh(220 MAPMULTI 210 \ILLEGAL.ARG 119 FONTPROP 96 \FONT.CHECKARGS 31 FLUSHFONTCACHE) (215 FLUSHFONTCACHEA0001 204 \FONTSAVAILABLEFILECACHE 196 :AVAILABLE 187 \FONTEXISTS?-CACHE 180 :EXISTS 173 \FONTSINCORE 165 :INCORE 114 SPEC 106 FONTDESCRIPTOR 89 * 81 * 73 * 65 * 57 *) ( 7 (:INCORE :EXISTS :AVAILABLE)) FINDFONTFILES :D8 (L (6 EXTLST 5 DIRLST 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) =@ABCD HdHg XbHbHbHbHbEDg ddhb FDg ddhb @ABDF AH J g YoIo oE[KHXKhKKLoIo \d !M^D _NJ 0@g@O!AgAOBO NJM](305 MATCHFONTFACE 262 MEMBER 252 FONTSPECFROMFILENAME 234 DIRECTORY 227 DIRECTORYNAMEP 220 CONCAT 171 CONCAT 152 FILENAMEFIELD 140 DREVERSE 127 \FONTFILENAMES 106 FONTDEVICEPROP 82 FONTDEVICEPROP 33 FONTPROP 10 \FONT.CHECKARGS) (285 * 270 * 147 DIRECTORY 101 FONTEXTENSIONS 77 FONTDIRECTORIES 28 SPEC 20 FONTDESCRIPTOR) ( 215 "" 207 ">" 177 "" 166 ">" 160 ">") SORTFONTSPECSA0001 :D8 (L (1 FS2 0 FS1)) @A dgq@A dgT@A\@AS@AHICHdgIgh,Hg!Ighgigi(35 ALPHORDER 16 ALPHORDER) (141 LESSP 131 LESSP 122 REGULAR 111 REGULAR 98 MEDIUM 88 MEDIUM 41 EQUAL 22 EQUAL) () SORTFONTSPECS :D8 (L (0 FONTSPECS)) @g (10 SORT) (5 SORTFONTSPECSA0001) () MATCHFONTFACE :D8 (L (1 FACE 0 PATTERN)) H@g?@A:@@@HAHg IAIgJA JgNIL (68 * 51 * 36 * 5 *) () MAKEFONTFACE :D8 (L (4 COLOR 3 BASE 2 EXPANSION 1 SLOPE 0 WEIGHT)) eC Cg b@CIgbAC8gbBC&gbDC b@ABhdD(70 COPY 17 FONTPROP 5 FONTP) (56 REGULAR 43 REGULAR 30 MEDIUM 12 FACE) () FONTFACETOATOM :D8 (L (1 NOERROR 0 FACE))  @ddgg dgggg@@dgggg@@dgg#dgggg@@(o@@o@@h <@d3@5@k lM %@l lI @l lR @A@ h(261 \ILLEGAL.ARG 250 MEMB 243 NTHCHARCODE 233 MEMB 226 NTHCHARCODE 216 MEMB 209 NTHCHARCODE 192 PACK) (135 E 128 EXPANDED 121 C 113 COMPRESSED 105 R 97 REGULAR 83 R 76 REGULAR 70 I 62 ITALIC 50 L 43 LIGHT 37 B 29 BOLD 21 M 13 MEDIUM) ( 167 "-" 151 "-") (RPAQ? \FONTSINCORE NIL) (RPAQ? \FONTEXISTS?-CACHE NIL) (RPAQ? \FONTSAVAILABLEFILECACHE NIL) (RPAQ? \DEFAULTDEVICEFONTS NIL) (ADDTOVAR MEDLEY-INIT-VARS (\FONTEXISTS?-CACHE NIL RESET) (\FONTSAVAILABLEFILECACHE NIL RESET)) (RPAQ? \UNITWIDTHSVECTOR NIL) \UNITWIDTHSVECTOR :D8 NIL 5ll lljIH``IkIkY(10 \ALLOCBLOCK) (39 \UNITWIDTHSVECTOR 33 \UNITWIDTHSVECTOR 15 \UNITWIDTHSVECTOR) () (\UNITWIDTHSVECTOR) FONTDESCRIPTOR.DEFPRINT :D8 (L (1 STREAM 0 FONT)) @ @o@@oIdgg dggggIIdggggIIdgg#dggggIoH oH o h(212 CONCAT 201 OCTALSTRING 189 OCTALSTRING 5 LOC) (172 E 165 EXPANDED 158 C 150 COMPRESSED 142 R 134 REGULAR 120 R 113 REGULAR 107 I 99 ITALIC 87 L 80 LIGHT 74 B 66 BOLD 58 M 50 MEDIUM 35 FONTDESCRIPTOR 27 FONTDESCRIPTOR 11 FONTDESCRIPTOR) ( 206 "}" 194 "," 182 "/" 42 "-" 21 "{") FONTCLASS.DEFPRINT :D8 (L (1 STREAM 0 FONTCLASS)) D@ o@ goH oH o h(63 CONCAT 52 OCTALSTRING 40 OCTALSTRING 5 LOC) (28 FONTCLASS 19 FONTCLASS) ( 57 "}" 45 "," 33 "/" 13 "{") (/DECLAREDATATYPE (QUOTE FONTCLASS) (QUOTE (BYTE POINTER POINTER POINTER POINTER POINTER)) (QUOTE (( FONTCLASS 0 (BITS . 7)) (FONTCLASS 2 POINTER) (FONTCLASS 4 POINTER) (FONTCLASS 6 POINTER) (FONTCLASS 8 POINTER) (FONTCLASS 10 POINTER))) (QUOTE 12)) (DEFPRINT (QUOTE FONTCLASS) (FUNCTION FONTCLASS.DEFPRINT)) (/DECLAREDATATYPE (QUOTE FONTDESCRIPTOR) (QUOTE (POINTER FLAG POINTER POINTER POINTER WORD WORD WORD WORD WORD SIGNEDWORD SIGNEDWORD SIGNEDWORD POINTER POINTER POINTER POINTER POINTER (BITS 8) WORD POINTER POINTER FLAG POINTER)) (QUOTE ((FONTDESCRIPTOR 0 POINTER) (FONTDESCRIPTOR 0 (FLAGBITS . 0)) ( FONTDESCRIPTOR 2 POINTER) (FONTDESCRIPTOR 4 POINTER) (FONTDESCRIPTOR 6 POINTER) (FONTDESCRIPTOR 8 ( BITS . 15)) (FONTDESCRIPTOR 9 (BITS . 15)) (FONTDESCRIPTOR 10 (BITS . 15)) (FONTDESCRIPTOR 11 (BITS . 15)) (FONTDESCRIPTOR 12 (BITS . 15)) (FONTDESCRIPTOR 13 (SIGNEDBITS . 15)) (FONTDESCRIPTOR 14 ( SIGNEDBITS . 15)) (FONTDESCRIPTOR 15 (SIGNEDBITS . 15)) (FONTDESCRIPTOR 16 POINTER) (FONTDESCRIPTOR 18 POINTER) (FONTDESCRIPTOR 20 POINTER) (FONTDESCRIPTOR 22 POINTER) (FONTDESCRIPTOR 24 POINTER) ( FONTDESCRIPTOR 26 (BITS . 7)) (FONTDESCRIPTOR 27 (BITS . 15)) (FONTDESCRIPTOR 28 POINTER) ( FONTDESCRIPTOR 30 POINTER) (FONTDESCRIPTOR 30 (FLAGBITS . 0)) (FONTDESCRIPTOR 32 POINTER))) (QUOTE 34) ) (DEFPRINT (QUOTE FONTDESCRIPTOR) (FUNCTION FONTDESCRIPTOR.DEFPRINT)) (/DECLAREDATATYPE (QUOTE CHARSETINFO) (QUOTE (POINTER FLAG FLAG POINTER POINTER POINTER POINTER WORD WORD POINTER POINTER WORD)) (QUOTE ((CHARSETINFO 0 POINTER) (CHARSETINFO 0 (FLAGBITS . 0)) ( CHARSETINFO 0 (FLAGBITS . 16)) (CHARSETINFO 2 POINTER) (CHARSETINFO 4 POINTER) (CHARSETINFO 6 POINTER) (CHARSETINFO 8 POINTER) (CHARSETINFO 10 (BITS . 15)) (CHARSETINFO 11 (BITS . 15)) (CHARSETINFO 12 POINTER) (CHARSETINFO 14 POINTER) (CHARSETINFO 16 (BITS . 15)))) (QUOTE 18)) (ADDTOVAR SYSTEMRECLST (DATATYPE FONTCLASS ((PRETTYFONT# BYTE) DISPLAYFD PRESSFD INTERPRESSFD OTHERFDS FONTCLASSNAME)) (DATATYPE FONTDESCRIPTOR ((FONTDEVICE POINTER) (FONTCOMPLETEP FLAG) (FONTFAMILY POINTER) (FONTSIZE POINTER) (FONTFACE POINTER) (\SFAscent WORD) (\SFDescent WORD) (\SFHeight WORD) ( ROTATION WORD) (FONTSLUGWIDTH WORD) (NIL SIGNEDWORD) (NIL SIGNEDWORD) (NIL SIGNEDWORD) (FONTTOMCCSFN POINTER) (NIL POINTER) (FONTDEVICESPEC POINTER) (OTHERDEVICEFONTPROPS POINTER) (FONTSCALE POINTER) ( \SFFACECODE BITS 8) (FONTAVGCHARWIDTH WORD) (FONTCHARENCODING POINTER) (FONTCHARSETVECTOR POINTER) ( FONTHASLEFTKERNS FLAG) (FONTEXTRAFIELD2 POINTER))) (DATATYPE CHARSETINFO (WIDTHS (CSSLUGP FLAG) ( CSCOMPLETEP FLAG) OFFSETS IMAGEWIDTHS CHARSETBITMAP YWIDTHS (CHARSETASCENT WORD) (CHARSETDESCENT WORD) LEFTKERN CSINFOPROPS (CHARSETNO WORD)))) \CREATEKERNELEMENT :D8 NIL llgjd (16 ARRAY) (9 POINTER) () \FSETLEFTKERN :D8 (L (2 KERNVALUE 1 INDEX 0 CSINFO)) %@d  @ AB (34 SETA 16 \CREATEKERNELEMENT) (25 CHARSETINFO 11 CHARSETINFO) () \FGETLEFTKERN :D8 (L (2 CHARCODE 1 PREVCHARCODE 0 FONT)) _@jh@@AHIHIIH JKLL Al H3 BHj(76 ELT 47 \CREATECHARSET) (65 CHARSETINFO 36 FONTDESCRIPTOR 5 FONTDESCRIPTOR) () \CREATEFONT :D8 (L (0 FONTSPEC)) g@`H`@dJ@dK@dL@dM @dNdjdj dj @@@@@@_dOlli _dOYI k@kHH@ Y@ bHd k@kH@ (221 APPLY 205 NARGS 194 COERCEFONTSPEC 185 APPLY 169 NARGS 152 \ALLOCBLOCK) (35 |FONTDESCRIPTORTYPE#| 15 IMAGESTREAMTYPES 4 FONTCREATE) () \CREATECHARSETA0001 :D8 (L (2 CHARSET 1 FONT 0 FONTSPEC)) @BA @ BA (22 \READCHARSET 15 COERCEFONTSPEC 7 \READCHARSET) NIL () \CREATECHARSET :D8 (L (1 FONT 0 CHARSET)) j@@l@ AjA@UgA`gAg YIIIIIA@lHH4An(A AnHA@HHjAH@ (196 \INSTALLCHARSETINFO 143 \BUILDSLUGCSINFO 81 FONTPROP 14 \ILLEGAL.ARG) (181 CHARSETINFO 166 FONTDESCRIPTOR 150 FONTDESCRIPTOR 76 DEVICESPEC 67 \CREATECHARSETA0001 55 IMAGESTREAMTYPES 48 FONTDESCRIPTOR 42 CREATECHARSET 21 FONTDESCRIPTOR) () \INSTALLCHARSETINFO :D8 (L (2 CHARSET 1 CSINFO 0 FONT)) @@A dnnkHdII@@ A dnnkHdII @@@ AB@AB @BA@dj@@ @ j@An @ j@@ A(170 \AVGCHARWIDTH 130 \INSTALLCHARSETINFO.CHARENCODING) (231 FONTDESCRIPTOR 225 FONTDESCRIPTOR 214 FONTDESCRIPTOR 197 CHARSETINFO 191 FONTDESCRIPTOR 179 FONTDESCRIPTOR 164 FONTDESCRIPTOR 151 FONTDESCRIPTOR 136 FONTDESCRIPTOR 119 CHARSETINFO 105 FONTDESCRIPTOR 99 FONTDESCRIPTOR 66 CHARSETINFO 58 FONTDESCRIPTOR 52 FONTDESCRIPTOR 19 CHARSETINFO 11 FONTDESCRIPTOR 5 FONTDESCRIPTOR) () \INSTALLCHARSETINFO.CHARENCODING :D8 (L (2 CHARSET 1 CSINFO 0 FONT)) 1Bj,Aj@gAHIINIL (34 CHARSETINFO 28 CSCHARENCODING 23 FONTDESCRIPTOR 10 CHARSETINFO) () \FONTRESETCHARWIDTHS :D8 (L (2 LASTCHAR 1 FIRSTCHAR 0 CSINFO)) mnj@@DJnJnkN_IHhJINLKIO!JIkLMJINKIOKIMLIkYNIL (17 CHARSETINFO 9 CHARSETINFO) () (PUTPROPS \FGETCHARIMAGEWIDTH MACRO (OPENLAMBDA (FONT CHARCODE) (\FGETWIDTH (ffetch (CHARSETINFO IMAGEWIDTHS) of (\INSURECHARSETINFO FONT (\CHARSET CHARCODE))) (\CHAR8CODE CHARCODE)))) (PUTPROPS FONT FILETYPE :FAKE-COMPILE-FILE) \CREATEDISPLAYFONT :D8 (L (0 FONTSPEC)) `@HdI@HdI@HdI@HdI @HdIdjdj dj @@@@@@HdIlli HdI(142 \ALLOCBLOCK) (4 |FONTDESCRIPTORTYPE#|) () \CREATECHARSET.DISPLAY :D8 (L (2 CHARSET 1 FONT 0 FONTSPEC)) #@@gg @BhgA @BA ^@Bhg MHjQHo oH @@@j@@AB dH @BA B B Io@@o@hIdg@BA g@BA Ig)@@o@@@AB (288 \CREATECHARSET.DISPLAY 236 MAKEITALIC.CHARSET 218 MAKEBOLD.CHARSET 175 CHINESECHARSETP 168 KANJICHARSETP 161 COMPLETE.CHARSET 152 \SFROTATECSINFO 141 \CREATECHARSET.DISPLAY 106 ERROR 94 MEMB 74 \COERCECHARSET 59 \READCHARSET 43 \COERCECHARSET 26 FONTDEVICEPROP) (246 COMPRESSED 226 ITALIC 207 BOLD 69 CHARCOERCIONS 36 FONTCOERCIONS 21 FONTCOERCIONS 16 DISPLAY) ( 259 (MEDIUM REGULAR REGULAR) 195 (MEDIUM REGULAR REGULAR) 183 (MEDIUM REGULAR REGULAR) 100 "Only implemented rotations are 0, 90 and 270." 89 (90 270)) \FONTEXISTS?.DISPLAY :D8 (L (0 FONTSPEC)) @Hdg=@@gHHH@@@ Hdg8@@HgHH@@@ jHg5@@HHgH@@@ +@gg gg (244 COERCEFONTSPEC 239 \APPEND2 234 FONTDEVICEPROP 219 FONTDEVICEPROP 201 FONTEXISTS? 138 FONTEXISTS? 69 FONTEXISTS?) (229 CHARCOERCIONS 224 DISPLAY 214 FONTCOERCIONS 209 DISPLAY 167 REGULAR 149 COMPRESSED 100 REGULAR 84 ITALIC 28 MEDIUM 14 BOLD) () STRIKEFONT.FILEPA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 FILE F 1 SI::*RESETFORMS*) APg !oPgg chQcP P o i(59 MEMB 33 OPENSTREAM 10 OPENP) (28 OLD 23 INPUT 5 INPUT) ( 54 (32768 40960) 17 (PROGN (CLOSEF? OLDVALUE))) STRIKEFONT.FILEP :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 FILE F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 STRIKEFONT.FILEPA0001) (8 SI::RESETUNWIND) () STRIKEFONT.GETCHARSETA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 19 STRM F 20 SI::*RESETFORMS*) bW&gi #oW&gg c&hW(c(W&j W& oW& W& lW&l `dnllk _dOllk _dOXW& W& ]W& W& ^W& W& W& W& HW& W& HW& W& W& W& W& W& ZH dnnkH dnnk_JO [W&KJOO  >_O O"jO$lOHKNkMYH\llj__OOLOjOk_IMkO$O LO"W& W& O"k_"O$k_$ljW& W& O"O #LO"jO"dMLO"O$O"k_"LnO$LnkW& W& H_llj__OOOOjOk_Hjn HHH(590 \FONTRESETCHARWIDTHS 299 BITMAPCREATE 151 \ALLOCBLOCK 129 \ALLOCBLOCK 96 SETFILEPTR 83 GETFILEPTR 75 ERROR 62 STRIKEFONT.FILEP 55 SETFILEPTR 36 OPENSTREAM 12 \GETSTREAM) (602 CHARSETINFO 596 CHARSETINFO 540 CHARSETINFO 371 CHARSETINFO 356 CHARSETINFO 332 FDEV 325 STREAM 308 BITMAP 270 CHARSETINFO 250 CHARSETINFO 217 CHARSETINFO 201 CHARSETINFO 108 |CHARSETINFOTYPE#| 31 OLD 26 INPUT 6 INPUT) ( 68 "Not a STRIKE font file" 19 (PROGN (CLOSEF? OLDVALUE))) STRIKEFONT.GETCHARSET :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 STRM F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 STRIKEFONT.GETCHARSETA0001) (8 SI::RESETUNWIND) () WRITESTRIKEFONTFILE :D8 (L (2 FILE 1 CHARSET 0 FONT)) @ @l AjbjAAlAl @A#@AA@ O0O2O4O4YdoA I\I_dn_lj__OOOOOO iOk_hZjl__OOOOOOiOm_h[Bggo Xdl Hj HJ HJl HK HKl j]nj_ _O OMLO _dOOO k_ HM HMl I_lKJ@ O^HN HNl HI _$_"O$ O"O$l HI _(_&O( O&O(l Hj Hj HO HOl HIlOI I O0 @_*O0O2jO4lO*KJjHO4 HO4l O2O07OOO2O4LO2_4HO4 HO4l O2k_2HO4Ln_._,O. O,O.l H (730 CLOSEF 723 \BOUT 710 \BOUT 677 \BOUT 665 \BOUT 625 \BOUT 613 \BOUT 524 \BOUT 512 \BOUT 503 \BOUT 495 \BOUT 487 \BOUT 474 \BOUT 451 \BOUT 438 \BOUT 416 \BOUT 405 \BOUT 361 \BOUT 350 \BOUT 296 \BOUT 285 \BOUT 277 \BOUT 266 \BOUT 258 \BOUT 250 \BOUT 241 OPENSTREAM 103 ERROR 72 \CREATECHARSET 38 \LISPERROR 14 \LISPERROR 5 FONTP) (580 FDEV 573 STREAM 559 CHARSETINFO 551 CHARSETINFO 538 BITMAP 531 CHARSETINFO 459 CHARSETINFO 423 CHARSETINFO 390 FONTDESCRIPTOR 374 BITMAP 367 CHARSETINFO 231 NEW 226 OUTPUT 119 CHARSETINFO 110 CHARSETINFO 61 FONTDESCRIPTOR) ( 236 ((TYPE BINARY)) 97 "Couldn't find charset ") STRIKECSINFO :D8 (L (0 CSINFO)) @X@ZHJ@@Y@[In_K ]ljdO2O06O4OIO2jjJO2HO2_dOO_4O2k_2O4\llk _llj__OOOOjOk_OlkLLMk ^j_lj_"_ O"O lIO"_OOjOO"LHOO"OJO"HO"_dOO_KOjNOjJO"Mg OO_O"k_"H Xlj_(_&O(O&(HO(HO(JO(_$dO$O$O(k_(`dHdOdHdN@_*dO*@ _,dO, @ _.dO. dn(334 COPYALL 311 BKBITBLT 202 BITMAPCREATE 146 \ALLOCBLOCK 62 BITMAPHEIGHT) (456 CHARSETINFO 439 CHARSETINFO 422 CHARSETINFO 394 |CHARSETINFOTYPE#| 305 REPLACE 44 CHARSETINFO 35 CHARSETINFO 20 CHARSETINFO 11 CHARSETINFO) () MAKEBOLD.CHARSET :D8 (L (2 FONT 1 CHARSET 0 FONTSPEC)) @@g@@@@@@ Hd|AYdqjeBHBHI YBAIAlABg KdJIkkjhIB @AK \KL KB KB Kk[(231 MAKEBOLD.CHAR 223 \MOVEFONTCHAR 216 \MOVEFONTCHARS.SOURCEDATA 205 \COERCECHARSET 195 SLUGCHARP.DISPLAY 160 FONTDEVICEPROP 127 COPYALL 59 FONTCREATE1) (177 CHARSETINFO 155 CHARCOERCIONS 134 FONTDESCRIPTOR 117 FONTDESCRIPTOR 111 FONTDESCRIPTOR 101 FONTDESCRIPTOR 95 FONTDESCRIPTOR 82 CHARSETINFO 9 MEDIUM) () MAKEBOLD.CHAR :D8 (L (1 FONT 0 CODE)) @A @lQA@HI ZkJ IHI I ؽJjdKjdLMgg JjdKkjLMgg HIK h(145 \PUTCHARBITMAP.CSINFO 137 BKBITBLT 113 BKBITBLT 57 BITMAPCREATE 34 \GETCHARBITMAP.CSINFO 6 SLUGCHARP.DISPLAY) (131 PAINT 126 INPUT 107 REPLACE 102 INPUT 85 CHARSETINFO 77 CHARSETINFO 64 CHARSETINFO 50 BITMAP 40 BITMAP) () MAKEITALIC.CHARSET :D8 (L (2 FONT 1 CHARSET 0 FONTSPEC)) @@@g@@@@@ Hd|AYdqjeBHBHI YBAIAlABg KdJIkkjhIB @AK \KL KB KB Kk[(230 MAKEITALIC.CHAR 222 \MOVEFONTCHAR 215 \MOVEFONTCHARS.SOURCEDATA 204 \COERCECHARSET 194 SLUGCHARP.DISPLAY 159 FONTDEVICEPROP 126 COPYALL 58 FONTCREATE1) (176 CHARSETINFO 154 CHARCOERCIONS 133 FONTDESCRIPTOR 116 FONTDESCRIPTOR 110 FONTDESCRIPTOR 100 FONTDESCRIPTOR 94 FONTDESCRIPTOR 81 CHARSETINFO 14 REGULAR) () MAKEITALIC.CHAR :D8 (L (1 FONT 0 CODE)) @A @l A@HI ZJ IHI I MN_MlljNllBOOHIK LOdjj_dOO_LdOdjj_dOO_NOl_jOOj_ ONOkl_dOO_"OO-O"O &JjO KOO OOO"O gg Ok_[h(272 BKBITBLT 127 \PUTCHARBITMAP.CSINFO 55 BITMAPCREATE 34 \GETCHARBITMAP.CSINFO 6 SLUGCHARP.DISPLAY) (266 REPLACE 261 INPUT 84 CHARSETINFO 75 CHARSETINFO 62 CHARSETINFO 48 BITMAP 40 BITMAP) () \SFMAKEBOLD :D8 (L (0 CSINFO)) @@@@ @ d HH \Jn^In_lj__OO,HNjLNjOKgg `@ dLNJO]BHMjLMjIOKgg HMjLMkjIOkKgg Ok_(214 BKBITBLT 180 BKBITBLT 134 NCREATE2 123 BKBITBLT 64 BITMAPCREATE) (208 PAINT 203 INPUT 174 REPLACE 169 INPUT 128 |CHARSETINFOTYPE#| 117 REPLACE 112 INPUT 57 BITMAP 49 BITMAP 37 CHARSETINFO 29 CHARSETINFO 21 CHARSETINFO 13 CHARSETINFO 5 CHARSETINFO) () \SFMAKEITALIC :D8 (L (0 CSINFO)) @@@ @ @`JK]LL _Ilk_Hlk_jKll_Jll_lj_2_0O2O00LOjOOjOMgg `@ dOOIO2^HO2_OO_._,O.O,NO_NO.djj_$dO$O$_OdO.djj_&dO&O&_KO.l_(jO(O(j_ MKO.ll_*dO*O*_"OO.O"O 'LNO OOO OOO"O gg O.k_.YO2k_2(369 BKBITBLT 167 NCREATE2 156 BKBITBLT 70 BITMAPCREATE) (363 REPLACE 358 INPUT 161 |CHARSETINFOTYPE#| 150 REPLACE 145 INPUT 63 BITMAP 55 BITMAP 37 CHARSETINFO 29 CHARSETINFO 21 CHARSETINFO 13 CHARSETINFO 5 CHARSETINFO) () \SFMAKEROTATEDFONT :D8 (L (1 ROTATION 0 FONTDESC)) o h(9 HELP) NIL ( 4 "ROTATED fonts need to be fixed for NS Chars & New FONTDESCRIPTOR fields") \SFROTATECSINFO :D8 (L (1 ROTATION 0 CSINFO)) 5`@ @A HdI@A HdI(41 \SFROTATECSINFOOFFSETS 24 \SFROTATEFONTCHARACTERS 10 NCREATE2) (16 CHARSETINFO 4 |CHARSETINFOTYPE#|) () \SFROTATEFONTCHARACTERS :D8 (L (1 ROTATION 0 CHARBITMAP)) 3Adj@dlZ@ l@ An@ (48 ROTATE-BITMAP 34 ROTATE-BITMAP 29 ROTATE-BITMAP 18 ROTATE-BITMAP-LEFT) NIL () \SFROTATECSINFOOFFSETS :D8 (L (1 ROTATION 0 CSINFO)) cAnT@@@ 3llk [ljMLKKMJHMIMMk]@(51 \ALLOCBLOCK 35 BITMAPWIDTH) (94 CHARSETINFO 28 CHARSETINFO 20 CHARSETINFO 12 CHARSETINFO) () \SFMAKECOLOR :D8 (L (3 BITSPERPIXEL 2 FORECOLOR 1 BACKCOLOR 0 BWCSINFO)) oCd #AhC bBhC bC b3CC bAC bBC b@ABC X`@ dH(103 NCREATE2 91 COLORIZEBITMAP 73 COLORNUMBERP 64 COLORNUMBERP 55 \DISPLAYSTREAMTYPEBPP 42 IMAGESTREAMTYPE 33 DSPCOLOR 21 DSPBACKCOLOR 9 IMAGESTREAMP) (97 |CHARSETINFOTYPE#| 81 CHARSETINFO) () (RPAQ? DISPLAYFONTDIRECTORIES NIL) (ADDTOVAR DISPLAYCHARSETFNS (STRIKE STRIKEFONT.FILEP STRIKEFONT.GETCHARSET)) (ADDTOVAR DISPLAYFONTEXTENSIONS MEDLEYDISPLAYFONT DISPLAYFONT) (RPAQ? DISPLAYFONTCOERCIONS (QUOTE (((HELVETICA (<= * 2)) (HELVETICA 4)) ((MODERN (<= 15 * 16)) (* 14) ) ((MODERN (<= 17 * 21)) (* 18)) ((MODERN (<= 22 * 28)) (* 24)) ((MODERN (<= 29 * 33)) (* 30)) (( MODERN (<= 34 * 40)) (* 36)) ((MODERN (<= 41 * 65)) (* 48)) ((MODERN (<= 66 *)) (* 72)) ((PALATINO 9) (PALATINO 12)) ((PALATINO (<= * 8)) (PALATINO 10)) ((TITAN (<= * 9) BOLD) (MODERN 10)) ((TITAN (<= * 9 ) ITALIC) (MODERN 10)) ((TITAN (<= * 9)) (TITAN 10)) (LPT AMTEX)))) (RPAQ? DISPLAYCHARCOERCIONS (QUOTE ((GACHA TERMINAL) (MODERN CLASSIC) (TIMESROMAN CLASSIC) (HELVETICA MODERN) (TERMINAL MODERN) (HIPPO CLASSIC) (CYRILLIC CLASSIC) (MATH CLASSIC) (SIGMA MODERN) (SYMBOL MODERN) (TITAN CLASSIC) (PALATINO CLASSIC) (OPTIMA MODERN) (BOLDPS CLASSIC) (PCTERMINAL CLASSIC) ( TITANLEGAL CLASSIC)))) (RPAQ? \DEFAULTCHARSET 0) (RPAQ? ADOBEDISPLAYFONTCOERCIONS (QUOTE (((HELVETICABLACK 16) (HELVETICABLACK 18)) ((SYMBOL) ( ADOBESYMBOL)) ((SYMBOL 11) (ADOBESYMBOL 10)) ((AVANTGARDE-DEMI) (AVANTGARDE)) ((AVANTGARDE-BOOK) ( AVANTGARDE)) ((NEWCENTURYSCHLBK) (CENTURYSCHOOLBOOK)) ((BOOKMAN-LIGHT) (BOOKMAN)) ((BOOKMAN-DEMI) ( BOOKMAN)) ((HELVETICA-NARROW) (HELVETICANARROW)) ((HELVETICA 24) (ADOBEHELVETICA 24))))) (RPAQ? *DISPLAY-FONT-NAME-MAP* (QUOTE ((TIMESROMAN . TR) (HELVETICA . HV) (TIMESROMAND . TD) ( HELVETICAD . HD) (MODERN . MD) (CLASSIC . CL) (GACHA . GC) (TITAN . TI) (LETTERGOTHIC . LG) (BOLDPS . BP) (TERMINAL . TM) (CLASSICTHIN . CT) (HIPPO . HP) (LOGO . LG) (MATH . MA) (OLDENGLISH . OE) (SYMBOL . SY)))) NIL