I saw this on my homie's screen, clearly they are a far-right text messager:

(defun queue-next (queue ptr)
  (let ((length (length (queue-elements queue)))
        (try (the fixnum (1+ ptr))))
    (if (= try length) 0 try)))