Commit d7c92d6b authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Workaround for run-program on SBCL/Windows.

parent 7ae97cd0
......@@ -896,6 +896,7 @@ or an indication of failure via the EXIT-CODE of the process"
;; don't override user's specified preference. [2015/06/29:rpg]
(when (stringp command)
(unless force-shell-suppliedp
#-(and sbcl os-windows) ;; force-shell t isn't working properly on windows as of sbcl 1.2.16
(setf force-shell t)))
(flet ((default (x xp output) (cond (xp x) ((eq output :interactive) :interactive))))
(apply (if (or force-shell
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment