anchor.diff:  			    (let ((temp (cdr l2)))
   			      (setf (cdr tail) l2
   				    l2 temp))
  -			    ;; Take the element of the first sequence i
  +			    ;; Take the element of the first sequence if
   			    ;; it is less than or equal to the element
   			    ;; of the first sequence according to the predicate
   			    (let ((temp (cdr l1)))
  
positive.code: 				     j (1+ j)
  				     tail (cdr tail))))
  	          (return (cdr sentinel)))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  
negative.code: 		 (let ((temp (cdr l2)))
  		   (setf head l2
  			 l2 temp))
  		 ;; Take the element of the first sequence if
  		 ;; it is less than or equal to the element
  		 ;; of the first sequence according to the predicate
  		 (let ((temp (cdr l1)))
  