1
0
Innokenty Enikeev 10 жил өмнө
parent
commit
f88b239171
1 өөрчлөгдсөн 1 нэмэгдсэн , 1 устгасан
  1. 1 1
      chatikbot.lisp

+ 1 - 1
chatikbot.lisp

@@ -520,7 +520,7 @@
               (%send-domains chat-id (db-vk-get-chat-domains chat-id)))))
               (%send-domains chat-id (db-vk-get-chat-domains chat-id)))))
     (error (e)
     (error (e)
       (log:error e)
       (log:error e)
-      (telegram-send-message chat-id "Ошибочка вышла"))))
+      (telegram-send-message chat-id (format nil "Ошибочка вышла: ~A" e)))))
 
 
 (defun process-walls ()
 (defun process-walls ()
   (handler-case
   (handler-case