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}UNIXUTILS.;61 22079 +(FILECREATED "13-May-2026 12:28:06" {MEDLEY}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}UNIXUTILS.;60) + :PREVIOUS-DATE "28-Apr-2026 09:59:13" {MEDLEY}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 75d23242..2e939088 100644 Binary files a/library/UNIXUTILS.DFASL and b/library/UNIXUTILS.DFASL differ