anchor.diff:          "BORDEAUX-THREADS"
           "COM.INFORMATIMAGO.CLEXT.GATE")
     (:export "MAKE-PIPE" "PIPE" "PIPE-INPUT-STREAM" "PIPE-OUTPUT-STREAM" "PIPE-ELEMENT-TYPE"
  +           "REOPEN-PIPE"
              "PIPE-CHARACTER-INPUT-STREAM"
              "PIPE-CHARACTER-OUTPUT-STREAM"
              "PIPE-BINARY-INPUT-STREAM"
  
positive.code: (defmethod print-object ((pipe queued-pipe) stream)
    (print-unreadable-object (pipe stream :type t :identity t)
      (let ((queue-size (length (head pipe))))
        (format stream ":input ~:[:closed~;:open~] :output ~:[:closed~;:open~] :queued ~A :name ~S"
                (open-stream-p (pipe-input-stream  pipe))
                (open-stream-p (pipe-output-stream pipe))
                queue-size
  
negative.code: (defmethod print-object ((pipe buffered-pipe) stream)
    (print-unreadable-object (pipe stream :type t :identity t)
      (let ((bufsize (length (buffer pipe))))
        (format stream ":element-type ~S :input ~:[:closed~;:open~] :output ~:[:closed~;:open~] :buffer (~A / ~A) :name ~S"
                (pipe-element-type pipe)
                (open-stream-p (pipe-input-stream  pipe))
                (open-stream-p (pipe-output-stream pipe))
                (mod (- (tail pipe) (head pipe)) bufsize)
  