|
|
@@ -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
|
