anchor.diff:  
   (defun test-nstring-capitalize (n)
     (loop repeat n
  -	do (let* ((length (random 10))
  -		  (string (make-string length))
  +	do (let* ((string (random-string 0 10 0 500))
  +		  (length (length string))
   		  (start (random (1+ length)))
   		  (end (+ start (random (1+ (- length start))))))
  -	     ;; Fill the string with some random characters.
  -	     (loop for i from 0 below length
  -		   do (setf (char string i)
  -			    (code-char (random 500))))
   	     (test-one-nstring-capitalize string :start start :end end))))
  
positive.code: 
  (defun test-nstring-upcase (n)
    (loop repeat n
  	do (let* ((length (random 10))
  		  (string (make-string length))
  		  (start (random (1+ length)))
  		  (end (+ start (random (1+ (- length start))))))
  	     ;; Fill the string with some random characters.
  	     (loop for i from 0 below length
  		   do (setf (char string i)
  			    (code-char (random 500))))
  	     (test-one-nstring-upcase string :start start :end end))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
negative.code: 
  (defun test-nstring-downcase (n)
    (loop repeat n
  	do (let* ((string (random-string 0 10 0 500))
  		  (length (length string))
  		  (start (random (1+ length)))
  		  (end (+ start (random (1+ (- length start))))))
  	     (test-one-nstring-downcase string :start start :end end))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  