From 4ea799cc15b755fb1fa3074d6b1369755f2ab53f Mon Sep 17 00:00:00 2001
From: Larry Masinter <lmm@acm.org>
Date: Mon, 4 May 2026 16:59:02 -0700
Subject: [PATCH] add backtrace for diagnostic

---
 internal/MEDLEY-UTILS       |  25 ++++++++++++++-----------
 internal/MEDLEY-UTILS.DFASL | Bin 19643 -> 19782 bytes
 2 files changed, 14 insertions(+), 11 deletions(-)

diff --git a/internal/MEDLEY-UTILS b/internal/MEDLEY-UTILS
index 98a94bbe..60311de0 100644
--- a/internal/MEDLEY-UTILS
+++ b/internal/MEDLEY-UTILS
@@ -1,10 +1,11 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED " 4-May-2026 09:39:07" {MEDLEY}<INTERNAL>MEDLEY-UTILS.;3
 30262  
+
(FILECREATED " 4-May-2026 16:56:44" {MEDLEY}<INTERNAL>MEDLEY-UTILS.;4
 30452  
 
       :EDIT-BY "lmm"
 
-      :CHANGES-TO (FNS HCFILES)
+      :CHANGES-TO (FUNCTIONS REPORT-AND-GO)
+                  (FNS HCFILES)
 
       :PREVIOUS-DATE "16-Apr-2026 22:42:51" {MEDLEY}<INTERNAL>MEDLEY-UTILS.;1)
 
@@ -515,12 +516,14 @@
                (TERPRI])
 )
 
