Interlisp.medley/sources/FONT.LCOM

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

(FILECREATED " 5-Apr-2026 11:55:11" ("compiled on " {WMEDLEY}<sources>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}<sources>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}<sources>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)) 
Œ@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*) 
“	
`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µ`	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ÉÈ (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)) <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 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*
Ñ
Hµh
¹W.µW(g
µoOµKµÜHX°Ó
_¿oIg
ZhW,c,¿`W2ioW4O"	gð´O 
¢±
 O
¼JW*W0lL[â±
gKɳUK_¿g_OɵO¾OhNɽNM¿M
W(g
µg_¿W(kO¿gKÉ’±<00>K_¿g_Oɵ'O_¿OhOÉ_¿OO¿O
W(
W(
W(

W(

W(

W(
W(
W(
W(¿KW*Í¿±þ<C2B1>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²&
jð´S!g		¿$
(35 SI::RESETUNWIND 30 \MVLIST 25 \READCHARSETA0001)
(20 SI::RESETUNWIND)
()
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)) @E	<00>Eg
b
¿@µE
AµE
BµE
CµE
DµE
h(17 FONTPROP 5 FONTP)
(12 SPEC)
()
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(231 \ALLOCBLOCK 22 \ILLEGAL.ARG)
(209 FONTDESCRIPTOR 198 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´‚±ˆH
Adgð”¿@Ègð“@ÉAdgð²_¿@ɵX@ddÉV
—¿g°7ÉW
–g°!@dÉW
–¿g†É
HIIgð²@É@É@É	@È@ÉhAdgð²¿@dÉ—É	g
gð›@dÉ¢±þ£É
Adgð<>¿@dÉ¢±þ˜É
gðŸ@dÉ¢±þ’É
±þŒAdgð²¿@dÉ¢±þ–É
±þ<C2B1>gðŸ@dÉ¢±þpÉ
±þjAdgð²¿@dÉ¢±þqÉ
±þkgð“@ÉAdgð²K¿@È
djð“¿nÿÿjB@ÉIàÐɽIHó³&M²MÊjð™I¼Kµ
Lh[ºIkÔ¹°ÕL&»°÷Jgð²@È
djð¢±þ¹nÿÿAdgð²A¿@È
djð“¿nÿÿjd@ÉIàÐÉ»IHó³KµŽÊjð£JkغIkÔ¹°ÛJgð²@@È
djð“¿nÿÿjd@ÉIàÐÉ»IHó³KµŽÊjð“JkغIkÔ¹°ÛJAdgð²3¿@È
djð“¿nÿÿjd@ÉIàÐÉ»IHó«K£Jkغ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@

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

gð´H

dgð›¿gH
hdgð›¿gH
hdgð›¿gH
hdgð²¿gogH
hgðšgH
hgNIL
(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)) š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) š
`@]dÃœ¿Mg
]
¸M
¹M
ºM
»M
¼Bµ
Lg
d£d‘hbCµ
Lg
d£d‘hbA£Vb¿HIJKLgBC
d£d‘hHIJKLABC
d£d‘h
(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)) €	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) 
MB	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\oL
²LkA
LN
_µO	l*ð<>LNkØ
l*ð³O_¿OµOh__¿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
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	°{³k`Hg'Oµh
°`
_
g
h_¿_¿Od¨²0Oµßi°Ü¦O_¿hˆO
_¿O_¿OO
²ÕO³×i°ÒO_°ªAdd3@ð–¿A	bM´N´O´d´MNOjAh(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)) 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) 
ö@ABCDi
áHd
gð²?¿0`°"d
ºHhddJ
E
_šO µO_"_ ¿µßO"	_ O°î[dÃœ¿Kg
[
b¿K
b¿K
b¿K
b¿K
b¿Egð¯`g
€hE´‚±
;DCBA@`




Yµ‚±ügD`
µ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

	(499 SORTFONTSPECS 494 UNION 489 \APPEND2 434 SASSOC 393 SASSOC 355 SASSOC 321 SASSOC 289 SASSOC 254 NARGS 216 SASSOC 210 SASSOC 204 SASSOC 198 SASSOC 192 SASSOC 168 COLLECTMULTI 110 FONTPROP 83 LAST 56 FONTSAVAILABLE 11 \FONT.CHECKARGS)
(478 NONE 469 NONE 306 \FONTSAVAILABLEFILECACHE 300 \FONTSAVAILABLEFILECACHE 284 \FONTSAVAILABLEFILECACHE 247 \SEARCHFONTFILES 235 IMAGESTREAMTYPES 229 FONTSAVAILABLE 187 \FONTSAVAILABLEFILECACHE 163 FONTSAVAILABLEA0001 158 \FONTSINCORE 151 ONLY 105 SPEC 97 FONTDESCRIPTOR 38 IMAGESTREAMTYPES 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) (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 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
²6¿g@
`
Xd•@kH@hiµ‚±‘@	g

Yµ-@g

Y´l@I	È
djð“¿nÿÿ
	ZdkÏ¿kjðhðJ@
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

B³gAÉ`
b˜HA@lB‡H@AYd´
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È
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)) 
@	(5 FONTSPEC.TO.FONTDESCRIPTOR)
NIL
()
\CREATECHARSET.DISPLAY :D8
(L (2 CHARSET 1 FONT 0 FONTSPEC)) 
4@BAµ‚±
'@
jð¨@AB¿AB
@g
¢±ø@d

gð²H¿ABg@
@
g@

@

@
@
@
@¿@

gð²EABg@
@
@

g@

@
@
@
@¿@

gð²DABg@
@
@

@

g@
@
@
@¿AÉBàÐÉ(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
´‚±é@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 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
’±<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 NIL)
(ADDTOVAR DISPLAYFONTEXTENSIONS MEDLEYDISPLAYFONT)
(RPAQ? DISPLAYFACECOERCIONS (QUOTE (((* * (BOLD * *)) (* * (MEDIUM * *))) ((* * (* ITALIC *)) (* * (* 
REGULAR *))) ((* * (* * COMPRESSED)) (* * (* * REGULAR))))))
(RPAQ? \DEFAULTCHARSET 0)
(PUTPROPS FONT FILETYPE :FAKE-COMPILE-FILE)
NIL