Function: IN-QUEUE

Source

(defun in-queue (item q &key (key #'identity) (test #'eql))
  (member item (queue-contents q) :key key :test test))