From 2a6e2de6f35f9414c2cc14fbd5a5d59ca297d55c Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Wed, 13 May 2026 12:49:09 -0700
Subject: [PATCH] Update to UNIX-FILE-NAME

---
 library/UNIXUTILS       |  22 ++++++++++++----------
 library/UNIXUTILS.DFASL | Bin 9231 -> 9235 bytes
 2 files changed, 12 insertions(+), 10 deletions(-)

diff --git a/library/UNIXUTILS b/library/UNIXUTILS
index 2a6eac9f..b2beae1d 100644
--- a/library/UNIXUTILS
+++ b/library/UNIXUTILS
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "28-Apr-2026 09:59:13" {WMEDLEY}<library>UNIXUTILS.;61
 22079  
+
(FILECREATED "13-May-2026 12:28:06" {MEDLEY}<library>UNIXUTILS.;62
 22210  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (VARS UNIXUTILSCOMS)
+      :CHANGES-TO (FNS UNIX-FILE-NAME)
 
-      :PREVIOUS-DATE "27-Apr-2026 11:10:07" {MEDLEY}<library>UNIXUTILS.;60)
+      :PREVIOUS-DATE "28-Apr-2026 09:59:13" {MEDLEY}<library>UNIXUTILS.;61)
 
 
 (PRETTYCOMPRINT UNIXUTILSCOMS)
@@ -294,7 +294,8 @@
          SLASHED])
 
 (UNIX-FILE-NAME

-  [LAMBDA (FILE ACCESS COPY EXTENSION)
                       (* ; "Edited 31-Mar-2026 00:13 by rmk")


+  [LAMBDA (FILE ACCESS COPY EXTENSION)
                       (* ; "Edited 13-May-2026 12:25 by rmk")


+                                                             (* ; "Edited 31-Mar-2026 00:13 by rmk")


                                                              (* ; "Edited 29-Mar-2026 00:26 by rmk")


                                                              (* ; "Edited 19-Jan-2026 14:05 by rmk")


                                                              (* ; "Edited 17-Jan-2026 22:32 by rmk")


@@ -319,7 +320,7 @@
                                               (NIL (SETQ ACCESS 'INPUT)
                                                    'OLD)
                                               (\ILLEGAL.ARG ACCESS])
-        [SLASHIT
 (SELECTQ (FILENAMEFIELD FILE 'HOST)
+        (SLASHIT
 (SELECTQ (FILENAMEFIELD FILE 'HOST)
                      (UNIX (CL:IF [AND EXTENSION (NEQ (L-CASE EXTENSION)
                                                       (L-CASE (FILENAMEFIELD FILE 'EXTENSION]
                                (COPYFILE FILE (PACKFILENAME 'EXTENSION EXTENSION 'BODY FILE))
@@ -345,7 +346,8 @@
                                       [RESETSAVE (GETFILEPTR FILE)
                                              `(PROGN (SETFILEPTR ,FILE OLDVALUE])
                                   (COPYFILE FILE UNAME))
-                              UNAME)])])
+                              UNAME)))
+               NIL T))])
 
 (UNIX-TMP-FILE-NAME

   [LAMBDA (NAME EXT HOST)
                                    (* ; "Edited 17-Jan-2026 22:28 by rmk")


@@ -384,8 +386,8 @@
 
 (PUTPROPS UNIXUTILS
 FILETYPE
 CL:COMPILE-FILE)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1208 1581 (ShellCommand 1208 . 1581)) (1583 1980 (ShellWhich 1583 . 1980)) (2090 21695 
-(ShellBrowser 2100 . 3872) (ShellBrowse 3874 . 4559) (ShellOpener 4561 . 6249) (ShellOpen 6251 . 12198
-) (PROCESS-COMMAND 12200 . 12813) (SLASHIT 12815 . 16127) (UNIX-FILE-NAME 16129 . 20014) (
-UNIX-TMP-FILE-NAME 20016 . 21693)))))
+  (FILEMAP (NIL (1207 1580 (ShellCommand 1207 . 1580)) (1582 1979 (ShellWhich 1582 . 1979)) (2089 21826 
+(ShellBrowser 2099 . 3871) (ShellBrowse 3873 . 4558) (ShellOpener 4560 . 6248) (ShellOpen 6250 . 12197
+) (PROCESS-COMMAND 12199 . 12812) (SLASHIT 12814 . 16126) (UNIX-FILE-NAME 16128 . 20145) (
+UNIX-TMP-FILE-NAME 20147 . 21824)))))
 STOP
diff --git a/library/UNIXUTILS.DFASL b/library/UNIXUTILS.DFASL
index 75d2324237209d94f142ed7aaeb9611df8d55331..2e939088534fc94126edf2d165d82830f256e07e 100644
GIT binary patch
delta 241
zcmeD8nCvk@V{#sgOso-CaDHh~a;idFW=^U?a#3nxNotCMp|P%SVx_K;fsvVlp^=r5
zg_VIBmz!g-52~{8)Rer`;*`Wn9iR>cpbiC)4j>1t#n5u&qRq?_*vy*RBUcTwp3!J?
zH%mDqqs3-sHf|;sW_Lq_&4L`RY|KVR#+xJgR<nSF3@5V-_k$Qln`a6uF#+YwC+`#O
u0f`uI_7!ttX0vrzv=L~=R7qV%=8R14$%mzOFq&?zk>11zr1WJUumJ#5dqScB

delta 238
zcmbR2(eE)qgE4$^4vS2zAy;sIX;E^jLRw}{szP#6YGO%hih_}au46%wu91O}nSz0(
zm8qqbp)r@6W3UgZvXIi$;*`Wn9iVyzp!&=l1&|IM1w#WX0|P5V!;K3!GfQGKYif^t
zHQ0Ve!_A#6<&2ERn;F@-nV6Z}O*ad0xUw-Dni+16;9JcC6fv93F5C~K%{R{yR$>Cm
ym`>g=+5;4@*z7On#LQ;xuxKNr+2-kzx{QpRlaEX702<aHy@`?0V6(C812zDG9YN0k