[banks] minor fix

plugins/raiffeisen.lisp

@@ -263,11 +263,11 @@
           (alexandria:when-let (changes (set-difference new old :test #'equalp))
             (log:info changes)
             (if ledger-package
-                (let (new-chat-entry (symbol-function
-                                      (intern "LEDGER/NEW-CHAT-ENTRIES" ledger-package)))
+                (let ((new-chat-entry (symbol-function
+                                       (intern "LEDGER/NEW-CHAT-ENTRY" ledger-package))))
                   (dolist (entry changes)
                     (funcall new-chat-entry chat-id entry)))
-                (bot-send-message chat-id (format-entries changes) :parse-mode "markdown"))))
+                (bot-send-message chat-id (format-changes changes) :parse-mode "markdown"))))
         (setf (gethash chat-id *last-entries*) new)))))
 
 (def-message-cmd-handler handler-raif (:raif)

plugins/tinkoff.lisp

@@ -219,8 +219,8 @@
           (alexandria:when-let (changes (set-difference new old :test #'equalp))
             (log:info changes)
             (if ledger-package
-                (let (new-chat-entry (symbol-function
-                                      (intern "LEDGER/NEW-CHAT-ENTRIES" ledger-package)))
+                (let ((new-chat-entry (symbol-function
+                                       (intern "LEDGER/NEW-CHAT-ENTRY" ledger-package))))
                   (dolist (entry changes)
                     (funcall new-chat-entry chat-id entry)))
                 (bot-send-message chat-id (format-entries changes) :parse-mode "markdown"))))