Use serapeum's -> & defsubst

1 files changed, 7 insertions, 6 deletions

diff --git a/src/tg/message.lisp b/src/tg/message.lisp
index 13162a5..70155ab 100644
--- a/src/tg/message.lisp
+++ b/src/tg/message.lisp
@@ -10,6 +10,7 @@
    :ukkoclot/src/tg/photo-size
    :ukkoclot/src/tg/type-macros
    :ukkoclot/src/tg/user)
+  (:import-from :serapeum :-> :defsubst)
   (:export
    #:message-chat-id
    #:message-thread-id
@@ -163,17 +164,17 @@
   ;; (reply-markup (or inline-keyboard-markup null) nil)
   ) ; lint:suppress closing-parens-same-line whitespace-before-close-paren
 
-(declaim (inline message-id))
-(defun message-id (msg)
+(-> message-id (message) integer)
+(defsubst message-id (msg)
   "Better named version of `message-message-id'."
   (message-message-id msg))
 
-(declaim (inline message-chat-id))
-(defun message-chat-id (msg)
+(-> message-chat-id (message) integer)
+(defsubst message-chat-id (msg)
   "Shortcut for (CHAT-ID (MESSAGE-CHAT MSG))."
   (chat-id (message-chat msg)))
 
-(declaim (inline message-thread-id))
-(defun message-thread-id (msg)
+(-> message-thread-id (message) (or integer null))
+(defsubst message-thread-id (msg)
   "Better named version of `message-message-thread-id'."
   (message-message-thread-id msg))