Interlisp.medley/sources/FONT.LCOM

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

(FILECREATED " 5-May-2026 09:56:41" ("compiled on " {MEDLEY}<sources>FONT.;797) " 4-May-2026 14:59:40"
 "COMPILE-FILEd" in "FULL  4-May-2026 ..." dated " 4-May-2026 14:59:50")
(FILECREATED " 5-May-2026 09:56:41" {MEDLEY}<sources>FONT.;797 260815 :EDIT-BY rmk :CHANGES-TO (FNS 
\CREATEDISPLAYFONT FONTSPEC.TO.FONTDESCRIPTOR) :PREVIOUS-DATE " 4-May-2026 12:39:02" 
{MEDLEY}<sources>FONT.;796)
(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 (LIST "{MEDLEY}/fonts/medleydisplayfonts"))) (*
 ; "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)) 
Œ@d
•¿j@ñ–@	¿€Adâ±¢¿A@㻺KJÈ
djð“¿nÿÿñ²RJdÈ
djð“¿nÿÿkعÉIàÐɵ`JÉJÈ
djð“¿nÿÿkØàJ	
OOÐO¿O°-JÉKàÐɵ#JÉKàKJ

OOÐO¿OÉ@lÿåÐÈgiXµsA	@ã_¿¾ONÈ
djð“¿nÿÿñ²hNdÈ
djð“¿nÿÿkؽÉMàÐɵyNÉNÈ
djð“¿nÿÿkØàN	
OOÐO¿O°FÉ.É4¼H@lLNÉOàÐɵ%NÉOàON

OOÐO¿OÉ@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)) 
¥@d
•¿j@ñ–@	¿€Adⱦ¿A@㻺KJÈ
djð“¿nÿÿñ²RJdÈ
djð“¿nÿÿkعÉIàÐɵ`JÉJÈ
djð“¿nÿÿkØàJ	
OOÐO¿O°-JÉKàÐɵ#JÉKàKJ

OOÐO¿OÉd3 µ2d’±ÞjgiXòHÉ.É6¼H@lLA	@ã_¿¾ONÈ
djð“¿nÿÿñ²RNdÈ
djð“¿nÿÿkؽÉMàÐɵcNÉNÈ
djð“¿nÿÿkØàN	
OOÐO¿O°0NÉOàÐɵ%NÉOàON

OOÐO¿OÉd3 µ‚±ÿ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* F 10 DEFAULTFONT) 
<01>	`Adâ± ¿@AB´C•Cdið’¿WjAÈ
djð“¿nÿÿñ²QAdÈ
djð“¿nÿÿkعÉIàÐɵOAÉAÈ
djð“¿nÿÿkØàA	NOÐO¿O°AÉɵAÉjA
Z¿JÉÈ ²AgiXµ‚±…AµW	X@HB´C•Cdið’¿WjHÈ
djð“¿nÿÿñ²yHdÈ
djð“¿nÿÿkؼÉLàÐɵwHÉHÈ
djð“¿nÿÿkØàH	NOÐO¿O°EÉ.É2»H@B´C•Cdið’¿WlKHÉɵHÉjH
]¿MÉÈ (397 \STRINGWIDTH.GENERIC 383 \CREATECHARSET 304 \BUILDSLUGCSINFO 201 FONTCREATE 184 \GETSTREAM 169 \STRINGWIDTH.GENERIC 155 \CREATECHARSET 116 \BUILDSLUGCSINFO)
(374 FONTDESCRIPTOR 356 READTABLEP 333 IMAGEOPS 326 STREAM 285 FONTDESCRIPTOR 277 FONTDESCRIPTOR 249 FONTDESCRIPTOR 229 FONTDESCRIPTOR 222 READTABLEP 178 OUTPUT 146 FONTDESCRIPTOR 97 FONTDESCRIPTOR 89 FONTDESCRIPTOR 61 FONTDESCRIPTOR 41 FONTDESCRIPTOR 34 READTABLEP 9 FONTDESCRIPTOR)
()
\CHARWIDTH.DISPLAY :D8
(L (1 CHARCODE 0 STREAM)) <00>@É0ÉAãIHÈ
djð“¿nÿÿñ²NHdÈ
djð“¿nÿÿkغÉJàÐɵXHÉHÈ
djð“¿nÿÿkØàH	KLÐM¿M°)HÉIàÐɵHÉIàIH
KLÐM¿MÉAlÿåÐÈ(132 \CREATECHARSET 91 \BUILDSLUGCSINFO)
(121 FONTDESCRIPTOR 72 FONTDESCRIPTOR 64 FONTDESCRIPTOR 36 FONTDESCRIPTOR 16 FONTDESCRIPTOR)
()
\STRINGWIDTH.DISPLAY :D8
(L (2 RDTBL 1 STR 0 STREAM)) 
@É0
AHÉBHÈA(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 ð”W±¥TAãð“V±•AãcSÈ
djð“¿nÿÿñ²RSdÈ
djð“¿nÿÿkØ
HÉIàÐɵXSÉSÈ
djð“¿nÿÿkØàS	HIÐJ¿J°)SÉTàÐɵSÉTàTS
HIÐJ¿JÉcAlÿåÐÈÔc
(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@ð¢±
$¿B²jAC#g@BdW8W:
Hk@jsNÁÉ_Ê_¿NÁÊ jðhð_¿MOñ’±ÛO–OMÐȃOMÂ_¿OOOã𒱡Oã_AÈ
djð“¿nÿÿñ²UAdÈ
djð“¿nÿÿkØ_¿ÉOàÐɵcAÉAÈ
djð“¿nÿÿkØàA	OO ÐO"¿O"°0AÉOàÐɵ%AÉOàOA
O$O&ÐO(¿O(É_¿Ol ð‘C‰OOlÿåÐÈÔ_¿MkØ]±ÿ$O	¢±þÝj¡B¢±
JjAÈ
djð“¿nÿÿñ²UAdÈ
djð“¿nÿÿkØ_¿ÉOàÐɵRAÉAÈ
djð“¿nÿÿkØàA	O O"ÐO$¿O$°AÉɵAÉjA
_¿OÉÈ"à½Bʇ¾ANã_¿_¿OOÈ
djð“¿nÿÿñ²YOdÈ
djð“¿nÿÿkØ_¿ÉOàÐɵiOÉOÈ
djð“¿nÿÿkØàO	O O"ÐO$¿O$°3OÉOàÐɵ'OÉOàOO
O O"ÐO$¿O$ÉNlÿåÐÈ_¿@QO dÊjð¥	<00>È_&¿O dÊjð¥	<00>É_(¿O&mÿØO l
Ø_$¿O dÊjð¥	‚ʇlDð_*¿O&O$ñ’±ìO*—O(O&ÐÈ„O(O&Â_"ãO𒱡O"ã_AÈ
djð“¿nÿÿñ²UAdÈ
djð“¿nÿÿkØ_¿ÉOàÐɵcAÉAÈ
djð“¿nÿÿkØàA	O,O.ÐO0¿O0°0AÉOàÐɵ%AÉOàOA
O2O4ÐO6¿O6É_¿MO"l ð’C°OO"lÿåÐÈB<>O"l"ð¤O"Nð’O€jØÔ½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	gð´H
b¿g	¿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@
¿I
I¹3 µkºdJÏ¿I
I¹d<C2B9>hddg
»dK¿I
I¹¼dL¿I
I¹½dM¿0
I°Fd
_ŸO
^“N3–Od
³¿o@Ah
¿O
O
_¿Oµ	Oh_‚O&_¿µ»O_¿dO¿XB_¿OµH¦O_¿hˆO
_¿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	h¸IµHhZ<>H&¹µä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
B²BhddAC
b˜@AB¿(37 SETFONTCLASSCOMPONENT 26 FONTCREATE 11 FONTCREATE)
NIL
()
SETFONTCLASSCOMPONENT :D8
(L (2 FONT 1 DEVICE 0 FONTCLASS)) ~@ABhddA
CIdgð›¿HJJdgð›¿HJJgðšHJJH»I\dKɵK¾LhNɽNM¿M
ddJ¿(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ð™¿@ɉ@ÉXddÃ’±š¿Hhddgi
X²kAdgð›¿@H°ogðš@H°]Agðš@H°J@»A\KɵKºLhJɹJI¿I
H¿°B³oAo@
HB‘ho@
(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)) O
F	b¿@dÛ¿A§B¥C£D¡@Š@ABCD
XdÑHF
µE‘hoH
¿°·(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) Í
A£Sb¿0`@iX³1@	X´‚±¨@¹`µ
I
hhIHi´‚±†AHÈ
djð“¿nÿÿñ²CHdÈ
djð“¿nÿÿkغÉJàÐɳEHÉHÈ
djð“¿nÿÿkØàÐH	°HdÉAàÐɳÉAàÐAH
¿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Í¿@

HdI¿d@¿dh¿…@	1HlH²HÈ
djð“¿nÿÿµnÿÿØi
YHÈ
djð“¿nÿÿkØj»ºKJó³HÉKàÐI¿KkÔ[°é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	<00>b¿Aµ°(d3@ð¨Ad	˜¿A	°	–A	‡AµgY@dâ±S¿Idgðš¿@É°gð˜@ÉŠI@ÉXddÑH¢±ŽHhddIi
Z²~IdgðŸ¿`JJgðž`JJIgðž`JJ`»I\dKɵK¾LhNɽNM¿M
ddJ¿IW
¢±Ñ@`𢱬Idgð²¿```gð²```Igð²````_¿I_dOɵ'O_¿OhOÉ_¿OO¿O
dd`¿B‘ho@o	@ÉhddIB
X²|Idgð›¿@HHgðš@HHIgðš@HH@_¿I_dOɵ'O_¿OhOÉ_¿OO¿O
ddH¿B’±ÿVIo@o	Ã’@°@	§@ô	h@
X´ÃA¡HIHÉð³ôHhddIB
(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@S
ºTkJhc
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*) v
Wgð´1Wg
!oWg
ZhWc¿Hµh
¹`WioWL	gð´K
’I
J	¿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) (
A§gb¿S!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@S
ºTkJhc
gNIL
(22 :NORMAL)
()
\READCHARSETA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 20 *CONDITION-HANDLER-BINDINGS* P 19 SI::*NLSETQFLAG* P 18 *PROCEED-CASES* P 17 SI::NLSETQ-VALUE P 16 FNS P 2 STRM I 0 SI::*CLEANUP-FORMS* F 21 FONT F 22 CHARSET F 23 SI::*RESETFORMS* F 24 CHARSETFNS F 25 FONTSPEC F 26 *PROCEED-CASES* F 27 *CONDITION-HANDLER-BINDINGS*) 
ñ
W*W,
áHµh
¹W0µW*g
µoOµKµÜHX°Ó
_ ¿oIg
ZhW.c.¿`W4ioW6O$	gð´O"
¢±
[O 
¼JW,W*lL[â±
AgKɳUK_¿g_OɵO¾OhNɽNM¿M
W*g
µg_¿W2kO¿gKÉ’±¼K_¿g_Oɵ'O_¿OhOÉ_¿OO¿O
W*d²-d
²)
d3@ð² W*d

™¿kW*
ñšW*
gð’W*‹W*g
_
O
O

O

O

O
O
O
O¿KW,Í¿±þUJ	¿O_±þC(486 CLOSEF? 400 FONTPROP 243 FONTDEVICEPROP 119 \READCHARSETA0001A0002 79 OPENSTREAM 35 FONTDEVICEPROP 8 FONTFILES)
(472 CHARSETINFO 395 DEVICESPEC 383 * 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 2 CHARSETFNS I 1 CHARSET I 0 FONT F 3 LISPXHIST) -
@g
jð´S!g		¿$
(38 SI::RESETUNWIND 33 \MVLIST 28 \READCHARSETA0001 10 FONTPROP)
(23 SI::RESETUNWIND 5 ROTATION)
()
FONTCHARSETS :D8
(L (0 FONT)) H
@È
djð“¿nÿÿjBIHó³.@ÉIàÐÉ]²MÊjð™I¼Kµ
Lh[ºIkÔY°×L&»°÷JNIL
(41 CHARSETINFO 5 FONTDESCRIPTOR)
()
\FONT.CHECKARGS :D8
(L (5 ALWAYSFONTSPEC 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) 
Ô
@d
gð²d
d3@ð²¿@
@
D
bœ@dd3@ð–¿@ið²Y@²@@d
gð<>X
b¿AµH
b¿BµH
b¿CµH
b¿DµH
b¿h¸°@dÃ’¿@†DiXµ
D³Jg±ƒÉb¿AªHÉb¿BªHÉb¿CªHÈb¿DµHÉb°¸Ddd3@ð•¿Ddið–	—D	°'DgibdŸ	d£d‘h
µD	b@›@d3@ð•@dið<69>¿o@
¿@	bAd3 ”jñ³Agð«oA
¿BgðªBhDb¿Cµjb°3 “jCñžCgð¦C	¿H²8E³0AHÉð²)BHÉô²CHÈðŸDHÉð¡h€Hµ
@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) <02>Add3@ð²¿@Aµg
bñP@_dÞ¿Og
_
_¿O
_¿O
_¿O
_¿O
_¿Hµ	J	
Yd²dd3@ð²¿@OOOOOlI±
À
d£d‘h[
K»O_,O*ðµO*o
µO*´	O*	´‚±
†K
K»O_,O*ðµO*o
µO*´	O*	´‚±
TK
K»µg	O
´‚±
6K
O_,O*ðµO*o
µO*´	O*	´‚±
I
d£d‘h\
L¼_ do
”¿O°(²#O_,¿O 	do
’¿OµO ½L
L¼_"do
”¿O°(²#O_,¿O"	do
’¿OµO"¾L
L¼O
_¿OL
L¼_&¿_$do
”¿O&°(²#O&_,¿O$	do
’¿O&µO$_¿OMð²ONð›OOô•OOð®MNOOO
€h_²/OJ
³%C¬Odi
¤¿°OB´dABC_(µHX±ýå
dJ
¢JZ¿O(°å(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
‘A
A

Hdo
“¿I°"²IºH	do
‘¿IµH@
A

Hdo
“¿I°"²IºH	do
‘¿IµH@
A

Hdo
“¿I°"²IºH	do
‘¿IµH(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)) 
@µ@Bµ3@µE
AµE
B—B	µE
CµE
DµE
h	b¿°Ç
HdÃœ¿Hg
X
b¿H
b¿H
b¿H
b¿H
b°ˆ(88 FONTPROP 60 \FONTFACE 25 \FONTFACE)
(83 SPEC 75 FONTDESCRIPTOR)
()
FONTSPEC.TO.FONTDESCRIPTOR :D8
(L (1 MAXCHARSET 0 FONTSPEC)) ÷A¤lÿb<02>jAó¥Anÿÿó–A	¿`@

