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:                 nil))))
         (if (not ready)
             nil
           (if (member (car ready) streams)
               (values :stream (car ready))
             (values :server
                     (loop for s in server-sockets
                         when (eql (car ready) (socket:socket-os-fd s)) 
                         return s))))))
     
     ;; Default
     (progn (sleep 0.01)
  
negative.code: 
     #+mcl
     (ccl::open-tcp-stream host port :element-type '(unsigned-byte 8))))
  
  
  (defun accept-connection-on-socket (socket &optional (blocking nil))
  