anchor.diff:  (defun make (string &key (start 0) (end (common-lisp:length string)))
     (declare (string string)
          (index start end))
  -  (unless (<= start end (common-lisp:length string))
  +  (unless (common-lisp:<= start end (common-lisp:length string))
       (error 'bounding-indices-bad-error
          :length (common-lisp:length string) :start start :end end))
    
  
positive.code:         (,start  (beg ,tmp))
          (,end    (end ,tmp)))
         (declare (ignorable ,string ,start ,end))
         ,@body)))
negative.code:        length
         each
         sub
         
         = < > <= >= /=
         to-string
         as-string))
  (in-package :charseq)
  
  (declaim (inline to-simple make-charseq make ref length to-string sub = < > <= >= /=))
       
  (deftype index () '(integer 0 #.array-total-size-limit))
  
  