(defun instance-of-data-entry-from-alist (alist)
  "Creates an instance of data-entry from an alist received from *data-storage-file* (where the json has been stored"
  (let ((instance (make-instance 'data-entry)))
    (dolist (accessor *datas-accessors* instance)
      (dolist (alist-entry alist)
	(funcall #'(setf accessor) instance (cdr alist-entry))))))