Font not found error when opening DInfo in Medley Online

[pamoroso]

When I open DInfo in the latest Medley Online (20-May-2026 03:25:22) I get the error:

INTERLISP-ERROR
In ERROR:
FONT-NOT-FOUND
(MODERN 18 (BOLD REGULAR REGULAR) 0 DISPLAY)

The backtrace:

OLDMOUSE/6(debug)BTV
FONTCREATE
   FILE 
#<Input Stream on {DSK}<usr>local>interlisp>medley>docs>dinfo>IRMTOP.TEDIT;1/166,101100>
   TEXTOBJ {TEXTOBJ}#121,140600
   LOOKS {CL101/16254:Gacha10}
   FILEPOS 1826
   LOOKSLEN 20
   FONT NIL
   NAME MODERN
   SIZE 18
   SUPER 0
   STYLESTR NIL
   BOLD T
   ITALIC NIL
   BITS 512
   PROPS NIL
   PROPS ((USERINFO) (COLOR . BLACK))
\TEDIT.GET.SINGLE.CHARLOOKS
   FILE 
#<Input Stream on {DSK}<usr>local>interlisp>medley>docs>dinfo>IRMTOP.TEDIT;1/166,101100>
   TEXTOBJ {TEXTOBJ}#121,140600
   I 4
\TEDIT.GET.CHARLOOKS.LIST
   TEXT 
#<Input Stream on {DSK}<usr>local>interlisp>medley>docs>dinfo>IRMTOP.TEDIT;1/166,101100>
   TSTREAM #<IO Tedit Stream/127,65100>
   PCCOUNT 77
   CURTEXTBYTE# 0
   END 2635
   PCNO 0
   TEXTOBJ {TEXTOBJ}#121,140600
   ORIGBYTE# 0
   PC NIL
   BYTELEN 0
   PREVPC {PIECE}#121,134660
   FIRSTPC {PIECE}#121,134660
   PARALOOKSMAP {ARRAYP}#136,76220
   CHARLOOKSMAP NIL
   DEFAULTCHARLOOKS {CL101/16326:Gacha10}
   OLDPARALOOKS {PL81/48584:LE-0-0}
\TEDIT.GET.PIECES3
   TEXT 
#<Input Stream on {DSK}<usr>local>interlisp>medley>docs>dinfo>IRMTOP.TEDIT;1/166,101100>
   TSTREAM #<IO Tedit Stream/127,65100>
   START 0
   END 2635
   PROPS (READONLY QUIET NOTITLE T TITLEMENUFN 
DINFO.TITLEMENUFN)
   TEXTOBJ {TEXTOBJ}#121,140600
   TRAILER (1624 8 3 77 1809241828 NIL)
   PCCOUNT 77
   IDATE NIL
   PROPS NIL
   PC NIL
\TEDIT.GET.FORMATTED.FILE
   SI::*CLEANUP-FORMS* SI::RESETUNWIND
   TEXTOBJ {TEXTOBJ}#121,140600
   PWINDOW NIL
   READONLY QUIET
SI::*UNWIND-PROTECT*
   TEXT 
#<Input Stream on {DSK}<usr>local>interlisp>medley>docs>dinfo>IRMTOP.TEDIT;1/166,101100>
   TSTREAM #<IO Tedit Stream/127,65100>
   START 0
   END 2635
   PROPS (READONLY QUIET NOTITLE T TITLEMENUFN 
DINFO.TITLEMENUFN)
   LISPXHIST NIL
   SI::*RESETFORMS* NIL
   RESETSTATE NIL
\TEDIT.OPENTEXTSTREAM.PIECES
   SI::*CLEANUP-FORMS* SI::RESETUNWIND
   TSTREAM #<IO Tedit Stream/127,65100>
   TEXTOBJ {TEXTOBJ}#121,140600
   TEDIT.GET.FINISHEDFORMS NIL
   PRIMPANE NIL
   START NIL
SI::*UNWIND-PROTECT*
   TEXT 
#<Input Stream on {DSK}<usr>local>interlisp>medley>docs>dinfo>IRMTOP.TEDIT;1/166,101100>
   WINDOW NIL
   START/PROPS NIL
   END NIL
   PROPS (READONLY QUIET NOTITLE T TITLEMENUFN 
DINFO.TITLEMENUFN)
   LISPXHIST NIL
   SI::*RESETFORMS* NIL
   RESETSTATE NIL
