diff options
Diffstat (limited to 'src/tg/set-my-name.lisp')
| -rw-r--r-- | src/tg/set-my-name.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/tg/set-my-name.lisp b/src/tg/set-my-name.lisp index 2b3869a..f0b5c5f 100644 --- a/src/tg/set-my-name.lisp +++ b/src/tg/set-my-name.lisp | |||
| @@ -2,6 +2,7 @@ | |||
| 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> | 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> |
| 3 | (defpackage :ukkoclot/src/tg/set-my-name | 3 | (defpackage :ukkoclot/src/tg/set-my-name |
| 4 | (:documentation "setMyName Telegram method.") | 4 | (:documentation "setMyName Telegram method.") |
| 5 | (:import-from :serapeum :->) | ||
| 5 | (:use :c2cl :ukkoclot/src/tg/bot-name :ukkoclot/src/tg/get-my-name :ukkoclot/src/tg/method-macros) | 6 | (:use :c2cl :ukkoclot/src/tg/bot-name :ukkoclot/src/tg/get-my-name :ukkoclot/src/tg/method-macros) |
| 6 | (:export :set-my-name)) | 7 | (:export :set-my-name)) |
| 7 | (in-package :ukkoclot/src/tg/set-my-name) | 8 | (in-package :ukkoclot/src/tg/set-my-name) |
| @@ -10,6 +11,9 @@ | |||
| 10 | (name (or string null) nil) | 11 | (name (or string null) nil) |
| 11 | (language-code (or string null) nil)) | 12 | (language-code (or string null) nil)) |
| 12 | 13 | ||
| 14 | (-> set-my-name | ||
| 15 | (&key (:name (or string null)) (:language-code (or string null))) | ||
| 16 | boolean) | ||
| 13 | (defun set-my-name (&key (name nil) (language-code nil)) | 17 | (defun set-my-name (&key (name nil) (language-code nil)) |
| 14 | "setMyName Telegram method. | 18 | "setMyName Telegram method. |
| 15 | 19 | ||