            (set-window-configuration next-session-conf)
            (mesh:set-current-session next-session))
          (seq-each
-          (lambda (tab)
-            (mesh:tab--kill-panes tab))
+          #'mesh:tab--kill-panes
           current-tabs))))))
 
 

  (cl-letf ((new-session-name
             (if (cl-find-if
                  (lambda (session) (cl-equalp new-session-name
                                          (mesh:get-name session)))
                  (mesh:session-list))
                 (concat new-session-name "*")
               new-session-name)))


(cl-defun mesh:session--new (session-name sessions)
  (if-let ((found (cl-find-if (lambda (s) (cl-equalp (mesh:get-name s)
                                                     session-name))
                              sessions)))
      found
    (cl-letf ((new-tab (mesh:tab--new
