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