diff --git a/library/UNIXUTILS b/library/UNIXUTILS index 28ffedcfe..59253a493 100644 --- a/library/UNIXUTILS +++ b/library/UNIXUTILS @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "22-Oct-2025 13:05:51" {WMEDLEY}UNIXUTILS.;33 17919 +(FILECREATED " 4-Nov-2025 10:11:10" {WMEDLEY}UNIXUTILS.;34 18037 :EDIT-BY rmk :CHANGES-TO (FNS SLASHIT) - :PREVIOUS-DATE "27-Sep-2025 16:25:07" {WMEDLEY}UNIXUTILS.;32) + :PREVIOUS-DATE "22-Oct-2025 13:05:51" {WMEDLEY}UNIXUTILS.;33) (PRETTYCOMPRINT UNIXUTILSCOMS) @@ -240,7 +240,8 @@ 0))) DO (BLOCK) FINALLY (RETURN CODE]) (SLASHIT - [LAMBDA (X LCASEDIRS NOHOST) (* ; "Edited 22-Oct-2025 13:05 by rmk") + [LAMBDA (X LCASEDIRS NOHOST) (* ; "Edited 4-Nov-2025 10:10 by rmk") + (* ; "Edited 22-Oct-2025 13:05 by rmk") (* ; "Edited 25-Sep-2025 09:57 by rmk") (* ; "Edited 23-Sep-2023 15:27 by rmk") @@ -259,7 +260,7 @@ (CONS (CHARCODE /))) (/ (SETQ LASTDIRPOS I) (CONS C)) - (SPACE (CHARCODE (\ SPACE))) + (SPACE (APPEND (CHARCODE (\ SPACE)))) (CONS C] (CL:WHEN (AND LCASEDIRS LASTDIRPOS) (SETQ LASTDIRPOS (ADD1 (IDIFFERENCE LASTDIRPOS DIRPOS))) @@ -326,7 +327,7 @@ (PUTPROPS UNIXUTILS FILETYPE CL:COMPILE-FILE) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1110 1483 (ShellCommand 1110 . 1483)) (1485 1882 (ShellWhich 1485 . 1882)) (1972 17841 + (FILEMAP (NIL (1110 1483 (ShellCommand 1110 . 1483)) (1485 1882 (ShellWhich 1485 . 1882)) (1972 17959 (ShellBrowser 1982 . 3754) (ShellBrowse 3756 . 4441) (ShellOpener 4443 . 6131) (ShellOpen 6133 . 11612 -) (PROCESS-COMMAND 11614 . 12227) (SLASHIT 12229 . 14566) (UNIX-FILE-NAME 14568 . 17839))))) +) (PROCESS-COMMAND 11614 . 12227) (SLASHIT 12229 . 14684) (UNIX-FILE-NAME 14686 . 17957))))) STOP diff --git a/library/UNIXUTILS.DFASL b/library/UNIXUTILS.DFASL index 8dd244439..514dfbb9e 100644 Binary files a/library/UNIXUTILS.DFASL and b/library/UNIXUTILS.DFASL differ