From fd1d6b0dd1d0baf0a63526291e44bae5f871dd4e Mon Sep 17 00:00:00 2001
From: Larry Masinter <lmm@acm.org>
Date: Fri, 8 May 2026 10:43:45 -0700
Subject: [PATCH] ooops NLSETQGAG is switched

---
 internal/MEDLEY-UTILS       |  43 +++++++++++++++++++-----------------
 internal/MEDLEY-UTILS.DFASL | Bin 19841 -> 19913 bytes
 2 files changed, 23 insertions(+), 20 deletions(-)

diff --git a/internal/MEDLEY-UTILS b/internal/MEDLEY-UTILS
index 019c4b30..81c138f5 100644
--- a/internal/MEDLEY-UTILS
+++ b/internal/MEDLEY-UTILS
@@ -1,13 +1,15 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED " 4-May-2026 19:19:00" {MEDLEY}<INTERNAL>MEDLEY-UTILS.;9
 30560  
+
(FILECREATED " 8-May-2026 10:41:23" {DSK}<Users>larry>il>MEDLEY>INTERNAL>MEDLEY-UTILS.;2
 30963  
 
       :EDIT-BY "lmm"
 
-      :CHANGES-TO (FNS HCFILES)
-                  (FUNCTIONS REPORT-AND-GO)
+      :CHANGES-TO (ADVICE TEDIT.PROMPTPRINT)
+                  (FNS GATHER-INFO MAKE-FULLER-DB MEDLEY-FIX-LINKS MEDLEY-FIX-DATES MAKE-EXPORTS-ALL
+                       MAKE-WHEREIS-HASH MAKE-WHEREIS-LOOPS HCFILES MAKE-INDEX-HTMLS RECOMPILE-ONE 
+                       RECMPL COMPILE-SETUP REMAKEFILES)
 
-      :PREVIOUS-DATE "16-Apr-2026 22:42:51" {MEDLEY}<INTERNAL>MEDLEY-UTILS.;1)
+      :PREVIOUS-DATE " 4-May-2026 19:19:00" {DSK}<Users>larry>il>MEDLEY>INTERNAL>MEDLEY-UTILS.;1)
 
 
 (PRETTYCOMPRINT MEDLEY-UTILSCOMS)
