Function: DEQUEUE

Source

(defun dequeue (q)
  (pop (cdr q))
  (if (null (cdr q)) (setf (car q) q))
  q)