Function: FIND2

Documentation

finds the element and place in list where fn will not return nil

Source

(defun find2 (fn lst)
  "finds the element and place in list where fn will not return nil"
  (if (null lst)
      nil
      (let ((val (funcall fn (car lst))))
	(if val
	    (values (car lst) val)
	    (find2 fn (cdr lst))))))
Source Context