Function: AFTER

Documentation

tests if x comes after y in the lst

Source

(defun after (x y lst &key (test #'eql))
  "tests if x comes after y in the lst"
  (let ((rest (before y x lst :test test)))
    (and rest
	 (member x rest :test test))))