Skip to content

Type mismatch error when selecting TMAX NGroup Menu in TEdit #2546

@pamoroso

Description

@pamoroso

Describe the bug

In TEdit with TMAX loaded, when I select the NGroup Menu item of TEdit's middle-click menu I get a break window with the error:

TYPE-MISMATCH
In \DTEST.UFN:
(NIL) is not a HASH-TABLE.

To Reproduce

Steps to reproduce the behavior:

  1. launch Medley
  2. evaluate (FILESLOAD TMAX)
  3. open TEdit
  4. from the middle-click menu of TEdit's title bar, select TMAX Menu > NGroup Menu

Expected behavior

The NGroup menu graph is displayed in a window with no error.

Screenshots

The break window:

Image

The desktop:

Image

Context (please complete the following information):

  • Are you using online.interlisp.org? no
  • OS: Linux
  • OS Version: Mint 22.1 Cinnamon
  • Display/window system: X11/VNC
  • Host arch: x86_64 (System76 Merkaat)
  • Maiko version: d791b1d
  • IL:MAKESYSDATE: 17-Mar-2026 04:07:54 (Maiko: master/d791b1d); Medley: master/13eb940)

Additional context

The stack trace:

TEDIT.DEFAULT.MENUFN/6(debug)BTV
PUTHASH
   NEW.GROUPID NEW.NGROUP
   TEMPLATE NIL
   DEPENDENT.CLASS NIL
   FONT NIL
   NGROUP.NODE (NEW.NGROUP NIL NIL NIL NIL NIL NIL 
NIL NIL {HELVETICA10-BRR/171,155524} --)
   TSTREAM #<IO Tedit Stream/137,10500>
   NGROUP.ARRAY NIL
ADD.NGROUP.TO.DBASE
   TSTREAM #<IO Tedit Stream/137,10500>
   ROOTNODE (NEW.NGROUP NIL NIL NIL NIL NIL NIL NIL 
NIL {HELVETICA10-BRR/171,155524} --)
   NODELST ((NEW.NGROUP NIL NIL NIL NIL NIL NIL NIL 
NIL --))
INITIAL.NGROUP.GRAPH
   TSTREAM #<IO Tedit Stream/137,10500>
GRAPHMENU
   SI::*CLEANUP-FORMS* SI::RESETUNWIND
SI::*UNWIND-PROTECT*
   SI::*DUMMY-FOR-CATCH* T
   SI::*CATCH-RETURN-FROM* (&)
   LISPXHIST NIL
   SI::*RESETFORMS* ((& {TEXTOBJ}#121,64600))
   RESETSTATE NIL
TEDIT.DEFAULT.MENUFNA0001
   PANE {WINDOW}#121,66570
   TSTREAM #<IO Tedit Stream/137,10500>
   TEXTOBJ {TEXTOBJ}#121,64600
   WMENU NIL
   ITEM GRAPHMENU
   THISMENU {MENU}#146,7540
   SI::NLSETQ-VALUE NIL
   *PROCEED-CASES* (&)
   SI::*NLSETQFLAG* NIL
TEDIT.DEFAULT.MENUFN
   *FORM* (TEDIT.DEFAULT.MENUFN (QUOTE {WINDOW}#121,
66570))
   *ARGVAL* NIL
   *TAIL* NIL
   *FN* TEDIT.DEFAULT.MENUFN
\EVALFORM
   %#FORM# (TEDIT.DEFAULT.MENUFN (QUOTE {WINDOW}#121,
66570))
   *CURRENT-PROCESS* 
#<Process TEDIT.DEFAULT.MENUFN/121,53614>
   HELPFLAG BREAK!
   \CURRENTDISPLAYLINE 0
   \#DISPLAYLINES 40
   \LINEBUF.OFD #<IO Stream on T/172,24500>
   *READTABLE* #<ReadTable INTERLISP/172,23714>
   \PRIMTERMTABLE {TERMTABLEP}#172,16740
   \PRIMTERMSA {CHARTABLE}#172,17000
   TtyDisplayStream 
#<Output Display Stream/137,15300>
   SI::*RESETFORMS* NIL
   \INTERRUPTABLE T
   \TTYWINDOW NIL
   READBUF NIL
   \TERM.OFD #<Output Stream on T/166,103600>
   *STANDARD-OUTPUT* #<Output Stream on T/166,103600>
   *STANDARD-INPUT* #<IO Stream on T/172,24500>
\MAKE.PROCESS0
T

Metadata

Metadata

Assignees

No one assigned

    Labels

    No labels
    No labels

    Type

    No type

    Projects

    Status

    No status

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions