@@ -3,7 +3,9 @@

   (:export #:store #:execute #:dispatch

            #:next-store

            #:next-store-p

-           #:propagate))

+           #:propagate

+           #:recording-store

+           #:record))

 (in-package :mfa-tool.store)

 (defclass store ()

@@ -11,6 +13,9 @@

 (defun next-store-p (store)

   (slot-boundp store '%next-store))

+(fw.lu:defclass+ recording-store ()

+  ((%record :reader record :accessor %record :initform ())))

+

 (defgeneric execute (store action)

   (:argument-precedence-order action store)

   (:method :around (store action)

@@ -31,3 +36,7 @@

     (dispatch (next-store store)

               action))

   store)

+

+(defmethod dispatch :before ((store recording-store) action)

+  (push action

+        (%record store)))