[bank] clone entry to diff work properly

plugins/raiffeisen.lisp

@@ -262,7 +262,7 @@
                 (let ((new-chat-entry (symbol-function
                                        (intern "LEDGER/NEW-CHAT-ENTRY" ledger-package))))
                   (dolist (entry changes)
-                    (funcall new-chat-entry chat-id entry)))
+                    (funcall new-chat-entry chat-id (pta-ledger:clone-entry entry))))
                 (bot-send-message chat-id (format-entries changes) :parse-mode "markdown"))))
         (setf (gethash chat-id *last-entries*) new)))))
 

plugins/tinkoff.lisp

@@ -220,7 +220,7 @@
                 (let ((new-chat-entry (symbol-function
                                        (intern "LEDGER/NEW-CHAT-ENTRY" ledger-package))))
                   (dolist (entry changes)
-                    (funcall new-chat-entry chat-id entry)))
+                    (funcall new-chat-entry chat-id (pta-ledger:clone-entry entry))))
                 (bot-send-message chat-id (format-entries changes) :parse-mode "markdown"))))
         (setf (gethash chat-id *last-entries*) new)))))