-(defun make-pipe ()
- (multiple-value-bind (in out) (sb-posix:pipe)
- (let ((input (sb-sys:make-fd-stream in
- :input t
- :external-format :ascii
- :buffering :none :name "in"))
- (output (sb-sys:make-fd-stream out
- :output t
- :external-format :ascii
- :buffering :none :name "out")))
- (make-two-way-stream input output))))
-
-(defparameter *cat-in-pipe* (make-pipe))
-(defparameter *cat-in* (make-synonym-stream '*cat-in-pipe*))
-(defparameter *cat-out-pipe* (make-pipe))
-(defparameter *cat-out* (make-synonym-stream '*cat-out-pipe*))
-
-(with-test (:name :run-program-cat-5)
+#-win32
+(progn
+ (defun make-pipe ()
+ (multiple-value-bind (in out) (sb-posix:pipe)
+ (let ((input (sb-sys:make-fd-stream in
+ :input t
+ :external-format :ascii
+ :buffering :none :name "in"))
+ (output (sb-sys:make-fd-stream out
+ :output t
+ :external-format :ascii
+ :buffering :none :name "out")))
+ (make-two-way-stream input output))))
+
+ (defparameter *cat-in-pipe* (make-pipe))
+ (defparameter *cat-in* (make-synonym-stream '*cat-in-pipe*))
+ (defparameter *cat-out-pipe* (make-pipe))
+ (defparameter *cat-out* (make-synonym-stream '*cat-out-pipe*)))
+
+(with-test (:name :run-program-cat-5 :fails-on :win32)