diff options
| author |  Uko Kokņevičs | 2025-10-18 02:01:23 +0300 |
|---|---|---|
| committer | Uko Kokņevičs | 2025-10-18 02:01:23 +0300 |
| commit | 3dfc833aceadbccbbbd0b88ab57560e4fb502a1b (patch) | |
| tree | 99973a9237fa5ef51394903cf4eb04dd2fed3533 | |
| parent | Make ukkoclot:main return nil (diff) | |
| download | ukkoclot-3dfc833aceadbccbbbd0b88ab57560e4fb502a1b.tar.gz ukkoclot-3dfc833aceadbccbbbd0b88ab57560e4fb502a1b.tar.xz ukkoclot-3dfc833aceadbccbbbd0b88ab57560e4fb502a1b.zip | |
Fix an infinite recursion...
| -rw-r--r-- | src/tg/get-me.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/tg/get-me.lisp b/src/tg/get-me.lisp index e4a6de5..d08fb0e 100644 --- a/src/tg/get-me.lisp +++ b/src/tg/get-me.lisp | |||
| @@ -9,7 +9,7 @@ | |||
| 9 | (define-tg-method (get-me% user :GET)) | 9 | (define-tg-method (get-me% user :GET)) |
| 10 | 10 | ||
| 11 | (defun get-me (bot) | 11 | (defun get-me (bot) |
| 12 | (let ((me (get-me bot))) | 12 | (let ((me (get-me% bot))) |
| 13 | (setf (bot-id% bot) (user-id me)) | 13 | (setf (bot-id% bot) (user-id me)) |
| 14 | (setf (bot-username% bot) (user-username me)) | 14 | (setf (bot-username% bot) (user-username me)) |
| 15 | me)) | 15 | me)) |