add backtrace for diagnostic

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