From 2e606befcf25800f9c12f8a4442298388a3cfd80 Mon Sep 17 00:00:00 2001
From: Larry Masinter <lmm@acm.org>
Date: Wed, 28 Jan 2026 15:06:21 -0800
Subject: [PATCH] Fix bug / typo in MAKE-INDEX-HTMLS (#2469)

---
 internal/MEDLEY-UTILS       |  26 +++++++++++++++-----------
 internal/MEDLEY-UTILS.DFASL | Bin 17108 -> 17115 bytes
 2 files changed, 15 insertions(+), 11 deletions(-)

diff --git a/internal/MEDLEY-UTILS b/internal/MEDLEY-UTILS
index b7fa404f..8f32114e 100644
--- a/internal/MEDLEY-UTILS
+++ b/internal/MEDLEY-UTILS
@@ -1,12 +1,15 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "27-Jan-2026 10:51:16" {DSK}<Users>larry>il>medley>internal>MEDLEY-UTILS.;5
 26509  
+
(FILECREATED "28-Jan-2026 11:03:17" {DSK}<Users>larry>il>medley>internal>MEDLEY-UTILS.;3
 26880  
 
       :EDIT-BY "lmm"
 
-      :CHANGES-TO (FNS MAKE-INDEX-HTMLS)
+      :CHANGES-TO (FNS MAKE-INDEX-HTMLS GATHER-INFO MAKE-FULLER-DB MEDLEY-FIX-LINKS MEDLEY-FIX-DATES
+                       MAKE-EXPORTS-ALL MAKE-WHEREIS-HASH MAKE-WHEREIS-LOOPS HCFILES RECOMPILE-ONE 
+                       RECMPL COMPILE-SETUP REMAKEFILES)
+                  (ADVICE TEDIT.PROMPTPRINT)
 
-      :PREVIOUS-DATE "26-Jan-2026 12:32:45" {DSK}<Users>larry>il>medley>internal>MEDLEY-UTILS.;4)
+      :PREVIOUS-DATE "28-Jan-2026 10:46:02" {DSK}<Users>larry>il>medley>internal>MEDLEY-UTILS.;1)
 
 
 (PRETTYCOMPRINT MEDLEY-UTILSCOMS)
@@ -277,7 +280,8 @@
                          (PRINTOUT T "DONE" T))])
 
 (MAKE-INDEX-HTMLS

-  [LAMBDA (BASE TOP LEVEL ROOT.NAME)
                         (* ; "Edited 27-Jan-2026 10:50 by lmm")


+  [LAMBDA (BASE TOP LEVEL ROOT.NAME)
                         (* ; "Edited 28-Jan-2026 11:01 by lmm")


+                                                             (* ; "Edited 27-Jan-2026 10:50 by lmm")


                                                              (* ; "Edited 23-Jan-2026 11:59 by lmm")


                                                              (* ; "Edited 29-Apr-2024 14:18 by lmm")


                                                              (* ; "Edited 26-Apr-2024 16:15 by lmm")


@@ -309,9 +313,9 @@
           (CL:FORMAT S "<TITLE>Index page for ~a</TITLE>~%%" (SETQ SLASHED (SLASHIT BASE)))
           (CL:FORMAT S "<META CHARSET=%"UTF-8%">~%%")
           (CL:FORMAT S "<SCRIPT>~%%")
-          (CL:FORMAT S "    function uponelick(){~%%")
+          (CL:FORMAT S "    function uponclick(){~%%")
           (CL:FORMAT S "        var newLoc = location.href.replace(/\/index.html$/i, %"%");~%%")
-          (CL:FORMAT S "        location = newLoc.replace(/\/[^\/]+\/?$/, %"%");~%%")
+          (CL:FORMAT S "        location = newLoc.replace(/\/[­\/]+\/?$/, %"%");~%%")
           (CL:FORMAT S "     }~%%")
           (CL:FORMAT S "</SCRIPT>~%%")
           (CL:FORMAT S "</HEAD>~%%")
@@ -468,9 +472,9 @@
 (ADDTOVAR LAMA
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1050 7984 (GATHER-INFO 1060 . 6442) (MAKE-FULLER-DB 6444 . 7353) (MEDLEY-FIX-LINKS 7355
- . 7748) (MEDLEY-FIX-DATES 7750 . 7982)) (9163 11951 (MAKE-EXPORTS-ALL 9173 . 10232) (
-MAKE-WHEREIS-HASH 10234 . 11423) (MAKE-WHEREIS-LOOPS 11425 . 11949)) (11952 21491 (HCFILES 11962 . 
-16225) (MAKE-INDEX-HTMLS 16227 . 21489)) (21741 26353 (RECOMPILE-ONE 21751 . 23648) (RECMPL 23650 . 
-24253) (COMPILE-SETUP 24255 . 24879) (REMAKEFILES 24881 . 26351)))))
+  (FILEMAP (NIL (1312 8246 (GATHER-INFO 1322 . 6704) (MAKE-FULLER-DB 6706 . 7615) (MEDLEY-FIX-LINKS 7617
+ . 8010) (MEDLEY-FIX-DATES 8012 . 8244)) (9425 12213 (MAKE-EXPORTS-ALL 9435 . 10494) (
+MAKE-WHEREIS-HASH 10496 . 11685) (MAKE-WHEREIS-LOOPS 11687 . 12211)) (12214 21862 (HCFILES 12224 . 
+16487) (MAKE-INDEX-HTMLS 16489 . 21860)) (22112 26724 (RECOMPILE-ONE 22122 . 24019) (RECMPL 24021 . 
+24624) (COMPILE-SETUP 24626 . 25250) (REMAKEFILES 25252 . 26722)))))
 STOP
diff --git a/internal/MEDLEY-UTILS.DFASL b/internal/MEDLEY-UTILS.DFASL
index a05d7fe12d7c7df1ab9b74c4dd13cbe0f5498bd8..00401e75e14ee85dc9a197e6d8d94c9f3466971a 100644
GIT binary patch
delta 230
zcmcc8%6Pk#aY9t0F;{SYX;E^jLRw}{szP#6YGO%hih_}au2*87u91O}nS!CAm4UI9
zp*feEW3UgZvhdWDywu{9#7Z5Y4h5i&(!`=l1&}TsxVDWu=Q0apF>Z1uiy5Qw<^?R4
z3d|P97L)I&OaRj6oAXs~vaqnY8=7tQ)-q;<uo|@|fyK->iy7=^28o$(zG3Xm!nk&_
fibXDC^5#hv{Y=ajCPtf8tfzwYm~Y-=Bf$m$8oWYZ

delta 223
zcmccJ%6O%faY9tQDOYfQX;E^jLRw}{szP#6YGO%hih_~3u2*87u91O}nS!B#m8qeX
zp&6H(W3UgZvXIi$;*`Wn9iVyzp!(9pqDlpj9v!%*jl1VE3u7^CayE+@qv_^FES3t)
zhDK(S@2N}x(x#gWRd2E|GrOB__R}(E1T$K-CxJvPHcK1qX9hFw8GExZ#!c3;$Yo63
ZJj0@&iP_NDV6&F>RFDRX&4+Cy*Z?~`Kx_a2