|
|
@@ -32,8 +32,8 @@
|
|
|
(loop for update in (telegram-get-updates :offset (and *telegram-last-update*
|
|
|
(1+ *telegram-last-update*))
|
|
|
:timeout 300)
|
|
|
- do (setf *telegram-last-update*
|
|
|
- (max *telegram-last-update* (aget "update_id" update)))
|
|
|
+ ;; do (setf *telegram-last-update*
|
|
|
+ ;; (max *telegram-last-update* (aget "update_id" update)))
|
|
|
do (handle-update update)))
|
|
|
|
|
|
(defun handle-update (update)
|