@@ -212,7 +214,8 @@
 (DEFINEQ
 
 (HCFILES

-  [LAMBDA (BASE REDO SUBSETS)
                                (* ; "Edited  4-May-2026 19:18 by lmm")


+  [LAMBDA (BASE REDO SUBSETS)
                                (* ; "Edited  8-May-2026 10:39 by lmm")


+                                                             (* ; "Edited  4-May-2026 19:18 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")


@@ -294,7 +297,7 @@
                                    else
 
                                         (* ;; "ADDED HERE")

 
-                                        (SETQ NLSETQGAG T)
+                                        (SETQ NLSETQGAG NIL)
                                         (SETQ \TEDIT.THELPFLG T)
                                         (REPORT-AND-GO
 (TEDIT.TO.IMAGEFILE SRCPATH DEST 'PDF)
                                                (CL:FORMAT NIL 
@@ -521,14 +524,14 @@
 
 (DEFMACRO REPORT-AND-GO
 (FORM REPORT-FORMAT)
                 (* ; "Edited  4-May-2026 19:02 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 (BAKTRACE 'BAKTRACE NIL NIL 1 T)
-                (PRIN3 (CL:FORMAT NIL ,REPORT-FORMAT ERROR-CONDITION)
-                       T)
-                NIL)
-         (T (LIST FORM-RESULT)))))
+   `[CL:MULTIPLE-VALUE-BIND (FORM-RESULT ERROR-CONDITION)
+           (IGNORE-ERRORS (CL:VALUES ,FORM))                 (* ; "Only the first value")

+           (COND
+              (ERROR-CONDITION (BAKTRACE 'BAKTRACE NIL NIL 1 T)
+                     (PRIN3 (CL:FORMAT NIL ,REPORT-FORMAT ERROR-CONDITION)
+                            T)
+                     NIL)
+              (T (LIST FORM-RESULT])
 (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 
 
 (ADDTOVAR NLAMA
 )
@@ -538,10 +541,10 @@
 (ADDTOVAR LAMA
 )
 )
 (DECLARE%: DONTCOPY
-  (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 24860 (HCFILES 12193 . 
-19384) (MAKE-INDEX-HTMLS 19386 . 24858)) (25194 29806 (RECOMPILE-ONE 25204 . 27101) (RECMPL 27103 . 
-27706) (COMPILE-SETUP 27708 . 28332) (REMAKEFILES 28334 . 29804)) (29808 30404 (REPORT-AND-GO 29808 . 
-30404)))))
+  (FILEMAP (NIL (1365 8299 (GATHER-INFO 1375 . 6757) (MAKE-FULLER-DB 6759 . 7668) (MEDLEY-FIX-LINKS 7670
+ . 8063) (MEDLEY-FIX-DATES 8065 . 8297)) (9871 12447 (MAKE-EXPORTS-ALL 9881 . 10728) (
+MAKE-WHEREIS-HASH 10730 . 11919) (MAKE-WHEREIS-LOOPS 11921 . 12445)) (12448 25236 (HCFILES 12458 . 
+19760) (MAKE-INDEX-HTMLS 19762 . 25234)) (25570 30182 (RECOMPILE-ONE 25580 . 27477) (RECMPL 27479 . 
+28082) (COMPILE-SETUP 28084 . 28708) (REMAKEFILES 28710 . 30180)) (30184 30807 (REPORT-AND-GO 30184 . 
+30807)))))
 STOP
diff --git a/internal/MEDLEY-UTILS.DFASL b/internal/MEDLEY-UTILS.DFASL
index c5cc40128c687704d6fd1320247aac6c78a262c4..b4e245e62cfc1e7c134cdc7e564544397375e5d5 100644
GIT binary patch
delta 1895
zcmaKsZA@EL7{`0=y)8I5DZ{|rNV!1EDCMPZ(1K9cl@bW0-C6`;6UQj98UkCpNyv0;
zGs`qK4tQMB!aj&uoQcMW^(8G+k_EG{%_xgs7B%~z(fDl(CQ}y|&vPzv_+V_(p5OUD
zFaLATJw0dU$jTg<D&N%{YJa8i+1Ow-<{IgbMkid65m$$|+2`$XO`8iUtXo23C!zy`
z@=#=CP#%a5_8%V%%d)eoqkp2xYPQzN7ITB$(qOesAImFjiAKWx6P2=4rePVwl^gMe
zx4#pu|50}_Za?||iy+q2`_iaRQ*&0O(zHQQX*anK<E3Vjf%i&(QrD{%q!pOb*D-n%
zZt6{p`rx6ygpmVE3=TnDg98RV*$bx)nVm-l4lP9n4lj+V=qH!#%+>A+*hzX+T7%9q
z6DF0-+G%H@q2rwe)mk8b`pD_X3)^P`+s_B`hq34$)$gpA%emU(z#dwz{ssKI(Id9|
zLiVMA?hs}|R(Ti6g}(Ae8kj4emFiU=6+*Ew4}8X)tUXyy)xuv|IBYcM*sM;oP?5M8
zSGy@%VBUC2vRNJVP+C!g;Djy(9I4kU3W=07R!i`;sch7gJc^s6$I^YlHopyLd5X9-
zNhc&tf7E|-e2};h*R%wJ9qvwy++&dp;t#Y*_Fi{;XVC5OqVPEtvJQ51`PxD(_haa<
z)Rnx;Dz0L}G{-TH`(eJaVA8~dG^Q1C%;&g;BiTUdHpg2GacR<592Xcaq8ew2E0NAK
z`~vYL!vZD`@r-5#!Cz$zr)i#emkA8-FhnO&@n`rYQ_)FGGQ^hRTMW@je2uFyj{6ma
z@2h-a>?3d^fg1_jNZ>{SHxjs!z>NfMB>ZdiMzwV-8j(Mka|Twb4JAyt#)M^zeS)a^
z5pjM!O<Q9(u(aorFQFbvj^og(gb^E*dWh7tlk4zljgQ;{!F;f#m<H9q(bFNdxZ8X<
zQJx0(N<B*tnA#f*27)*{mzauc{CM10-Z<-cn?|Hx;fkqb5=nXfZxOGsID5OwiCRUq
zmsj~XK1mlKFnjSPQ?Y}{9+a@R_A*nkgE+iVCiZY_NrKK&ScP>0uM>Ek!0UwdIvBQ`
z(CZTMC;Vgb(dgK~U@R6H9j>M=G@3+QEjI`J?9cP_jMYwtpw`-3_;_faug&9S*Cze%
z(p1&&^h-x|A6&LRPb?tV96DU6+K`A#a&<NKQ)`irkI9s!htO>sAgi#*ev9l;vYMK)
zhY9ITJ*Xvw+(`XdcZqD>WaWTaXA!vy8K;MQlX~Rr7E3opot3n!z~8lCXWNp2V~xFK
z*J+F_Gl3yq1RB4m)g26B<b(Cp`;9va*x_PtRXJQQDpepiJw=a9LsKic0k1ZhCh?%D
zK2r)2FLMNr=M+><NhYGq4k$y1GCZRU7G)?^h8=iQg?#Q%Yg^}IiX>4NAqQDCb5@nA
za^02ag0^{{&PgZYL_U)MktL>~+Y_dDtg{xDJT9`FdgSTaypJ{u^msp{dUi{`K!>8%
bZBlkd*{w9#eW$dG2@sf%atSTMHQ&-d!xklJ

delta 1917
zcmai!ZA@EL7{~89_g<JxguQ?o30_{x%1cWr9gNpm+hUvDw%8VMFtaq2A!eZqFv(=D
zLSklIGmta%c5@$miN?feSeGrfY$gWG6gM3vntd?SnE1_QCd4fJ;5^Sc8z&|vlG5|L
z|MNWm|LM8s-mlM~=`(1~obY?xx@Yez?Y=<76AC!>PA*t_B0fEAZEML3#}AJU4rvEQ
z4i0I9V?)u2p_ryQEdJ;bi``~#(i&P?>BnZv>vD$mf0y~=qp|3bI?bWcY7MIEMESk5
z##^{zF>_UJ{tvf>WZBgJEiHXr87<AR%}7#C7x7f|p<Co^g$-RK*D8Kf+oVP1D{`T-
ziO~u2XJsv;0a9ivXXGGWQ!`d%GHt3vZt|figGNZS>QSu9<mIYbkg85Qs1I)Tzqcse
z4i>-p!mA_ux6TK*9uF1|OZ4wH)qjiwZ9&?W!m{8~=<`waFEX(M98)`H)l{&wFGg(U
zUQ|kso7<_nY(9<J$o^_mt}C}yTD-fBoT#=H*z9%(t}zyps*~bQ@=f(Ig+e3IYw7{)
zB*CE}eXgbiVcAYTwv{WXYO6}tYO50F)FIf1GH~b)`2vk_RmjDMQuG34=$Cp|;JPuJ
z%;^e-{LTo>{K00jfH$bgrl*~IA|a>C1HySK<nHtL>b@|m{mht8Zg&L(ZePR~3|L&w
zFqy2&PrT18E<wjhfd>T!s82z#+Y_*KySpsmNXX;#L$#TeumzR~+$J!01C_r8t_l2>
zVz-1~`N|5D87?wh0yW7H7N;C%co}d?s0RePIg+rYItHtfZ!&@54Tj(@^L&PvnF>L2
ziZ=tEVhBO<>p~qD_$){Ai$#xt4;DdK1Yr?`MGzK2SOj4aghdd35Hx4CKMX<W4ol9G
zYgQ8%zGT7*xo0gxSyEK*FtNJlQZGSyI5i1_mv;fS-mf36--E7@Oude-l3d%qghnUT
z-|3B3x|}{8F1}-xus7=4^vtQAP$(FJs~KZ1nG=8$$m%9o-4Ap|;lJ`a;71$XN}S;u
zsQsc=7r5P6XiH+2Dz7pbEadYH+08l15G>^3jXrrVN8)ZMw?GFL9awZ=(SaXykcPvR
zPZ-HZ0&(roSbT73e0*ed*h(#OWFx6+?qGmDK);eYy8{i9sJ*{Pd4@jUNP$Rco&M8N
z9Uwp1pGQ`*v$44p7N?dQNky|-!AZ>ro`}Q7DtE{mje}^7++yD$#~4~muQ*}|^`&c?
z5JIczy5@I~2{M{C(*|UwJHENssrPuomivz{dXoLzOJseQ3w@v7)zT-IKtppKZNTCd
zV+X6tl5_3-Jy*bNnF$Op(mR|JaCx1fFwA_yO94;u6En+C4Bx&Ln3#kb>1V(fxe<wW
zJWdbKREHO>lI4!t1ROc(!iJahfj}bgHIB>=Wk>kc03ZB(*v*FqK2-4GF?fxIb!XV?
zi|}`1R-u8o0H&q+87V#5c~hYa3b@(|GDZ?<(*}`QZ-yAI7`%sD=G~oWCB56-i&VO4
qjW+VG=Tj<lcNJqg414pHO<BHi8FExVR=8vk%>4OVXNlzbzxW48iY|Qs