diff --git a/library/UNIXUTILS b/library/UNIXUTILS index c7cd0b08..76f08d72 100644 --- a/library/UNIXUTILS +++ b/library/UNIXUTILS @@ -1,6 +1,6 @@ (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) -(FILECREATED "26-Apr-2026 22:53:52" {DSK}frank>il>medley>library>UNIXUTILS.;4 21786 +(FILECREATED "27-Apr-2026 10:15:21" {DSK}frank>il>medley>library>UNIXUTILS.;6 21771 :EDIT-BY "FGH" @@ -148,7 +148,7 @@ "true"]) (ShellOpen - [LAMBDA (FilenameOrURL) (* ; "Edited 26-Apr-2026 22:48 by FGH") + [LAMBDA (FilenameOrURL) (* ; "Edited 27-Apr-2026 10:14 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") @@ -222,8 +222,8 @@ (CL:WITH-OPEN-STREAM (SHELLSTREAM (OPENSTREAM (CONCAT "{CORE}SHELLOUT" (RAND 1000 9999)) 'BOTH)) - (ShellCommand (PRINT (CONCAT OPENER " '" UNIXFILE "'" - " >>/tmp/ShellOpener-warnings-$$.txt")) + (ShellCommand (CONCAT OPENER " '" UNIXFILE "'" + " >>/tmp/ShellOpener-warnings-$$.txt") SHELLSTREAM) (if (EQ (GETFILEPTR SHELLSTREAM) 0) @@ -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 21708 -(ShellBrowser 2099 . 3871) (ShellBrowse 3873 . 4558) (ShellOpener 4560 . 6248) (ShellOpen 6250 . 12212 -) (PROCESS-COMMAND 12214 . 12827) (SLASHIT 12829 . 16140) (UNIX-FILE-NAME 16142 . 20027) ( -UNIX-TMP-FILE-NAME 20029 . 21706))))) + (FILEMAP (NIL (1207 1580 (ShellCommand 1207 . 1580)) (1582 1979 (ShellWhich 1582 . 1979)) (2089 21693 +(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))))) STOP diff --git a/library/UNIXUTILS.DFASL b/library/UNIXUTILS.DFASL index 9626abe1..e6828da8 100644 Binary files a/library/UNIXUTILS.DFASL and b/library/UNIXUTILS.DFASL differ