anchor.diff:    t)
   (deftest socket-connect.2
     (with-caught-conditions (nil nil)
  -    (let ((sock (usocket:socket-connect #(65 110 12 237) 80)))
  +    (let ((sock (usocket:socket-connect +common-lisp-net+ 80)))
         (unwind-protect
             (typep sock 'usocket:usocket)
           (usocket:socket-close sock))))
     t)
   (deftest socket-connect.3
     (with-caught-conditions (nil nil)
  -    (let ((sock (usocket:socket-connect 1097731309 80)))
  +    (let ((sock (usocket:socket-connect (usocket::host-byte-order +common-lisp-net+) 80)))
         (unwind-protect
             (typep sock 'usocket:usocket)
           (usocket:socket-close sock))))
  
positive.code: (defparameter +non-existing-host+ "10.0.0.13")
  (defparameter *soc1* (usocket::make-stream-socket :socket :my-socket
                                                    :stream :my-stream))
  
  (deftest make-socket.1 (usocket:socket *soc1*) :my-socket)
  (deftest make-socket.2 (usocket:socket-stream *soc1*) :my-stream)
  
negative.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)
  
  