anchor.diff:  (defun full-name (entity)
     (with-db ()
       (when-let (base-name (base-name entity))
  -      (let ((articlep (modifier-value entity 'use-article-p))
  -            (adjectives (modifier-value entity 'adjectives))
  -            (titles (modifier-value entity 'titles))
  -            (first-name (modifier-value entity 'first-name)))
  -        (with-output-to-string (s)
  -          (when articlep (princ "a " s))
  +      (with-output-to-string (s)
  +        (when (modifier-value entity 'use-article-p)
  +          (princ "a " s))
  +        (let ((adjectives (modifier-value entity 'adjectives)))
             (loop
                with length = (length adjectives)
                for adj across adjectives
  
positive.code:                       ((= (1+ i) length)
                         (format s ", and ~A " adj))
                        (t
                         (format s ", ~A" adj))))
            (map nil (curry #'format s "~A ") titles)
            (when first-name (format s "~A " first-name))
            (princ base-name s))))))
  
  (defun short-description (entity)
    (modifier-value entity 'short-description))
  
negative.code:     (test-case "Supreme Commander John Doe" '((base-name . "Doe")
                                                (first-name . "John")
                                                (titles . #("Supreme" "Commander"))))
      (test-case "Commander John Doe Jr" '((base-name . "Doe")
                                           (first-name . "John")
                                           (titles . #("Commander"))
                                           (suffix . "Jr")))
      (test-case "Commander John Doe, PhD" '((base-name . "Doe")
                                             (first-name . "John")
                                             (titles . #("Commander"))
                                             (suffix-titles . #("PhD"))))
      (test-case "Commander John Doe Jr, PhD, Esq" '((base-name . "Doe")
                                                     (first-name . "John")
                                                     (titles . #("Commander"))
                                                     (suffix . "Jr")
                                                     (suffix-titles . #("PhD" "Esq"))))
      ;; TODO, maybe
      #+nil(test-case "the captain of the guard" '())))
  