master: run-program: escape empty strings on windows
stassats via Sbcl-commits <[email protected]>
| Newsgroups | gmane.lisp.steel-bank.cvs |
|---|---|
| Message-ID | <[email protected]> |
The branch "master" has been updated in SBCL:
via f49582480c3fdb248dee8390e211dd95d5b29e5b (commit)
from 4e76fe5eb0488c607d3f646088eced8c2648f46b (commit)
- Log -----------------------------------------------------------------
commit f49582480c3fdb248dee8390e211dd95d5b29e5b
Author: Stas Boukarev <[email protected]>
Date: Mon Apr 13 06:17:20 2026 +0300
run-program: escape empty strings on windows
---
src/code/run-program.lisp | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp
index 8bc906c65..9719fce0c 100644
--- a/src/code/run-program.lisp
+++ b/src/code/run-program.lisp
@@ -650,8 +650,9 @@ should not be used."
(loop for (arg . rest) on args
do
(cond ((and escape
- (find-if (lambda (c) (find c '(#\Space #\Tab #\")))
- arg))
+ (or (equal arg "")
+ (find-if (lambda (c) (find c '(#\Space #\Tab #\")))
+ arg)))
(escape-arg arg str))
(t
(write-string arg str)))
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL