Plaster

* (in-package :aggregator.persistence) #<PACKAGE "AGGREGATOR.PERSISTENCE"> * (defvar *repo* (make-instance 'event-repository-memory)) *REPO* * (defvar *event* (make-instance 'event)) *EVENT* * (store-event *repo* *event*) #<EVENT {10034432A3}> * (id *event*) "117C7867-E2FB-4EEB-ABDC-403CECC05345" * (get-event *repo* "117C7867-E2FB-4EEB-ABDC-403CECC05345") #<EVENT {10034432A3}> T * (id (get-event *repo* "117C7867-E2FB-4EEB-ABDC-403CECC05345")) "117C7867-E2FB-4EEB-ABDC-403CECC05345"