|
@@ -350,7 +350,7 @@
|
|
|
(format nil "~:[Не нашел RSS там~;~:*~{~{~A - ~A~}~^~%~}~]"
|
|
(format nil "~:[Не нашел RSS там~;~:*~{~{~A - ~A~}~^~%~}~]"
|
|
|
(find-rss-links (car args))))
|
|
(find-rss-links (car args))))
|
|
|
:disable-web-preview 1)
|
|
:disable-web-preview 1)
|
|
|
- (error (e)
|
|
|
|
|
|
|
+ (condition (e)
|
|
|
(log:error "~A" e)
|
|
(log:error "~A" e)
|
|
|
(telegram-send-message chat-id "Ошибочка вышла"))))
|
|
(telegram-send-message chat-id "Ошибочка вышла"))))
|
|
|
|
|
|
|
@@ -402,7 +402,7 @@
|
|
|
(error (e) (log:error "~A" e))))
|
|
(error (e) (log:error "~A" e))))
|
|
|
(db-rss-set-chat-feeds chat-id feeds)
|
|
(db-rss-set-chat-feeds chat-id feeds)
|
|
|
(%send-feeds chat-id (db-rss-get-chat-feeds chat-id)))))
|
|
(%send-feeds chat-id (db-rss-get-chat-feeds chat-id)))))
|
|
|
- (error (e)
|
|
|
|
|
|
|
+ (condition (e)
|
|
|
(log:error "~A" e)
|
|
(log:error "~A" e)
|
|
|
(telegram-send-message chat-id (format nil "Ошибочка вышла: ~A" e)))))
|
|
(telegram-send-message chat-id (format nil "Ошибочка вышла: ~A" e)))))
|
|
|
|
|
|
