anchor.diff:  From Emacs Lisp (where it is simply `upcase-initials')."
     (nstring-upcase-initials (copy-string string)))
   
  -(-> nstring-upcase-initials (string) string)
  +(-> nstring-upcase-initials (string-designator) string)
   (defun nstring-upcase-initials (string)
     "Destructive version of `string-upcase-initials'."
     (lret ((string (string string)))
  
positive.code:       (:lower (nstring-upcase string))
        (t string))))
  
  (-> string-invert-case (string) string)
  (defun string-invert-case (string)
    "Invert the case of STRING.
  This does the same thing as a case-inverting readtable."
  
negative.code: (assert (not (same-case-p "Foo")))
  (assert (not (same-case-p "-Foo")))
  
  (-> nstring-invert-case (string-designator) string)
  (defun nstring-invert-case (string)
    "Destructive version of `string-invert-case'."
    (let ((string (string string)))
  