OPENTEXTSTREAM
   SI::*CLEANUP-FORMS* SI::RESETUNWIND
   TEXTSTREAM #<IO Tedit Stream/137,116700>
   THIS.TEXT (
{DSK}<usr>local>interlisp>medley>docs>dinfo>IRMTOP.TEDIT;1 NIL NIL)
SI::*UNWIND-PROTECT*
   FILE 
{DSK}<usr>local>interlisp>medley>docs>dinfo>IRMTOP.TEDIT;1
   GRAPH {DINFOGRAPH}#140,125640
   WINDOW {WINDOW}#121,145664
   FROM NIL
   TO NIL
   PROPS (READONLY QUIET NOTITLE T TITLEMENUFN 
DINFO.TITLEMENUFN)
   SI::*RESETFORMS* ((& NIL) (&))
DINFO.OPENTEXTSTREAM
   GRAPH {DINFOGRAPH}#140,125640
   NODE (IRM.TOP "IRM Top" IRMTOP.TEDIT NIL NIL NIL (31 
30 29 28 27 26 25 24 23 --) 0 NIL NIL)
   SEL NIL
   OFF? NIL
   WINDOW {WINDOW}#121,145664
   FILENAME 
{DSK}<usr>local>interlisp>medley>docs>dinfo>IRMTOP.TEDIT
   FROM NIL
   TO NIL
   PROPS (READONLY QUIET NOTITLE T TITLEMENUFN 
DINFO.TITLEMENUFN)
   OLD.TEXTSTREAM #<IO Tedit Stream/137,116700>
   TEXTSTREAM NIL
   FULLFILENAME 
{DSK}<usr>local>interlisp>medley>docs>dinfo>IRMTOP.TEDIT;1
DINFO.UPDATE.TEXT.DISPLAY
   SI::*CLEANUP-FORMS* SI::RESETUNWIND
   STATUS (GRAPH (GRAPH) TEXT (TEXT GRAPH))
SI::*UNWIND-PROTECT*
   GRAPH {DINFOGRAPH}#140,125640
   NEW.NODE NIL
   SEL NIL
   FORCE? T
   NODE (IRM.TOP "IRM Top" IRMTOP.TEDIT NIL NIL NIL (31 
30 29 28 27 26 25 24 23 --) 0 NIL NIL)
   PREVIOUS.NODE NIL
   WINDOW {WINDOW}#121,145664
   FMENU.WINDOW {WINDOW}#121,145264
   MONITORLOCK #<Lock DInfo/172,6570>
   LISPXHIST NIL
   SI::*RESETFORMS* ((& NIL))
   RESETSTATE NIL
DINFO.UPDATE
   SI::*CLEANUP-FORMS* SI::RESETUNWIND
   W {WINDOW}#121,145664
   GRAPH {DINFOGRAPH}#140,125640
   MONITORLOCK #<Lock DInfo/172,6570>
SI::*UNWIND-PROTECT*
   GRAPH.OR.FILE {DINFOGRAPH}#140,125640
   WINDOW.OR.REGION NIL
   SETUP.ONLY? NIL
   NO.FREEMENU? NIL
   LISPXHIST NIL
   SI::*RESETFORMS* ((& NIL))
   RESETSTATE NIL
DINFO
   SI::*CLEANUP-FORMS* SI::RESETUNWIND
   GRAPH {DINFOGRAPH}#140,125640
SI::*UNWIND-PROTECT*
   SI::*RESETFORMS* ((&))
DINFO.SELECT.GRAPH
   *FORM* (DINFO.SELECT.GRAPH)
   *ARGVAL* NIL
   *TAIL* NIL
   *FN* DINFO.SELECT.GRAPH
\EVALFORM
STKEVAL
   ITEM (DInfo (DINFO.SELECT.GRAPH) 
"Open a DInfo window for browsing documentation.")
   FROMMENU {MENU}#131,55054
   BUTTON RIGHT
DEFAULTWHENSELECTEDFN
   MENU {MENU}#131,55054
   ITEM (DInfo (DINFO.SELECT.GRAPH) 
"Open a DInfo window for browsing documentation.")
   BUTTON RIGHT
DOSELECTEDITEM
   MENU {MENU}#131,55054
   RELEASECONTROLFLG NIL
   NESTEDFLG NIL
   IMAGE {WINDOW}#121,165000
   DSP #<Output Display Stream/127,65300>
MENU
   FORM NIL
DOBACKGROUNDCOM
   ARGS 1
   WINDOW NIL
DOWINDOWCOM
   \MHCOM NIL
   \MHPROCESS NIL
   \MHWINDOW NIL
   \MOUSEBUSY T
WINDOW.MOUSE.HANDLER
   \OLDTTY NIL
   \MOUSEBUSY NIL
\MOUSE.PROCESS
   *FORM* (\MOUSE.PROCESS)
   *ARGVAL* NIL
   *TAIL* NIL
   *FN* \MOUSE.PROCESS
