(setq repoA-elements '())

(setq repoA `(
      (get-all . (lambda () repoA-elements)))
      (put-element . (lambda (el) (setq repoA-elements (append repoA-elements `(,el)))))
      (get-element . (lambda (id) (car
          (remove-if (lambda (el) (not (eq id (cdr (assoc 'ID el))))))
      )))
)