UNIX-FILE-NAME wasn't dealing properly with {DSK} version 1, and making sure that other versions had a dot

library/UNIXUTILS

@@ -1,12 +1,12 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "19-Jan-2026 14:09:03" {WMEDLEY}<library>UNIXUTILS.;55
 20711  
+
(FILECREATED "31-Mar-2026 00:14:19" {WMEDLEY}<library>UNIXUTILS.;58
 21269  
 
       :EDIT-BY rmk
 
       :CHANGES-TO (FNS UNIX-FILE-NAME)
 
-      :PREVIOUS-DATE "17-Jan-2026 23:16:17" {WMEDLEY}<library>UNIXUTILS.;54)
+      :PREVIOUS-DATE "29-Mar-2026 00:26:43" {WMEDLEY}<library>UNIXUTILS.;57)
 
 
 (PRETTYCOMPRINT UNIXUTILSCOMS)
@@ -287,7 +287,9 @@
          SLASHED])
 
 (UNIX-FILE-NAME

-  [LAMBDA (FILE ACCESS COPY EXTENSION)
                       (* ; "Edited 19-Jan-2026 14:05 by rmk")


+  [LAMBDA (FILE ACCESS COPY EXTENSION)
                       (* ; "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")


                                                              (* ; "Edited 11-Jan-2026 23:54 by rmk")


                                                              (* ; "Edited 27-Dec-2025 21:24 by rmk")


@@ -317,8 +319,13 @@
                                FILE))
                      (DSK [LET ((VERSION (FILENAMEFIELD FILE 'VERSION))
                                 (UNAME (PACKFILENAME 'VERSION NIL 'BODY FILE)))
-                               (CL:UNLESS (EQ VERSION 1)
+                               (CL:IF (EQ VERSION 1)
-                                   (CONCAT UNAME (CONCAT "~" VERSION "~")))])
+                                   UNAME
+                                   (CONCAT UNAME (CONCAT (CL:IF (EQ (CHARCODE %.)
+                                                                    (NTHCHARCODE UNAME -1))
+                                                             ""
+                                                             ".")
+                                                        "~" VERSION "~")))])
                      (LET (UNAME)
 
                           (* ;; "Catch the streams as well as other devices (CORE, servers)")

@@ -360,8 +367,8 @@
 
 (PUTPROPS UNIXUTILS
 FILETYPE
 CL:COMPILE-FILE)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1170 1543 (ShellCommand 1170 . 1543)) (1545 1942 (ShellWhich 1545 . 1942)) (2052 20633 
+  (FILEMAP (NIL (1170 1543 (ShellCommand 1170 . 1543)) (1545 1942 (ShellWhich 1545 . 1942)) (2052 21191 
 (ShellBrowser 2062 . 3834) (ShellBrowse 3836 . 4521) (ShellOpener 4523 . 6211) (ShellOpen 6213 . 11982
-) (PROCESS-COMMAND 11984 . 12597) (SLASHIT 12599 . 15623) (UNIX-FILE-NAME 15625 . 18952) (
+) (PROCESS-COMMAND 11984 . 12597) (SLASHIT 12599 . 15623) (UNIX-FILE-NAME 15625 . 19510) (
-UNIX-TMP-FILE-NAME 18954 . 20631)))))
+UNIX-TMP-FILE-NAME 19512 . 21189)))))
 STOP