Function: STARTS-WITH

Source

(defun starts-with (list x &key (test #'eql))
  (and (consp list)
       (funcall test (car list) x)))