anchor.diff:       (error "Dummy TCP cannot connect")
   
        #+clisp 
  -     (ext:socket-connect port host :element-type type :buffered nil) 
  +     (ext:socket-connect port host :element-type type
  +                         :buffered *clisp-buffered-streams*)
   
        #+clorb::cmucl-sockets
        (system:make-fd-stream (ext:connect-to-inet-socket host port)
  
positive.code:    #+clisp 
     (when (ext:socket-wait socket (if blocking 10 0))
       (let* ((conn (ext:socket-accept socket 
                                   :element-type '(unsigned-byte 8) :buffered nil)))
         (mess 4 "Accepting connection from ~A"
               (ext:socket-stream-peer conn))
         conn))
  
negative.code:    (stream :initform nil :accessor listener-stream)))
  
  
  #+clisp
  (defvar *clisp-buffered-streams* nil
    "If connections used buffered streams.")
  
  
  ;; the unconnected socket is returned by OPEN-PASSIVE-SOCKET and used
  