- (flet ((stdio-stream (handle name inputp outputp)
- (make-fd-stream
- handle
- :name name
- :input inputp
- :output outputp
- :buffering :line
- :element-type :default
- :serve-events inputp
- :external-format (stdstream-external-format handle outputp))))
- (setf *stdin* (stdio-stream in "standard input" t nil))
- (setf *stdout* (stdio-stream out "standard output" nil t))
- (setf *stderr* (stdio-stream err "standard error" nil t))))
+ (labels (#!+win32
+ (nul-stream (name inputp outputp)
+ (let* ((nul-name #.(coerce "NUL" 'simple-base-string))
+ (nul-handle
+ (cond
+ ((and inputp outputp)
+ (sb!win32:unixlike-open nul-name sb!unix:o_rdwr 0))
+ (inputp
+ (sb!win32:unixlike-open nul-name sb!unix:o_rdonly 0))
+ (outputp
+ (sb!win32:unixlike-open nul-name sb!unix:o_wronly 0))
+ (t
+ ;; Not quite sure what to do in this case.
+ nil))))
+ (make-fd-stream
+ nul-handle
+ :name name
+ :input inputp
+ :output outputp
+ :buffering :line
+ :element-type :default
+ :serve-events inputp
+ :auto-close t
+ :external-format (stdstream-external-format nul-handle outputp))))
+ (stdio-stream (handle name inputp outputp)
+ (cond
+ #!+win32
+ ((null handle)
+ ;; If no actual handle was present, create a stream to NUL
+ (nul-stream name inputp outputp))
+ (t
+ (make-fd-stream
+ handle
+ :name name
+ :input inputp
+ :output outputp
+ :buffering :line
+ :element-type :default
+ :serve-events inputp
+ :external-format (stdstream-external-format handle outputp))))))
+ (setf *stdin* (stdio-stream in "standard input" t nil)
+ *stdout* (stdio-stream out "standard output" nil t)
+ *stderr* (stdio-stream err "standard error" nil t))))