[plugins] fix last entries merge

plugins/gazprom.lisp

@@ -191,7 +191,7 @@
                        (merge 'list old new #'< :key (agetter "date"))
                        :test 'equalp)))
           (setf (gethash chat-id *last-entries*)
-                (subseq merged (max 0 (- (length merged) 100)))))))))
+                (subseq merged 0 (min (length merged) 200))))))))
 
 (def-message-cmd-handler handler-gazprom (:gpn :gazprom)
   (let ((arg (car args)))

plugins/raiffeisen.lisp

@@ -208,7 +208,7 @@
                        (merge 'list old new #'< :key #'pta-ledger:entry-date)
                        :test 'equalp)))
           (setf (gethash chat-id *last-entries*)
-                (subseq merged (max 0 (- (length merged) 100)))))))))
+                (subseq merged 0 (min (length merged) 200))))))))
 
 (def-message-cmd-handler handler-raif (:raif)
   (let ((arg (car args)))

plugins/tinkoff.lisp

@@ -226,7 +226,7 @@
                        (merge 'list old new #'< :key #'pta-ledger:entry-date)
                        :test 'equalp)))
           (setf (gethash chat-id *last-entries*)
-                (subseq merged (max 0 (- (length merged) 100)))))))))
+                (subseq merged 0 (min (length merged) 200))))))))
 
 (def-message-cmd-handler handler-tink (:tink)
   (let ((arg (car args)))