anchor.diff:     (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
  
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:      (error "Dummy TCP cannot connect")
  
       #+clisp 
       (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)
  