Use serapeum's -> & defsubst

1 files changed, 4 insertions, 0 deletions

diff --git a/src/tg/get-me.lisp b/src/tg/get-me.lisp
index e7d41a1..5360f16 100644
--- a/src/tg/get-me.lisp
+++ b/src/tg/get-me.lisp
@@ -3,12 +3,14 @@
 (defpackage :ukkoclot/src/tg/get-me
   (:documentation "getMe Telegram method")
   (:use :c2cl :ukkoclot/src/tg/method-macros :ukkoclot/src/tg/user)
+  (:import-from :serapeum :->)
   (:import-from :state)
   (:export :bot-id :bot-username :get-me))
 (in-package :ukkoclot/src/tg/get-me)
 
 (define-tg-method (get-me% user :GET))
 
+(-> get-me () user)
 (defun get-me ()
   "getMe Telegram method"
   (let ((me (get-me%)))
@@ -16,6 +18,7 @@
     (setf (state:username%) (user-username me))
     me))
 
+(-> bot-id () integer)
 (defun bot-id ()
   "Get the bot's ID, this memoizes the result"
   (or (state:id%)
@@ -23,6 +26,7 @@
         (get-me)
         (state:id%))))
 
+(-> bot-username () string)
 (defun bot-username ()
   "Get the bot's username, this memoizes the result"
   (or (state:username%)