anchor.diff:                                 :format :binary :reuse-address t)
   
      #+clisp 
  -   (if port (socket-server port) (socket-server))
  +   (if port (ext:socket-server port) (ext:socket-server))
   
      #+clorb::cmucl-sockets 
      (ext:create-inet-listener port)
  
positive.code:      (error "Dummy TCP cannot connect")
  
       #+clisp 
       (socket-connect port host :element-type type) 
  
       #+clorb::cmucl-sockets
       (system:make-fd-stream (ext:connect-to-inet-socket host port)
  
negative.code:          (pushnew 'clorb::sb-bsd-sockets *features*))
          (t
           #+cmu (pushnew 'clorb::cmucl-sockets *features*)
           #+sbcl
           (progn
             (require :sb-bsd-sockets)
             (pushnew 'clorb::sb-bsd-sockets *features*)           
             (unless (find-package "SB-BSD-SOCKETS")
               (error "We need the SOCKETS library; SBCL doesn't have its own")           )))))
  
  
  (defmacro %sysdep (desc &rest forms)
  