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: ;;;
  ;;; Set these appropriately if you want to point the echo tests
  ;;; somewhere else.
  (defparameter *echo-address* #(127 0 0 1))
  (defparameter *echo-port* 7)
  
  ;;; Returns T if one of the expected conditions occured, otherwise returns
  
negative.code:                   :defaults
                    (asdf:system-definition-pathname
                     (asdf:find-system '#:iolib-tests))))))
        ;; (ignore-errors (delete-file file))
        (with-socket (p :family :local :connect :passive :local-filename file)
          (with-socket (a :family :local :remote-filename file)
            (format a "local socket test")
  