Args not available error when running DOCUMENT

[pamoroso]

Describe the bug

When calling Document.Create to create a document with the DOCUMENT LispUsers module the program breaks with the error:

IN ERROR:
Args not available:
WITH.INPUT.FILE

To Reproduce

Steps to reproduce the behavior:

1. launch Medley
2. evaluate (FILESLOAD DOCUMENT)
3. load the file STRINGSCOPE
4. evaluate (Document.Create 'STRINGSCOPE)

Expected behavior

A TEdit window opens and displays the created document with no errors.

Screenshots

The break window:

The full desktop:

Context (please complete the following information):

• Are you using online.interlisp.org? no
• OS: Linux
• OS Version: Mint 22 Cinnamon
• Display/window system: X11 + VNC
• Host arch: x86_64 (System76 Merkaat)
• Maiko version: 6193f2733fd6b32eea3eed8fe08dfa2cabc22ff6
• IL:MAKESYSDATE: 2-Jan-2025 07:29:14

Additional context

The backtrace:

10_: BTV
   MESS1 "Args not available:"
   MESS2 WITH.INPUT.FILE
   NOBREAK NIL
ERROR
ARGLIST
   FileName STRINGSCOPE
   Stream #<IO Text Stream/144,12400>
   Function WITH.INPUT.FILE
Document.Functions
   SI::*CLEANUP-FORMS* SI::RESETUNWIND
   Stream #<IO Text Stream/144,12400>
   Pointer 91
SI::*UNWIND-PROTECT*
   FileName STRINGSCOPE
   LISPXHIST ((&) (8 "" . "_ ") "<not yet evaluated>" 
NIL)
   SI::*RESETFORMS* ((&))
   RESETSTATE NIL
Document.Create
   *FORM* (Document.Create (QUOTE STRINGSCOPE))
   *ARGVAL* NIL
   *TAIL* NIL
   *FN* Document.Create
\EVALFORM
FAULTEVAL
   *FORM* (UNDOABLY (Document.Create &))
\EVALFORM
   \INTERNAL NIL
EVAL
EVAL-INPUT
   RETRYFLAG NIL
   HELPCLOCK 22684
DO-EVENT
   SI::*DUMMY-FOR-CATCH* T
   SI::*CATCH-RETURN-FROM* (&)
   LISPXHIST ((&) (8 "" . "_ ") "<not yet evaluated>" 
NIL)
   HELPCLOCK 0
XCL::EXECA0001A0002
   *CURRENT-EVENT* ((&) (8 "" . "_ ") 
"<not yet evaluated>" NIL)
   SI::NLSETQ-VALUE NIL
   *PROCEED-CASES* (&)
   SI::*NLSETQFLAG* NIL
XCL::EXECA0001
\PROGV
   XCL::TOP-LEVEL-P T
   XCL::WINDOW {WINDOW}#161,147664
   XCL::TITLE-SUPPLIED NIL
   XCL::TITLE NIL
   *THIS-EXEC-COMMANDS* (#<Hash-Table @ 166,31666>)
   XCL::ENVIRONMENT NIL
   XCL::PROMPT NIL
   XCL::FN EVAL-INPUT
   XCL::PROFILE "XCL"
   *EXEC-ID* ""
   XCL::PROFILE-CACHE (XCL::*PROFILE-NAME* "IL" 
XCL:*EVAL-FUNCTION* EVAL *PACKAGE* #<Package INTERLISP> 
*READTABLE* #<ReadTable INTERLISP/174,75714> 
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 0
   \#DISPLAYLINES 25
   \LINEBUF.OFD #<IO Linebuffer Stream/170,117700>
   *READTABLE* #<ReadTable INTERLISP/174,75714>
   \PRIMTERMTABLE {TERMTABLEP}#174,70740
   \PRIMTERMSA {CHARTABLE}#174,71000
   TtyDisplayStream #<Output Display Stream/144,12200>
   SI::*RESETFORMS* NIL
   \INTERRUPTABLE T
   \TTYWINDOW NIL
   READBUF NIL
   \TERM.OFD #<Output Display Stream/170,117500>
   *STANDARD-OUTPUT* #<Output Display Stream/170,117500>
   *STANDARD-INPUT* #<IO Linebuffer Stream/170,117700>
\MAKE.PROCESS0
T

A few months ago DOCUMENT worked with no errors.

[rmkaplan]

Maybe this has something to do with STRINGSCOPE? I don’t have that, and WITH.INPUT.FILE doesn’t exist in Tedit or DOCUMENT. Maybe DOCUMENT has a bug with macros or functions with no arguments? This revealed a glitch in the old TEDIT.PARALOOKS interface to the new representation of tabs in Tedit paragraph looks, a minor separate fix.

…

On Jan 5, 2025, at 8:49 AM, Paolo Amoroso ***@***.***> wrote: Describe the bug When calling Document.Create to create a document with the DOCUMENT LispUsers module the program breaks with the error: IN ERROR: Args not available: WITH.INPUT.FILE To Reproduce Steps to reproduce the behavior: launch Medley evaluate (FILESLOAD DOCUMENT) load the file STRINGSCOPE <https://github.com/pamoroso/stringscope/blob/main/STRINGSCOPE> evaluate (Document.Create 'STRINGSCOPE) Expected behavior A TEdit window opens and displays the created document with no errors. Screenshots The break window: document-error1.png (view on web) <https://github.com/user-attachments/assets/164da44c-21e0-4514-b516-06d6053bc06b> The full desktop: document-error2.png (view on web) <https://github.com/user-attachments/assets/c8b028fc-46c1-4f8d-951d-8c30d9b16bb7> Context (please complete the following information): Are you using online.interlisp.org? no OS: Linux OS Version: Mint 22 Cinnamon Display/window system: X11 + VNC Host arch: x86_64 (System76 Merkaat) Maiko version: 6193f2733fd6b32eea3eed8fe08dfa2cabc22ff6 IL:MAKESYSDATE: 2-Jan-2025 07:29:14 Additional context The backtrace: 10_: BTV MESS1 "Args not available:" MESS2 WITH.INPUT.FILE NOBREAK NIL ERROR ARGLIST FileName STRINGSCOPE Stream #<IO Text Stream/144,12400> Function WITH.INPUT.FILE Document.Functions SI::*CLEANUP-FORMS* SI::RESETUNWIND Stream #<IO Text Stream/144,12400> Pointer 91 SI::*UNWIND-PROTECT* FileName STRINGSCOPE LISPXHIST ((&) (8 "" . "_ ") "<not yet evaluated>" NIL) SI::*RESETFORMS* ((&)) RESETSTATE NIL Document.Create *FORM* (Document.Create (QUOTE STRINGSCOPE)) *ARGVAL* NIL *TAIL* NIL *FN* Document.Create \EVALFORM FAULTEVAL *FORM* (UNDOABLY (Document.Create &)) \EVALFORM \INTERNAL NIL EVAL EVAL-INPUT RETRYFLAG NIL HELPCLOCK 22684 DO-EVENT SI::*DUMMY-FOR-CATCH* T SI::*CATCH-RETURN-FROM* (&) LISPXHIST ((&) (8 "" . "_ ") "<not yet evaluated>" NIL) HELPCLOCK 0 XCL::EXECA0001A0002 *CURRENT-EVENT* ((&) (8 "" . "_ ") "<not yet evaluated>" NIL) SI::NLSETQ-VALUE NIL *PROCEED-CASES* (&) SI::*NLSETQFLAG* NIL XCL::EXECA0001 \PROGV XCL::TOP-LEVEL-P T XCL::WINDOW {WINDOW}#161,147664 XCL::TITLE-SUPPLIED NIL XCL::TITLE NIL *THIS-EXEC-COMMANDS* (#<Hash-Table @ 166,31666>) XCL::ENVIRONMENT NIL XCL::PROMPT NIL XCL::FN EVAL-INPUT XCL::PROFILE "XCL" *EXEC-ID* "" XCL::PROFILE-CACHE (XCL::*PROFILE-NAME* "IL" XCL:*EVAL-FUNCTION* EVAL *PACKAGE* #<Package INTERLISP> *READTABLE* #<ReadTable INTERLISP/174,75714> 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 0 \#DISPLAYLINES 25 \LINEBUF.OFD #<IO Linebuffer Stream/170,117700> *READTABLE* #<ReadTable INTERLISP/174,75714> \PRIMTERMTABLE {TERMTABLEP}#174,70740 \PRIMTERMSA {CHARTABLE}#174,71000 TtyDisplayStream #<Output Display Stream/144,12200> SI::*RESETFORMS* NIL \INTERRUPTABLE T \TTYWINDOW NIL READBUF NIL \TERM.OFD #<Output Display Stream/170,117500> *STANDARD-OUTPUT* #<Output Display Stream/170,117500> *STANDARD-INPUT* #<IO Linebuffer Stream/170,117700> \MAKE.PROCESS0 T A few months ago DOCUMENT worked with no errors. — Reply to this email directly, view it on GitHub <#1956>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/AQSTUJIFFJGWFGOMO2NZRGD2JFPBXAVCNFSM6AAAAABUUJAMC2VHI2DSMVQWIX3LMV43ASLTON2WKOZSG43DSMZVHAZDANI>. You are receiving this because you are subscribed to this thread.

[nbriggs]

WITH.INPUT.FILE is a macro that Paolo defines (with DEFMACRO) in his STRINGSCOPE package (in his git repo linked to in the bug report).

[nbriggs]

ARGLIST doesn't handle macros -- though the code invoked by ?= does... what is that doing differently?

[pamoroso]

Stringscope does indeed contain a bit of Common Lisp code that understandably confuse DOCUMENT, which expects Interlisp. But if I call Document.Create with the pure Interlisp file BRAINCONS I still get an error:

TYPE-MISMATCH
In CL::%%NOT-NONCOMPLEX-NUMBER-ERROR:
NIL is not a NUMBER.

The context:

7_: BTV
CL::%%NOT-NONCOMPLEX-NUMBER-ERROR
IGREATERP
   TEXTOBJ {TEXTOBJ}#144,147140
   FMTSPEC {FMT101/61128:JU-0-456}
   SCALE 1
   CHARSLOT {}#107,21000
   LX1 0
   TX 71
   PRIORTAB NIL
   CLEANINGUP NIL
   PRIORTABWIDTH 0
   THISTABWIDTH 0
   TABS (NIL (456 . RIGHT))
   DEFTAB 36
   NEXTTAB NIL
   NEXTTABTYPE NIL
   NEXTTABX NIL
   DFLTTABX NIL
   GRAIN NIL
\TEDIT.FORMATLINE.TABS
   TSTREAM #<IO Text Stream/144,12300>
   CH#1 1
   LINE {L81/30632: NIL-NIL}
   REGION NIL
   IMAGESTREAM #<Output Display Stream/127,136200>
   FORMATTINGSTATE NIL
   TEXTOBJ {TEXTOBJ}#144,147140
   OFFSET 0
   TRUEASCENT 17
   TRUEDESCENT 3
   ASCENTB 17
   DESCENTB 3
   ASCENTC 9
   DESCENTC 3
   OVERHANG 0
   SPACELEFT 0
   TX 71
   BOXSTREAM #<Output Display Stream/127,136200>
   THISLINE {THISLINE}#144,146726
   LINETYPE TRUEDISPLAY
   WIDTH 456
   WMARGIN 12
   SCALE 1
   FMTSPEC {FMT101/61128:JU-0-456}
   RIGHTMARGIN 456
   HASKERN NIL
   PC {PIECE}#144,21000
   CHARSLOT {}#107,21000
   PREVSP NIL
   1STLN T
   CHNOB 6
   FORCED-END NIL
   CHNO 7
   LX1 0
   TX NIL
   TXB 71
   FONT {MODERN10-MRR/147,10356}
   CHARSLOTB {}#107,20774
   TABPENDING NIL
   PREVHYPH NIL
   PREVDHYPH NIL
   START-OF-PIECE 1
   UNBREAKABLE NIL
   OLDPIECE {PIECE}#121,101642
   OLDPCCHARSLEFT 1
   OLDCARETLOOKS {CL100/6880:Gacha10}
   FIRSTWHITEX 0
   INWORD NIL
   LASTCHARSLOT {}#107,22734
   JUSTIFIED T
   TEXTLEN 2351
   CH 9
   DX 6
   BOX NIL
   INSPACES T
   FIRSTWHITESLOT NIL
   PREVCH 9
   KERN NIL
\TEDIT.FORMATLINE
   PANE {WINDOW}#122,25000
   TEXTOBJ {TEXTOBJ}#144,147140
   PREVLINE {L81/30674: 0-0 FED}
\TEDIT.SUFFIXLINE.CREATE
   TEXTOBJ {TEXTOBJ}#144,147140
   PANE {WINDOW}#122,25000
   LCHARLAST NIL
   YBOT NIL
   PREFIX {L81/30674: 0-0 FED}
\TEDIT.PANE.CREATELINES
   PANE {WINDOW}#122,25000
   TSTREAM #<IO Text Stream/144,12300>
   PROPS (BEING-EDITED T)
   AFTERPANE NIL
   LCHAR1 NIL
   TEXTOBJ {TEXTOBJ}#144,147140
   MENUPROP NIL
   SEL {SEL: 917-890-R _ 82/2490}
   LASTVISIBLE NIL
\TEDIT.WINDOW.SETUP
   WINDOW {WINDOW}#122,25000
   TSTREAM #<IO Text Stream/144,12300>
   PROPS (BEING-EDITED T)
   TEXTOBJ {TEXTOBJ}#144,147140
   FILEPTR 1908
\TEDIT.OPENTEXTSTREAM.WINDOW
   SI::*CLEANUP-FORMS* SI::RESETUNWIND
   TSTREAM #<IO Text Stream/144,12300>
   TEXTOBJ {TEXTOBJ}#144,147140
   TEDIT.GET.FINISHEDFORMS NIL
   PRIMPANE NIL
SI::*UNWIND-PROTECT*
   TEXT #<IO Text Stream/144,12300>
   WINDOW {WINDOW}#122,25000
   START NIL
   END NIL
   PROPS (BEING-EDITED T)
   LISPXHIST ((&) (5 "" . "_ ") "<not yet evaluated>" 
NIL)
   SI::*RESETFORMS* NIL
   RESETSTATE NIL
OPENTEXTSTREAM
   TEXT #<IO Text Stream/144,12300>
   WINDOW NIL
   DONTSPAWN NIL
   PROPS (BEING-EDITED T)
   TSTREAM NIL
   PROC NIL
TEDIT
   TEXT #<IO Text Stream/144,12300>
   WINDOW NIL
   DONTSPAWN NIL
   PROPS NIL
TEDIT
   Stream #<IO Text Stream/144,12300>
   Pointer 87
Document.Finish
   SI::*CLEANUP-FORMS* SI::RESETUNWIND
   Stream #<IO Text Stream/144,12300>
   Pointer 87
SI::*UNWIND-PROTECT*
   FileName BRAINCONS
   LISPXHIST ((&) (5 "" . "_ ") "<not yet evaluated>" 
NIL)
   SI::*RESETFORMS* ((&))
   RESETSTATE NIL
Document.Create
   *FORM* (Document.Create (QUOTE BRAINCONS))
   *ARGVAL* NIL
   *TAIL* NIL
   *FN* Document.Create
\EVALFORM
FAULTEVAL
   *FORM* (UNDOABLY (Document.Create &))
\EVALFORM
   \INTERNAL NIL
EVAL
EVAL-INPUT
   RETRYFLAG NIL
   HELPCLOCK 1496
DO-EVENT
   SI::*DUMMY-FOR-CATCH* T
   SI::*CATCH-RETURN-FROM* (&)
   LISPXHIST ((&) (5 "" . "_ ") "<not yet evaluated>" 
NIL)
   HELPCLOCK 0
XCL::EXECA0001A0002
   *CURRENT-EVENT* ((&) (5 "" . "_ ") 
"<not yet evaluated>" NIL)
   SI::NLSETQ-VALUE NIL
   *PROCEED-CASES* (&)
   SI::*NLSETQFLAG* NIL
XCL::EXECA0001
\PROGV
   XCL::TOP-LEVEL-P T
   XCL::WINDOW {WINDOW}#161,147664
   XCL::TITLE-SUPPLIED NIL
   XCL::TITLE NIL
   *THIS-EXEC-COMMANDS* (#<Hash-Table @ 166,31666>)
   XCL::ENVIRONMENT NIL
   XCL::PROMPT NIL
   XCL::FN EVAL-INPUT
   XCL::PROFILE "XCL"
   *EXEC-ID* ""
   XCL::PROFILE-CACHE (XCL::*PROFILE-NAME* "IL" 
XCL:*EVAL-FUNCTION* EVAL *PACKAGE* #<Package INTERLISP> 
*READTABLE* #<ReadTable INTERLISP/174,75714> 
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 0
   \#DISPLAYLINES 25
   \LINEBUF.OFD #<IO Linebuffer Stream/170,117700>
   *READTABLE* #<ReadTable INTERLISP/174,75714>
   \PRIMTERMTABLE {TERMTABLEP}#174,70740
   \PRIMTERMSA {CHARTABLE}#174,71000
   TtyDisplayStream #<Output Display Stream/144,12200>
   SI::*RESETFORMS* NIL
   \INTERRUPTABLE T
   \TTYWINDOW NIL
   READBUF NIL
   \TERM.OFD #<Output Display Stream/170,117500>
   *STANDARD-OUTPUT* #<Output Display Stream/170,117500>
   *STANDARD-INPUT* #<IO Linebuffer Stream/170,117700>
\MAKE.PROCESS0
T

[rmkaplan]

This is a separate glitch in Tedit. DOCUMENT uses the old programmatic interface to tabs that I missed updating when I changed the internal representation. I snuck the fix for this in the PR #1957 that I put out yesterday for the field menu items. The problem with macros may be that DOCUMENT is calling ARGLIST, but it should be calling SMARTARGLIST to get the argument information. That would do the right thing with Interlisp macros, but maybe also Common Lisp macros. Changing that call may get it passed this failure. But DOCUMENT (code from the early days of Tedit) is raising some other formatting issues that need further work. For example, it is printing the comments using the standard Interlisp printing functions (the .PPFTL printout command), and that is sensitive to the LINELENGTH setting of the stream. So it tends to insert its own EOL’s when it thinks it’s about to overflow, and Tedit is interpreting those as paragraph breaks. That gives you extra paragraph leading, maybe indentation, that you don’t want from line to line in a comment. So either the printing function needs to change (PRIN3), the stream’s LINELENGTH has to be turned off, or we need a better protocol for sticking in paragraph breaks besides just seeing a CR as an input character. And I still see another problem with paragraph formatting not applying when it should. So I would hold off on DOCUMENT until I have able to track things down. This turns out to be a good stress test for a number of cases, whether in the end the program itself produces useful documentation.

…

On Jan 6, 2025, at 1:46 AM, Paolo Amoroso ***@***.***> wrote: Stringscope does indeed contain a bit of Common Lisp code that understandably confuse DOCUMENT, which expects Interlisp. But if I call Document.Create with the pure Interlisp file BRAINCONS <https://github.com/pamoroso/braincons/blob/main/BRAINCONS> I still get an error: TYPE-MISMATCH In CL::%%NOT-NONCOMPLEX-NUMBER-ERROR: NIL is not a NUMBER. document-error.png (view on web) <https://github.com/user-attachments/assets/048135ca-d254-405f-bde8-aa822f33de37> The context: 7_: BTV CL::%%NOT-NONCOMPLEX-NUMBER-ERROR IGREATERP TEXTOBJ {TEXTOBJ}#144,147140 FMTSPEC {FMT101/61128:JU-0-456} SCALE 1 CHARSLOT {}#107,21000 LX1 0 TX 71 PRIORTAB NIL CLEANINGUP NIL PRIORTABWIDTH 0 THISTABWIDTH 0 TABS (NIL (456 . RIGHT)) DEFTAB 36 NEXTTAB NIL NEXTTABTYPE NIL NEXTTABX NIL DFLTTABX NIL GRAIN NIL \TEDIT.FORMATLINE.TABS TSTREAM #<IO Text Stream/144,12300> CH#1 1 LINE {L81/30632: NIL-NIL} REGION NIL IMAGESTREAM #<Output Display Stream/127,136200> FORMATTINGSTATE NIL TEXTOBJ {TEXTOBJ}#144,147140 OFFSET 0 TRUEASCENT 17 TRUEDESCENT 3 ASCENTB 17 DESCENTB 3 ASCENTC 9 DESCENTC 3 OVERHANG 0 SPACELEFT 0 TX 71 BOXSTREAM #<Output Display Stream/127,136200> THISLINE {THISLINE}#144,146726 LINETYPE TRUEDISPLAY WIDTH 456 WMARGIN 12 SCALE 1 FMTSPEC {FMT101/61128:JU-0-456} RIGHTMARGIN 456 HASKERN NIL PC {PIECE}#144,21000 CHARSLOT {}#107,21000 PREVSP NIL 1STLN T CHNOB 6 FORCED-END NIL CHNO 7 LX1 0 TX NIL TXB 71 FONT {MODERN10-MRR/147,10356} CHARSLOTB {}#107,20774 TABPENDING NIL PREVHYPH NIL PREVDHYPH NIL START-OF-PIECE 1 UNBREAKABLE NIL OLDPIECE {PIECE}#121,101642 OLDPCCHARSLEFT 1 OLDCARETLOOKS {CL100/6880:Gacha10} FIRSTWHITEX 0 INWORD NIL LASTCHARSLOT {}#107,22734 JUSTIFIED T TEXTLEN 2351 CH 9 DX 6 BOX NIL INSPACES T FIRSTWHITESLOT NIL PREVCH 9 KERN NIL \TEDIT.FORMATLINE PANE {WINDOW}#122,25000 TEXTOBJ {TEXTOBJ}#144,147140 PREVLINE {L81/30674: 0-0 FED} \TEDIT.SUFFIXLINE.CREATE TEXTOBJ {TEXTOBJ}#144,147140 PANE {WINDOW}#122,25000 LCHARLAST NIL YBOT NIL PREFIX {L81/30674: 0-0 FED} \TEDIT.PANE.CREATELINES PANE {WINDOW}#122,25000 TSTREAM #<IO Text Stream/144,12300> PROPS (BEING-EDITED T) AFTERPANE NIL LCHAR1 NIL TEXTOBJ {TEXTOBJ}#144,147140 MENUPROP NIL SEL {SEL: 917-890-R _ 82/2490} LASTVISIBLE NIL \TEDIT.WINDOW.SETUP WINDOW {WINDOW}#122,25000 TSTREAM #<IO Text Stream/144,12300> PROPS (BEING-EDITED T) TEXTOBJ {TEXTOBJ}#144,147140 FILEPTR 1908 \TEDIT.OPENTEXTSTREAM.WINDOW SI::*CLEANUP-FORMS* SI::RESETUNWIND TSTREAM #<IO Text Stream/144,12300> TEXTOBJ {TEXTOBJ}#144,147140 TEDIT.GET.FINISHEDFORMS NIL PRIMPANE NIL SI::*UNWIND-PROTECT* TEXT #<IO Text Stream/144,12300> WINDOW {WINDOW}#122,25000 START NIL END NIL PROPS (BEING-EDITED T) LISPXHIST ((&) (5 "" . "_ ") "<not yet evaluated>" NIL) SI::*RESETFORMS* NIL RESETSTATE NIL OPENTEXTSTREAM TEXT #<IO Text Stream/144,12300> WINDOW NIL DONTSPAWN NIL PROPS (BEING-EDITED T) TSTREAM NIL PROC NIL TEDIT TEXT #<IO Text Stream/144,12300> WINDOW NIL DONTSPAWN NIL PROPS NIL TEDIT Stream #<IO Text Stream/144,12300> Pointer 87 Document.Finish SI::*CLEANUP-FORMS* SI::RESETUNWIND Stream #<IO Text Stream/144,12300> Pointer 87 SI::*UNWIND-PROTECT* FileName BRAINCONS LISPXHIST ((&) (5 "" . "_ ") "<not yet evaluated>" NIL) SI::*RESETFORMS* ((&)) RESETSTATE NIL Document.Create *FORM* (Document.Create (QUOTE BRAINCONS)) *ARGVAL* NIL *TAIL* NIL *FN* Document.Create \EVALFORM FAULTEVAL *FORM* (UNDOABLY (Document.Create &)) \EVALFORM \INTERNAL NIL EVAL EVAL-INPUT RETRYFLAG NIL HELPCLOCK 1496 DO-EVENT SI::*DUMMY-FOR-CATCH* T SI::*CATCH-RETURN-FROM* (&) LISPXHIST ((&) (5 "" . "_ ") "<not yet evaluated>" NIL) HELPCLOCK 0 XCL::EXECA0001A0002 *CURRENT-EVENT* ((&) (5 "" . "_ ") "<not yet evaluated>" NIL) SI::NLSETQ-VALUE NIL *PROCEED-CASES* (&) SI::*NLSETQFLAG* NIL XCL::EXECA0001 \PROGV XCL::TOP-LEVEL-P T XCL::WINDOW {WINDOW}#161,147664 XCL::TITLE-SUPPLIED NIL XCL::TITLE NIL *THIS-EXEC-COMMANDS* (#<Hash-Table @ 166,31666>) XCL::ENVIRONMENT NIL XCL::PROMPT NIL XCL::FN EVAL-INPUT XCL::PROFILE "XCL" *EXEC-ID* "" XCL::PROFILE-CACHE (XCL::*PROFILE-NAME* "IL" XCL:*EVAL-FUNCTION* EVAL *PACKAGE* #<Package INTERLISP> *READTABLE* #<ReadTable INTERLISP/174,75714> 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 0 \#DISPLAYLINES 25 \LINEBUF.OFD #<IO Linebuffer Stream/170,117700> *READTABLE* #<ReadTable INTERLISP/174,75714> \PRIMTERMTABLE {TERMTABLEP}#174,70740 \PRIMTERMSA {CHARTABLE}#174,71000 TtyDisplayStream #<Output Display Stream/144,12200> SI::*RESETFORMS* NIL \INTERRUPTABLE T \TTYWINDOW NIL READBUF NIL \TERM.OFD #<Output Display Stream/170,117500> *STANDARD-OUTPUT* #<Output Display Stream/170,117500> *STANDARD-INPUT* #<IO Linebuffer Stream/170,117700> \MAKE.PROCESS0 T — Reply to this email directly, view it on GitHub <#1956 (comment)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/AQSTUJKOHWPY7H3NQZ7FDDD2JJGJHAVCNFSM6AAAAABUUJAMC2VHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHMZDKNZSG42DINJYHA>. You are receiving this because you commented.

[pamoroso]

Speaking of test suites, Appendix A of TEdit's manual contains a sample program with extensive coverage of the API. The only downside is it doesn't seem to be available in machine readable form.

[rmkaplan]

Fixed in #1997