From 1d309df26e78398fcaee175d017fdbd81df8c0ab Mon Sep 17 00:00:00 2001
From: Matt Heffron <heffron@alumni.caltech.edu>
Date: Fri, 8 May 2026 22:13:18 -0700
Subject: [PATCH] DATABASEFNS failed when writing .DATABASE file for the first
 time if the source file name wasn't U-CASE.

---
 library/DATABASEFNS      |  13 +++++++------
 library/DATABASEFNS.LCOM | Bin 7777 -> 7785 bytes
 2 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/library/DATABASEFNS b/library/DATABASEFNS
index 5b24e24d..a9e7cde5 100644
--- a/library/DATABASEFNS
+++ b/library/DATABASEFNS
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED " 2-May-2026 17:38:46" {DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;4
 18684  
+
(FILECREATED " 8-May-2026 22:08:38" {DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;3
 18791  
 
       :EDIT-BY "mth"
 
       :CHANGES-TO (FNS DUMPDB)
 
-      :PREVIOUS-DATE "29-Apr-2026 17:43:56" {DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;2
+      :PREVIOUS-DATE " 2-May-2026 17:38:46" {DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;1
 )
 
 
@@ -165,7 +165,8 @@ Copyright (c) 1986, 1990-1993, 2024, 2026 by Xerox Corporation.
 (DEFINEQ
 
 (DUMPDB

-  [LAMBDA (FILE PROPFLG)
                                     (* ; "Edited  2-May-2026 17:32 by mth")


+  [LAMBDA (FILE PROPFLG)
                                     (* ; "Edited  8-May-2026 16:18 by mth")


+                                                             (* ; "Edited  2-May-2026 17:32 by mth")


                                                              (* ; "Edited 29-Apr-2026 17:42 by mth")


                                                              (* ; "Edited 20-Feb-2024 23:45 by mth")


                                                              (* ; "Edited  7-Feb-2024 18:26 by mth")


@@ -184,7 +185,7 @@ Copyright (c) 1986, 1990-1993, 2024, 2026 by Xerox Corporation.
               (SAVEDDEFAULTCOPYRIGHTOWNER DEFAULTCOPYRIGHTOWNER))
              (CL:UNWIND-PROTECT
                  (PROG (DBFILE
 DBFN DBROOTFN FLCPR (FL (ROOTFILENAME FILE))
-                              (FNS (FILEFNSLST FILE)))
+                              (FNS (FILEFNSLST FL)))
                        (SETQ DBFN (PACKFILENAME 'EXTENSION 'DATABASE 'VERSION NIL 'BODY FILE))
                        (SETQ DBROOTFN (ROOTFILENAME DBFN))
                        (CL:UNLESS (OR (EQ COPYRIGHTFLG 'NEVER)
@@ -381,6 +382,6 @@ Copyright (c) 1986, 1990-1993, 2024, 2026 by Xerox Corporation.
 (PUTPROPS DATABASEFNS COPYRIGHT ("Xerox Corporation" 1986 1990 1991 1992 1993 2024 2026))
 (DECLARE%: DONTCOPY
   (FILEMAP (NIL (1783 6808 (DBFILE 1793 . 3438) (DBFILE1 3440 . 4950) (DBFILE2 4952 . 6174) (LOAD 6176
- . 6406) (LOADFROM 6408 . 6596) (MAKEFILE 6598 . 6806)) (6864 18072 (DUMPDB 6874 . 12107) (LOADDB 
-12109 . 16984) (MAKEDB 16986 . 18070)))))
+ . 6406) (LOADFROM 6408 . 6596) (MAKEFILE 6598 . 6806)) (6864 18179 (DUMPDB 6874 . 12214) (LOADDB 
+12216 . 17091) (MAKEDB 17093 . 18177)))))
 STOP
diff --git a/library/DATABASEFNS.LCOM b/library/DATABASEFNS.LCOM
index 1d2842245a1aca64c63ea47ef0fe07b46d8e1db3..92227a56a3bc1e3d566cffc92ebfad45e7a150b6 100644
GIT binary patch
delta 1165
zcmZuwO>fgc5Uoq0qJq)}s6f4pA`Xqz5AT<~j(TyDbsOQ>!QP~e#DPjhfIytMaDYfi
z+^Kv;;=&Iolq*7<xbPFWAaUVOAZDG!P7pabJM-So%$u40x%+$f&EZwK)j4{;MQ!Q;
zrFGk@6MFKveS_7Y3R4&nb?O-Gdo7*zZ*Ol`;rQs;{p0`f1*z7SHiCAjnu+qYYR!^N
zLRn|B3MVg}MFvE=9?4!?^^96;Cof!!oL!#(w!G3!;%*S`K>#k8VA-#gDxScDAgqD)
z=fc9Ab+CMK4u1!g{BN~!{(&*e&%^w9u$-~guj`jio&MYX+_Pk8r?(#E*S;WrrLu1I
zv(3upwU7Jv3^;G)oKNRoeVBWfJ*hlJ_(z2f9oXsiG;ryS53Yc2(vHyOU}e29jQoy5
z!$!B#deBk<Fi9ZQG1`73RKW1gp3+7jFfKr=RF4tcE)Xg?A_)cu>biLn0z>MI@)4lI
zDR3@fCsCa|BBkC`MB<DqCdip2B~*;6mt`S>LK4T?bb6!!^Z3o%g-w{5!cYZK8m1bY
z88*&a*aQYD1@1Y}@==bTVjCnYj3N@}1n%@=jW9!QuhT90gij#bE6U|Iho+wZ^St4>
z+05f$8foXNf%h>pb2xNTlV;pZY|xC&<gAU`KZ6sQD_|%!_4}&TFzd%`k$b5pP>MSi
zMtLa=pAel1L{Y_bU}}rZzkYM*LNo3TlJ?%dHj#-(0k^~Ng&H4$_y?4B3A&hULKIU`
zfM6L#Od!k@j@w62NfbxsFoh3+*bE}oR|%k)oPb%%`_2Rvvh?OXaG?>m2EYj5<+L3~
ufW0fGMhU1xts(>9CIF`lHa12hHsi?0Q>!iDJMgl*Yr(ur&fc$mUi=HII2c6$

delta 1138
zcmZWoO=}ZT6z!y7v0$X3mP%>4)J+4no%b>G-iviHO<vMqG81QBl4hq+5f_Sxt^@;u
zd&6v9_yb&2>b9sWH~s||f*XH?;C+*1nrIf`-h1xXIrq))gP#X)kJB&CwbA3oIxoXE
zRlC8{XS>v;J`h@Q{fg_3zL#&!#`pI2w&CRd^9LvY=ZlIfx68{r^=3;~V;vY>OV6G4
z(JOz61ChSu=^LlAI@^wj3TGA1AH7r#J-br)R$R5!PzM2>IO^0}4YXzYV{_|j8Js_t
z78jh}<puop(yf(Er<dMd`MOa&75(D7qlY%WZ2wMgJj#+j_tNX7jY7YedZnAIXGixe
zSa7nOPm8ZVF1$})l%81pSBVZi*za@=a49E-;J8FH#E>tc-fgwQpsj&>62sb<K~2|z
z2?dFX&<_rAaV8ivw6VJb;|z>W%ow3c<_MJpkr<l;oeUu`q(05&5uhH=aqh!@tlL>f
zikG?QNPIS4lyEO^O(-1)CCy`8K^#TKDm!L?bAsxf+$RLk9_o6Sv=Rf}Ts9umb6ptd
z1i12`79gD<K^bts)X6(>rr>TjG6*vcwQjpJO#x2m6mrGIYA%Ip5Cc<UI1!sE3MizN
z92drVoXk*~c4GaB%qY;D&-{6x{(}=gW5AGV67+QK(7r6@vMfp!Ln^}wG0I6!3@A}^
zjVU&m9gH6f;4=uiEmMs;gSgo^GEqO&F%ZQe57}u%s%a|PNPC)}fdctY8UYdRg^f(}
zOd#By^_Yun@JSNlK^TSBn8WdIq3+=_C~1ZZF;nhOQO~ncGu}QE#)HGCHUO#stCMCF
q0t%X+5;f7sMu!%_=K-7&*x4E1J-=DG3`~mjWUXHC<=Ka|^QFJ%cNtOu