anchor.diff:    (let* ((string (string string-designator))
   	 (copy (copy-string string)))
       (nstring-downcase copy start end)))
  +
  +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  +;;;
  +;;; Functions NSTRING-CAPITALIZE and STRING-CAPITALIZE.
   
   (defun nstring-capitalize (string &key (start 0) end)
     (declare (type string string))
  
positive.code:   (let ((length (length string)))
      (when (null end) (setf end length))
      (check-bounding-indices string start end)
      (loop for i from start below end
  	  do (setf (char string i) (char-upcase (char string i)))))
    string)
  
  (defun string-upcase (string-designator &key (start 0) end)
    (let* ((string (string string-designator))
  	 (copy (copy-string string)))
      (nstring-upcase copy start end)))
  
  (defun nstring-downcase (string &key (start 0) end)
    (declare (type string string))
  
negative.code: (cl:in-package #:sicl-string)
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Functions NSTRING-UPCASE and STRING-UPCASE.
  
  (defun nstring-upcase-simple (string start end)
    (assert (simple-string-p string))
  