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:                            #+openmcl
                               'usocket:timeout-error
                             nil)
      (usocket:socket-connect 2130706432 80) ;; == #(127 0 0 0)
      :unreach)
    nil)
  (deftest socket-failure.2
  
negative.code:                          (describe c)
                           c))))))
  
  (defparameter +non-existing-host+ "192.168.1.1")
  (defparameter +unused-local-port+ 15213)
  (defparameter *soc1* (usocket::make-stream-socket :socket :my-socket
                                                    :stream :my-stream))
  (eval-when (:compile-toplevel :load-toplevel :execute)
  