     (pcase (length sessions)
       (1 nil)
       ((guard (zerop current-session-pos))
-       (cl-first (last sessions)))
+       (mesh:first (last sessions)))
       (_ (seq-elt sessions (1- current-session-pos))))))
 
 (cl-defun mesh:find-next-index-rec (index max-index lst)

             (max-index (seq-max indices)))
    max-index))

(provide 'mesh-core)

;;; mesh-core.el ends here

                    obj
                    (cddr lst)
                    (cons
                     `(setf (slot-value ,obj ,(mesh-first lst)) ,(cl-second lst))
                     res))))))
    `(cl-locally
         ,@(rec object body '()))))
