(defvar buffer-cycle-point)

(defun cycle-buffers()
  (setq bl (buffer-list))
  (if bl
      ;blah blah blah))