anchor.diff:  
   (defun |remove seq-type=simple-string from-end=nil test=eql count=other key=other|
       (item vector start end count key)
  -  (declare (type simple-string vector))
  +  (declare (type simple-string vector)
  +	   (type fixnum start end))
     (let ((bit-vector (make-array (- end start) :element-type 'bit :initial-element 0))
   	(items-to-keep 0))
  +    (declare (type fixnum items-to-keep))
       (loop for i from start below end
   	  until (zerop count)
   	  unless (eql item (funcall key (schar vector i)))
  
positive.code: 
  (defun |remove seq-type=simple-vector from-end=nil test-not=other count=other key=other|
      (item vector test-not start end count key)
    (declare (type simple-vector vector))
    (let ((bit-vector (make-array (- end start) :element-type 'bit :initial-element 0))
  	(items-to-keep 0))
      (loop for i from start below end
  	  until (zerop count)
  	  when (funcall test-not item (funcall key (svref vector i)))
  
negative.code: 
  (defun |remove seq-type=simple-vector from-end=nil test-not=other count=other key=identity|
      (item vector test-not start end count)
    (declare (type simple-vector vector)
  	   (type fixnum start end))
    (let ((bit-vector (make-array (- end start) :element-type 'bit :initial-element 0))
  	(items-to-keep 0))
      (declare (type fixnum items-to-keep))
      (loop for i from start below end
  	  until (zerop count)
  	  when (funcall test-not item (svref vector i))
  