1
0
mirror of synced 2026-05-07 00:18:09 +00:00

Remove PRINT debugging code from ShellOpen

This commit is contained in:
Frank Halasz
2026-04-27 10:21:05 -07:00
parent 2cd4dde3de
commit 25a3c02b41
2 changed files with 8 additions and 8 deletions

View File

@@ -1,6 +1,6 @@
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "26-Apr-2026 22:53:52" {DSK}<home>frank>il>medley>library>UNIXUTILS.;4 21786
(FILECREATED "27-Apr-2026 10:15:21" {DSK}<home>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

Binary file not shown.