\EVALFORM
   %#FORM# (\MOUSE.PROCESS)
   *CURRENT-PROCESS* #<Process OLDMOUSE/172,11410>
   HELPFLAG BREAK!
   \CURRENTDISPLAYLINE 0
   \#DISPLAYLINES 1
   \LINEBUF.OFD #<IO Linebuffer Stream/127,40600>
   *READTABLE* #<ReadTable INTERLISP/172,54714>
   \PRIMTERMTABLE {TERMTABLEP}#172,47740
   \PRIMTERMSA {CHARTABLE}#172,50000
   TtyDisplayStream #<Output Display Stream/127,106100>
   SI::*RESETFORMS* NIL
   \INTERRUPTABLE T
   \TTYWINDOW {WINDOW}#121,145400
   READBUF NIL
   \TERM.OFD #<Output Display Stream/137,116000>
   *STANDARD-OUTPUT* #<Output Display Stream/137,116000>
   *STANDARD-INPUT* #<IO Linebuffer Stream/127,40600>
\MAKE.PROCESS0
T

I don't get the error in Medley HEAD master/406b509 on Linux.

[nbriggs]

I suspect we need to deploy a new version with the medleydisplayfonts installed.

[nbriggs]

Something is very wrong here --

(PSEUDOHOSTP "{MEDLEY}") is "{DSK}<home>runner>work>medley>medley>"

/home/runner/work/medley/medley/ doesn't exist from the Medley environment, so nothing that depends on {MEDLEY} works - DISPLAYFONTDIRECTORIES is "{MEDLEY}/fonts/medleydisplayfonts/" - however DIRECTORIES contains "correct" directory names.

MEDLEYDIR in the environment is "/usr/local/interlisp/medley/" - where everything does exist, except not the medleydisplayfonts (just the other fonts).

Did the pseudo-host not get reset at startup?

[rmkaplan]

But it works for you everywhere except online?

…

