anchor.diff:  		 &key key test test-not start1 start2 end1 end2 from-end)
     (declare (ignore sequence-1 sequence-2 key test test-not start1 start2 end1 end2 from-end))
     nil)
  -  
  -
  -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  -;;;
  -;;; Function merge
  -
  -;;; FIXME: incomplete non-working definition at the moment
  -
  -(defun merge (result-type sequence-1 sequence-2 predicate &key key)
  -  (declare (ignore result-type sequence-1 sequence-2 predicate key))
  -  nil)
  -
  -
  
positive.code: 		 (let ((temp (cdr l2)))
  		   (setf head l2
  			 l2 temp))
  		 ;; Take the element of the first sequence i
  		 ;; it is less than or equal to the element
  		 ;; of the first sequence according to the predicate
  		 (let ((temp (cdr l1)))
  
negative.code: 			    (let ((temp (cdr l2)))
  			      (setf (cdr tail) 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)))
  