Lispusers DOCUMENT: Change ARGLIST to SMARTARGLIST, improve Tedit interface

[rmkaplan]

Addresses #1956

[pamoroso]

After loading Stringscope and calling (Document.Create 'STRINGSCOPE) I get the error:

In ERROR:
ARG NOT PIECE
NIL

The backtrace:

7_: BTV
   MESS1 "ARG NOT PIECE"
   MESS2 NIL
   NOBREAK NIL
ERROR
\LISPERROR
\DTEST.UFN
   TSTREAM #<IO Text Stream/174,75000>
   NEWLOOKS (TYPE PAGEHEADING SUBTYPE RUNNINGHEAD 
RIGHTMARGIN 456 LEFTMARGIN 0 TABS (NIL &) --)
   TARGETSEL {SEL: 1-23-L _ 82/3514}
   TEXTOBJ {TEXTOBJ}#144,137140
   PROPNAMES (1STLEFTMARGIN LEFTMARGIN RIGHTMARGIN 
PARALEADING POSTPARALEADING LINELEADING BASETOBASE QUAD 
TYPE SUBTYPE --)
   PARAPIECES {SELPIECES}#144,10050
   FIRSTPARAPIECE T
   FIRSTCHAR 1
   PC NIL
   NEWFMTSPEC NIL
   OLDFMTSPEC NIL
   UNDOLIST NIL
\TEDIT.CHANGE.PARALOOKS
   TSTREAM #<IO Text Stream/174,75000>
   NEWLOOKS (TYPE PAGEHEADING SUBTYPE RUNNINGHEAD 
RIGHTMARGIN 456 LEFTMARGIN 0 TABS (NIL &) --)
   SELORCH# 0
   LEN 23
   TEXTOBJ {TEXTOBJ}#144,137140
   TARGETSEL {SEL: 1-23-L _ 82/3514}
TEDIT.PARALOOKS
   FileName STRINGSCOPE
   Stream #<IO Text Stream/174,75000>
Document.RunningHead
   FileName STRINGSCOPE
   Stream #<IO Text Stream/174,75000>
Document.Begin
   SI::*CLEANUP-FORMS* SI::RESETUNWIND
   Stream #<IO Text Stream/174,75000>
   Pointer NIL
SI::*UNWIND-PROTECT*
   FileName STRINGSCOPE
   LISPXHIST ((&) (5 "" . "_ ") "<not yet evaluated>" 
NIL)
   SI::*RESETFORMS* NIL
   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 1337
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,150664
   XCL::TITLE-SUPPLIED NIL
   XCL::TITLE NIL
   *THIS-EXEC-COMMANDS* (#<Hash-Table @ 166,33666>)
   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,74714> 
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,25204>
   HELPFLAG BREAK!
   \CURRENTDISPLAYLINE 0
   \#DISPLAYLINES 25
   \LINEBUF.OFD #<IO Linebuffer Stream/167,115100>
   *READTABLE* #<ReadTable INTERLISP/174,74714>
   \PRIMTERMTABLE {TERMTABLEP}#174,67740
   \PRIMTERMSA {CHARTABLE}#174,70000
   TtyDisplayStream #<Output Display Stream/144,71600>
   SI::*RESETFORMS* NIL
   \INTERRUPTABLE T
   \TTYWINDOW NIL
   READBUF NIL
   \TERM.OFD #<Output Display Stream/170,120300>
   *STANDARD-OUTPUT* #<Output Display Stream/170,120300>
   *STANDARD-INPUT* #<IO Linebuffer Stream/167,115100>
\MAKE.PROCESS0
T

[rmkaplan]

I’ll withdraw this for now. There was a cleanup-dependency that is mixed up with other changes to Tedit that I will push separately, then do this one again.

…

On Jan 30, 2025, at 10:44 AM, Paolo Amoroso ***@***.***> wrote: After loading Stringscope <https://github.com/pamoroso/stringscope/blob/main/STRINGSCOPE> and calling (Document.Create 'STRINGSCOPE) I get the error: In ERROR: ARG NOT PIECE NIL document-error.png (view on web) <https://github.com/user-attachments/assets/13190ba9-83d3-4274-9a53-7a9e4690c5ff> The backtrace: 7_: BTV MESS1 "ARG NOT PIECE" MESS2 NIL NOBREAK NIL ERROR \LISPERROR \DTEST.UFN TSTREAM #<IO Text Stream/174,75000> NEWLOOKS (TYPE PAGEHEADING SUBTYPE RUNNINGHEAD RIGHTMARGIN 456 LEFTMARGIN 0 TABS (NIL &) --) TARGETSEL {SEL: 1-23-L _ 82/3514} TEXTOBJ {TEXTOBJ}#144,137140 PROPNAMES (1STLEFTMARGIN LEFTMARGIN RIGHTMARGIN PARALEADING POSTPARALEADING LINELEADING BASETOBASE QUAD TYPE SUBTYPE --) PARAPIECES {SELPIECES}#144,10050 FIRSTPARAPIECE T FIRSTCHAR 1 PC NIL NEWFMTSPEC NIL OLDFMTSPEC NIL UNDOLIST NIL \TEDIT.CHANGE.PARALOOKS TSTREAM #<IO Text Stream/174,75000> NEWLOOKS (TYPE PAGEHEADING SUBTYPE RUNNINGHEAD RIGHTMARGIN 456 LEFTMARGIN 0 TABS (NIL &) --) SELORCH# 0 LEN 23 TEXTOBJ {TEXTOBJ}#144,137140 TARGETSEL {SEL: 1-23-L _ 82/3514} TEDIT.PARALOOKS FileName STRINGSCOPE Stream #<IO Text Stream/174,75000> Document.RunningHead FileName STRINGSCOPE Stream #<IO Text Stream/174,75000> Document.Begin SI::*CLEANUP-FORMS* SI::RESETUNWIND Stream #<IO Text Stream/174,75000> Pointer NIL SI::*UNWIND-PROTECT* FileName STRINGSCOPE LISPXHIST ((&) (5 "" . "_ ") "<not yet evaluated>" NIL) SI::*RESETFORMS* NIL 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 1337 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,150664 XCL::TITLE-SUPPLIED NIL XCL::TITLE NIL *THIS-EXEC-COMMANDS* (#<Hash-Table @ 166,33666>) 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,74714> 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,25204> HELPFLAG BREAK! \CURRENTDISPLAYLINE 0 \#DISPLAYLINES 25 \LINEBUF.OFD #<IO Linebuffer Stream/167,115100> *READTABLE* #<ReadTable INTERLISP/174,74714> \PRIMTERMTABLE {TERMTABLEP}#174,67740 \PRIMTERMSA {CHARTABLE}#174,70000 TtyDisplayStream #<Output Display Stream/144,71600> SI::*RESETFORMS* NIL \INTERRUPTABLE T \TTYWINDOW NIL READBUF NIL \TERM.OFD #<Output Display Stream/170,120300> *STANDARD-OUTPUT* #<Output Display Stream/170,120300> *STANDARD-INPUT* #<IO Linebuffer Stream/167,115100> \MAKE.PROCESS0 T — Reply to this email directly, view it on GitHub <#1997 (comment)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/AQSTUJPRSK7DH7PB2WQBE4T2NJXHNAVCNFSM6AAAAABWF3XVR2VHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHMZDMMRVGI4TMNBTGU>. You are receiving this because you authored the thread.