anchor.diff:  (assert (not (same-case-p "Foo")))
   (assert (not (same-case-p "-Foo")))
   
  -(-> nstring-invert-case (string) string)
  +(-> nstring-invert-case (string-designator) string)
   (defun nstring-invert-case (string)
     "Destructive version of `string-invert-case'."
     (let ((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:            ""
             (mapconcat #'identity strings (string sep) :stream stream))))
  
  (-> string-upcase-initials (string-designator) string)
  (defun string-upcase-initials (string)
    "Return STRING with the first letter of each word capitalized.
  This differs from CAPITALIZE in that the other characters in each word
  