anchor.diff:        (push (parse-integer element) new-list))
       new-list))
   
  +(defun ip-address-string-p (string)
  +  "Return a true value if the given string could be an IP address."
  +  (every (lambda (char)
  +           (or (digit-char-p char)
  +               (eql char #\.)))
  +         string))
  +
   (defun hbo-to-dotted-quad (integer)
     "Host-byte-order integer to dotted-quad string conversion utility."
     (let ((first (ldb (byte 8 24) integer))
  
positive.code: 
    (defun host-to-hbo (host)
      (etypecase host
        (string (let ((ip (ignore-errors
                            (dotted-quad-to-vector-quad host))))
                  (if (and ip (= 4 (length ip)))
                      (host-byte-order ip)
  
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?
  