anchor.diff:      (when (plusp end-start)
         (error 'invalid-end-index
   	     :end end
  -	     :sequence-length (+ start (- end end-start))))
  +	     :sequence-length (+ start (- end end-start))
  +	     :in-sequence list))
       (setf (cdr last) list)
       (cdr result)))
   
  
positive.code:     (when (plusp end-start)
        (error 'invalid-end-index
  	     :end end
  	     :sequence-length (+ start (- end end-start))))
      (cdr result)))
  
  (defun |delete seq-type=list test=other end=other count=nil key=other|
  
negative.code: 	  finally (when (plusp end-start)
  		    (error 'invalid-end-index
  			   :datum end
  			   :expected-type `(integer 0 ,(- end end-start))
  			   :in-sequence list)))))
  
  (defun count-if-not (predicate sequence &key from-end (start 0) end key)
    (if (listp sequence)
  