anchor.diff:     (close socket)))
   
   
  +
   (defun wait-for-input-on-streams (server-sockets streams)
     "SERVER-SOCKETS is a list of UNCONNECTED-SOCKETs.  
   STREAMS is a list whose elements are STREAMs. Wait for a while,
  
positive.code: 
     #+mcl
     (ccl::open-tcp-stream host port :element-type '(unsigned-byte 8))))
  
  
  
  (defun accept-connection-on-socket (socket &optional (blocking nil))
  
negative.code:    #+db-sockets
     (let ((s (sockets:make-inet-socket :stream :tcp)))
       (setf (sockets:sockopt-reuse-address s) t)
       (sockets:socket-bind s #(0 0 0 0) (or port 0))
       (sockets:socket-listen s 5)
       s)
     #+allegro
  