[banks] splitting fix

plugins/raiffeisen.lisp

@@ -226,9 +226,10 @@
      for text = (pta-ledger:render entry)
      with page
      when (> (+ (length page) (length text) 2)
-             2048)
-     collect (format nil "```~%~A```" page) and do (setf page nil)
-     do (setf page (format nil "~@[~A~%~%~]~A" page text))))
+             4096)
+     collect (format nil "```~%~A```" page) into pages and do (setf page nil)
+     do (setf page (format nil "~@[~A~%~%~]~A" page text))
+     finally (return (append pages (when page (list (format nil "```~%~A```" page)))))))
 
 (defun format-balance (accounts)
   (format nil "```~%~{~A~^~%~}```" (mapcar #'account->balance accounts)))

plugins/tinkoff.lisp

@@ -196,9 +196,10 @@
      for text = (pta-ledger:render entry)
      with page
      when (> (+ (length page) (length text) 2)
-             2048)
-     collect (format nil "```~%~A```" page) and do (setf page nil)
-     do (setf page (format nil "~@[~A~%~%~]~A" page text))))
+             4096)
+     collect (format nil "```~%~A```" page) into pages and do (setf page nil)
+     do (setf page (format nil "~@[~A~%~%~]~A" page text))
+     finally (return (append pages (when page (list (format nil "```~%~A```" page)))))))
 
 (defun format-accounts (accounts)
   (with-output-to-string (s)