;;AUTOLOAD: system-pipe
;;AUTODOC: system-pipes "run an external sub-process connected by pipes"
;;(system-pipe command)
;;
;;system-and-pipes is just a friendlier interface to system where
;;a bidirectional pipe is set to the sons input and output file descriptors
;;and returned.
;;errors is left untouched.

(defun system-pipe (command &aux system-pipe:fd)
  (system command :io 'system-pipe:fd)
  system-pipe:fd
)
  

