anchor.diff:     (stream :initform nil :accessor listener-stream)))
   
   
  ++
   ;; the unconnected socket is returned by OPEN-PASSIVE-SOCKET and used
   ;; in ACCEPT-CONNECTION-ON-PORT and COERCE-TO-WAITABLE-THING
   
  
positive.code:        (mess 4 "Accepting connection from ~A"
               (socket-stream-peer conn))
         conn))
     #+(or allegro use-acl-socket)
     (let ((conn (socket:accept-connection socket :wait blocking)))
       (when conn
  
negative.code:        (sb-bsd-sockets:socket-connect s num port)
         (sb-bsd-sockets:socket-make-stream s :element-type type
                                     :input t :output t :buffering :none))
  
       #+(or allegro use-acl-socket)
       (socket:make-socket 
        :remote-host host :remote-port port
        :format (if binary :binary :text))
  
       #+openmcl
       (openmcl-socket:make-socket 
        :remote-host host :remote-port port
        :format (if binary :binary :text))
  
       #+digitool
       (ccl::open-tcp-stream host port :element-type type 
                             :connect-timeout *connect-timeout*))))
  
  
  (defun accept-connection-on-socket (socket &optional (blocking nil))
    "Accept a connection on SOCKET and return the stream associated
  