anchor.diff:    t)
   
   (deftest lookup-protocol.4
  -    (protocol-name (lookup-protocol 6))
  +    (nth-value 1 (lookup-protocol 6))
     "tcp")
   
   ;;;; Network Interfaces
  
positive.code: ;;;; Service Lookup
  
  (deftest lookup-service.1
      (let ((ssh (lookup-service "ssh")))
        (values (service-name ssh)
                (service-port ssh)
                (service-protocol ssh)))
    "ssh" 22 :tcp)
  
  (deftest lookup-service.2
      (let ((ssh (lookup-service 22 :udp)))
        (values (service-name ssh)
                (service-port ssh)
                (service-protocol ssh)))
    "ssh" 22 :udp)
  
  ;;; looks up a reserved service port
  (deftest lookup-service.3
  
negative.code: ;;;; Protocol Lookup
  
  (deftest lookup-protocol.1
      (multiple-value-bind (number name)
          (lookup-protocol "tcp")
        (values number name))
    6 "tcp")
  
  (deftest lookup-protocol.2
      (multiple-value-bind (number name)
          (lookup-protocol "udp")
        (values number name))
    17 "udp")
  
  (deftest lookup-protocol.3
      (with-expected-conditions (unknown-protocol)
  