On May 21, 2026, at 12:10 PM, Nick Briggs ***@***.***> wrote: nbriggs left a comment (Interlisp/medley#2622) <#2622 (comment)> Something is very wrong here -- Screenshot.2026-05-21.at.11.53.12.png (view on web) <https://github.com/user-attachments/assets/c1ba96c4-a45b-42fd-a5e9-11658c32d200> (PSEUDOHOSTP "{MEDLEY}") is "{DSK}<home>runner>work>medley>medley>" /home/runner/work/medley/medley/ doesn't exist from the Medley environment, so nothing that depends on {MEDLEY} works - DISPLAYFONTDIRECTORIES is "{MEDLEY}/fonts/medleydisplayfonts/" - however DIRECTORIES contains "correct" directory names. MEDLEYDIR in the environment is "/usr/local/interlisp/medley/" - where everything does exist, except not the medleydisplayfonts (just the other fonts). Did the pseudo-host not get reset at startup? — Reply to this email directly, view it on GitHub <#2622 (comment)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/AQSTUJK2UWO6VJ5E2Q45HOT435IBZAVCNFSM6AAAAACZICQ7RCVHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHM2DKMJRHEZTIOBXGQ>. You are receiving this because you are subscribed to this thread.

[nbriggs]

@rmkaplan - don't know. I don't run with a {MEDLEY} pseudohost, my DISPLAYFONTDIRECTORIES point to {DSK} names, and those are in the full git checkout. Based on the name, /home/runner/work/medley/medley looks like a Docker artifact from when the online sysout was built that didn't get reset when the image started up in a different place. What is supposed to reset the MEDLEY pseudohost when the image starts in a new location?

[nbriggs]

@rmkaplan I just tried copying a lisp.virtualmem from my Mac, with {MEDLEY} pointing to "{dsk}<Users>briggs>Projects>medley>", over to my FreeBSD system, and on startup it came up with exactly the same pseudohost setting even though MEDLEYDIR was correctly set to "{dsk}<home>briggs>medley>".
Shouldn't something like AFTERLOGOUTFORMS (and other AFTER..FORMS?), or \SYSTEMCACHEVARS, or the EVENTFN of the pseudohost FDEV be catching the change in environment? You can't depend on a GREET happening (though calling (GREET) can fix things up)

[rmkaplan]

The function MEDLEY-INIT-VARS is put on AROUNDEXITFNS. It executes (PSEUDOHOST 'MEDLEY MEDLEYDIR) for the events AFTERSYSOUT AFTERLOGOUT AFTERSAVEVM RESTART INIT NIL. Maybe the mistake is that the variable MEDLEYDIR should be replaced with a call to the function MEDLEYDIR to get the current value of the the Unix variable? But it also looks like the function MEDLEYDIR has tests for whether MEDLEYDIR is already exists, which probably shouldn't be there. (I think there is also a place in the loadup sequence where MEDLEYDIR is set back to NOBIND, to pass this test--but that's a oneshot.) So, I would change MEDLEY-INIT-VARS to set up {MEDLEY} with the value of (MEDLEYDIR T), and change MEDLEYDIR so that T means get the current unix variable no matter what.

…

On May 21, 2026, at 1:10 PM, Nick Briggs ***@***.***> wrote: nbriggs left a comment (Interlisp/medley#2622) <#2622 (comment)> @rmkaplan <https://github.com/rmkaplan> - don't know. I don't run with a {MEDLEY} pseudohost, my DISPLAYFONTDIRECTORIES point to {DSK} names, and those are in the full git checkout. Based on the name, /home/runner/work/medley/medley looks like a Docker artifact from when the online sysout was built that didn't get reset when the image started up in a different place. What is supposed to reset the MEDLEY pseudohost when the image starts in a new location? — Reply to this email directly, view it on GitHub <#2622 (comment)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/AQSTUJKR5QLK7CWGKFFACTT435PFFAVCNFSM6AAAAACZICQ7RCVHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHM2DKMJSGM3TKNJRGM>. You are receiving this because you were mentioned.

[nbriggs]

So, I would change MEDLEY-INIT-VARS to set up {MEDLEY} with the value of (MEDLEYDIR T), and change MEDLEYDIR so that T means get the current unix variable no matter what.

But what about every other pseudohost for which the value no longer correctly reflects the environment? Those should be being cleared, or flagged as errors, or something, no? Similar to the way that the \DSKEventFn goes through open streams on its device(s) to close/revalidate them.

[rmkaplan]

On second thought, I think I will just say (PSEUDOHOST 'MEDLEY (UNIX-GETENV "MEDLEYDIR)) and avoid the dependence on any funky condition in MEDLEY-INIT-VARS. MEDLEY-INIT-VARS has a list of other variables that are supposed to be conditioned on MEDLEYDIR, which now just means that {MEDLEY} is packed on as a host. I think we would need some other conventions for rebinding pseudohosts that are not relative to MEDLEYDIR. For example, I set a unix variable LFGHOME for LFG, and then LFG is set up on restart to reset {LFG} to (PSEUDOHOST 'LFG (UNIX-GETENV "LFGHOME")). GITFNS may (or should) rummage around relative to MEDLEYDIR for the clone pseudohosts for NOTECARDS, ROOMS, LOOPS.

…

On May 21, 2026, at 1:39 PM, Nick Briggs ***@***.***> wrote: nbriggs left a comment (Interlisp/medley#2622) <#2622 (comment)> So, I would change MEDLEY-INIT-VARS to set up {MEDLEY} with the value of (MEDLEYDIR T), and change MEDLEYDIR so that T means get the current unix variable no matter what. But what about every other pseudohost for which the value no longer correctly reflects the environment? Those should be being cleared, or flagged as errors, or something, no? Similar to the way that the \DSKEventFn goes through open streams on its device(s) to close/revalidate them. — Reply to this email directly, view it on GitHub <#2622 (comment)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/AQSTUJJBAVID7EY6Y3GK7Q3435SRTAVCNFSM6AAAAACZICQ7RCVHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHM2DKMJSGU3TONBQGY>. You are receiving this because you were mentioned.

[nbriggs]

I'm thinking along the lines of how we get "{dsk}<foo> was open but has disappeared", but for all the defined pseudohosts, where you'd want to have a warning something like "{local} was {dsk}<usr>local> but that location no longer exists"

[rmkaplan]

That is probably a separate issue, that PSEUDOHOSTS should put an entry on AROUNDEXITFORMS and checks whether the TRUEFILENAMES still exist. We could also provide a mapping table from pseudohostnames to unix variable names for resetting based on the user's start up script. Or something to do with an INIT entry that does regreeting in a new environment. I put up a PR just for the MEDLEY case.

…

On May 21, 2026, at 2:02 PM, Nick Briggs ***@***.***> wrote: nbriggs left a comment (Interlisp/medley#2622) <#2622 (comment)> I'm thinking along the lines of how we get "{dsk} was open but has disappeared", but for all the defined pseudohosts, where you'd want to have a warning something like "{local} was {dsk}local> but that location no longer exists" — Reply to this email directly, view it on GitHub <#2622 (comment)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/AQSTUJLQN42G6K3DN7WTEHD435VGFAVCNFSM6AAAAACZICQ7RCVHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHM2DKMJSG42DGMZXGI>. You are receiving this because you were mentioned.