From 6406e1cf06dc9d69b5ea88580a6073b24419e7b4 Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Mon, 4 May 2026 09:42:55 -0700 Subject: [PATCH] more changes to get better diagnostics --- internal/MEDLEY-UTILS | 16 +++++++++------- internal/MEDLEY-UTILS.DFASL | Bin 19600 -> 19643 bytes 2 files changed, 9 insertions(+), 7 deletions(-) diff --git a/internal/MEDLEY-UTILS b/internal/MEDLEY-UTILS index f1c74f41..98a94bbe 100644 --- a/internal/MEDLEY-UTILS +++ b/internal/MEDLEY-UTILS @@ -1,6 +1,6 @@ (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) -(FILECREATED " 3-May-2026 13:56:51" {MEDLEY}MEDLEY-UTILS.;2 30138 +(FILECREATED " 4-May-2026 09:39:07" {MEDLEY}MEDLEY-UTILS.;3 30262 :EDIT-BY "lmm" @@ -211,7 +211,7 @@ (DEFINEQ (HCFILES - [LAMBDA (BASE REDO SUBSETS) (* ; "Edited 3-May-2026 13:56 by lmm") + [LAMBDA (BASE REDO SUBSETS) (* ; "Edited 4-May-2026 09:38 by lmm") (* ; "Edited 16-Apr-2026 22:42 by mth") (* ; "Edited 30-Jun-2024 08:27 by lmm") (* ; "Edited 23-Apr-2024 23:15 by lmm") @@ -290,7 +290,9 @@ (if (EQ REDO 'TEST) then (CL:FORMAT T "Testing open ~a..." SRCPATH) (CLOSEF? (OPENTEXTSTREAM SRCPATH)) - else (REPORT-AND-GO (TEDIT.TO.IMAGEFILE SRCPATH DEST 'PDF) + else (SETQ NLSETQGAG T) + (SETQ \TEDIT.THELPFLG T) + (REPORT-AND-GO (TEDIT.TO.IMAGEFILE SRCPATH DEST 'PDF) (CL:FORMAT NIL "~~%%~S TEDIT.TO.IMAGEFILE of ~A -- Condition: ~~A" 'FAIL SRCPATH))) @@ -532,8 +534,8 @@ (DECLARE%: DONTCOPY (FILEMAP (NIL (1056 7990 (GATHER-INFO 1066 . 6448) (MAKE-FULLER-DB 6450 . 7359) (MEDLEY-FIX-LINKS 7361 . 7754) (MEDLEY-FIX-DATES 7756 . 7988)) (9562 12138 (MAKE-EXPORTS-ALL 9572 . 10419) ( -MAKE-WHEREIS-HASH 10421 . 11610) (MAKE-WHEREIS-LOOPS 11612 . 12136)) (12139 24586 (HCFILES 12149 . -19110) (MAKE-INDEX-HTMLS 19112 . 24584)) (24920 29532 (RECOMPILE-ONE 24930 . 26827) (RECMPL 26829 . -27432) (COMPILE-SETUP 27434 . 28058) (REMAKEFILES 28060 . 29530)) (29534 29982 (REPORT-AND-GO 29534 . -29982))))) +MAKE-WHEREIS-HASH 10421 . 11610) (MAKE-WHEREIS-LOOPS 11612 . 12136)) (12139 24710 (HCFILES 12149 . +19234) (MAKE-INDEX-HTMLS 19236 . 24708)) (25044 29656 (RECOMPILE-ONE 25054 . 26951) (RECMPL 26953 . +27556) (COMPILE-SETUP 27558 . 28182) (REMAKEFILES 28184 . 29654)) (29658 30106 (REPORT-AND-GO 29658 . +30106))))) STOP diff --git a/internal/MEDLEY-UTILS.DFASL b/internal/MEDLEY-UTILS.DFASL index 8b2b402229cfcf19f09fbf64deb6ddd4443bab3a..bf322fe1ea5c3dd6b486aab49590ab59bdf44dcb 100644 GIT binary patch delta 2359 zcmZ{ldu&rx9LMiD_jU#3H5o%TWMykR_Gs4^>s~5l>$GM8Cts9nm4tz8VoK=L-SUP!{#V8*vc!M|YEe&$=maq?? zJI}_t;oZDzx=Lw4c@_GNr9|~`&R9g04SyMPk>op&YjSf%hUF$BtATB%K6W2uvpM^8 zdrOn}f9`arB>vJ_R{GTJkc*w{P;Nt&xk&h~F~80#;kMbqz6WzYM%U+WXRUA{e=)lW z=DAfuX_<>YH|Lu4+w~RFz}*OB6*wlj?YuC)Kc@58>~04vE7-=}Hn>_~=cVN^xlk-+ z;3@oj&iG&;;*Boyd3>^6xKCLT_15^K)@YqK&{!Mr$quM2GBF)A7nys1O>7Wbp!*5a zHirE{C*ECD#WM+U!v;|q)bK=nPb{rA6mIZD(egf7QiwZ568(yX#Q}eWOug~Fv5e|a zP!#uvf|hDe#B1?}!=Z2@gzg(fWUs_dA+Mw?gjE{O#_mIn-k_zirq&XPhP|E!;jR2h zF4&mzn}*jkysY7Q4G(MhHesr-SEShgfCa86#5R=Ggr6cV*VI}KjT%y);;9=Wp{K*u z-dcaa+b9C%?`R)otp)is1!3p%Nkl)xos*A~Ot@<-t-ON}TaaJW)D{gr8dgGs#kUMI z@C&434X(aHQa>k^FfkU!_YqI(;Ln~hiFvB|+s!-lTTmbQ%>+dEcU zg@^8ocuZ%g2?f1)a|lZ9F6M-F_7#u1%b0@E(jD=S#v-_4f0o??x5MqEXSo%RDF&+* z(r21U&dpT#3>P#+B-IhIwbCbLk^eaUi_^%aBAw82O#Yn>s%I*W6j7%fjiyV z8UG&vQD@84f2TtF@hCGsZ z<(YJyPS=dY+Lx8th|&+~xUjQHYw0>RZ@N659Ma_pv}VeW(3(L`BYK_0kfg(LVEBp2 zK6g2scjvHEaMNAQE`X!#Lv}eiTDF_Js1_U1@&5*u*^03zZ9ch+Dx}~@z^oX{ERrZ(w}tkn{=VWI$iMPhVVvos*`5>!pI zDE17pfn*EfR6;8xs%A|*D+K9h5^~_PDnl=xJ?SG9=$l45q9JJbii*@5OSP+a>epV1 z8eplXRMD<3dFt|*Xj>l%cp`QFD7_z+QbZ{}162OnPlJqkI+4h&b+z;gByVm`V-CW6bdK*d1!T9r_nEad#=) zT42oX5tGAbihd^G4~F_%kw&3INqe=O&FhiV5=&)0MQ$a-h)#aU061shW~rMx8xGVQ zWC1@i-H65a#5{dvOmxZlT0;I6-m9fao>4zMKT)R&J-l~DGva(;Bb8B=hJ=t2ZEVPWa($<*8r23=zN9zZbTiNsZd>!A_j2-v9p7-b1 z^Lf6X?~TRSQStE=+2@6O_Vl%NC=Yf$+@ZAfb+q<(v@43k($KokVlTCqDK^JiSJ_&Z z?b%1tmxcFqx3}&qQ5=deD`+m6vyZ;?rJR0;I5?y;GJE{At~)o$IwDE>zaiJSk-Y(X zjisyy-ZakWE2L4~0XSkRBl5r{Q!!CG+%)AQ$v0qyxtz7vKv-iMKh*6=!N7)XzTG-64f@Ni;P|y7CY1y{RLgc z`AmjLaly9fST8pAH3l_?`~e5tsnF?iWc6 zTN|3|{b4cn7W>Q2ajp5*ikjGo&ulF{JNcl3|jjSC(K1)G(a(R?6 zfp}WOVL~h*?Uwqwj;wASIw>wySL62A3n%?{F-UrEC=?9gt}c2sk`%zPB4Z_G z_*__YhX_AI^bt-X+BFB$9LhID0Z!@VSLecHbp|F!vcc|O+Q>LbD$ zymQWhx2OmcrF%?YL?a6WJxXt1Pg}?C-Cf=oG6JQ|YcC_xC8s??)pG8mntWwXW`d zQH#W3_|)#S%tlW{fz!dhzYWskw8f0Fh@3l+d=e~<@|^kq9|1#-w$%ToiT~^fvdpi< zrRx2GYVRgWp3Sg{JlN>^n598pSx#OC>O7sk7sYlC>v9pLZ_>zrBHmKAi@DO}yT~C$ zo=0njd^fF&$Z5);ml%?CDhdog5!vTl1Amt1vGb6%#=|bdwl#0DEAa&t&u}NzVpDp4 zhoFiQJdHMu+({J@FnQ1Bf(ydNJ|uzgtmrK%;HhUIHmcxxoWhjBdyJRDL zO+(P|F%{`_EYYRz#LtMxn4n{^#C__{rY=TxSt{B!gzMemT7MHg4wle~AfAF|>A4Xp ze)!&AId7VY9ZC2!4zl?aeO;YnHUru2b!zQfpAmE>uyM*(DC?IkBy}d z%1NWqah`x5M1z3gQ$UVVyPs{Op_*@vgK{#?L^$NB_J?AQWF|&T#*W0R_7D{xgeG4h8;|eznRpg(8e4vh(}nTl yY5_h73BQpI!Zp8-S-@P^$4)@BZj_Be-TI2;#A>R1E`E5ufe8)j&GIL=Zv6wR+>bZ_