anchor.diff:  	       (if (notemptylst lst) ; check for end of list
   		   (let ((e (car lst)))
   		     (if (notemptylst e)
  -			; first elem is a list, means nested elem with content or attr
  +			; first elem is a list, means nested elem with content or attrg
   			 (progn
   			   (find-el (cdr lst))
   			   (if (or  (is-eq (car e))
  
positive.code:   (eq keyword1 keyword2))
  
  (defun find-lxml-elems (lst elem eqfun)
    (let ((res (list)))
      (labels ((notemptylst (x)
  	       (and (not (null x)) (listp x)))
  
negative.code: 			     (push (cdr lst) res)
  			     (find-el (cdr lst)))))))) ; continue search
        (find-el lst))
      (when (not (equal res '(nil)))
  	res))) 
  
  
  ;; TODO use xml event-based parser in next version ?
  