HdI¿@

HdI¿@
	
HdI¿@

HdIÍ¿@

HdI¿djÍ¿djÍ	¿djÍ
¿@
@
@

@

@

@
@
@
@	
HdI¿dAÍ
¿dh¿
HlH²HÈ
djð“¿nÿÿµnÿÿØi
H(241 \ALLOCBLOCK 179 COPY 63 COPY 22 \ILLEGAL.ARG)
(219 FONTDESCRIPTOR 208 FONTDESCRIPTOR 28 |FONTDESCRIPTORTYPE#|)
()
COMPLETE.FONT :D8
(L (1 EVENIFCOMPLETE 0 FONT)) q0A®@dÊjð²F¿@dg
ghi²+¿@È
djð“¿nÿÿjº¹JIó¯@J
‘i¸JkÔZ°ï@Êjð›@kÏiH(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È
djð“¿nÿÿj
IHó³@ÉIàÐÉ¡hIkÔY°íi(5 FONTCREATE)
(13 FONTDESCRIPTOR)
()
COMPLETE.CHARSET :D8
(L (1 CHARSET 0 FONT)) 
f@g
@ÉAàÐÉbIµT@dÈ
djð“¿nÿÿkØ»ÉKàÐɵ3@É@È
djð“¿nÿÿkØà@	
OOÐO¿O¹iºIÊjð²pIÊjð³0HAhg
Y²QIÊjð²D@I	AiAálÿäAáB
OdOó²a¿Oµ @g
ªIkÏ¿O‘iZJ@
¿I¾g_NɵN½OhMɼML¿L
H¿°¨@
²+HAO
_²OdOhh_¿OµOh__¿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È
djð“¿nÿÿjdIHó³3@ÉIàÐɵ°!Êjð®@ÉIàÐhƒJkÔZ¿IkÔY°ÍJ(5 FONTCREATE)
(62 FONTDESCRIPTOR 50 CHARSETINFO 13 FONTDESCRIPTOR)
()
MONOSPACEFONTP :D8
(L (3 RETURNVARIABLES 2 SKIPSLUGS 1 CODES 0 FONT)) ”@	bAd²$
	µ	A
	A
	µA
	Œ	báAálÿähbd
A
BIHó³8BšId@
³"¿Mµ
I@
]I@
ð©I¼Kµ
Lh[ºIkÔY°ÍL&»°÷JhðµC´J	(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) ‘@	bAdgð”¿dÈ
dgð”¿@Ègð“@È	Adgð”¿@Égð“@ÉAdgð™¿@É	gð”@É
Adgð–¿@É
gð–@É
Adgð²¿@É
H´‚±¼H
gð²@É
H´‚±<00>H
Adgð”¿@Ègð“@ÉAdgðž¿@É´n@É	gð²^@ɵX@ddÉV
—¿g°7ÉW
–g°!@dÉW
–¿g†É
HIIAdgð²¿@É@É@É	@È@Éhgð²@dÉ—É	g
Adgðœ¿@dÉ¢±þ‹É
gðœ@dÉ¢±þƒÉ
Adgð²¿@dÉ¢±þyÉ
±þsgðŸ@dÉ¢±þ<C2B1>É
±þ{Adgð²¿@dÉ¢±þWÉ
±þQgðŸ@dÉ¢±þ\É
±þVAdgð”¿@Égð²J@È
djð“¿nÿÿjB@ÉIàÐɽIHó³&M²MÊjð™I¼Kµ
Lh[ºIkÔ¹°ÕL&»°÷JAdgð²¿@È
djð¢±þ¶nÿÿgð²@@È
djð“¿nÿÿjd@ÉIàÐÉ»IHó³KµŽÊjð£JkغIkÔ¹°ÛJAdgð²A¿@È
djð“¿nÿÿjd@ÉIàÐÉ»IHó³KµŽÊjð“JkغIkÔ¹°ÛJgð²2@È
djð“¿nÿÿjd@ÉIàÐÉ»IHó«K£JkغIkÔ¹°éJAdgð”¿@Ègð“@ÉA	(910 \ILLEGAL.ARG 413 FONTPROP 402 COPY 369 COPY 320 MEMB 296 MEMB 273 MEMB 243 INFILEP 88 COPY 5 FONTCREATE)
(898 FONTTOMCCSFN 886 AVGCHARWIDTH 837 FONTDESCRIPTOR 828 NUNINSTANTIATEDCHARSETS 805 CHARSETINFO 767 FONTDESCRIPTOR 757 NINSTANTIATEDCHARSETS 732 CHARSETINFO 694 FONTDESCRIPTOR 685 NEMPTYCHARSETS 667 FONTDESCRIPTOR 657 MAXCHARSET 621 CHARSETINFO 584 FONTDESCRIPTOR 575 CHARSETS 563 SCALE 538 DEVICEEXPANSION 513 DEVICEWEIGHT 488 DEVICESLOPE 463 DEVICEFACE 441 DEVICESIZE 421 DEVICEFAMILY 408 SPEC 387 DEVICESPEC 351 SPEC 333 FONTDESCRIPTOR 327 MCCS 311 FONTDESCRIPTOR 302 ALTOTEXT 287 FONTDESCRIPTOR 280 XCCS$ 265 FONTDESCRIPTOR 249 CHARENCODING 227 FILENAME 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@

Hjð¡Ho@	È
ê	djð²ék(35 FIXR 27 FONTCREATE 7 CHARWIDTH)
NIL
( 21 0.6)
optimize-FONTPROP :D8
(L (2 $$CTX 1 $$ENV 0 $$WHOLE)) ©@!H
¹H
Z
gð´J
dgðš¿gIhdgðš¿gIhdgðš¿gIhdgð²¿gogIhdgðš¿gIhgð²gogIhgNIL
(166 IGNOREMACRO 154 of 144 fetch 136 FILENAME 126 MAXCHARSET 118 MAXCHARSET 105 of 95 fetch 86 FONTTOMCCSFN 75 FONTHEIGHT 67 HEIGHT 56 FONTDESCENT 48 DESCENT 37 FONTASCENT 29 ASCENT 17 QUOTE)
( 149 (FONTDESCRIPTOR FONTFILENAME) 100 (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)) še
lHñšo	¿kalaIdd3@ð˜¿I	°!	YdÃœ¿Ig
„
µgJ
[Jgð²d	´KlHñ©Kla
¿K	´K	lHñ©Kla
¿(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	’¿@„	bdlÿåA	@ãIHÈ
djð“¿nÿÿñ²NHdÈ
djð“¿nÿÿkغÉJàÐɵXHÉHÈ
djð“¿nÿÿkØàH	KLÐM¿M°)HÉIàÐɵHÉIàIH
KLÐM¿M
(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) 
BæB	¿@	bA	bd@ãIHÈ
djð“¿nÿÿñ²NHdÈ
djð“¿nÿÿkغÉJàÐɵXHÉHÈ
djð“¿nÿÿkØàH	KLÐM¿M°)HÉIàÐɵHÉIàIH
KLÐM¿MA@lÿåHBC²QHÈ
AȹdIñ¡¿IHÈAÈ	ºdJñ¡¿J¼»AKÍ¿ALÍ	¿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@AÉXµI	»AdÉ™¿AɆÉ@ÐÈ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غAÉ»AɼAÉ]–M@ÐȵL@ÐȾAÉ_È_¿h__¿OÈ_&¿BÈ_BÈ_CµH_OOÙ_OdHñ¡¿H_OdIñ¡¿I_ OO Ø_"K@ÐÈ_$dKn
ÐÈð²;OOØO"O&_¿OjdOjOHÙ_(¿jO(ñ¢O(€jOJ
¿O_$±¤NOð³dONÙ_¿OOØO"O&_¿OjdOjOHÙ_*¿jO*ñ¢O*€jO$J
¿OO$NØjOO$OØOHÙ_,¿jO,ñ¢O,€jOO$NØÙkØ°4OIñ¥OHñ²1OO"O&_¿OjdOjOHÙ_.¿jO.ñ¢O.€jOJ
¿BjdOµOO$OOÙ_0¿jO0ñ¢O0€jOO
O´NL@ÐOÍ¿MµAK@ÐO$Í¿O²n
j_4¿_2¿O4O2ó²-AO¿AOÍ¿AO Í
B@ÐOÍ¿°ºKdO4ÐÈO$ñ<>O4ÐKO4ÐÈOÔÍ¿O4kÔ_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	È	]D¥JdLñ¡¿L_D¥KdMñ¡¿M_JOð•KOð³ZN	OOØ
_¿NjKOÙ_¿jOñ¢O€jOjOKÙ_¿jOñ¢O€jN	JKØOOØ_¿dOñ’¿O
¿BCOµNO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) <00>SAãIHÈ
djð“¿nÿÿñ²CHdÈ
djð“¿nÿÿkغÉJàÐɳEHÉHÈ
djð“¿nÿÿkØàÐH	°HÉIàÐɳHÉIàÐIH
¿@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	b¿Bµ!Ab¿P@d	²'¿@g
¿° hddAg

°Î!MµH±È
^d
”dh^
_	©O	_¿AO㻺KJÈ
djð“¿nÿÿñ²CJdÈ
djð“¿nÿÿkعÉIàÐɳEJÉJÈ
djð“¿nÿÿkØàÐJ	°JÉKàÐɳJÉKàÐKJ
¿N
BOAµM]±ÿOOhH¸°òd
\
L
A¿µð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)) ÑBAãIHÈ
djð“¿nÿÿñ²NHdÈ
djð“¿nÿÿkغÉJàÐɵXHÉHÈ
djð“¿nÿÿkØàH	KLÐM¿M°)HÉIàÐɵHÉIàIH
KLÐM¿MAlÿåò g@²3g@g@ð³ HdÉHÉð¤É³HHÉ	¿g@™IH
±
THÊjð³*H	djÏ¿djÏ¿¸BÉAãàÐH¿g@\¢±
IHLg@¿HÉg@¾½N²MµlÿlØkØâ	½HM¿MIÐNÍ¿HÉg@_¿_¿O²%OµlÿlØkØâ	_¿HO¿OIÐOÍ¿HÉg@_¿_¿O²%OµlÿlØkØâ	_¿HO¿OIÐOÍ¿g@ŸHIg@¿H_¿g_Oɵ'O_¿OhOÉ_¿OO¿O
Bg
¿g@HÈ_¿dOñ¢¿OZg@HÈ
_ ¿dO ñ¢¿O [HJÍHKÍ
B²KJBÈ	_"¿dO"ñ¢¿O"ºKBÈ_$¿dO$ñ¢¿O$»BKÍ¿BJÍ	¿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<11>@µAº@¸JówJµA°p
º@
°ìd£d‘hZ
µ
Ag
J
µ
Ag
J
µ
Ag
J
µ
Ag
J
µ
Ag
h	ºH	¦H	¸BHð–JCð’±
ÙHµpjJÈ
djð“¿nÿÿñ¢±
JdÈ
djð“¿nÿÿkØ_¿ÉOàÐɵ‚±üJÉJÈ
djð“¿nÿÿkØàJ	OOÐO¿O±ÈdJ
’¿hX²‡JHã¾½NMÈ
djð“¿nÿÿñ²RMdÈ
djð“¿nÿÿkؼÉLàÐɵ`MÉMÈ
djð“¿nÿÿkØàM	OOÐO¿O°-MÉNàÐɵ#MÉNàNM
OOÐO¿O»Hlÿå°#JÉɵJÉjJ
_¿O»n
¹gIgKÈ
gKÈgKÉd“IÐÈgKÉd“IÐÈgKÉd“IÐÈgKÉ´KÉI
gKÉ´	IK
gHhðhh(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	`Adⱜ¿A@ã½¼MLÈ
djð“¿nÿÿñ²QLdÈ
djð“¿nÿÿkØ»ÉKàÐɵ^LÉLÈ
djð“¿nÿÿkØàL	NOÐO¿O°,LÉMàÐɵ"LÉMàML
NOÐO¿O¸@lÿå<C3BF>¸@¹HÉZd²2dIÐÈJn
ÐÈð’±²d²IHjd
¿JIÐJn
ÐÈ͉o	¿HÉIÐHÉn
ÐÈÍ¿HÉIÐHÉn
ÐÈÍ¿Hdɲ¿HÉIÐHÉn
ÐÈÍ¿HÉ² 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)) QAdÃ’¿A<C2BF>@ã
HÉIàÐÉ
Hhðµ0HÊjðhðµ!HÉ@lÿåÐÈHÉlÿkØÐÈðNIL
(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) 

