anchor.diff:  		 (setf (cdr reversed-prefix) result
   		       result reversed-prefix
   		       reversed-prefix temp)))
  -    ;; Finally put back the unprocessed remaining prefix
  -    (loop repeat start
  -	  do (let ((temp (cdr reversed-prefix)))
  -	       (setf (cdr reversed-prefix) result
  -		     result reversed-prefix
  -		     reversed-prefix temp)))
  -    result))
  +    (nreconc reversed-prefix result)))
   
   (defun |remove seq-type=list from-end=t test=other end=other count=other key=identity|
       (item list test start end count)
  
positive.code: 		 (setf (cdr reversed-prefix) result
  		       result reversed-prefix
  		       reversed-prefix temp)))
      ;; Finally put back the unprocessed remaining prefix
      (loop repeat start
  	  do (let ((temp (cdr reversed-prefix)))
  	       (setf (cdr reversed-prefix) result
  		     result reversed-prefix
  		     reversed-prefix temp)))
      result))
  
  (defun |remove seq-type=list from-end=t test=eq end=nil count=other key=identity|
      (item list start count)
  
negative.code: 		       reversed-prefix temp))
  	  else
  	    do (progn (pop reversed-prefix) (decf count)))
      (nreconc reversed-prefix result)))
  
  (defun |remove seq-type=list from-end=t test-not=other end=other count=other key=other|
      (item list test-not start end count key)
  