Skip to content
Snippets Groups Projects
Commit 5e26bc2c authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

SBCL doesn't try hard enough on Windows.

parent 6043552a
No related branches found
No related tags found
No related merge requests found
...@@ -370,7 +370,7 @@ for the implementation's underlying run-program function" ...@@ -370,7 +370,7 @@ for the implementation's underlying run-program function"
via SLURP-INPUT-STREAM or VOMIT-OUTPUT-STREAM (return T), via SLURP-INPUT-STREAM or VOMIT-OUTPUT-STREAM (return T),
or whether it's already taken care of by the implementation's underlying run-program." or whether it's already taken care of by the implementation's underlying run-program."
(not (typep specifier '(or null string pathname (member :interactive :output) (not (typep specifier '(or null string pathname (member :interactive :output)
#+(or cmu sbcl scl) (or stream (eql t)) #+(or cmu (and sbcl os-unix) scl) (or stream (eql t))
#+lispworks file-stream)))) ;; not a type!? comm:socket-stream #+lispworks file-stream)))) ;; not a type!? comm:socket-stream
(defun %normalize-io-specifier (specifier &optional role) (defun %normalize-io-specifier (specifier &optional role)
...@@ -630,7 +630,7 @@ It returns a process-info plist with possible keys: ...@@ -630,7 +630,7 @@ It returns a process-info plist with possible keys:
(typecase activity-spec (typecase activity-spec
((or null string pathname (eql :interactive)) ((or null string pathname (eql :interactive))
(easy-case)) (easy-case))
#+(or cmu sbcl scl) ;; streams are only easy on implementations that try very hard #+(or cmu (and sbcl os-unix) scl) ;; streams are only easy on implementations that try very hard
(stream (stream
(if stream-easy-p (easy-case) (hard-case))) (if stream-easy-p (easy-case) (hard-case)))
(t (t
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment