anchor.diff:       (error "Dummy TCP cannot connect")
   
        #+clisp 
  -     (socket-connect port host :element-type type) 
  +     (ext:socket-connect port host :element-type type) 
   
        #+clorb::cmucl-sockets
        (system:make-fd-stream (ext:connect-to-inet-socket host port)
  
positive.code:          (pushnew 'clorb::sb-bsd-sockets *features*))
          (t
           #+cmu (pushnew 'clorb::cmucl-sockets *features*)
           #+sbcl (error "We need the SOCKETS library; SBCL doesn't have its own"))))
  
  
  (defmacro %sysdep (desc &rest forms)
  
negative.code:        (setf (sb-bsd-sockets:non-blocking-mode socket) before)))
  
     #+clisp 
     (when (ext:socket-wait socket (if blocking 10 0))
       (let* ((conn (ext:socket-accept socket 
                                   :element-type '(unsigned-byte 8))))
         (mess 4 "Accepting connection from ~A"
               (ext:socket-stream-peer conn))
         conn))
  
     #+(or allegro use-acl-socket)
  