Use serapeum's -> & defsubst

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 @@
 ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
 (defpackage :ukkoclot/src/tg/set-my-name
   (:documentation "setMyName Telegram method.")
+  (:import-from :serapeum :->)
   (:use :c2cl :ukkoclot/src/tg/bot-name :ukkoclot/src/tg/get-my-name :ukkoclot/src/tg/method-macros)
   (:export :set-my-name))
 (in-package :ukkoclot/src/tg/set-my-name)
@@ -10,6 +11,9 @@
   (name (or string null) nil)
   (language-code (or string null) nil))
 
+(-> set-my-name
+    (&key (:name (or string null)) (:language-code (or string null)))
+    boolean)
 (defun set-my-name (&key (name nil) (language-code nil))
   "setMyName Telegram method.