[poller] Reset stored token on error

poller.lisp

@@ -61,8 +61,8 @@
         (with-secret (secret (list module chat-id))
           (unless secret (error 'poller-no-secret))
           (let ((*poller-token* (poller-get-token module secret)))
-            (unless *poller-token* (error 'poller-cant-get-token))
             (set-data *tokens* chat-id *poller-token* module)
+            (unless *poller-token* (error 'poller-cant-get-token))
             (values (apply 'poller-request module method params)))))))
 
 (defun poller-authenticate (module secret)