anchor.diff:  	      ;; 10FFFF is 1114111
   	      (<= 0 next-cp 1114111))
   	 ;; Range error.
  -	 (error "")
  +	 (error "Range error.")
          do (setf (aref out i) (UTF16Encoding next-cp)))
       (!string out))
   
  
positive.code: 		    (UTF16Decode(fst,snd))))))))))
  
  (defmethod concat ((this -string-proto) &rest args)
    (let ((out (slot-value this '-string-raw)))
      (dolist (arg args)
        (setf out (concatenate 'string out arg)))
      (!string out)))
  
  (defmethod ends-with ((this -string-proto) search &optional end)
    )
  
  (defmethod includes ((this -string-proto) search &optional pos)
    )
  
  (defmethod index-of ((this -string-proto) search &optional pos)
    )
  
  (defmethod last-index-of ((this -string-proto) search &optional pos)
    )
  
  (defmethod locale-compare ((this -string-proto) that)
    )
  
  (defmethod match ((this -string-proto) regexp)
    )
  
  (defmethod normalize ((this -string-proto) &optional form)
    )
  
  (defmethod repeat ((this -string-proto) count)
    )
  
  (defmethod replace ((this -string-proto) search replace)
    )
  
  (defmethod search ((this -string-proto) regexp)
    )
  
  (defmethod slice ((this -string-proto) start end)
    )
  
  (defmethod split ((this -string-proto) separator limit)
    )
  
  (defmethod starts-with ((this -string-proto) search &optional pos)
    )
  
  (defmethod substring ((this -string-proto) start end)
    )
  
  (defmethod to-locale-lower-case ((this -string-proto))
    )
  
negative.code:   )
  
  (defmethod to-lower-case ((this -string-proto))
    (!string (string-downcase (slot-value this '-string-data))))
  
  (defmethod to-string ((this -string-proto))
    this)
  
  (defmethod to-upper-case ((this -string-proto))
    (!string (string-upcase (slot-value this '-string-data))))
  
  (defmethod trim ((this -string-proto))
    (let ((this-str (slot-value this '-string-data)))
      (!string (string-trim '(#\Space #\Return #\Newline #\LINE_SEPARATOR
  			    #\PARAGRAPH_SEPARATOR) this-str))))
  
  (defmethod value-of ((this -string-proto))
    this)
  
  (defmethod iterator ((this -string-proto))
    )
  