anchor.diff:    (:export invalid-index-error bounding-indices-bad-error
   	   charseq index
   	   make with-dynamic-extent
  -	   ref length each sub 
  +	   ref length each sub
   	   = < > <= >= /=
   	   to-string as-string))
   (in-package :charseq)
  
positive.code: (defmacro def-charseq-cmp (name)
    `(defun ,name (#1=charseq1 #2=charseq2)
       (declare (charseq #1# #2#))
       (,(mksym 'string name) (str #1#) (str #2#) 
                              :start1 (beg #1#) :end1 (end #1#)
  			    :start2 (beg #2#) :end2 (end #2#))))
  
  
negative.code: (def-charseq-cmp <)
  (def-charseq-cmp >)
  (def-charseq-cmp <=)
  (def-charseq-cmp >=)
  