anchor.diff:             ""
              (mapconcat #'identity strings (string sep) :stream stream))))
   
  -(-> string-upcase-initials (string) string)
  +(-> 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
  
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: From Emacs Lisp (where it is simply `upcase-initials')."
    (nstring-upcase-initials (copy-string string)))
  
  (-> nstring-upcase-initials (string-designator) string)
  (defun nstring-upcase-initials (string)
    "Destructive version of `string-upcase-initials'."
    (lret ((string (string string)))
  