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))
       (cdr result)))
   
   (defun |delete seq-type=list test-not=other end=nil count=nil key=identity|
  
positive.code:     (when (plusp end-start)
        (error 'invalid-end-index
  	     :end end
  	     :sequence-length (+ start (- end end-start))))
      ;; The variable current now points to a tail
      ;; delimited by end, so we don't touch it.
      ;; Loop through the elements of reversed middle
  
negative.code:     (when (plusp end-start)
        (error 'invalid-end-index
  	     :end end
  	     :sequence-length (+ start (- end end-start))
  	     :in-sequence list))
      (cdr result)))
  
  (defun |delete seq-type=list from-end=nil test=eql end=nil count=other key=identity|
  