;;; -*- Mode:LISP; Package:LISP-INTERNALS; Readtable:CL; Base:10 -*-


(define-sequence-fcn find-if (test sequence &key from-end start end key)
         ((find-if-nokey (test sequence) :from-end nil :start nil :end nil :key nil)
	  )
  (block found
    (seq-body sequence
	      #'(lambda () NIL)
	      #'(lambda (elt)
		  (when (funcall test (seq-key elt))
		    (return-from found elt))))))