Minor fixes

chatikbot.lisp

@@ -451,8 +451,7 @@
               *chat-locations* ',*chat-locations*
               *akb-send-to* ',*akb-send-to*
               *akb-last-id* ,*akb-last-id*
-              *rss-chat-feeds* (%load-rss-feeds ',(%save-rss-feeds))
-              *per-minute-rates* (make-circular ',(flat-circular *per-minute-rates*)))
+              *rss-chat-feeds* (%load-rss-feeds ',(%save-rss-feeds)))
        :stream s)
       (values))))
 

db.lisp

@@ -33,7 +33,7 @@
 
 (defun db-get-series (after-ts &optional usd eur gbp brent)
   (let ((sql (format nil "select ts~:[~;,usd~]~:[~;,eur~]~:[~;,gbp~]~:[~;,brent~] from finance where ts >= ? order by ts" usd eur gbp brent)))
-    (sqlite:with-open-database (db (db-path))
+    (sqlite:with-open-database (db (db-path) :busy-timeout 10)
       (loop
          with statement = (sqlite:prepare-statement db sql)
          initially (sqlite:bind-parameter statement 1 (local-time:timestamp-to-unix after-ts))