     (pcase (1- (length sessions))
       (0 nil)
       ((pred (eq current-session-pos))
-       (cl-first sessions))
+       (mesh:first sessions))
       ((pred (< current-session-pos))
        (seq-elt sessions (1+ current-session-pos)))
       (_ nil))))

             (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 '()))))
