anchor.diff:      (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" '())))
  
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: (defun full-name (entity)
    (with-db ()
      (when-let (base-name (base-name entity))
        (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
  