anchor.diff:  	  finally (when (plusp end-start)
   		    (error 'invalid-end-index
   			   :datum end
  -			   :expected-type `(integer 0 ,(- end end-start)))))))
  +			   :expected-type `(integer 0 ,(- end end-start))
  +			   :in-sequence list)))))
   
   (defun |count-if seq-type=list from-end=nil end=other key=other|
       (predicate list start end key)
  
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 from-end=nil test=eq end=other count=other key=other|
  
negative.code:     (when (plusp end-start)
        (error 'invalid-end-index
  	     :end end
  	     :sequence-length (+ start (- end end-start))
  	     :in-sequence list))
      (setf (cdr last) list)
      (cdr result)))
  
  