diff --git a/library/UNIXUTILS b/library/UNIXUTILS index 76f08d72..fa1c2260 100644 --- a/library/UNIXUTILS +++ b/library/UNIXUTILS @@ -1,6 +1,6 @@ (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) -(FILECREATED "27-Apr-2026 10:15:21" {DSK}frank>il>medley>library>UNIXUTILS.;6 21771 +(FILECREATED "27-Apr-2026 11:10:07" {DSK}frank>il>medley>library>UNIXUTILS.;7 21772 :EDIT-BY "FGH" @@ -148,7 +148,7 @@ "true"]) (ShellOpen - [LAMBDA (FilenameOrURL) (* ; "Edited 27-Apr-2026 10:14 by FGH") + [LAMBDA (FilenameOrURL) (* ; "Edited 27-Apr-2026 11:08 by FGH") (* ; "Edited 28-Dec-2025 18:26 by rmk") (* ; "Edited 10-Sep-2025 15:29 by rmk") (* ; "Edited 4-May-2025 11:14 by rmk") @@ -247,7 +247,7 @@ 0))) DO (BLOCK) FINALLY (RETURN CODE]) (SLASHIT - [LAMBDA (X LCASEDIRS NOHOST KEEPDOT NO.QUOTE.SPACE) (* ; "Edited 26-Apr-2026 22:48 by FGH") + [LAMBDA (X LCASEDIRS NOHOST KEEPDOT NO.QUOTE.SPACE) (* ; "Edited 27-Apr-2026 11:00 by FGH") (* ; "Edited 17-Jan-2026 23:15 by rmk") (* ; "Edited 4-Nov-2025 10:10 by rmk") (* ; "Edited 22-Oct-2025 13:05 by rmk") @@ -264,7 +264,7 @@ 0))) (REPLACE.SPACE (if NO.QUOTE.SPACE then (CONS (CHARCODE SPACE)) - else (APPEND (CHARCODE (\ SPACE] + else (CHARCODE (\ SPACE] [SETQ SLASHED (CONCATCODES (for I C from DIRPOS while (SETQ C (NTHCHARCODE X I)) join (SELCHARQ C ((< >) @@ -272,7 +272,7 @@ (CONS (CHARCODE /))) (/ (SETQ LASTDIRPOS I) (CONS C)) - (SPACE REPLACE.SPACE) + (SPACE (APPEND REPLACE.SPACE)) (CONS C] (CL:WHEN (AND LCASEDIRS LASTDIRPOS) (SETQ LASTDIRPOS (ADD1 (IDIFFERENCE LASTDIRPOS DIRPOS))) @@ -373,8 +373,8 @@ (PUTPROPS UNIXUTILS FILETYPE CL:COMPILE-FILE) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1207 1580 (ShellCommand 1207 . 1580)) (1582 1979 (ShellWhich 1582 . 1979)) (2089 21693 + (FILEMAP (NIL (1207 1580 (ShellCommand 1207 . 1580)) (1582 1979 (ShellWhich 1582 . 1979)) (2089 21694 (ShellBrowser 2099 . 3871) (ShellBrowse 3873 . 4558) (ShellOpener 4560 . 6248) (ShellOpen 6250 . 12197 -) (PROCESS-COMMAND 12199 . 12812) (SLASHIT 12814 . 16125) (UNIX-FILE-NAME 16127 . 20012) ( -UNIX-TMP-FILE-NAME 20014 . 21691))))) +) (PROCESS-COMMAND 12199 . 12812) (SLASHIT 12814 . 16126) (UNIX-FILE-NAME 16128 . 20013) ( +UNIX-TMP-FILE-NAME 20015 . 21692))))) STOP diff --git a/library/UNIXUTILS.DFASL b/library/UNIXUTILS.DFASL index e6828da8..6135779e 100644 Binary files a/library/UNIXUTILS.DFASL and b/library/UNIXUTILS.DFASL differ