Ver código fonte

Merge branch 'master' of https://gitlab.enikesha.net/enikesha/chatikbot

Innokenty Enikeev 10 anos atrás
pai
commit
19011976f5
2 arquivos alterados com 3 adições e 2 exclusões
  1. 1 0
      chatikbot.asd
  2. 2 2
      chatikbot.lisp

+ 1 - 0
chatikbot.asd

@@ -18,4 +18,5 @@
                (:file "twitter")
                (:file "telegram")
                (:file "forecast")
+               (:file "vk")
                (:file "chatikbot")))

+ 2 - 2
chatikbot.lisp

@@ -16,10 +16,10 @@
       (loop for update in (telegram-get-updates :offset (and *telegram-last-update*
                                                              (1+ *telegram-last-update*))
                                                 :timeout 300)
-         do (handle-message (aget "message" update))
          do (setf *telegram-last-update*
                   (max (or *telegram-last-update* 0)
-                       (aget "update_id" update))))
+                       (aget "update_id" update)))
+         do (handle-message (aget "message" update)))
     (error (e)
       (log:error e))))