anchor.diff:                           (describe c)
                            c))))))
   
  -(defparameter +non-existing-host+ "10.0.0.13")
  +(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)
  
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: 
  (deftest socket-no-connect.1
    (with-caught-conditions ('usocket:socket-error nil)
        (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) +unused-local-port+)
      t)
    nil)
  (deftest socket-no-connect.3
    (with-caught-conditions ('usocket:socket-error nil)
      (usocket:socket-connect 2130706432 +unused-local-port+) ;; == #(127 0 0 0)
      t)
    nil)
  
  