(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8) (FILECREATED " 5-Apr-2026 11:55:11" ("compiled on " {WMEDLEY}FONT.;779) " 4-Apr-2026 18:05:26" "COMPILE-FILEd" in "FULL 4-Apr-2026 ..." dated " 4-Apr-2026 18:05:33") (FILECREATED " 5-Apr-2026 11:55:11" {WMEDLEY}FONT.;779 256335 :EDIT-BY rmk :CHANGES-TO (FNS COMPLETE.FONT COMPLETE.CHARSET \CREATECHARSET.DISPLAY \SFROTATECSINFO FAKEFACE.CHARSET \CREATEFONT FLUSHFONTCACHE) :PREVIOUS-DATE " 4-Apr-2026 18:04:16" {WMEDLEY}FONT.;771) (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)) (COMS (* ;; "Creation: ") (FNS FONTCREATE FONTCREATE1 FONTCREATE.SLUGFD \FONT.CHECKARGS1 \FONTCREATE1.NOFN FONTFILEP \READCHARSET FONTCHARSETS) (FNS \FONT.CHECKARGS \CHARSET.CHECK) (FNS COERCEFONTSPEC COERCEFONTSPEC.TARGETFACE) (DECLARE%: EVAL@COMPILE DONTCOPY ( MACROS COERCEFONTSPEC.MATCH COERCEFONTSPEC.TARGET)) (MACROS SPREADFONTSPEC) (FNS MAKEFONTSPEC FONTSPEC.TO.FONTDESCRIPTOR) (FNS COMPLETE.FONT COMPLETEFONTP COMPLETE.CHARSET PRUNESLUGCSINFOS MONOSPACEFONTP)) (COMS (* ;; "Property extraction:") (FNS FONTASCENT FONTDESCENT FONTHEIGHT FONTPROP \AVGCHARWIDTH) (EXPORT (OPTIMIZERS FONTPROP)) (FNS FONTDEVICEPROP) (PROP ARGNAMES 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) (DECLARE%: DONTCOPY ( EXPORT (CONSTANTS (SLUGCHARINDEX (ADD1 \MAXTHINCHAR))))) (* ; "At the end of each csinfo") (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 FONTFACE.STARS) (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 MAXCHARSET) (MACROS \GETCHARSETINFO \SETCHARSETINFO \INSURECHARSETINFO \CREATECSINFOELEMENT \CREATEFONTCHARSETVECTOR CHARSETPROP SLUGCSINFO) (PROP ARGNAMES CHARSETPROP)) ( 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) (* ;; "") (* ;; "DISPLAY") (COMS (* ; "Functions for DISPLAY IMAGESTREAMTYPES ") (FNS \CREATEDISPLAYFONT \CREATECHARSET.DISPLAY \FONTEXISTS?.DISPLAY) (FNS FAKEFACE.CHARSET MAKEBOLD.CHAR MAKEITALIC.CHAR)) (COMS (* ; "Bitmap faking" ) (FNS \SFROTATECSINFO \SFROTATEFONTCHARACTERS \SFROTATECSINFOOFFSETS) (FNS \SFMAKECOLOR)) (DECLARE%: DONTEVAL@LOAD DOCOPY (INITVARS (DISPLAYFONTDIRECTORIES NIL)) (* ; "The loadup might have fewer") ( ADDVARS (DISPLAYFONTEXTENSIONS MEDLEYDISPLAYFONT)) (INITVARS (DISPLAYFACECOERCIONS (QUOTE (((* * (BOLD * *)) (* * (MEDIUM * *))) ((* * (* ITALIC *)) (* * (* REGULAR *))) ((* * (* * COMPRESSED)) (* * (* * REGULAR)))))))) (INITVARS (\DEFAULTCHARSET 0)) (LOCALVARS . T) (PROP FILETYPE FONT) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA FONTCOPY FONTDEVICEPROP))))) CHARWIDTH :D8 (L (1 FONT 0 CHARCODE))  @dj@@ AdA@㻺KJ djnRJd djnkعI`JJ djnkJ  OOOO-JK#JKKJ  OOOO@lgi XsA @_ON djnhNd djnkؽMyNN djnkN  OOOOF.4H@lLNO%NOON  OOOO@l(368 \CREATECHARSET 298 \BUILDSLUGCSINFO 209 FONTCREATE 200 \GETSTREAM 163 \CREATECHARSET 118 \BUILDSLUGCSINFO 15 \ILLEGAL.ARG) (355 FONTDESCRIPTOR 328 IMAGEOPS 321 STREAM 279 FONTDESCRIPTOR 271 FONTDESCRIPTOR 243 FONTDESCRIPTOR 223 FONTDESCRIPTOR 194 OUTPUT 152 FONTDESCRIPTOR 99 FONTDESCRIPTOR 91 FONTDESCRIPTOR 63 FONTDESCRIPTOR 43 FONTDESCRIPTOR 26 FONTDESCRIPTOR) () CHARWIDTHY :D8 (L (1 FONT 0 CHARCODE))  @dj@@ AdA@㻺KJ djnRJd djnkعI`JJ djnkJ  OOOO-JK#JKKJ  OOOOd3 2djgi XH.6H@lLA @_ON djnRNd djnkؽMcNN djnkN  OOOO0NO%NOON  OOOOd3 Xd(d@l(378 \CREATECHARSET 330 \BUILDSLUGCSINFO 241 FONTCREATE 204 \GETSTREAM 163 \CREATECHARSET 118 \BUILDSLUGCSINFO 15 \ILLEGAL.ARG) (365 FONTDESCRIPTOR 311 FONTDESCRIPTOR 303 FONTDESCRIPTOR 275 FONTDESCRIPTOR 255 FONTDESCRIPTOR 225 IMAGEOPS 218 STREAM 210 STREAM 198 OUTPUT 152 FONTDESCRIPTOR 99 FONTDESCRIPTOR 91 FONTDESCRIPTOR 63 FONTDESCRIPTOR 43 FONTDESCRIPTOR 26 FONTDESCRIPTOR) () STRINGWIDTH :D8 (L (3 RDTBL 2 FLG 1 FONT 0 STR) F 9 *READTABLE*)  `Ad@ABCCdiWjA djnQAd djnkعIOAA djnkA NOOOAAjA ZJ Agi XA` X@HBCCdiWjH djnyHd djnkؼLwHH djnkH NOOOE.2H@BCCdiWlKHHjH ]M (400 \STRINGWIDTH.GENERIC 386 \CREATECHARSET 307 \BUILDSLUGCSINFO 204 FONTCREATE 184 \GETSTREAM 169 \STRINGWIDTH.GENERIC 155 \CREATECHARSET 116 \BUILDSLUGCSINFO) (377 FONTDESCRIPTOR 359 READTABLEP 336 IMAGEOPS 329 STREAM 288 FONTDESCRIPTOR 280 FONTDESCRIPTOR 252 FONTDESCRIPTOR 232 FONTDESCRIPTOR 225 READTABLEP 199 DEFAULTFONT 178 OUTPUT 146 FONTDESCRIPTOR 97 FONTDESCRIPTOR 89 FONTDESCRIPTOR 61 FONTDESCRIPTOR 41 FONTDESCRIPTOR 34 READTABLEP 9 FONTDESCRIPTOR) () \CHARWIDTH.DISPLAY :D8 (L (1 CHARCODE 0 STREAM)) @0 AIH djnNHd djnkغJXHH djnkH KLMM)HIHIIH KLMMAl(132 \CREATECHARSET 91 \BUILDSLUGCSINFO) (121 FONTDESCRIPTOR 72 FONTDESCRIPTOR 64 FONTDESCRIPTOR 36 FONTDESCRIPTOR 16 FONTDESCRIPTOR) () \STRINGWIDTH.DISPLAY :D8 (L (2 RDTBL 1 STR 0 STREAM)) @0AH BHA (18 \STRINGWIDTH.GENERIC) NIL () \STRINGWIDTH.GENERICA0034 :D8 (L (1 CC 0 DUMMY) F 3 FONT F 4 CSET F 5 TOTALWIDTH F 6 WIDTHSBASE F 7 SPACEWIDTH) UAl WTAVAcS djnRSd djnkHIXSS djnkS HIJJ)STSTTS HIJJc Alc (149 \CREATECHARSET 108 \BUILDSLUGCSINFO) (138 FONTDESCRIPTOR 89 FONTDESCRIPTOR 81 FONTDESCRIPTOR 49 FONTDESCRIPTOR 29 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 28 *PRINT-LEVEL* F 29 *PRINT-LENGTH*) @dd3@$BjAC#g@BdW8W: Hk@jsN__N jh_MOOOMOM_OOOO_A djnUAd djnk_OcAA djnkA OO O"O"0AO%AOOA O$O&O(O(_Ol COOl_Mk]$O jBJjA djnUAd djnk_ORAA djnkA O O"O$O$AAjA _O"BAN__OO djnYOd djnk_OiOO djnkO O O"O$O$3OO'OOOO O O"O$O$Nl_@QO dj _&O dj _(O&mO l _$O dj lD_*O&O$O*O(O&O(O&_"OO"_A djnUAd djnk_OcAA djnkA O,O.O0O00AO%AOOA O2O4O6O6_MO"l COO"lBO"l"O"NOjԽO&k_&M(901 \CREATECHARSET 853 \BUILDSLUGCSINFO 719 %%ARRAY-TYPE-NUMBER 701 \GETBASEFIXP 681 %%ARRAY-BASE 661 %%ARRAY-OFFSET 615 \CREATECHARSET 564 \BUILDSLUGCSINFO 441 \CREATECHARSET 401 \BUILDSLUGCSINFO 303 STRINGP 245 \CREATECHARSET 197 \BUILDSLUGCSINFO 37 \MAPPNAME) (888 FONTDESCRIPTOR 834 FONTDESCRIPTOR 826 FONTDESCRIPTOR 795 FONTDESCRIPTOR 775 FONTDESCRIPTOR 601 FONTDESCRIPTOR 544 FONTDESCRIPTOR 535 FONTDESCRIPTOR 503 FONTDESCRIPTOR 482 FONTDESCRIPTOR 460 READTABLEP 432 FONTDESCRIPTOR 382 FONTDESCRIPTOR 374 FONTDESCRIPTOR 343 FONTDESCRIPTOR 323 FONTDESCRIPTOR 232 FONTDESCRIPTOR 178 FONTDESCRIPTOR 170 FONTDESCRIPTOR 139 FONTDESCRIPTOR 119 FONTDESCRIPTOR 24 \STRINGWIDTH.GENERICA0034) () 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)))) 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 3 \DEFAULTCHARSET) ASb0`@i X1@ X@` IhhIHi AH djnCHd djnkغJEHH djnkH HdAAAH HH H(199 \AVGCHARWIDTH 184 \CREATECHARSET 154 \BUILDSLUGCSINFO 65 EXTENDMULTI-PAIR 30 \CREATEFONT 20 FETCHMULTI-PAIR) (193 FONTDESCRIPTOR 172 FONTDESCRIPTOR 134 FONTDESCRIPTOR 126 FONTDESCRIPTOR 98 FONTDESCRIPTOR 78 FONTDESCRIPTOR 57 \FONTSINCORE 44 \FONTSINCORE 13 \FONTSINCORE) () FONTCREATE.SLUGFD :D8 (L (1 SOURCEFONT 0 FONTSPEC)) A^`A @HdI@HdI@HdI@HdI @HdId@dh@ 1HlHH djnni YH djnkjKJHKIKk[H(149 \BUILDSLUGCSINFO 142 \ALLOCBLOCK 100 FONTSPEC.TO.FONTDESCRIPTOR 13 NCREATE2) (182 FONTDESCRIPTOR 156 FONTDESCRIPTOR 120 FONTDESCRIPTOR 109 FONTDESCRIPTOR 7 |FONTDESCRIPTORTYPE#|) () \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 19 *CONDITION-HANDLER-BINDINGS* P 18 SI::*NLSETQFLAG* P 17 *PROCEED-CASES* P 16 SI::NLSETQ-VALUE P 15 FNS P 2 STRM I 0 SI::*CLEANUP-FORMS* F 20 FONTSPEC F 21 CHARSET F 22 SI::*RESETFORMS* F 23 CHARSETFNS F 24 FONT F 25 *PROCEED-CASES* F 26 *CONDITION-HANDLER-BINDINGS*) W(W*  HhW.W(g oO KHX_oIg ZhW,c,`W2ioW4O" gO  OJW*W0lL[gKUK_g_OOOhNNMMW(g g_W(kOgKK_g_O'O_OhO_OOOW(W(W(W(W(W(W(W(W(KW*J O_~(427 CLOSEF? 243 FONTDEVICEPROP 119 \READCHARSETA0001A0002 79 OPENSTREAM 35 FONTDEVICEPROP 8 FONTFILES) (413 CHARSETINFO 333 CHARSETINFO 320 CHARSETINFO 299 CHARSETINFO 290 SOURCE 273 CHARSETINFO 267 SOURCE 250 NILL 238 ENCODINGFN 225 CHARSETINFO 215 CHARSETINFO 197 CHARSETINFO 188 CSCHARENCODING 173 CHARSETINFO 167 CSCHARENCODING 158 CHARSETINFO 125 :NORMAL 97 SI::NLSETQ-PROCEED-CASE 74 INPUT 30 CHARSETFNS) ( 106 (CL:ERROR . SI::NLSETQHANDLER) 68 (PROGN (CLOSEF? OLDVALUE)) 42 ((MEDLEYFONT MEDLEYFONT.FILEP MEDLEYFONT.GETCHARSET))) \READCHARSET :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 CHARSETFNS 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) () FONTCHARSETS :D8 (L (0 FONT)) H@ djnjBIH.@I]MjIK Lh[IkYL&JNIL (41 CHARSETINFO 5 FONTDESCRIPTOR) () \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 (3 MISSINGOK 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_/OJ %COdi OB dABC _(HXdJ JZO((644 MEMBER 624 COERCEFONTSPEC 606 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) () FONTSPEC.TO.FONTDESCRIPTOR :D8 (L (1 MAXCHARSET 0 FONTSPEC)) AlbjAAnA `@HdI@HdI@HdI@HdI @HdIdjdj dj @@@@@@@@@HdIdA dhHlHH djnni H(231 \ALLOCBLOCK 22 \ILLEGAL.ARG) (209 FONTDESCRIPTOR 198 FONTDESCRIPTOR 28 |FONTDESCRIPTORTYPE#|) () COMPLETE.FONT :D8 (L (1 EVENIFCOMPLETE 0 FONT)) q0A@djF@dg ghi +@ djnjJI@J iJkZ@j@kiH(76 COMPLETE.CHARSET 43 COERCEFONTSPEC 31 FONTPROP) (103 FONTDESCRIPTOR 91 FONTDESCRIPTOR 52 FONTDESCRIPTOR 36 CHARCOERCIONS 26 SPEC 11 FONTDESCRIPTOR) () COMPLETEFONTP :D8 (L (0 FONT)) 5@ bd djnjIH@IhIkYi(5 FONTCREATE) (13 FONTDESCRIPTOR) () COMPLETE.CHARSET :D8 (L (1 CHARSET 0 FONT)) f@g @AbIT@d djnkػK3@@ djnk@  OOOOiIjpIj0HAhg YQIjD@I A iAlAB OdOaO @g IkOiZJ@ Ig_NNOhMMLLH@ +HAO _OdOhh_OOh__Ok_dO&_(307 \COERCECHARSET 296 SLUGCHARP 236 MOVEFONTCHARS 211 FONTDEVICEPROP 175 \INSTALLCHARSETINFO 169 COPYALL 144 \COERCECHARSET 86 \BUILDSLUGCSINFO 10 FONTPROP) (279 CHARSETINFO 269 CHARSETINFO 252 CHARSETINFO 244 SOURCE 218 CHARSETINFO 206 CHARCOERCIONS 155 CHARSETINFO 139 CHARCOERCIONS 124 CHARSETINFO 111 CHARSETINFO 67 FONTDESCRIPTOR 59 FONTDESCRIPTOR 31 FONTDESCRIPTOR 5 DEVICESPEC) () PRUNESLUGCSINFOS :D8 (L (0 FONT)) V@ bd djnjdIH3@I!j@IhJkZIkYJ(5 FONTCREATE) (62 FONTDESCRIPTOR 50 CHARSETINFO 13 FONTDESCRIPTOR) () 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 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 6 NSFONTFAMILIES F 7 ALTOFONTFAMILIES F 8 MCCSFONTFAMILIES) {@ bAdgd dg@g@ Adg@g@Adg@ g@Adg@g@Adg@HHg@HHAdg@ g@Adg_@X@ddV g7W g!@dW gHIIg@@@ @ @hAdg@d g g@dAdg@dg@dAdg@dg@dpjAdg@dqkg@AdgK@ djnjB@IIH&MMjIK Lh[IkԹL&Jg@ djnAdgA@ djnjd@IIHKjJkغIkԹJg@@ djnjd@IIHKjJkغIkԹJAdg3@ djnjd@IIHKJkغIkԹJg@Adg@ (888 \ILLEGAL.ARG 392 FONTPROP 381 COPY 345 COPY 299 MEMB 275 MEMB 252 MEMB 88 COPY 5 FONTCREATE) (876 FONTTOMCCSFN 863 AVGCHARWIDTH 816 FONTDESCRIPTOR 806 NUNINSTANTIATEDCHARSETS 781 CHARSETINFO 743 FONTDESCRIPTOR 734 NINSTANTIATEDCHARSETS 711 CHARSETINFO 673 FONTDESCRIPTOR 663 NEMPTYCHARSETS 643 FONTDESCRIPTOR 634 MAXCHARSET 600 CHARSETINFO 563 FONTDESCRIPTOR 553 CHARSETS 540 SCALE 515 DEVICEEXPANSION 490 DEVICEWEIGHT 465 DEVICESLOPE 440 DEVICEFACE 419 DEVICESIZE 398 DEVICEFAMILY 387 SPEC 365 DEVICESPEC 328 SPEC 312 FONTDESCRIPTOR 306 MCCS 290 FONTDESCRIPTOR 281 ALTOTEXT 266 FONTDESCRIPTOR 259 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)) @HgHdggHhdggHhdggHhdggogHhggHhgNIL (137 IGNOREMACRO 126 MAXCHARSET 119 MAXCHARSET 106 of 96 fetch 87 FONTTOMCCSFN 75 FONTHEIGHT 67 HEIGHT 55 FONTDESCENT 47 DESCENT 35 FONTASCENT 27 ASCENT 13 QUOTE) ( 101 (FONTDESCRIPTOR FONTTOMCCSFN)) (PUTPROP (QUOTE FONTPROP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-FONTPROP) (GET ( QUOTE FONTPROP) (QUOTE COMPILER:OPTIMIZER-LIST)))) FONTDEVICEPROP :D8 (L (0 NARGS)) elHo kalaIdd3@I ! YdIg gJ [Jgd KlHKla K K lHKla (150 SETTOPVAL 136 GETTOPVAL 128 BOUNDP 120 PUTD 103 \DEFINEDP 87 PACK* 68 FONTPROP 48 \FONT.CHECKARGS 41 \FONTSYMBOL 18 ERROR) (94 ENCODINGFN 81 DISPLAY 63 DEVICE 55 FONTDESCRIPTOR) ( 13 "DEVICE/PROP not specified") (PUTPROPS FONTDEVICEPROP ARGNAMES (FONTDEVICE PROP NEWVALUE)) 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)) @d @ bdlA @IH djnNHd djnkغJXHH djnkH KLMM)HIHIIH KLMM (173 \GETCHARBITMAP.CSINFO 155 \CREATECHARSET 114 \BUILDSLUGCSINFO 27 FONTCREATE 15 CHARCODE.DECODE 6 CHARCODEP) (144 FONTDESCRIPTOR 95 FONTDESCRIPTOR 87 FONTDESCRIPTOR 59 FONTDESCRIPTOR 39 FONTDESCRIPTOR) () PUTCHARBITMAP :D8 (L (3 NEWCHARDESCENT 2 NEWCHARBITMAP 1 FONT 0 CHARCODE) P 6 \INTERRUPTABLE) BB @ bA bd@IH djnNHd djnkغJXHH djnkH KLMM)HIHIIH KLMMA@lHBC QH AdIIH A dJJAKAL AKL B(189 \PUTCHARBITMAP.CSINFO 158 \CREATECHARSET 117 \BUILDSLUGCSINFO 27 FONTCREATE 19 CHARCODE.DECODE 12 \ILLEGAL.ARG) (265 FONTDESCRIPTOR 255 FONTDESCRIPTOR 245 FONTDESCRIPTOR 228 FONTDESCRIPTOR 220 CHARSETINFO 205 FONTDESCRIPTOR 197 CHARSETINFO 147 FONTDESCRIPTOR 98 FONTDESCRIPTOR 90 FONTDESCRIPTOR 62 FONTDESCRIPTOR 42 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 DCODE 0 SCODE) F 3 DESTFONT F 4 PAIRINFO F 5 DEFAULTSOURCEFONT) SAIH djnCHd djnkغJEHH djnkH HIHIIH @USAS AhTc(133 \MOVEFONTCHARS.SOURCEDATA 118 \CREATECHARSET 88 \BUILDSLUGCSINFO) (106 FONTDESCRIPTOR 68 FONTDESCRIPTOR 60 FONTDESCRIPTOR 32 FONTDESCRIPTOR 12 FONTDESCRIPTOR) () MOVEFONTCHARS :D8 (L (0 PAIRS) P 0 PAIRINFO I 2 DEFAULTSOURCEFONT I 1 DESTFONT) @A bB!AbP@d '@g hddAg !MH^ddh^_ O _AO㻺KJ djnCJd djnkعIEJJ djnkJ JKJKKJ NBOA M]OOhHd\LA A(276 \MOVEFONTCHAR 245 \MOVEFONTCHARS.SOURCEDATA 230 \CREATECHARSET 200 \BUILDSLUGCSINFO 108 CHARCODE.DECODE 100 CHARCODEP 67 FONTCREATE 61 FONTPROP 44 MAPHASH 30 HARRAYP 10 FONTCREATE) (218 FONTDESCRIPTOR 180 FONTDESCRIPTOR 172 FONTDESCRIPTOR 144 FONTDESCRIPTOR 124 FONTDESCRIPTOR 56 DEVICE 39 MOVEFONTCHARSA0001) () \MOVEFONTCHAR :D8 (L (2 DFONT 1 DCODE 0 SOURCEDATA)) BAIH djnNHd djnkغJXHH djnkH KLMM)HIHIIH KLMMAl g@3g@g@ HdHHH g@IH THj*H djdjBAHg@\IHLg@ Hg@NMllk HMMINHg@__O%Ollk _HOOIOHg@__O%Ollk _HOOIOg@HIg@ H_g_O'O_OhO_OOOBg g@H _dOOZg@H _ dO O [HJ HK BKJB _"dO"O"KB_$dO$O$BKBJ BJK H(565 FONTPROP 493 \FSETLEFTKERN 451 \ALLOCBLOCK 395 \ALLOCBLOCK 344 \ALLOCBLOCK 311 \PUTCHARBITMAP.CSINFO 248 COPYALL 226 \MAKESLUGCHAR 207 \COPYARRAYBLOCK 128 \CREATECHARSET 87 \BUILDSLUGCSINFO) (712 FONTDESCRIPTOR 702 FONTDESCRIPTOR 692 FONTDESCRIPTOR 672 FONTDESCRIPTOR 651 FONTDESCRIPTOR 638 CHARSETINFO 629 CHARSETINFO 609 CHARSETINFO 600 ASCENT 581 CHARSETINFO 572 DESCENT 560 SPEC 546 CHARSETINFO 533 CHARSETINFO 512 CHARSETINFO 503 SOURCE 485 LEFTKERN 474 LEFTKERN 421 YWIDTHS 365 IMAGEWIDTHS 320 WIDTHS 303 DESCENT 287 BITMAP 272 FONTDESCRIPTOR 254 CHARSETINFO 235 CHARSETINFO 215 SLUG 199 CHARSETINFO 174 IMAGEWIDTHS 166 WIDTHS 156 IMAGEWIDTHS 117 FONTDESCRIPTOR 68 FONTDESCRIPTOR 60 FONTDESCRIPTOR 32 FONTDESCRIPTOR 12 FONTDESCRIPTOR) () \MOVEFONTCHARS.SOURCEDATA :D8 (L (3 DESTFONT 2 DCODE 1 DEFAULTSOURCEFONT 0 SOURCE)) z @A@JwJ Ap@ddhZ Ag J Ag J Ag J Ag J Ag h H H BHJCHpjJ djnJd djnk_OJJ djnkJ  OOOOdJ hXJH㾽NM djnRMd djnkؼL`MM djnkM  OOOO-MN#MNNM  OOOOHl#JJjJ _OngIgK gK gKdIgKdIgKdIgK K I gK IK gHhhh(609 \GETCHARBITMAP.CSINFO 586 ELT 463 \CREATECHARSET 418 \CREATECHARSET 373 \BUILDSLUGCSINFO 280 SLUGCHARP 254 \BUILDSLUGCSINFO 148 CHARCODE.DECODE 141 CHARCODEP 134 FONTCREATE 123 FONTPROP 104 FONTPROP 86 FONTPROP 69 FONTPROP 53 FONTPROP) (615 SLUG 598 CHARSETINFO 592 BITMAP 578 CHARSETINFO 566 CHARSETINFO 560 LEFTKERN 545 IMAGEWIDTHS 530 YWIDTHS 515 WIDTHS 507 CHARSETINFO 501 DESCENT 493 CHARSETINFO 487 ASCENT 480 CHAR8CODE 454 FONTDESCRIPTOR 407 FONTDESCRIPTOR 354 FONTDESCRIPTOR 346 FONTDESCRIPTOR 318 FONTDESCRIPTOR 298 FONTDESCRIPTOR 235 FONTDESCRIPTOR 227 FONTDESCRIPTOR 192 FONTDESCRIPTOR 170 FONTDESCRIPTOR 118 DEVICE 99 ROTATION 81 FACE 64 SIZE 48 FAMILY 16 FONTDESCRIPTOR) () \MAKESLUGCHAR :D8 (L (1 FONT/CSINFO 0 CODE)) y `AdA@㽼ML djnQLd djnkػK^LL djnkL NOOO,LM"LMML NOOO@l偸@HZd2dIJndIHjd JIJno HIHnHIHnHdHIHnH H IH n H(373 SETA 368 ELT 239 HELP 215 \PUTCHARBITMAP.CSINFO 210 BITMAPCREATE 145 \CREATECHARSET 101 \BUILDSLUGCSINFO) (358 CHARSETINFO 349 CHARSETINFO 339 CHARSETINFO 322 CHARSETINFO 312 CHARSETINFO 301 CHARSETINFO 283 CHARSETINFO 273 CHARSETINFO 256 CHARSETINFO 246 CHARSETINFO 175 CHARSETINFO 134 FONTDESCRIPTOR 82 FONTDESCRIPTOR 74 FONTDESCRIPTOR 46 FONTDESCRIPTOR 26 FONTDESCRIPTOR 9 FONTDESCRIPTOR) ( 234 "NONDISPLAY SLUG ?") SLUGCHARP :D8 (L (1 FONT/CHARSETINFO 0 CODE)) QAdA@HIHh0Hjh!H@lHlkNIL (68 CHARSETINFO 53 CHARSETINFO 38 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) M B b`@Adgql A_Ag@d3@@dk@@g@]dMg ]bMbMbMMoA ZDd3 o hD[gKoKo o@JoB KoK o gC \oL LkA LN _ O l*LNk l*O_OOh__NkԾO&_L(292 NTHCHARCODE 278 CONCATCODES 266 NTHCHARCODE 253 STRPOS 241 PACKFILENAME.STRING 230 CONCAT 218 CONCAT 205 FONTFACETOATOM 186 CONCAT 157 MEMB 146 OCTALSTRING 135 CONCAT 91 FONTPROP 5 \FONTFACE) (235 EXTENSION 167 NAME 86 SPEC 78 FONTDESCRIPTOR 67 * 21 *) ( 247 "**" 224 "" 212 "-C" 199 "-" 192 "" 181 ">" 175 "c" 152 (NIL NOCHARSET) 129 "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 1HhA AI djnNId djnkػKXII djnkI LMNN)IAIAAI LMNNZ9BBI .DIJhIDIHX/(204 SLUGCHARP 180 \CREATECHARSET 139 \BUILDSLUGCSINFO 56 FONTCREATE1 40 COERCEFONTSPEC 29 FONTDEVICEPROP) (243 FONTDESCRIPTOR 237 FONTDESCRIPTOR 226 FONTDESCRIPTOR 220 FONTDESCRIPTOR 169 FONTDESCRIPTOR 120 FONTDESCRIPTOR 112 FONTDESCRIPTOR 84 FONTDESCRIPTOR 64 FONTDESCRIPTOR 16 FONTCOERCIONS 10 CHARCOERCIONS) () \BUILDSLUGCSINFO :D8 (L (1 SLUGWIDTH 0 FONT) F 14 \DISPLAYSTREAMTYPES) @ @ @ Hj"o@k@ A @ bjA`HI_dO dI dkdnllk _dOllk _dO[d\lj__OOKLJW Lllk KMlj__OOqAHk nNkhAk KNK /@djHo b@A LOAOk_RMOjOk_~(328 FIXR 299 \FZEROP 282 BLTSHADE 266 BITMAPCREATE 231 \ALLOCBLOCK 216 MEMB 162 \ALLOCBLOCK 140 \ALLOCBLOCK 62 FIXR) (345 FONTDESCRIPTOR 334 FONTDESCRIPTOR 310 FONTDESCRIPTOR 289 CHARSETINFO 238 CHARSETINFO 205 CHARSETINFO 178 CHARSETINFO 96 |CHARSETINFOTYPE#| 72 FONTDESCRIPTOR 54 FONTDESCRIPTOR 42 FONTDESCRIPTOR 21 FONTDESCRIPTOR 13 FONTDESCRIPTOR 5 FONTDESCRIPTOR) ( 322 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 CACHES) P 5 NFLUSHED I 5 DEVICE I 4 ROTATION I 3 FACE I 2 SIZE I 1 FAMILY) @oaAdjdfd3@^AdkAAgEABCDEi ^dNg ^bNbNbNbNb AgbBgbCgbDgbEgb HIHhHHjLdg`%g`Ldg` g LMhJ KhZK&(249 MAPMULTI 239 \ILLEGAL.ARG 83 FONTPROP 63 \FONT.CHECKARGS) (244 FLUSHFONTCACHEA0001 233 \FONTSAVAILABLEFILECACHE 225 :AVAILABLE 216 \FONTEXISTS?-CACHE 209 :EXISTS 202 \FONTSINCORE 194 :INCORE 165 * 155 * 145 * 135 * 125 * 78 SPEC 70 FONTDESCRIPTOR 48 *) ( 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 dg{@A dg^@Af@A]@ A HICHdgIgh,Hg!Ighgigi(82 \FONTFACE 73 \FONTFACE 35 ALPHORDER 16 ALPHORDER) (151 LESSP 141 LESSP 132 REGULAR 121 REGULAR 108 MEDIUM 98 MEDIUM 41 EQUAL 22 EQUAL) () SORTFONTSPECS :D8 (L (0 FONTSPECS)) @g (10 SORT) (5 SORTFONTSPECSA0001) () MATCHFONTFACE :D8 (L (1 FACE 0 PATTERN)) Y@gP@AK@ddd3@@ b@@HAHg IAIgJA Jg(29 \FONTFACE) (85 * 68 * 53 * 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 "-") FONTFACE.STARS :D8 (L (0 FACE)) @dggddhbgo@aHJHhHH@dgoMMhMM@dgohKKhKKINL J(146 MAKEFONTFACE) (106 * 67 * 28 * 14 * 6 *) ( 114 (COMPRESSED REGULAR) 75 (ITALIC REGULAR) 35 (BOLD MEDIUM)) (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 FLAG POINTER POINTER POINTER WORD WORD WORD WORD WORD WORD SIGNEDWORD SIGNEDWORD POINTER POINTER POINTER POINTER POINTER (BITS 8) WORD POINTER POINTER FLAG POINTER)) (QUOTE ((FONTDESCRIPTOR 0 POINTER) (FONTDESCRIPTOR 0 (FLAGBITS . 0)) ( FONTDESCRIPTOR 0 (FLAGBITS . 16)) (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 (BITS . 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) (FONTCOERCEDP FLAG) (FONTFAMILY POINTER) (FONTSIZE POINTER) (FONTFACE POINTER) (\SFAscent WORD) (\SFDescent WORD) ( \SFHeight WORD) (ROTATION WORD) (FONTSLUGWIDTH WORD) (MAXCHARSET WORD) (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@AIH djnNHd djnkغJXHH djnkH KLMM)HIHIIH KLMM Al H3 BHj(176 ELT 147 \CREATECHARSET 106 \BUILDSLUGCSINFO) (165 CHARSETINFO 136 FONTDESCRIPTOR 87 FONTDESCRIPTOR 79 FONTDESCRIPTOR 51 FONTDESCRIPTOR 31 FONTDESCRIPTOR 5 FONTDESCRIPTOR) () \CREATEFONT :D8 (L (0 FONTSPEC)) 0@di 6g@`Xd@kH@hi @ g Y-@g Yl@I  djn  ZdkkjhJ@J@J@J@ JIJ(126 \CREATEFONT 120 FONTSPEC.TO.FONTDESCRIPTOR 100 \CREATEFONT 89 COERCEFONTSPEC 74 COERCEFONTSPEC 63 FONTSPEC.TO.FONTDESCRIPTOR 51 MEDLEYFONT.READ.FONT 10 FONTEXISTS?) (195 FONTDESCRIPTOR 182 FONTDESCRIPTOR 170 FONTDESCRIPTOR 159 FONTDESCRIPTOR 149 FONTDESCRIPTOR 133 FONTDESCRIPTOR 105 FONTDESCRIPTOR 84 FACECOERCIONS 69 FONTCOERCIONS 29 IMAGESTREAMTYPES 18 FONTCREATE) () \CREATECHARSET :D8 (L (2 GETCHARSETFN 1 FONT 0 CHARSET)) TA@JAg BgA`bHA@lBH@A Yd AI@ (81 \INSTALLCHARSETINFO 69 \READCHARSET 20 FONTPROP) (44 IMAGESTREAMTYPES 37 FONTDESCRIPTOR 31 CREATECHARSET 15 DEVICESPEC) () \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)))) \CREATEDISPLAYFONT :D8 (L (0 FONTSPEC)) @ (5 FONTSPEC.TO.FONTDESCRIPTOR) NIL () \CREATECHARSET.DISPLAY :D8 (L (2 CHARSET 1 FONT 0 FONTSPEC)) 4@BA '@j@AB AB @g @dgHABg@@g@@@@@@ @gEABg@@@g@@@@@ @gDABg@@@@g@@@@ AB(296 FAKEFACE.CHARSET 215 FAKEFACE.CHARSET 134 FAKEFACE.CHARSET 48 FONTDEVICEPROP 37 COMPLETE.CHARSET 29 \SFROTATECSINFO 7 \READCHARSET) (259 REGULAR 238 MOVEFONTCHARS 228 COMPRESSED 171 REGULAR 156 MAKEITALIC.CHAR 146 ITALIC 84 MEDIUM 74 MAKEBOLD.CHAR 63 BOLD 43 FACECOERCIONS) () \FONTEXISTS?.DISPLAY :D8 (L (1 NOCOERCIONS 0 FONTSPEC)) A@g @dgE@g@@@@@@A @dg@@@g@@@@@A L@g=@@@@g@@@@A h(251 FONTEXISTS? 175 FONTEXISTS? 95 FONTEXISTS? 15 FONTDEVICEPROP) (213 REGULAR 189 COMPRESSED 130 REGULAR 113 ITALIC 44 MEDIUM 32 BOLD 10 FACECOERCIONS) () FAKEFACE.CHARSET :D8 (L (3 SOURCEFONT 2 FAKEFN 1 CHARSET 0 FONT))  @g Cd2d.dd3@&CdkCCgCA bCA[djvA A WK Z_g_OOOhNNMMCg @JA iYHgK\1HL&LA LA @JA JY@AZ@dd djnk_O3@@ djnk@ O O"O$O$A AlA__OdOWIAJ_g_O'O_OhO_OOOHJkkjhI@ )OdC C O@ O@ClBJYOk_p(500 \MOVEFONTCHAR 492 \MOVEFONTCHARS.SOURCEDATA 484 SLUGCHARP 473 SLUGCHARP 360 \INSTALLCHARSETINFO 338 \BUILDSLUGCSINFO 256 \INSTALLCHARSETINFO 247 COPYALL 242 MEDLEYFONT.GETCHARSET 233 FONTFILES 189 \INSTALLCHARSETINFO 179 FONTPROP 116 COPYALL 108 CHINESECHARSETP 101 KANJICHARSETP 62 FONTCREATE1 10 FONTPROP) (455 CHARSETINFO 438 CHARSETINFO 425 CHARSETINFO 404 CHARSETINFO 395 SOURCE 319 FONTDESCRIPTOR 311 FONTDESCRIPTOR 280 FONTDESCRIPTOR 207 CHARSETINFO 201 SOURCE 174 DEVICESPEC 162 CHARSETINFO 152 CHARSETINFO 134 CHARSETINFO 125 SOURCE 84 CHARSETINFO 53 * 5 DEVICESPEC) () MAKEBOLD.CHAR :D8 (L (1 FONT 0 CODE)) @A @laA@IHJ [kK JHJ J ؾKjdLjdMNgg KjdLkjMNgg HJL h(147 \PUTCHARBITMAP.CSINFO 139 BKBITBLT 115 BKBITBLT 59 BITMAPCREATE 36 \GETCHARBITMAP.CSINFO 6 SLUGCHARP) (133 PAINT 128 INPUT 109 REPLACE 104 INPUT 87 CHARSETINFO 79 CHARSETINFO 66 CHARSETINFO 52 BITMAP 42 BITMAP) () MAKEITALIC.CHAR :D8 (L (1 FONT 0 CODE)) &@A @l A@IHJ [K JHJ J _NO_NlljOllBOOHJL MOdjj_dOO_ MdOdjj_dOO_OOl_jOOj_"OOOkl_dOO_$OO -O$O"&KjO"LO O"OO O$O"gg Ok_Yh(280 BKBITBLT 133 \PUTCHARBITMAP.CSINFO 57 BITMAPCREATE 36 \GETCHARBITMAP.CSINFO 6 SLUGCHARP) (274 REPLACE 269 INPUT 86 CHARSETINFO 77 CHARSETINFO 64 CHARSETINFO 50 BITMAP 42 BITMAP) () \SFROTATECSINFO :D8 (L (2 CHARSET 1 FONT 0 FONTSPEC) F 3 ROTATION F 4 CSINFO) So @@@@@@j@@AB cJAB`T TS HdITS HdIHIJJoS (160 ERROR 128 \SFROTATECSINFOOFFSETS 111 \SFROTATEFONTCHARACTERS 97 NCREATE2 72 \CREATECHARSET.DISPLAY 10 MEMB) (103 CHARSETINFO 91 |CHARSETINFOTYPE#| 82 FONTDESCRIPTOR) ( 154 "Only rotations of 0, 90 and 270 are allowed" 5 (90 270)) \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 DISPLAYFONTEXTENSIONS MEDLEYDISPLAYFONT) (RPAQ? DISPLAYFACECOERCIONS (QUOTE (((* * (BOLD * *)) (* * (MEDIUM * *))) ((* * (* ITALIC *)) (* * (* REGULAR *))) ((* * (* * COMPRESSED)) (* * (* * REGULAR)))))) (RPAQ? \DEFAULTCHARSET 0) (PUTPROPS FONT FILETYPE :FAKE-COMPILE-FILE) NIL