Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (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))))))
- )))
- )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement