Open
Description
Describe the bug
When loading the VSTATS LispUsers module I get a partially rendered program window and a break window with the error:
In \FLOAT:
NIL is not a non-complex number
To Reproduce
Steps to reproduce the behavior:
- sign into your Interlisp Online account
- under
Initial Exec
, selectInterlisp
- click
Run Medley
- evaluate
(FILESLOAD VSTATS)
Expected behavior
The VSTATS program window is fully rendered with no errors.
Screenshots
The full desktop with the break window and the partially rendered VSTATS window:
Context (please complete the following information):
- OS: Linux Mint Cinnamon
- OS Version: 22
- Host arch: x86_64 (System76 Merkaat)
- Maiko version: N/A
- IL:MAKESYSDATE: 31-Jul-2024 02:24:40
Additional context
The transcript of a debugger session:
5_: BT
FTIMES
VStatsSpace-Read
VStatsSpace-Display
VStats-Display
VSTATS
LOAD
DOFILESLOAD
FILESLOAD
FAULTEVAL
EVAL
EXEC
6_: ?=
X = NIL
7_: PB X
bindings for X:
@ TOP : NOBIND
8_: BTV
\FLOAT
\DTEST.UFN
\BOXFTIMES2
FTIMES
VStatsSpace-Read
VStatsSpace-Display
VStats-Display
VSTATS
*FORM* (VSTATS (QUOTE ON))
*ARGVAL* NIL
*TAIL* NIL
*FN* VSTATS
\EVALFORM
*TAIL* ((VSTATS &))
\EVPROGN
*TAIL* ((& &))
COND
*FORM* (COND (& &))
\EVALFORM
STREAM
#<Input Stream on {DSK}<usr>local>interlisp>medley>lispusers>VSTATS.LCOM;1/130,3600>
LDFLG NIL
PRINTFLG NIL
LOAD-VERBOSE-STREAM T
PACKAGE NIL
*STANDARD-INPUT*
#<Input Stream on {DSK}<usr>local>interlisp>medley>lispusers>VSTATS.LCOM;1/130,3600>
FILE
{DSK}<usr>local>interlisp>medley>lispusers>VSTATS.LCOM;1
*PACKAGE* #<Package INTERLISP>
*READTABLE* #<ReadTable OLD-INTERLISP-FILE/174,73730>
DFNFLG NIL
BUILDMAPFLG T
FILEPKGFLG T
ADDSPELLFLG T
LISPXHIST ((&) (3 "" . "_ ") "<not yet evaluated>"
NIL *LISPXPRINT* ("
" & "
" "compiled on " " 6-Jul-94 01:10:03" "
" "File created " "13-Nov-87 01:45:11" "
" --) SIDE (-1 & & & & & & & & --))
PRLST NIL
DEFINEDENV {READER-ENVIRONMENT}#174,70604
FILEMAP ((NIL & & & & & & & & --) (28536 28719 .
COVEREDWP))
FNADRLST NIL
ROOTNAME NIL
TEM " 2-Jun-94 10:43:09"
FILECREATEDLST ((" 6-Jul-94 01:10:03" &
" 2-Jun-94 10:43:09" bcompl'd in "Medley 2-Jun-94 ..."
dated " 2-Jun-94 10:52:50") ("13-Nov-87 01:45:11"
"{FireFS:CS:Univ Rochester}<Koomen>LispUsers>Lyric>VSTATS.;12" 46865 changes to%: & previous date%:
"30-Oct-87 01:20:07" --))
LOADA (COND (& &))
MAYBEWANTFILEMAP NIL
INTERLISP-P NIL
FILECREATEDLOC NIL
*PACKAGE* #<Package INTERLISP>
*READTABLE* #<ReadTable INTERLISP/174,73714>
*READ-BASE* 10
*PRINT-BASE* 10
*EXTERNALFORMAT* :XCCS
\LOAD-STREAM
SI::*CLEANUP-FORMS* SI::RESETUNWIND
STREAM
#<Input Stream on {DSK}<usr>local>interlisp>medley>lispusers>VSTATS.LCOM;1/130,3600>
TEM NIL
SI::*UNWIND-PROTECT*
FILE
{DSK}<usr>local>interlisp>medley>lispusers>VSTATS.LCOM;1
LDFLG NIL
PRINTFLG NIL
PACKAGE NIL
LISPXHIST ((&) (3 "" . "_ ") "<not yet evaluated>"
NIL *LISPXPRINT* ("
" & "
" "compiled on " " 6-Jul-94 01:10:03" "
" "File created " "13-Nov-87 01:45:11" "
" --) SIDE (-1 & & & & & & & & --))
SI::*RESETFORMS* ((& NIL))
RESETSTATE NIL
LOAD
DOFILESLOAD
FILESLOAD
CL:FUNCALL
*FORM* (CL:FUNCALL (FUNCTION FILESLOAD) (QUOTE &))
*ARGVAL* NIL
*TAIL* NIL
*FN* CL:FUNCALL
\EVALFORM
FAULTEVAL
*FORM* (UNDOABLY (FILESLOAD VSTATS))
\EVALFORM
\INTERNAL NIL
EVAL
EVAL-INPUT
RETRYFLAG NIL
HELPCLOCK 2529
DO-EVENT
SI::*DUMMY-FOR-CATCH* T
SI::*CATCH-RETURN-FROM* (&)
LISPXHIST ((&) (3 "" . "_ ") "<not yet evaluated>"
NIL *LISPXPRINT* ("
" & "
" "compiled on " " 6-Jul-94 01:10:03" "
" "File created " "13-Nov-87 01:45:11" "
" --) SIDE (-1 & & & & & & & & --))
HELPCLOCK 0
XCL::EXECA0001A0002
*CURRENT-EVENT* ((&) (3 "" . "_ ")
"<not yet evaluated>" NIL *LISPXPRINT* ("
" & "
" "compiled on " " 6-Jul-94 01:10:03" "
" "File created " "13-Nov-87 01:45:11" "
" --) SIDE (-1 & & & & & & & & --))
SI::NLSETQ-VALUE NIL
*PROCEED-CASES* (&)
SI::*NLSETQFLAG* NIL
XCL::EXECA0001
\PROGV
XCL::TOP-LEVEL-P T
XCL::WINDOW {WINDOW}#161,173664
XCL::TITLE-SUPPLIED NIL
XCL::TITLE NIL
*THIS-EXEC-COMMANDS* (#<Hash-Table @ 166,25666>)
XCL::ENVIRONMENT NIL
XCL::PROMPT NIL
XCL::FN EVAL-INPUT
XCL::PROFILE "XCL"
*EXEC-ID* ""
XCL::PROFILE-CACHE (XCL::*PROFILE-NAME* "XCL"
XCL:*EVAL-FUNCTION* CL:EVAL *PACKAGE* #<Package XCL-USER> *READTABLE* #<ReadTable XCL/174,73634> XCL:*EXEC-PROMPT* "> " --)
EXEC
\PROC.REPEATEDLYEVALQT
*FORM* (\PROC.REPEATEDLYEVALQT)
*ARGVAL* NIL
*TAIL* NIL
*FN* \PROC.REPEATEDLYEVALQT
\EVALFORM
%#FORM# (\PROC.REPEATEDLYEVALQT)
*CURRENT-PROCESS* #<Process EXEC/174,24204>
HELPFLAG BREAK!
\CURRENTDISPLAYLINE 11
\#DISPLAYLINES 25
\LINEBUF.OFD #<IO Linebuffer Stream/167,114400>
*READTABLE* #<ReadTable INTERLISP/174,73714>
\PRIMTERMTABLE {TERMTABLEP}#174,66740
\PRIMTERMSA {CHARTABLE}#174,67000
TtyDisplayStream #<Output Display Stream/130,21200>
SI::*RESETFORMS* NIL
\INTERRUPTABLE T
\TTYWINDOW NIL
READBUF NIL
\TERM.OFD #<Output Display Stream/170,111400>
*STANDARD-OUTPUT* #<Output Display Stream/170,111400>
*STANDARD-INPUT* #<IO Linebuffer Stream/167,114400>
\MAKE.PROCESS0
T
Metadata
Metadata
Assignees
Labels
No labels