@òa@É	d£d‘hµ‚±î@dɲ.¿ghg@É	d£d‘hµ‚±¸@g
b°œ`@hdddi
bd]dÃœ¿Mg
]
¸M
¹M
ºM
»M
¼Bµ
Lg
d£d‘hbCµ
Lg
d£d‘hbA£Vb¿HIJKLgBC
d£d‘hHIJKLABC
d£d‘h
(268 \APPEND2 256 \FINDFONTFILE 235 \FINDFONTFILE 202 FONTDEVICEPROP 179 FONTDEVICEPROP 140 FONTPROP 117 \FONT.CHECKARGS 98 FONTPROP 74 INFILEP 69 PACKFILENAME 20 INFILEP)
(227 NOCHARSET 197 FONTEXTENSIONS 174 FONTDIRECTORIES 135 SPEC 127 FONTDESCRIPTOR 93 DEVICESPEC 62 FONTDESCRIPTOR 56 BODY 50 VERSION 40 FONTDESCRIPTOR 13 FONTDESCRIPTOR 5 FONTDESCRIPTOR)
()
\FINDFONTFILE :D8
(L (7 EXTLST 6 DIRLST 5 CHARSET 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) €	F¥hhb¿G1HµId 
£Hºh„H
ºH¸I@ABJE
»FALµM
¹°Ï¥L_¿h†L
_¿L¼gOgK	µ°Ê_¿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)) jDAHµIDAHµ4I
d¢¼hƒ
¼H¸@ABLg
»Jµ	KhZ¹°ÉK&º°Ä£H¼h„H
¼H¸@ABLj
»Jµ	KhZ¹°«K&º°¦(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) 
bB	b`@µAdgð³q¿l
Aó³_A°g
²ë@
d3@ð²ã@d

—¿k@
ñš@
gð²Ê@]dÃœ¿Mg
]
b¿M
b¿M
b¿M
¸M
¹°”oA
ZDd3 •	<00>o
‘h€D[gK²oKo„o@JoB	K›oK
„o
gCµIg
d£d‘h
\oL
²LkA
LN
_µO	l*ð<>LNkØ
l*ð³O_¿OµOh__¿NkÔ¾°ÄO&_¿°ôL(313 NTHCHARCODE 299 CONCATCODES 287 NTHCHARCODE 274 STRPOS 262 PACKFILENAME.STRING 249 FONTDEVICEPROP 230 CONCAT 218 CONCAT 205 FONTFACETOATOM 186 CONCAT 157 MEMB 146 OCTALSTRING 135 CONCAT 91 FONTPROP 5 \FONTFACE)
(244 FONTEXTENSIONS 235 EXTENSION 167 NAME 86 SPEC 78 FONTDESCRIPTOR 67 * 21 *)
( 268 "**" 224 "" 212 "-C" 199 "-" 192 "" 181 ">" 175 "c" 152 (NIL NOCHARSET) 129 "0")
FONTSPECFROMFILENAME :D8
(L (1 DEVICE 0 FONTFILE) F 16 IMAGESTREAMTYPES) 
ô
@	ÁHg'\k_¿LO
Y3§I•OkÔ°ëOZLkJkÙ		]J_¿LO
3³ROµi[LJKkÙ	
^LdK
gð•¿KkØ»L	\dK
_dk
dlBð<42>¿g°OkÔ°<C394>dlLð–¿g‰lMð´gOl
dlIð–¿g‰lRð´gOl
dlCð—¿g°dlEð–¿g‰lRð´gh_hO
“h_¿oLhddi`
_²LO
o
	3 _¿Ad	˜¿A	°x³hW Hg'Oµh
°`
_
g
h_¿_¿Od¨²0Oµßi°Ü¦O_¿hˆO
_¿O_¿OO
²ÕO³×i°ÒO_°ªAdd3@ð–¿A	bM´N´O´d´MNOjAh(470 \FONTSYMBOL 440 STRING.EQUAL 390 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)
(385 FONTEXTENSIONS 362 EXTENSION 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)) xe
ðkahddkaô-Hdlð²¿lašlag'°Hl_¿_¿OdOó²Y¿h
_dÉ[OÉ]OÉ\OÈ^OÉ_HlO"dO ó²+I¢±ÞJ¢±ÙhHð¯Odagð–kØa°šOlÔ_°‰Hð¥O"kØa€h_$¿O"adgð–¿O$[±‘dgð–¿O$]±‚dgð›¿O$	\±ndgð²¿O$L
L
L\±Pdgð²¿L
O$L
L\±3dgð²¿L
L
O$L\±dgð²3¿L
L
L
L_dd¬¿dhdd¿OO$¿\±
Ýdgð²4¿L
L
L
L_dd¬¿dhdd¿OO$¿\±
¢dgð–¿O$^±
“dgð—¿O$_±
ƒgð•O$Y±
vO"lð¢±
`Hlð¢±
Xla¢±
Pla±
Bd_
_$¿O
dgð–¿O$[±
%dgð–¿O$]±
dgð›¿O$	\±
dgð²¿O$L
L
L\±ädgð²¿L
O$L
L\±Çdgð²¿L
L
O$L\±«dgð²2¿L
L
L
L_dd¬¿dhdd¿OO$¿\°qdgð²3¿L
L
L
L_dd¬¿dhdd¿OO$¿\°7dgð•¿O$^°)dgð–¿O$_°gð“O$YŒI’iZ‡O
	¿µ‚±þ½<C3BE>I’iZ‡O"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
@dÃ<00>¿g@	ô+@g

H
i
YH
H
IH
h(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

HdÃœ¿Hg
X
b¿H
b¿H
b¿H
b¿H
b 	@d`µdh`
XAYdHµH»IhKºKdJ¿
XBYdHµH½IhM¼MdL¿
XCYdHµH_¿IhO¾OdN¿
XDYdHµH_¿IhO_¿OdO¿
ddEd™hddD
¿(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) 

@lÿåb0A	™AÉ0X”Hɵ`XB	µVɹ@lÿñ²IÉ€Ÿ@IÉ€
µj‚I@Âlådlð²+¿@ºl€@ñ¨@låºHÈ#€jl Jñ˜Jl@ÔºHÈ^€jØHJÐÈØdlð²d¿@l
ð³w@l
ð³q@l
ð³k@dlð³ddlð”¿HÈ$l	ð²5HÈ hA
Kààà]LMLhA
ÙM
Ù]ÔdhA
ñ³$MH@ÐÈdjð²¿@l
ð®@l
ð©@dl
ð£jð²âhlð‘j(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µ@B•gŒg†d3@ð™@C
b¿@Ci1Hµh
A
¹AIÈ
djð“¿nÿÿñ²NIdÈ
djð“¿nÿÿkØ»ÉKàÐɵXIÉIÈ
djð“¿nÿÿkØàI	LMÐN¿N°)IÉAàÐɵIÉAàAI
LMÐN¿NZ²9B˜BI
³.DµIJhIÉ¿DIÉ¿°ÙHX±ÿ/(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µ@Èbjð’±àAµ‚±Î`HIÙ_¿dOÍ
¿dIÍ¿dkÏ¿dnÿÿÍ¿lÿlØkØâ	_¿dO¿lÿlØkØâ	_¿dO¿[dÉ\lÿj_¿_¿OO󢱜KLJW
²LlÿlØkØâ	½KM¿lÿj_¿_¿OOó²qAHk¾nÿÿNkhAkÙ
¿KNK	¢±ÿ/@dÈjð<6A>¿Hoê	†Èb¿@AÍ¿±þþLOÐAÍ¿OkÔ_±ÿRMOÐjÍ¿OkÔ_±ÿ~(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)) âAgð•g„gggd@@d²|
	¹@
	º@
	»Io
³Ig
•g€H¹Jo
¡HºKo
¡H»Igð³JgðªKgð¢±
ÂA¢±
¶hd3@ð§@	²Ò@µ°Í	l𢱾@	dlBð¤dlbð—¿g°1dlMð®dlmð©dlRð¤dlrð—¿g°dlLð¤dllð–¿g<00>¿H¹@l
dlRð¤dlrð—¿g°dlIð¤dlið–¿g<00>¿Hº@l
dlRð¤dlrð˜¿g±ÿ0dlCð¤dlcð˜¿g±ÿdlEð¤dleð˜¿g±ÿ
¿±ÿ@dgð˜¿gY°;gð—gZ°,@dgðž¿g¹gZ°gð©@dgð–¿i’±þ¸@dg
™¿gY±þ¢g
˜gº±þ<C2B1>@dg
Ÿ¿g¹gº±þpo
’±þbo@
˜@AB@o
šgYZ[±þ7HYZ[±þ0L	¿Idgð²¿Jgð<>Kgð•oIgð²Jgð<>Kgð•oIdgð²¿Jgð<>Kgð•oIgð²Jgð<>Kgð•oIJKh(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’±
<d3@ð¢±
h@	¨@	b¿o@
Yš@kIkÙ€@Xgð©Hdgð˜¿o±ì²Hgð³Hgð©Hdgð˜¿o±Çgð©Hdgð˜¿o±®gð©Hdgð˜¿o±•gð§Hgð–o°~@k
dlMð—¿g°dlBð–¿g‹lL𢱑g@l
dlRð–¿g‰lIð²g@l
dlRðš¿g°¿°UdlCð–¿g‰lEð²Kgh¾Iµ&N¾Bd`’±š¿N¢±<00>N	^hNºo@JkØYªA¢±¶h¿¿°÷B	»@JkØIkÙK
¼Iº@JkØmÿK
½N	^d©hdd¿NL¿Nd©hdd¿NM¿±ÿ_B`²@Nd³:d©hdd¿Nj¿Nd©hdd¿NB		NN@	h(572 \ILLEGAL.ARG 561 MAXIMUMCOLOR 556 \DISPLAYSTREAMTYPEBPP 445 COPY 438 COLORNUMBERP 432 SUBATOM 418 COLORNUMBERP 412 SUBATOM 399 \DISPLAYSTREAMTYPEBPP 380 STRPOS 358 COPY 283 NTHCHARCODE 253 NTHCHARCODE 208 NTHCHARCODE 64 SUBATOM 52 STRPOS 38 U-CASE 31 U-CASEP 5 \DEVICESYMBOL)
(499 \COLORDISPLAYSTREAMTYPES 338 \COLORDISPLAYSTREAMTYPES 321 EXPANDED 310 COMPRESSED 294 REGULAR 275 ITALIC 264 REGULAR 245 LIGHT 232 BOLD 219 MEDIUM 192 BIR 184 BOLDITALIC 168 BRR 159 BOLD 143 MIR 134 ITALIC 118 NNN 109 STANDARD 100 MRR 81 *** 72 *)
( 371 "-" 199 (BOLD ITALIC REGULAR) 176 (BOLD REGULAR REGULAR) 151 (MEDIUM ITALIC REGULAR) 126 (MEDIUM REGULAR REGULAR)
 89 (* * *) 46 "-")
SETFONTCHARENCODING :D8
(L (1 CHARENCODING 0 FONT)) K@	A@ÉÉ1gYdHɵH»IhKɺKJ¿J
ddA¿(5 FONTCREATE)
(60 CHARSETINFO 50 CHARSETINFO 34 CHARSETINFO 26 CSCHARENCODING 10 FONTDESCRIPTOR)
()
FONTSAVAILABLEA0001 :D8
(L (5 FONT 4 D 3 R 2 FC 1 S 0 FM) F 0 FAMILY F 1 SIZE F 2 $$COLLECT F 3 ROTATION F 4 DEVICE F 5 FACE) NP@ð¨Pgð´AQAð¨Qgð´4UB
´+SCð¨Sgð´TDð¨Tgð´@ABCDhRc(32 MATCHFONTFACE)
(57 * 44 * 22 * 9 *)
()
FONTSAVAILABLE :D8
(L (5 CHECKFILESTOO?) I 4 DEVICE I 3 ROTATION I 2 FACE I 1 SIZE I 0 FAMILY F 18 IMAGESTREAMTYPES) 
ð
@ABCDi
áHd
gð²<¿0W$°"d
ºHhddJ
E
_šO µO_"_ ¿µßO"	_ O°î[dÃœ¿Kg
[
b¿K
b¿K
b¿K
b¿K
b¿Egð¯`g
€hE´‚±
8DCBA@`




Yµ‚±ùgDW$
µg_	kð–HkOŠ@ABCDlO¹@_`
µOh`
_¿A_O
µO½OhM¼MdL¿
_¿B_O
µO_¿OhO¾OdN¿
_¿C_O
µO_¿OhO_¿OdO¿
_¿D_O
µO_¿OhO_¿OdO¿
Iµg¿I‰gð¡I€hh

	(493 SORTFONTSPECS 488 UNION 483 \APPEND2 428 SASSOC 387 SASSOC 349 SASSOC 315 SASSOC 283 SASSOC 248 NARGS 213 SASSOC 207 SASSOC 201 SASSOC 195 SASSOC 189 SASSOC 165 COLLECTMULTI 107 FONTPROP 80 LAST 53 FONTSAVAILABLE 11 \FONT.CHECKARGS)
(472 NONE 463 NONE 300 \FONTSAVAILABLEFILECACHE 294 \FONTSAVAILABLEFILECACHE 278 \FONTSAVAILABLEFILECACHE 241 \SEARCHFONTFILES 226 FONTSAVAILABLE 184 \FONTSAVAILABLEFILECACHE 160 FONTSAVAILABLEA0001 155 \FONTSINCORE 148 ONLY 102 SPEC 94 FONTDESCRIPTOR 26 *)
()
FONTEXISTS? :D8
(L (1 NOCOERCIONS 0 FONTSPEC)) 
 @hdddi
bP`@gµ‚±î`@gXµ‚±×@
Y@d
o
²4
@
@

@

@

@
j@
@	
µTgI`
µgI`
µg»@AlKµ!Ahð´@g
µ
@g

ZXd¢J²)@¼`µ
L
hhLHµggHgð¡Hh(273 EXTENDMULTI-PAIR 226 COERCEFONTSPEC 213 COERCEFONTSPEC 143 FONTFILES 86 MEMB 55 FETCHMULTI-PAIR 32 FETCHMULTI-PAIR 11 \FONT.CHECKARGS)
(280 NO 268 SASSOC 263 NO 254 \FONTEXISTS?-CACHE 241 \FONTEXISTS?-CACHE 221 FACECOERCIONS 208 FONTCOERCIONS 187 NILL 175 IMAGESTREAMTYPES 169 FONTSAVAILABLE 157 IMAGESTREAMTYPES 151 FONTEXISTS? 50 SASSOC 44 \FONTEXISTS?-CACHE 27 SASSOC 21 \FONTSINCORE)
( 81 (90 270))
\SEARCHFONTFILES :D8
(L (0 FONTSPEC)) 
!
<11>@\dÃœ¿Lg
\
¸L
¹L
ºL
»HIJKdg
d£d‘h
!Oµ
O	
g
_²oOo„o_¿Kg
_¿Oµ	O_°µ¦O_¿hˆO
_¿O_¿OoOµo_d	²Â	h¾]µ°¶
K
^²:Hgð¥HN
ð²,Igð¦IN
ð²JN

