anchor.diff:  ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
   ;;;;**************************************************************************
   
  -
  -
   (defpackage "COM.INFORMATIMAGO.CLEXT.PIPE"
     (:use "COMMON-LISP"
           ;; "CL-STEPPER"
  
positive.code:   ())
  
  
  
  (defun make-pipe (&key (element-type 'character) buffer-size (name ""))
    "
  RETURN:  A new PIPE.
  "
    (let ((pipe (if buffer-size
                    (make-instance 'buffered-pipe :name name
  
negative.code:            "PIPE-CHARACTER-INPUT-STREAM"
             "PIPE-CHARACTER-OUTPUT-STREAM"
             "PIPE-BINARY-INPUT-STREAM"
             "PIPE-BINARY-OUTPUT-STREAM")
    (:documentation "
  
  This package exports a pipe abstraction, that is, a pair of streams.
  
  One thread writes to the pipe-output-stream, another thread reads from
  the pipe-input-stream.
  
  
  LEGAL
  
  License AGPL3
  
  Copyright Pascal J. Bourguignon 2015 - 2015
  
  This program is free software: you can redistribute it and/or modify
  it under the terms of the GNU Affero General Public License as published by
  the Free Software Foundation, either version 3 of the License, or
  (at your option) any later version.
  
  This program is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  GNU Affero General Public License for more details.
  
  You should have received a copy of the GNU Affero General Public License
  along with this program.  If not, see <http://www.gnu.org/licenses/>.
  
  "))
  (in-package "COM.INFORMATIMAGO.CLEXT.PIPE")
  
  (declaim (declaration stepper))
  