anchor.diff:  ;;; looks up a reserved service port
   (deftest lookup-service.3
       ;; TODO: check for a more specific error.
  -    (with-expected-conditions (resolver-error)
  +    (with-expected-conditions (unknown-service)
         (lookup-service 1024))
     t)
   
  
positive.code:     ;; kernel: we set a size of x and then getsockopt() returns 2x.
      ;; This is why we compare with >= instead of =
      (handler-case
          (with-http-stream (s "ww.telent.net" 80 "HEAD/")
            (setf (socket-option s :receive-buffer) 1975)
            (let ((data (make-string 200)))
              (setf data (subseq data 0 (read-buf-nonblock data s)))
  
negative.code: #-no-internet-available
  (deftest simple-http-client
      (handler-case
          (with-http-stream (s "www.google.com" 80 "HEAD /")
            (let ((data (make-string 200)))
              (setf data (subseq data 0 (read-buf-nonblock data s)))
              ;; (princ data)
  