ŸNdO
¤O_¿M°¶(276 MEMBER 266 MATCHFONTFACE 224 FONTSPECFROMFILENAME 209 DIRECTORY 202 DIRECTORYNAMEP 194 CONCAT 138 FONTDEVICEPROP 118 CONCAT 97 FILENAMEFIELD 85 DREVERSE 70 \FONTFILENAMES 57 FONTDEVICEPROP 23 FONTPROP)
(247 * 233 * 133 FONTDIRECTORIES 92 DIRECTORY 52 FONTEXTENSIONS 18 SPEC 10 FONTDESCRIPTOR)
( 189 "" 180 ">" 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@ð¨Pgð´AQAð¨Qgð´4UB
´+SCð¨Sgð´TD
ð¨Tgð´D´RkÔcDdh¿(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) 
@µoaAd²jd
²f
d3@ð²^Ad

—¿kA
ñšA
gð²EABCDEi
^dÃœ¿Ng
^
b¿N
b¿N
b¿N
b¿N
b
¿A§gb¿B§gb¿C§gb¿D§gb¿E§gb
¿HµI£H¼h„H
¼H¸j½Ldgð—¿`°%gð–`°Ldgð–¿`„	g
¿LMh»Jµ	KhZ¹° K&º°›(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

HdÃœ¿Hg
X
b¿H
b¿H
b¿H
b¿H
bE³Dg
d£d‘hb
¿F³Dg
d£d‘hb¿@ABDF
AHµ	J	
g
Y²oIo„o¹E[¿KµHX°È£K¼h„K
¼K»LoIµo\d	²Ñ	!Mµ°Ã
^D
_¿NJ
³0@gð¦@O
ð²!Agð¦AO
ðŸBO

“NJºM]°µ(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ð²^¿@
A
ýñµf@
A
ð´]@
	A
	
HIôµCHd
gð<>¿I
gðhðµ,H
gð´!I
gðhðgð´igð´i(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@gðµP@AôµK@dždd3@ð˜¿@	b
@
@
HA
ð¨Hgð´ IA
ð¨Igð´JA
ðµ	Jgð(29 \FONTFACE)
(85 * 68 * 53 * 5 *)
()
MAKEFONTFACE :D8
(L (4 COLOR 3 BASE 2 EXPANSION 1 SLOPE 0 WEIGHT)) eC	<00>Cg
b¿@ªCµIgb¿AªCµ8gb¿BªCµ&gb¿D«C	b¿@ABhdD¿
°Þ
°Í
°½(70 COPY 17 FONTPROP 5 FONTP)
(56 REGULAR 43 REGULAR 30 MEDIUM 12 FACE)
()
FONTFACETOATOM :D8
(L (1 NOERROR 0 FACE)) 

@d¢±¾
dgð—¿g° dgð–¿gŽgð•g<00>@
@
dgð–¿g<00>gð•g‚@
@
dgð—¿g°#dgð—¿g°gð•gƒ@
@´(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)) ™
@dgð<>¿gddhb
gð•o<00>@
aHµJ£H¹h„H
¹H¸@d
gð–¿o<00>
½Mµ°×£M¾h„M
¾M½@d
gð–¿o‚
h¼»Kµ°Ó£K¼h„K
¼K»INLJº°ä(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 5lÿlØà	lÿlØj
IHó•``IÐkÍ¿IkÔY°è(10 \ALLOCBLOCK)
(39 \UNITWIDTHSVECTOR 33 \UNITWIDTHSVECTOR 15 \UNITWIDTHSVECTOR)
()
(\UNITWIDTHSVECTOR)
FONTDESCRIPTOR.DEFPRINT :D8
(L (1 STREAM 0 FONT)) Ù@	@É
o@É@ÉoI
dgð—¿g° dgð–¿gŽgð•g<00>I
I
dgð–¿g<00>gð•g‚I
I
dgð—¿g°#dgð—¿g°gð•gƒI
oH
	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) (FONTFILENAME 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 lÿlØgjd(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)) Ã@Êjðhð´‚±¡@AãIHÈ
djð“¿nÿÿñ²NHdÈ
djð“¿nÿÿkغÉJàÐɵXHÉHÈ
djð“¿nÿÿkØàH	KLÐM¿M°)HÉIàÐɵHÉIàIH
KLÐM¿MÉAlÿå

H3 µ
BHµj(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
²<¿g@
`
Xd•@kH@	
hiµ‚±‘@	g

Yµ-@g

Y´l@I	È
djð“¿nÿÿ
	ZdkÏ¿kjðhðJ@
J@
J@
J@
ÍJIJ(132 \CREATEFONT 126 FONTSPEC.TO.FONTDESCRIPTOR 106 \CREATEFONT 95 COERCEFONTSPEC 80 COERCEFONTSPEC 69 FONTSPEC.TO.FONTDESCRIPTOR 57 MEDLEYFONT.READ.FONT 49 FONTFILES 10 FONTEXISTS?)
(201 FONTDESCRIPTOR 188 FONTDESCRIPTOR 176 FONTDESCRIPTOR 165 FONTDESCRIPTOR 155 FONTDESCRIPTOR 139 FONTDESCRIPTOR 111 FONTDESCRIPTOR 90 FACECOERCIONS 75 FONTCOERCIONS 29 IMAGESTREAMTYPES 18 FONTCREATE)
()
\CREATECHARSET :D8
(L (2 GETCHARSETFN 1 FONT 0 CHARSET)) S
AÉ@àÐɵIB³gAÉ`
b²Ag
A@lB†A@
Xd´
AH@(80 \INSTALLCHARSETINFO 68 \READCHARSET 53 FONTPROP)
(48 DEVICESPEC 33 IMAGESTREAMTYPES 26 FONTDESCRIPTOR 20 CREATECHARSET)
()
\INSTALLCHARSETINFO :D8
(L (2 CHARSET 1 CSINFO 0 FONT)) ï@@ÈAÈ
dnÿñ•nÿÿÙkÙ
HdIñ¡¿IÍ@@È	AÈdnÿñ•nÿÿÙkÙ
HdIñ¡¿IÍ	@@È@È	ØÍ
ABÍ@AB@ÉBàÐA@dÈjð²¿@@	Í¿@Èjð²@AÉn
ÐÈÍ¿@È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ð´,AÊjð´@gAÉ
HIINIL
(34 CHARSETINFO 28 CSCHARENCODING 23 FONTDESCRIPTOR 10 CHARSETINFO)
()
\FONTRESETCHARWIDTHS :D8
(L (2 LASTCHAR 1 FIRSTCHAR 0 CSINFO)) mn
j@É@ÉDJn
ÐȾJn
kØÐÈNÙ_¿IHó‘hJIÐȼNLð–KIÐO°!JIkØÐȽLMðœJIÐNÍ¿KIÐO…KIÐMLÙÍ¿IkÔY°ÄNIL
(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)) 
@	
µ	@	hi(22 MEDLEYFONT.READ.FONT 14 FONTSPEC.TO.FONTDESCRIPTOR 5 FONTFILES)
NIL
()
\CREATECHARSET.DISPLAY :D8
(L (2 CHARSET 1 FONT 0 FONTSPEC)) 
3AB
µ‚±
'@
jð¨@AB¿AB
@g
¢±ø@d

gð²H¿ABg@
@
g@

@

@
@
@
@¿@

gð²EABg@
@
@

g@

@
@
@
@¿@

gð²DABg@
@
@

@

g@
@
@
@¿AÉBàÐÉ(295 FAKEFACE.CHARSET 214 FAKEFACE.CHARSET 133 FAKEFACE.CHARSET 47 FONTDEVICEPROP 36 COMPLETE.CHARSET 28 \SFROTATECSINFO 6 \READCHARSET)
(258 REGULAR 237 MOVEFONTCHARS 227 COMPRESSED 170 REGULAR 155 MAKEITALIC.CHAR 145 ITALIC 83 MEDIUM 73 MAKEBOLD.CHAR 62 BOLD 42 FACECOERCIONS)
()
\FONTEXISTS?.DISPLAY :D8
(L (1 NOCOERCIONS 0 FONTSPEC)) 
A’±û@g
´‚±é@d

gð²E
@
g@

@

@
@
@
@A
µ‚±™@d

gð²@
@
@

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
ñCd²2d
².d
d3@ð²&¿Cd

—¿kC
ñ™C
gð™CA
b€CÉAàÐÉ[d¢±
†Êjð´‚±
vA	§A	²WK	Z_¿g_OɵO¾OhNɽNM¿M
Cg
¿@JA¿iY±
HgKÉ\ô³1H
L
ô²&LA
²LA
	º@JA¿JY±¿@ÉAàÐɵZ@ddÈ
djð“¿nÿÿkØ_¿ÉOàÐɵ3@É@È
djð“¿nÿÿkØà@	O O"ÐO$¿O$AºAálÿäAá_¿_¿OdOó²W¿I²AJ_¿g_Oɵ'O_¿OhOÉ_¿OO¿O
H¿JkÏ¿kjðhðI@
²)OdC
³C
O@¿O@ClB¿JY¿OkÔ_±ÿ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 UNIHANCHARSETP 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
’±<00>@lÿåaA@ã¹ÉIàÐɺHJ
[ÈkØKÈ
¼JÉHÐȽJÈ
JÈؾKjdLjdMNgg
KjdLkjMNgg
HJLh(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@ã¹ÉIàÐɺHJ
[ÈKÈ
¼JÉHÐȽJÈ
¾JÈ_¿NOØ_¿NlØlÛjOlØlÛÙBOOó™HJLMOdjñ¡¿j_¿dOñ’¿O_ ¿MdOØdjñ¡¿j_¿dOñ’¿O_¿OOlÚØ_¿jOñ¢O€j_"¿OOOkØlÚØ_¿dOñ’¿O_$¿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@
@ABc´JAÉBà`T
TÉS

HdI¿TS

HdI¿HIÐJJoS
(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)) cAn
ð²T@É@É@É	3lÿlØkØâ	[lÿj½¼MLó‘KKMÐJHMÐÈIMÐÈØÙÍ¿MkÔ]°ä@É(51 \ALLOCBLOCK 35 BITMAPWIDTH)
(94 CHARSETINFO 28 CHARSETINFO 20 CHARSETINFO 12 CHARSETINFO)
()
\SFMAKECOLOR :D8
(L (3 BITSPERPIXEL 2 FORECOLOR 1 BACKCOLOR 0 BWCSINFO)) o
Cd	²#¿A©hC
b¿B©hC
b¿C	b3‘C…C	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 (LIST "{MEDLEY}/fonts/medleydisplayfonts"))
(ADDTOVAR DISPLAYFONTEXTENSIONS MEDLEYDISPLAYFONT)
(RPAQ? DISPLAYFACECOERCIONS (QUOTE (((* * (BOLD * *)) (* * (MEDIUM * *))) ((* * (* ITALIC *)) (* * (* 
REGULAR *))) ((* * (* * COMPRESSED)) (* * (* * REGULAR))))))
(RPAQ? \DEFAULTCHARSET 0)
(PUTPROPS FONT FILETYPE :FAKE-COMPILE-FILE)
NIL