           ((eq 0 current-tab-pos)
            (car (last tabs)))
           (t
-           (cl-nth-value (- current-tab-pos 1) tabs)))))
+           (seq-elt tabs (- current-tab-pos 1))))))
 
 
 (defmethod mesh:find-next ((current-session mesh:session) sessions)


;;; Code:

(require 'mesh-class "lib/mesh-class")

(defcustom mesh:default-tab-name "eshell"

          ((eq (- (length tabs) 1) current-tab-pos)
           (car tabs))
          (t
           (seq-elt tabs (+ current-tab-pos 1))))))


(defmethod mesh:find-prev ((current-tab mesh:tab) tabs)
