github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-19 12:19:45 +00:00
Code Issues Projects Releases Wiki Activity

TEDIT-DEBUG.DRIBBLE in login

Browse Source
This commit is contained in:
rmkaplan
2026-05-18 10:47:26 -07:00
parent 919ebf6c1b
commit 841a9eabbb
2 changed files with 35 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
internal/TEDIT-DEBUG
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)
(FILECREATED "29-Apr-2026 09:51:30" {MEDLEY}<internal>TEDIT-DEBUG.;190 139487
(FILECREATED "18-May-2026 10:46:12" {MEDLEY}<internal>TEDIT-DEBUG.;191 139564
:EDIT-BY rmk
:CHANGES-TO (FNS INSPECTFILEPIECES)
:CHANGES-TO (FNS TEDIT-DEBUG)
:PREVIOUS-DATE "24-Apr-2026 17:08:51" {MEDLEY}<internal>TEDIT-DEBUG.;189)
:PREVIOUS-DATE "29-Apr-2026 09:51:30" {MEDLEY}<internal>TEDIT-DEBUG.;190)
(PRETTYCOMPRINT TEDIT-DEBUGCOMS)
@@ -2487,7 +2487,8 @@
(DEFINEQ
(TEDIT-DEBUG
[LAMBDA (DONTOVERLOAD) (* ; "Edited 24-Feb-2026 00:35 by rmk")
[LAMBDA (DONTOVERLOAD) (* ; "Edited 18-May-2026 10:46 by rmk")
(* ; "Edited 24-Feb-2026 00:35 by rmk")
(* ; "Edited 7-Feb-2026 17:00 by rmk")
(* ; "Edited 9-Aug-2024 13:20 by rmk")
(* ; "Edited 16-Jul-2024 12:37 by rmk")
@@ -2502,7 +2503,7 @@
(* ; "Edited 3-Dec-2023 21:00 by rmk")
(* ; "Edited 29-Nov-2023 10:49 by rmk")
(* ; "Edited 24-Nov-2023 12:53 by rmk")
(DRIBBLE (PSEUDOFILENAME (MEDLEYDIR "library/tedit" "TEDIT-DEBUG.DRIBBLE" T)))
(DRIBBLE (PSEUDOFILENAME "{LI}TEDIT-DEBUG.DRIBBLE"))
(CL:WHEN (DIRECTORYNAMEP (MEDLEYDIR "../oldtedit/"))
(PSEUDOHOST 'OT (MEDLEYDIR "../oldtedit/")))
(FILESLOAD (NOERROR FROM LOADUPS)
@@ -2590,33 +2591,33 @@
(ADDTOVAR LAMA )
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (5177 7736 (GTO 5187 . 5437) (GTS 5439 . 7210) (GTW 7212 . 7368) (GSEL 7370 . 7734)) (
7769 8890 (TEST.TEMPLATE 7779 . 8888)) (8891 9826 (TESTACTION 8901 . 9824)) (9851 24332 (IPC 9861 .
11365) (ILINES 11367 . 13908) (ISEL 13910 . 14521) (ITS 14523 . 16247) (IPANES 16249 . 16484) (ITL
16486 . 16905) (IHIST 16907 . 19569) (IPCTB 19571 . 19997) (IMB 19999 . 20758) (ICL 20760 . 21461) (
IPL 21463 . 22003) (ICARET 22005 . 22532) (INSPECTPIECES 22534 . 23664) (INSPECTFILEPIECES 23666 .
24330)) (24354 53387 (SP 24364 . 29479) (SL 29481 . 33483) (SSP 33485 . 35187) (SPF 35189 . 37721) (
SLF 37723 . 46870) (SHOWLINE 46872 . 50545) (SLL 50547 . 51294) (STBYTES 51296 . 53022) (SSEL 53024 .
53385)) (53388 65740 (STL 53398 . 62238) (CLEARTHISLINE 62240 . 62720) (CHARSLOTP 62722 . 64041) (
\TLVALIDATE 64043 . 65738)) (65741 71114 (NTHPIECE 65751 . 66883) (NPIECES 66885 . 67750) (
NTHPIECECHAR 67752 . 69060) (SELPIECE 69062 . 69504) (PIECENUM 69506 . 70225) (PCBYTES 70227 . 71112))
(71115 74103 (FILEBYTES 71125 . 72828) (TFILEBYTES 72830 . 74101)) (74104 75432 (TRELMOVE 74114 .
74361) (TSCROLL 74363 . 74529) (TSCROLL* 74531 . 75430)) (75433 78484 (TRY 75443 . 76712) (TEDITCLOSEW
76714 . 77057) (PARALASTWITHOUTEOL 77059 . 77944) (FIXPARALAST 77946 . 78482)) (78485 93511 (SPPRINT
78495 . 85455) (SPPRINT.CHAR 85457 . 86441) (SPPRINT.OBJ 86443 . 89501) (SHOWPIECEBYTES 89503 . 91059)
(CHECKPLENGTHS 91061 . 91518) (SBT 91520 . 92657) (COPYPCHAIN 92659 . 93509)) (93512 95573 (POSLINE
93522 . 95571)) (95574 96461 (PRESPLIT 95584 . 96459)) (96462 98179 (ALLTL 96472 . 97729) (NTHCHARSLOT
97731 . 98177)) (98205 108418 (PLCHAIN 98215 . 98743) (PRINTLINE 98745 . 101735) (SL.GETLINES 101737
. 105030) (CHECKLINES 105032 . 106012) (COLLECTLINES 106014 . 106266) (NTHLINE 106268 . 107273) (
HEIGHT 107275 . 107563) (LINEBOTS 107565 . 108416)) (108419 110867 (IPC.DECODEARGS 108429 . 110865)) (
110868 111461 (SPF1 110878 . 111459)) (111490 113868 (SLF.FATPLEN 111500 . 112359) (FILEPIECE 112361
. 113866)) (113901 114669 (SELTEDIT 113911 . 114667)) (114739 120357 (PPARA 114749 . 115171) (PRUN
115173 . 116649) (ADDLINEPOSITIONS 116651 . 118080) (SBR 118082 . 118736) (SBC 118738 . 120355)) (
120414 122186 (OLDWI 120424 . 120795) (COMP 120797 . 120992) (DFR 120994 . 122184)) (122187 123220 (
DFGV 122197 . 122723) (GDIRECTORIES 122725 . 123218)) (123221 129128 (TTEST 123231 . 127763) (LTEST
127765 . 129126)) (129442 130134 (SHOWSAFE 129452 . 130132)) (130187 130634 (MYH 130197 . 130632)) (
130879 131974 (DFVENUE 130889 . 131768) (VSEE 131770 . 131972)) (131975 132429 (PTT 131985 . 132427))
(132788 134369 (DEBUGOUTPUT.STREAM 132798 . 134367)) (134370 137001 (TEDIT-DEBUG 134380 . 136999)) (
137002 137494 (HEXTOHILO 137012 . 137352) (CW 137354 . 137492)) (137495 139231 (TRENAME 137505 .
139229)))))
(FILEMAP (NIL (5171 7730 (GTO 5181 . 5431) (GTS 5433 . 7204) (GTW 7206 . 7362) (GSEL 7364 . 7728)) (
7763 8884 (TEST.TEMPLATE 7773 . 8882)) (8885 9820 (TESTACTION 8895 . 9818)) (9845 24326 (IPC 9855 .
11359) (ILINES 11361 . 13902) (ISEL 13904 . 14515) (ITS 14517 . 16241) (IPANES 16243 . 16478) (ITL
16480 . 16899) (IHIST 16901 . 19563) (IPCTB 19565 . 19991) (IMB 19993 . 20752) (ICL 20754 . 21455) (
IPL 21457 . 21997) (ICARET 21999 . 22526) (INSPECTPIECES 22528 . 23658) (INSPECTFILEPIECES 23660 .
24324)) (24348 53381 (SP 24358 . 29473) (SL 29475 . 33477) (SSP 33479 . 35181) (SPF 35183 . 37715) (
SLF 37717 . 46864) (SHOWLINE 46866 . 50539) (SLL 50541 . 51288) (STBYTES 51290 . 53016) (SSEL 53018 .
53379)) (53382 65734 (STL 53392 . 62232) (CLEARTHISLINE 62234 . 62714) (CHARSLOTP 62716 . 64035) (
\TLVALIDATE 64037 . 65732)) (65735 71108 (NTHPIECE 65745 . 66877) (NPIECES 66879 . 67744) (
NTHPIECECHAR 67746 . 69054) (SELPIECE 69056 . 69498) (PIECENUM 69500 . 70219) (PCBYTES 70221 . 71106))
(71109 74097 (FILEBYTES 71119 . 72822) (TFILEBYTES 72824 . 74095)) (74098 75426 (TRELMOVE 74108 .
74355) (TSCROLL 74357 . 74523) (TSCROLL* 74525 . 75424)) (75427 78478 (TRY 75437 . 76706) (TEDITCLOSEW
76708 . 77051) (PARALASTWITHOUTEOL 77053 . 77938) (FIXPARALAST 77940 . 78476)) (78479 93505 (SPPRINT
78489 . 85449) (SPPRINT.CHAR 85451 . 86435) (SPPRINT.OBJ 86437 . 89495) (SHOWPIECEBYTES 89497 . 91053)
(CHECKPLENGTHS 91055 . 91512) (SBT 91514 . 92651) (COPYPCHAIN 92653 . 93503)) (93506 95567 (POSLINE
93516 . 95565)) (95568 96455 (PRESPLIT 95578 . 96453)) (96456 98173 (ALLTL 96466 . 97723) (NTHCHARSLOT
97725 . 98171)) (98199 108412 (PLCHAIN 98209 . 98737) (PRINTLINE 98739 . 101729) (SL.GETLINES 101731
. 105024) (CHECKLINES 105026 . 106006) (COLLECTLINES 106008 . 106260) (NTHLINE 106262 . 107267) (
HEIGHT 107269 . 107557) (LINEBOTS 107559 . 108410)) (108413 110861 (IPC.DECODEARGS 108423 . 110859)) (
110862 111455 (SPF1 110872 . 111453)) (111484 113862 (SLF.FATPLEN 111494 . 112353) (FILEPIECE 112355
. 113860)) (113895 114663 (SELTEDIT 113905 . 114661)) (114733 120351 (PPARA 114743 . 115165) (PRUN
115167 . 116643) (ADDLINEPOSITIONS 116645 . 118074) (SBR 118076 . 118730) (SBC 118732 . 120349)) (
120408 122180 (OLDWI 120418 . 120789) (COMP 120791 . 120986) (DFR 120988 . 122178)) (122181 123214 (
DFGV 122191 . 122717) (GDIRECTORIES 122719 . 123212)) (123215 129122 (TTEST 123225 . 127757) (LTEST
127759 . 129120)) (129436 130128 (SHOWSAFE 129446 . 130126)) (130181 130628 (MYH 130191 . 130626)) (
130873 131968 (DFVENUE 130883 . 131762) (VSEE 131764 . 131966)) (131969 132423 (PTT 131979 . 132421))
(132782 134363 (DEBUGOUTPUT.STREAM 132792 . 134361)) (134364 137078 (TEDIT-DEBUG 134374 . 137076)) (
137079 137571 (HEXTOHILO 137089 . 137429) (CW 137431 . 137569)) (137572 139308 (TRENAME 137582 .
139306)))))
STOP

BIN
internal/TEDIT-DEBUG.LCOM
View File

Binary file not shown.