(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "14-Sep-94 18:23:13" ("compiled on " {DSK}lispusers>READDISPLAYFONT.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED "15-Jul-88 16:33:54" |{MCS:MCS:STANFORD}READDISPLAYFONT.;2| 4644 changes to%: (VARS READDISPLAYFONTCOMS) previous date%: " 3-May-88 10:33:05" |{MCS:MCS:STANFORD}READDISPLAYFONT.;1|) \READDISPLAYFONTFILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 1 STREAM F 2 SI::*RESETFORMS* F 3 FONTFILE F 4 CSINFO F 5 FONTTYPE F 6 FAMILY F 7 SIZE F 8 FACE) IgSg chhdRcQi `c µQVWWlHc(50 SHOULDNT 35 FONTFILEFORMAT 15 OPENSTREAM) (40 DISPLAYFONTTYPES 10 INPUT 4 CLOSEF?) () \READDISPLAYFONTFILE :D8 (P 8 RESETSTATE P 7 SI::*RESETFORMS* P 6 LISPXHIST P 5 STREAM P 4 CSINFO P 3 FONTTYPE P 2 FONTFILE P 1 EXTENSION I 5 CHARSET I 4 DEVICE I 3 ROTATION I 2 FACE I 1 SIZE I 0 FAMILY F 9 LISPXHIST) N `QHd²Bd¢¹hƒ¹H¸@ABCDE`Ih Z²ÜW!g ¿$L(70 SI::RESETUNWIND 65 \MVLIST 60 \READDISPLAYFONTFILEA0001 42 \FINDFONTFILE) (55 SI::RESETUNWIND 33 DISPLAYFONTDIRECTORIES 4 DISPLAYFONTEXTENSIONS) () FONTFILEFORMAT :D8 (P 0 EXTENSION I 1 LEAVEOPEN I 0 STREAM) ™@g ­@g b¿@ g HgðªHdgð²"¿hµL@ á@ Ødn€ð¦dn ð²¿g°1`´ÜH°Ùn ð´ ldjñ–@ ¿kÙ°÷¿@ ââââlð´gA¦@ ¿(149 CLOSEF 41 FILENAMEFIELD 31 FULLNAME 22 OPENSTREAM 10 OPENP) (141 AC 99 DISPLAYFONTTYPES 92 STRIKE 59 STRIKE 50 AC 36 EXTENSION 17 INPUT 5 INPUT) () (PRETTYCOMPRINT READDISPLAYFONTCOMS) (RPAQQ READDISPLAYFONTCOMS ((* Redefinition of DISPLAY font functions to facilitate addition of new font types) (FNS \READDISPLAYFONTFILE FONTFILEFORMAT) (ADDVARS (DISPLAYFONTTYPES (AC \READACFONTFILE) (STRIKE \READSTRIKEFONTFILE))) (GLOBALVARS DISPLAYFONTTYPES) (DECLARE%: DONTCOPY (RECORDS DISPLAYFONTTYPE)))) (ADDTOVAR DISPLAYFONTTYPES (AC \READACFONTFILE) (STRIKE \READSTRIKEFONTFILE)) (PUTPROPS READDISPLAYFONT COPYRIGHT ("Stanford University" 1988)) NIL