(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

(FILECREATED "23-Jul-2023 20:42:49" ("compiled on " {WMEDLEY}<sources>FONTPROFILE.;4) 
"23-Jul-2023 15:38:06" brecompiled exprs%: FONTSET in "LFG 23-Jul-2023 ..." dated 
"23-Jul-2023 20:27:28")
(FILECREATED "23-Jul-2023 20:42:48" {WMEDLEY}<sources>FONTPROFILE.;4 34903 :EDIT-BY rmk :CHANGES-TO (
FNS FONTSET) :PREVIOUS-DATE "13-Apr-2023 08:40:30" {WMEDLEY}<sources>FONTPROFILE.;3)
FONTSET :D8
(P 8 W P 7 SEEN P 6 FONTS P 5 NAME P 4 BASICCLASSES P 3 X P 1 OLDDEFAULT P 0 TEM I 1 CHANGE-WINDOWS? I 0 NAME F 9 DEFAULTFONT F 10 FONTNAME F 11 FONTVARS F 12 CACHEDMENUS F 13 WINDOWTITLEFONT F 14 WindowTitleDisplayStream F 15 MaxValueLeftMargin) o	 @µW`    Whddg        H«@o    
    ¿WJµH°7[d3@ð²Kg    ð®KdKð¥	    ¿JZ°ÕdKK
    µï`    ± ”dKKNdO
    œ¿o    K
    …O_¿Nd”d^d—d3@ð²5Nd˜dg    ð²¿g    O
    hð´g    ‚¿N`    ^²°™MNg        ^L¼M—MN
    ¿µ‚±ÿkL›Lg    
    ¿WJµNA¢±6IWhddg        ð³    Jµ‚± ‹WW
    ¿l#g    W
    Úc¿W± [dg    ð³Ud—	    °Id²(K	    µK	    µWhddg        °	    ³KŸKK	    
    ¿JZ±ÿN»IhK
    ð˜WK
    ¿JZ±ÿYd	    ¿µö    °XdO	    Ég    ð³Og    
    ­Od	    
    ¿O	    É0g    ð³O	    É—O	    ¿µ©W@c¿ (608 REDISPLAYW 598 \INSUREWINDOW 581 \INSUREWINDOW 573 SHAPEW 568 WINDOWREGION 559 GETWINDOWUSERPROP 537 \INSUREWINDOW 523 OPENWINDOWS 513 SET 499 DSPFONT 489 DSPFONT 472 SET 467 EVAL 451 GETTOPVAL 443 FONTCREATE 425 EVAL 415 GETTOPVAL 399 EVAL 368 STRINGWIDTH 353 DSPFONT 332 OPENWINDOWS 324 FONTCREATE 290 FONTMAPARRAY 266 /SETTOPVAL 253 FONTCLASS 217 MEMB 159 ERROR 146 MEMB 109 /SETTOPVAL 89 SETTOPVAL 43 ERROR 27 FONTCREATE)
(588 \TEDIT.PROCIDLEFN 554 MAINWINDOW 544 DONT 437 DISPLAY 386 * 361 A 318 DISPLAY 285 DISPLAY 248 DISPLAY 235 FONTPROFILE 226 DEFAULTFONT 210 DEFAULTFONT 201 DEFAULTFONT 122 FONTPROFILE 73 * 21 DISPLAY 10 FONTDEFS)
( 153 "Circular font profile specification" 38 "not a defined font configuration")
FONTPROFILE :D8
(P 4 SEEN P 3 FONTS P 2 NAME P 1 X P 0 BASICCLASSES I 0 PROFILE)  §   @± ŒdIIKdL
    œ¿o    I
    ƒL\¿Kd”d[d—d3@ð²0Kd˜dg    ð²¿g    L
    hð´g    ‚¿K@[²°¡JKg        [H¸J—JK
    ¿µ‚±ÿsHšHg    
    i (163 FONTMAPARRAY 139 /SETATOMVAL 126 FONTCLASS 94 MEMB 39 ERROR 26 MEMB)(158 DISPLAY 121 DISPLAY 103 DEFAULTFONT 88 DEFAULTFONT 79 DEFAULTFONT)( 33 "Circular font profile specification")FONTPROFILE.ADDDEVICE :D8
(P 3 OLDSPEC P 2 FC P 0 FD I 1 OLDDEVICE I 0 NEWDEVICE F 4 FONTNAME)  @	    b A	    b`    °d g    H!IµµçT	    Zd3@ð’± ÐJºAdg    ð“¿J°!g    ð”J°Adg    ð“¿J…J[¢± šJµ
Jdhh¿º@dg    ð™¿J³~JK°xg    ð²$J³kJµ
Jdhh¿Zµ
Jdhh¿K°N@dg    ð²¿J³>Jµ
Jdhh¿K°-J³%Jµ
Jdhh¿Zµ
Jdhh¿Z@KhJ¿IY±ÿ (55 FONTSET 13 U-CASE 5 U-CASE)(203 PRESS 159 INTERPRESS 142 DISPLAY 103 PRESS 89 INTERPRESS 78 DISPLAY 32 FONTPROFILE 20 FONTDEFS)()FONTMAPARRAY :D8
(P 7 I P 5 PRETTYFONT# P 4 F P 2 FA P 1 MINFONT P 0 MAXFONT I 0 FONTCLASSES F 8 \FONTMAPCACHE)  © jldW›@•@Wô“W@!KµH	    Z@°F\    Ê ]Hñ‘M¸kMñœo    ML    …IMñ’MY¿K[°ÇdJL    Ê L    µèHkONó³#JdO
    ­OJI
        ¿OkÔ_°Ý@	    JcJ (161 COPY 145 SETA 140 ELT 130 ELT 105 SETA 71 ERROR 35 ARRAY)(96 FONTCLASS 46 FONTCLASS)( 64 "Invalid font number")(PRETTYCOMPRINT FONTPROFILECOMS)
(RPAQQ FONTPROFILECOMS ((* ;; "FONT") (ALISTS (FONTDEFS HUGE BIG MEDIUM STANDARD BIGGER NS BIGGERNS 
LARGER)) (ADDVARS (CACHEDMENUS BreakMenu WindowMenu BackgroundMenu IconWindowMenu)) (VARS (FONTVARS (
QUOTE ((* ;; "standard size fonts. Assumes only DEFAULTFONT set") (BOLDFONT (FONTCOPY DEFAULTFONT (
QUOTE FACE) (QUOTE BOLD))) (* ; "default  BOLD") (ITALICFONT (FONTCOPY DEFAULTFONT (QUOTE FACE) (QUOTE
 ITALIC))) (LITTLEFONT DEFAULTFONT) (* ; " should usually be smaller") (TINYFONT LITTLEFONT) (* ; 
"and this one smaller still") (BIGFONT BOLDFONT) (* ; "should be bigger still") (TEXTFONT DEFAULTFONT)
 (* ; "default for text") (TEXTBOLDFONT BOLDFONT) (* ; "default for bold text") (* ;; "") (* ;; 
"Fonts for window system, processes") (* ;; "") (MENUFONT DEFAULTFONT T) (BOLDMENUFONT (FONTCOPY 
MENUFONT (QUOTE FACE) (QUOTE BOLD))) (* ; "if not supplied") (INTERRUPTMENUFONT DEFAULTFONT T) (* ; 
"used by control-B") (DEFAULTICONFONT MENUFONT) (* ; "for shrinking windows") (BACKTRACEFONT TINYFONT 
T) (* ; " for backtrace in debugger") (WINDOWTITLEFONT MENUFONT) ((WINDOWTITLEFONT WINDOWTITLEFONT) 
NIL) (* ; " used for titles of all windows") (* ;; "") (* ;; "Fonts for Exec") (* ;; "") (PROMPTFONT 
LITTLEFONT) (* ; "for printing out prompts") (INPUTFONT BOLDFONT) (* ; "for user typein in Exec") (
PRINTOUTFONT DEFAULTFONT) (* ; " for intermediate typin in Exec") (TTYINBOLDFONT (CONS DEFAULTFONT 
BOLDFONT)) (VALUEFONT DEFAULTFONT) (* ; " for printing out values returned in Exec") (* ;; "") (* ;; 
"Fonts for prettyprinting") (* ;; "") (COMMENTFONT LITTLEFONT) (* ; "for comments ") (PRETTYCOMFONT 
BOLDFONT) (* ; " for words being defined") (CLISPFONT BOLDFONT) (* ; " for keywords & CLISP") (
SYSTEMFONT DEFAULTFONT) (* ; " for %"system%" words(?)") (LAMBDAFONT BIGFONT) (* ; 
"for words being defined") (USERFONT BOLDFONT) (* ; " for %"user%" defined words"))))) (P (MOVD? (
QUOTE NILL) (QUOTE WINDOWTITLEFONT))) (FNS FONTSET FONTPROFILE FONTPROFILE.ADDDEVICE) (INITVARS (
FONTESCAPECHAR (CHARACTER 6)) (FONTFNS) (FONTWORDS)) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (FONTSET (
QUOTE STANDARD)))) (GLOBALVARS FONTPROFILE FONTESCAPECHAR FONTDEFS) (FNS FONTMAPARRAY) (INITVARS (
\FONTMAPCACHE)) (P (SETSEPR (QUOTE (1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 
26)) 1 FILERDTBL))))
(ADDTOVAR FONTDEFS (HUGE (FONTPROFILE (DEFAULTFONT 1 (MODERN 24) NIL (TERMINAL 8) (POSTSCRIPT (
TERMINAL 8))) (BOLDFONT 2 (MODERN 24 BRR) NIL (MODERN 8 BRR) (POSTSCRIPT (MODERN 8 BRR))) (LITTLEFONT 
3 (MODERN 18 MRR) NIL (MODERN 8 MIR) (POSTSCRIPT (MODERN 8 MIR))) (BIGFONT 4 (MODERN 36 BRR) NIL (
MODERN 10 BRR) (POSTSCRIPT (MODERN 10 BRR))) (TEXTFONT 5 (CLASSIC 24) NIL (CLASSIC 10) (POSTSCRIPT (
CLASSIC 10))) (TEXTBOLDFONT 7 (CLASSIC 24 BRR) NIL (CLASSIC 10 BRR) (POSTSCRIPT (CLASSIC 10 BRR))))) (
BIG (FONTPROFILE (DEFAULTFONT 1 (MODERN 18) NIL (TERMINAL 8) (POSTSCRIPT (TERMINAL 8))) (TEXTFONT 5 (
CLASSIC 18) NIL (CLASSIC 10) (POSTSCRIPT (CLASSIC 10))) (BOLDFONT 2 (MODERN 18 BRR) NIL (MODERN 8 BRR)
 (POSTSCRIPT (MODERN 8 BRR))) (LITTLEFONT 3 (MODERN 12 MRR) NIL (MODERN 8 MIR) (POSTSCRIPT (MODERN 8 
MIR))) (BIGFONT 4 (MODERN 24 BRR) NIL (MODERN 10 BRR) (POSTSCRIPT (MODERN 10 BRR))) (TEXTBOLDFONT 7 (
CLASSIC 18 BRR) NIL (CLASSIC 10 BRR) (POSTSCRIPT (CLASSIC 10 BRR))))) (MEDIUM (FONTPROFILE (
DEFAULTFONT 1 (MODERN 14) (TERMINAL 8) (TERMINAL 8) (POSTSCRIPT (TERMINAL 8))) (BOLDFONT 2 (MODERN 14 
BRR) NIL (MODERN 8 BRR) (POSTSCRIPT (MODERN 8 BRR))) (LITTLEFONT 3 (MODERN 10) NIL (MODERN 8 MIR) (
POSTSCRIPT (MODERN 8 MIR))) (BIGFONT 4 (MODERN 18) NIL (MODERN 10 BRR) (POSTSCRIPT (MODERN 10 BRR))) (
TEXTFONT 5 (CLASSIC 14) NIL (CLASSIC 10) (POSTSCRIPT (CLASSIC 10))) (TEXTBOLDFONT 7 (CLASSIC 14 BRR) 
NIL (CLASSIC 10 BRR) (POSTSCRIPT (CLASSIC 10 BRR))))) (STANDARD (FONTCHANGEFLG . ALL) (FILELINELENGTH
 . 102) (FONTPROFILE (DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8) (POSTSCRIPT (TERMINAL 8))) (
ITALICFONT 1 (HELVETICA 10 MIR) (GACHA 8 MIR) (MODERN 8 MIR) (POSTSCRIPT (MODERN 8 MIR))) (BOLDFONT 2 
(HELVETICA 10 BRR) (HELVETICA 8 BRR) (MODERN 8 BRR) (POSTSCRIPT (MODERN 8 BRR))) (LITTLEFONT 3 (
HELVETICA 8) (HELVETICA 6 MIR) (MODERN 8 MIR) (POSTSCRIPT (MODERN 8 MIR))) (TINYFONT 6 (GACHA 8) (
GACHA 6) (TERMINAL 6) (POSTSCRIPT (TERMINAL 6))) (BIGFONT 4 (HELVETICA 12 BRR) NIL (MODERN 10 BRR) (
POSTSCRIPT (MODERN 10 BRR))) (MENUFONT 5 (HELVETICA 10) (HELVETICA 10) (HELVETICA 10) (POSTSCRIPT (
HELVETICA 10))) (COMMENTFONT 6 (HELVETICA 10) (HELVETICA 8) (MODERN 8) (POSTSCRIPT (MODERN 8))) (
TEXTFONT 7 (TIMESROMAN 10) (TIMESROMAN 10) (CLASSIC 10) (POSTSCRIPT (CLASSIC 10))))) (BIGGER (
FONTPROFILE (DEFAULTFONT 1 (GACHA 12) (TERMINAL 8) (TERMINAL 8) (POSTSCRIPT (TERMINAL 8))) (ITALICFONT
 1 (HELVETICA 12 MIR) (GACHA 8 MIR) (MODERN 8 MIR) (POSTSCRIPT (MODERN 8 MIR))) (BOLDFONT 2 (HELVETICA
 12 BRR) (HELVETICA 8 BRR) (MODERN 8 BRR) (POSTSCRIPT (MODERN 8 BRR))) (LITTLEFONT 3 (HELVETICA 10) (
HELVETICA 6 MIR) (MODERN 8 MIR) (POSTSCRIPT (MODERN 8 MIR))) (TINYFONT 6 (GACHA 10) (GACHA 6) (
TERMINAL 6) (POSTSCRIPT (TERMINAL 6))) (BIGFONT 4 (HELVETICA 14 BRR) (MODERN 10 BRR) (MODERN 10 BRR) (
POSTSCRIPT (MODERN 10 BRR))) (MENUFONT 5 (HELVETICA 12) (HELVETICA 12) (HELVETICA 12) (POSTSCRIPT (
HELVETICA 12))) (COMMENTFONT 6 (HELVETICA 12) (HELVETICA 8) (MODERN 8) (POSTSCRIPT (MODERN 8))) (
TEXTFONT 7 (TIMESROMAN 12) (TIMESROMAN 12) (CLASSIC 10) (POSTSCRIPT (CLASSIC 10))))) (NS (
FONTCHANGEFLG . ALL) (FILELINELENGTH . 102) (COMMENTLINELENGTH 116 . 126) (FIRSTCOL . 60) (PRETTYLCOM
 . 25) (FONTESCAPECHAR . %) (FONTPROFILE (DEFAULTFONT 1 (TERMINAL 10) (TERMINAL 8) (TERMINAL 8) (
POSTSCRIPT (TERMINAL 8))) (ITALICFONT 1 (MODERN 10 BIR) (MODERN 8 BIR) (MODERN 8 BIR) (POSTSCRIPT (
MODERN 8 BIR))) (BOLDFONT 2 (MODERN 10 BRR) (MODERN 8 BRR) (MODERN 8 BRR) (POSTSCRIPT (MODERN 8 BRR)))
 (LITTLEFONT 3 (MODERN 8) (MODERN 6 MIR) (MODERN 8 MIR) (POSTSCRIPT (MODERN 8 MIR))) (BIGFONT 4 (
MODERN 12 BRR) (MODERN 10 BRR) (MODERN 10 BRR) (POSTSCRIPT (MODERN 10 BRR))) (MENUFONT 5 (MODERN 10) (
MODERN 10) (MODERN 10) (POSTSCRIPT (MODERN 10))) (COMMENTFONT 6 (MODERN 8) (MODERN 6 MIR) (MODERN 8 
MIR) (POSTSCRIPT (MODERN 8 MIR))))) (BIGGERNS (FONTCHANGEFLG . ALL) (FILELINELENGTH . 102) (
COMMENTLINELENGTH 116 . 126) (FIRSTCOL . 60) (PRETTYLCOM . 25) (FONTESCAPECHAR . %) (FONTPROFILE (
DEFAULTFONT 1 (TERMINAL 12) (TERMINAL 8) (TERMINAL 8) (POSTSCRIPT (TERMINAL 8))) (ITALICFONT 1 (MODERN
 12 BIR) (MODERN 8 BIR) (MODERN 8 BIR) (POSTSCRIPT (MODERN 8 BIR))) (BOLDFONT 2 (MODERN 12 BRR) (
MODERN 8 BRR) (MODERN 8 BRR) (POSTSCRIPT (MODERN 8 BRR))) (LITTLEFONT 3 (MODERN 10) (MODERN 6 MIR) (
MODERN 8 MIR) (POSTSCRIPT (MODERN 8 MIR))) (BIGFONT 4 (MODERN 14 BRR) (MODERN 10 BRR) (MODERN 10 BRR) 
(POSTSCRIPT (MODERN 10 BRR))) (MENUFONT 5 (MODERN 12) (MODERN 12) (MODERN 12) (POSTSCRIPT (MODERN 12))
) (COMMENTFONT 6 (MODERN 10) (MODERN 8 MIR) (MODERN 10 MIR) (POSTSCRIPT (MODERN 10 MIR))))) (LARGER (
FONTCHANGEFLG . ALL) (FILELINELENGTH . 102) (FONTPROFILE (DEFAULTFONT 1 (GACHA 12) (GACHA 8) (TERMINAL
 8) (POSTSCRIPT (TERMINAL 8))) (ITALICFONT 1 (HELVETICA 14 MIR) (GACHA 8 MIR) (MODERN 8 MIR) (
POSTSCRIPT (MODERN 8 MIR))) (BOLDFONT 2 (HELVETICA 14 BRR) (HELVETICA 8 BRR) (MODERN 8 BRR) (
POSTSCRIPT (MODERN 8 BRR))) (LITTLEFONT 3 (HELVETICA 12) (HELVETICA 6 MIR) (MODERN 8 MIR) (POSTSCRIPT 
(MODERN 8 MIR))) (TINYFONT 6 (GACHA 10) (GACHA 6) (TERMINAL 6) (POSTSCRIPT (TERMINAL 6))) (BIGFONT 4 (
HELVETICA 16 BRR) (HELVETICA 12 BRR) (MODERN 10 BRR) (POSTSCRIPT (MODERN 10 BRR))) (MENUFONT 5 (
HELVETICA 12) (HELVETICA 12) (HELVETICA 12) (POSTSCRIPT (HELVETICA 12))) (COMMENTFONT 6 (HELVETICA 10)
 (HELVETICA 8) (MODERN 8) (POSTSCRIPT (MODERN 8))) (TEXTFONT 7 (TIMESROMAN 12) (TIMESROMAN 10) (
CLASSIC 10) (POSTSCRIPT (CLASSIC 10))))))
(ADDTOVAR CACHEDMENUS BreakMenu WindowMenu BackgroundMenu IconWindowMenu)
(RPAQQ FONTVARS ((* ;; "standard size fonts. Assumes only DEFAULTFONT set") (BOLDFONT (FONTCOPY 
DEFAULTFONT (QUOTE FACE) (QUOTE BOLD))) (* ; "default  BOLD") (ITALICFONT (FONTCOPY DEFAULTFONT (QUOTE
 FACE) (QUOTE ITALIC))) (LITTLEFONT DEFAULTFONT) (* ; " should usually be smaller") (TINYFONT 
LITTLEFONT) (* ; "and this one smaller still") (BIGFONT BOLDFONT) (* ; "should be bigger still") (
TEXTFONT DEFAULTFONT) (* ; "default for text") (TEXTBOLDFONT BOLDFONT) (* ; "default for bold text") (
* ;; "") (* ;; "Fonts for window system, processes") (* ;; "") (MENUFONT DEFAULTFONT T) (BOLDMENUFONT 
(FONTCOPY MENUFONT (QUOTE FACE) (QUOTE BOLD))) (* ; "if not supplied") (INTERRUPTMENUFONT DEFAULTFONT 
T) (* ; "used by control-B") (DEFAULTICONFONT MENUFONT) (* ; "for shrinking windows") (BACKTRACEFONT 
TINYFONT T) (* ; " for backtrace in debugger") (WINDOWTITLEFONT MENUFONT) ((WINDOWTITLEFONT 
WINDOWTITLEFONT) NIL) (* ; " used for titles of all windows") (* ;; "") (* ;; "Fonts for Exec") (* ;; 
"") (PROMPTFONT LITTLEFONT) (* ; "for printing out prompts") (INPUTFONT BOLDFONT) (* ; 
"for user typein in Exec") (PRINTOUTFONT DEFAULTFONT) (* ; " for intermediate typin in Exec") (
TTYINBOLDFONT (CONS DEFAULTFONT BOLDFONT)) (VALUEFONT DEFAULTFONT) (* ; 
" for printing out values returned in Exec") (* ;; "") (* ;; "Fonts for prettyprinting") (* ;; "") (
COMMENTFONT LITTLEFONT) (* ; "for comments ") (PRETTYCOMFONT BOLDFONT) (* ; " for words being defined"
) (CLISPFONT BOLDFONT) (* ; " for keywords & CLISP") (SYSTEMFONT DEFAULTFONT) (* ; 
" for %"system%" words(?)") (LAMBDAFONT BIGFONT) (* ; "for words being defined") (USERFONT BOLDFONT) (
* ; " for %"user%" defined words")))
(MOVD? (QUOTE NILL) (QUOTE WINDOWTITLEFONT))
(RPAQ? FONTESCAPECHAR (CHARACTER 6))
(RPAQ? FONTFNS)
(RPAQ? FONTWORDS)
(FONTSET (QUOTE STANDARD))
(RPAQ? \FONTMAPCACHE)
(SETSEPR (QUOTE (1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26)) 1 FILERDTBL)
NIL