Save rates in settings

chatikbot.lisp

@@ -178,11 +178,13 @@
 
 (defun process-rates ()
   (handler-case
-      (push-circular (cons (local-time:timestamp-to-unix (local-time:now))
-                           (list* (cons "Brent"
-                                        (get-brent))
-                                  (get-rates)))
-                     *per-minute-rates*)
+      (progn
+        (push-circular (cons (local-time:timestamp-to-unix (local-time:now))
+                             (list* (cons "Brent"
+                                          (get-brent))
+                                    (get-rates)))
+                       *per-minute-rates*)
+        (save-settings))
     (error (e) (log:error e))))
 
 (defun handle-cmd-rates (chat-id message-id args)
@@ -448,8 +450,10 @@
             *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)))
-     :stream s)))
+            *rss-chat-feeds* (%load-rss-feeds ',(%save-rss-feeds))
+            *per-minute-rates* (make-circular ',(flat-circular *per-minute-rates*)))
+     :stream s)
+    (values)))
 
 (defun start ()
   ;; Clear prev threads