-(DEFMACRO REPORT-AND-GO
 (FORM REPORT-FORMAT)
                 (* ; "Edited 16-Apr-2026 16:02 by mth")

+(DEFMACRO REPORT-AND-GO
 (FORM REPORT-FORMAT)
                 (* ; "Edited  4-May-2026 16:56 by lmm")


+                                                             (* ; "Edited 16-Apr-2026 16:02 by mth")

    `(CL:MULTIPLE-VALUE-BIND (FORM-RESULT ERROR-CONDITION)
         (IGNORE-ERRORS (CL:VALUES ,FORM))                    (* ; "Only the first value")

       (COND
-         (ERROR-CONDITION (PRIN3 (CL:FORMAT NIL ,REPORT-FORMAT ERROR-CONDITION)
-                                 T)
+         (ERROR-CONDITION (BAKTRACE /BAKTRACE NIL NIL 1)
+                (PRIN3 (CL:FORMAT NIL ,REPORT-FORMAT ERROR-CONDITION)
+                       T)
                 NIL)
          (T (LIST FORM-RESULT)))))
 (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 
@@ -532,10 +535,10 @@
 (ADDTOVAR LAMA
 )
 )
 (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 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)))))
+  (FILEMAP (NIL (1100 8034 (GATHER-INFO 1110 . 6492) (MAKE-FULLER-DB 6494 . 7403) (MEDLEY-FIX-LINKS 7405
+ . 7798) (MEDLEY-FIX-DATES 7800 . 8032)) (9606 12182 (MAKE-EXPORTS-ALL 9616 . 10463) (
+MAKE-WHEREIS-HASH 10465 . 11654) (MAKE-WHEREIS-LOOPS 11656 . 12180)) (12183 24754 (HCFILES 12193 . 
+19278) (MAKE-INDEX-HTMLS 19280 . 24752)) (25088 29700 (RECOMPILE-ONE 25098 . 26995) (RECMPL 26997 . 
+27600) (COMPILE-SETUP 27602 . 28226) (REMAKEFILES 28228 . 29698)) (29702 30296 (REPORT-AND-GO 29702 . 
+30296)))))
 STOP
diff --git a/internal/MEDLEY-UTILS.DFASL b/internal/MEDLEY-UTILS.DFASL
index bf322fe1ea5c3dd6b486aab49590ab59bdf44dcb..9c1e1d4525c77f329bef4eed2e1aee3bf5c362da 100644
GIT binary patch
delta 2704
zcmaKu4Qx|Y6vyAa@3kFsgKlnPAAxmj-Q=rl*Rn5B=(@J+*7c3HI;JRJPBxZozzCQ)
z+?Y{GZ1~tgeT67GH73S{%!x`?C7@0vpduQhMrRZuMiW1xM2SJ~IS==g5WD5w-~Hcn
z?m73|dtW<|WRnNj-XQbrYbr@|Ro5@6uJ?HMZLXN+u|rexbO#<(N||T;d8K!**)=Rl
z<|>$5+Ri?MZKY23G(1;&fxQTO%8J<<I9yi9w!_J?N*07mW%l`st-DVWAJuvtHpjxF
zW6~#T9%<>Qtj^xAW{*iHpvk@~!`XgkS65F4S;856C1>ft%gc*ScCTM|tb6@k$H*^>
z6=qqBR1Z7at6T<O`Hl?7zx|GvFLf?%6>+{-^Y(QOb+67IQL`UX^ETkLKMDQJm04_A
z))IBOn8ox1EUwsgb@Uu~wPKF-?w@dup)ULz9b+Z%ZAE}vX2IeccK<i*8G8<Va6_}D
z-BK@&U8;bR`Bj;<b$o&LNW$cGy6T*;X8sVbt%a}WyLfF4<Sr0RH8d@_I8T_&sBG}I
z#G_uHUv?(v$}W^5;g~<ZBIpguRj^`V4s*lZ3+>DdiG?MD9k>lS$xYZ~Vu-eADB>19
z)1M@oeoKlDn?U8ffnRBR66Sy!ZS}@+<Wm|+A-*LhN&6=U6rL4=WmW5~;ZTfhpVUSY
zIX*Sg7>b8fC|Z;~Z$Ejzj>dxq-eKS}P#5J5nhHpvR5A@zrcwFbz#k2K!@$=FF;C@X
z14jv8Lv@%CQ&Dyh9z)!WILJs|Wmwc3=n;#YC05uLQ*Vj-{DDx|-zI$I@2QCLIkLpe
z<&O<~pAfT=-!bqdLd-@s3M21H4hn@~I`aKwf!WBt28Im`h-|Xseo<jZTy=z6y+O(d
z9cJQg_`+(;A6SO{8KOT^ZSzOs{+01qJnHwhqRePAOpSj=I5FHV_#;C;ZQxNt%$O$$
zF*U9yj|uZ#hT3o73LPQeQI&y_n7(}}xYc2wN5ToRn8Y!viu48IQ>3QgafioFW-F81
zP>&_IW7DJ$BkCJ82^SqL>|JQ6472xOPvzRd55=ODfHxEtMy6fjD4YDzs2asyzqU7F
zj^M$j!A_d&BQc^JCj1alSI;8083qjori%cark9UTyUE)L&klEp0<W7kmg5F`2}5FH
z{xjwn_tTx>lcZy8K0t`E`G#pn-k~GB<J@XDTeQT?NS|%fmcI3!{r%m&8yv#g^rMzA
z*&5Y|A3LXEt;@sW@TlvyTqWpo)-k$9(y!vxhT~zd26CaGD#%U6u&%1cjR8&9YYD~X
zaNu;xW#p}WHstTLL}puKKt$~B-74ad_&l7dayyh9?Vtvn();cTNDob~LH_bzS;;9_
z?5?RV{$CG%NfT$gv!CMhZR+f`-M3axi64h2+>O?&qm2LJR$1QXqMW8sq|v{UViz)8
zPZP8+d7I@zadlB~KI(inJ@b+qcPeucr7yF{{?vF!bq}kaEzcl>>*aK6^X2QP%_E~J
zi%Fu3BaLdn@IN7H>vF;$HO1_8D5&+ZGjK=kVfN{GX5DVSgo3dt6Tg<1YZ2yS9A@sJ
z7%6!F#@ou@6=Up85(r-rt20M@P2Ok>M_#yMsxHl+O}B?mo_>2a>Rxc)(t=yaw-p7B
zU&qXjD3NL-wGve;p%XDJ*^7-#c6b@3i-_zLB7HsZ68K@MZ4mFJWV~XfXUL3HFz^8#
z^?Q-()_b?>4W-3W%k-X0Z%XwhUo6)W3wvWtp*U>_ODQ5CpM}HH$gnj2@J*ZK;&V*&
zNW%RXVj1LpUO(#W0u*|0X6ME`yje`V9eNrHYI^c$-{`dRE)8USHMB+5U_>xEPiP5d
z+d17sjrYJr!x~=afjPdiq5*Mqc!9_-9bc;Y3)M`nljEy=E>=Ato0BVL3whp415+mX
zS_i;0TTFhX_%=AvILaoW)4$z9MdSCtH~wb3KEXMO|7V?PH0^n&-?|GB4NR2|$Z2>+
zVo_gXD4KMqF%eS66^gsrMac|6JXpad#|MICyx=iT2bpV}3doas06qXmL#1p0z6b@G
z3+&BX*dfrGTiIQ3zS+V0z}ixtTSz~P3Jbdm#mB1qAA#l;_slv<ETy0133#|A=ry<N
zB^Nd2qS^}nN+7F)D(+d6c<fv*9;6+p)WAffe~}*<8e${i5q1P1Y?nXy>#x57T?7qC

delta 2480
zcmaKu3v5$W7=Z6Nw+|SvZH_UvWb53z0o(dm$GVN7l&$T$b-kl2@(_6=6wQVVL5VnC
z@{l@#AEZM}WFf=^AIuU66obKKJOlv~MWYi%9-0^+N{I0Rp8vl~Z+ygVz2`gs`=0Zk
zllJar@lLkY%N*P4atGKds~nY8Hs`iy3XT2P{pJ-pA%~5+Jm!cU(6wY6Y-=USV1S&w
zDePTXk!NEo;H|uyYy)h~&tWs+V16cRfRFR7EDL_mH;<O@hFc}^QIZGYaKhi!EuB-+
zNtT3?S*bge)Nbhr_{^J_8T!mtE<J#u1qE3r!t-W}@7xn)oWe3wlCzXDcC<zJ3n&Gv
zSRQ;)P;DF0C?bBVq;FfaIy@_NyOO$5NneP8?+AHszpE)FIaiq=T=kzrZQ*i}r?=3a
zJpT?ltzLwGUEM4ljH5i<a0`@C9U}OTqh=b{8LOo3-<lyXx^#%s&c{S|M)WS5-B}8+
zj9$&1HW)U>&dV!dA`TVs?3jC_I<sY)FdG=~H@icVye_Y77t>)gLhf2$$P%h^`<py|
zuUraUMP{al(?z*+CyOQ3|IoPvhwm^&Q_vT1;OwF*Jku#A>=;UpX?Q65YQ*4Cf{m^a
zYThAD9C5t}Vw}<VnBUh-s&<%BoZa3=2FKB0riRrTW@DjBlRHq-RO=~e4h7w=Mq#b{
zl}s?b?k5eu*YL82pJ>>n;U0nY62szjJ4sCVG$B@`TS)i;;^UgsqhY>=*$^lh(f%2&
zjjSb<Pml@LDIX=oB=Y+jZcfCI*Arqs`8iEGPeYf6<HWk8_V1r!@in@<ZjTRcml)b*
zT<99V((Lv;Dnjx5Vm=gCFyx*ZN-QA1N3pOPet{5c<m#@H^rU9cnaIm`5MqsdlP1-+
zksBweV%T6Q9gKmPx>a%Lv6vqwff~67b%)Sc>O<U1esLINEn{(*V9ijyt4Q1f^Q{f+
z6dbhr**W;rI;VZVcrBgB<?{<){X)@pdUr6W1aTIOZjBfM*o364r3jx2jjn_6BBDZg
z2~kZ!2E_?m`L0O7DZG3j;U=r?acS)|u}M=jW1oiQggz0N-@qC}ZfbZQPXysF5Mpkw
z_88{o)6^JHZeM2Be-(`k4YZn;ENz{)psg+3vd|(-^dChddQ+_uaN}ezT(Flh2k1(t
zr^#Mt1=C>w>8|*qx(M1zXK>wpxK!$N(0l$Ijp$4k3r5oQAunq+A)k&$hKSQ8l7(BA
ziBu%q4C5RQi+n%&dK5TScC#O(jfwJQ;hHE&-Vb{m&Z@Nk_29RoqHh<pQJ&T%3tCJs
z&QVL^hha!rZSp^}#O9PKjC~2+W7Ak6^o~8n9)gbYtekW#f)A%>TIb?5x@<)0n-nVU
zZ0vOTQ*7*Tc_102$VoJ&%Y$f4Bcnc}USdd6R}>ijN5nc-LbxJ_9f!>oHS7YMuXvAL
zj;*Tf;ANDH_38P)ohod_SWO*;rPEWUB21{BUT{k2SPuyZkBGJ~1ZwJB!DiIF-EaC~
zb;bxf6f01m9*V`P7u>EMIhlMLQNXR}XC|{Vh$fPjASM&y9<u?REjY+zhi6Pu5B*uh
z8)TOQPmDLUW5v>86wq}j?b8r6d`U&Bj>W_3OuZQ6R2GXrstWDukf#nA;&qM9ephpy
zFGSnH;yRIv4@0%IeXSJxWBd|1=PDC365(#FW`oK5n%dRuI&5)0!mh^7x>A_92fm&-
z(iu*tU8CmYPewt;OQ0#JcmsmT`B*f<OluM|l<_bW*UaY5a_FeZ&sr%OhmREXCE*3B
zUXBKG?TMYQv9qx&Wkcsw*+`zxlcG;A|HuA2M&RP9Yo85e?k?5?m)$Fj>&SCCO!m~9
zRsX9J|J!R0ps3fFdd99pkLL<o3H!Xc;@RshWIeH4-h4iCC#O#3uW?!<zDo_lS3*&J
zo-kGFz03-`>X))NAgQ5I{OXz7V1bvNNwBjaBaMD?WM(eP6rW@@KnzYcIEMDOsg;U2
n2D0DF^^?Hw&q%AsO{fu%HRHsC^t)k;e>;mocB5H7|KP!2@vYU}