anchor.diff:  
   (deftest socket-no-connect.1
     (with-caught-conditions ('usocket:socket-error nil)
  -      (usocket:socket-connect "127.0.0.0" 80)
  +      (usocket:socket-connect "127.0.0.0" +unused-local-port+)
         t)
     nil)
   (deftest socket-no-connect.2
     (with-caught-conditions ('usocket:socket-error nil)
  -    (usocket:socket-connect #(127 0 0 0) 80)
  +    (usocket:socket-connect #(127 0 0 0) +unused-local-port+)
       t)
     nil)
   (deftest socket-no-connect.3
     (with-caught-conditions ('usocket:socket-error nil)
  -    (usocket:socket-connect 2130706432 80) ;; == #(127 0 0 0)
  +    (usocket:socket-connect 2130706432 +unused-local-port+) ;; == #(127 0 0 0)
       t)
     nil)
   
  
positive.code:                            #-(or lispworks armedbear cmu openmcl)
                               'usocket:host-unreachable-error
                             nil)
        (usocket:socket-connect "192.168.1.1" 80) ;; == #(127 0 0 0)
        :unreach)
    nil)
  
  
negative.code:                            #+openmcl
                               'usocket:timeout-error
                             nil)
      (usocket:socket-connect 2130706432 +unused-local-port+) ;; == #(127 0 0 0)
      :unreach)
    nil)
  (deftest socket-failure.2
  