anchor.diff:  ;;;; Service Lookup
   
   (deftest lookup-service.1
  -    (let ((ssh (lookup-service "ssh")))
  -      (values (service-name ssh)
  -              (service-port ssh)
  -              (service-protocol ssh)))
  -  "ssh" 22 :tcp)
  +    (lookup-service "ssh")
  +  22 "ssh" :tcp)
   
   (deftest lookup-service.2
  -    (let ((ssh (lookup-service 22 :udp)))
  -      (values (service-name ssh)
  -              (service-port ssh)
  -              (service-protocol ssh)))
  -  "ssh" 22 :udp)
  +    (lookup-service 22 :udp)
  +  22 "ssh" :udp)
   
   ;;; looks up a reserved service port
   (deftest lookup-service.3
  
positive.code:   t)
  
  (deftest lookup-protocol.4
      (protocol-name (lookup-protocol 6))
    "tcp")
  
  ;;;; Network Interfaces
  
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)
  