anchor.diff:  
     (defun host-to-hbo (host)
       (etypecase host
  -      (string (let ((ip (ignore-errors
  +      (string (let ((ip (when (ip-address-string-p host)
                             (dotted-quad-to-vector-quad host))))
                   (if (and ip (= 4 (length ip)))
                       (host-byte-order ip)
  
positive.code:       (push (parse-integer element) new-list))
      new-list))
  
  (defun hbo-to-dotted-quad (integer)
    "Host-byte-order integer to dotted-quad string conversion utility."
    (let ((first (ldb (byte 8 24) integer))
  
negative.code:     "Translate a host specification (vector quad, dotted quad or domain name)
  to a vector quad."
      (etypecase host
        (string (let* ((ip (when (ip-address-string-p host)
                             (dotted-quad-to-vector-quad host))))
                  (if (and ip (= 4 (length ip)))
                      ;; valid IP dotted quad?
  