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

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

(provide 'mesh-core)

;;; mesh-core.el ends here

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