diff options
| author | 2025-10-19 11:12:24 +0300 | |
|---|---|---|
| committer | 2025-10-19 11:37:39 +0300 | |
| commit | 6b544b58dba095cafd6906d78b70bfd237397439 (patch) | |
| tree | c7c4c6b061909a11c3d93cc53c3a141d9e6cae16 /src/tg/reply-parameters.lisp | |
| parent | Add an alpine build script for srht (diff) | |
| download | ukkoclot-6b544b58dba095cafd6906d78b70bfd237397439.tar.gz ukkoclot-6b544b58dba095cafd6906d78b70bfd237397439.tar.xz ukkoclot-6b544b58dba095cafd6906d78b70bfd237397439.zip | |
Fix lint issues
Diffstat (limited to 'src/tg/reply-parameters.lisp')
| -rw-r--r-- | src/tg/reply-parameters.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/tg/reply-parameters.lisp b/src/tg/reply-parameters.lisp index d9c7b3b..152b57b 100644 --- a/src/tg/reply-parameters.lisp +++ b/src/tg/reply-parameters.lisp | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | ;; SPDX-License-Identifier: EUPL-1.2 | 1 | ;; SPDX-License-Identifier: EUPL-1.2 |
| 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/reply-parameters | 3 | (defpackage :ukkoclot/src/tg/reply-parameters |
| 4 | (:documentation "ReplyParameters Telegram type") | ||
| 4 | (:use :c2cl :ukkoclot/src/tg/type-macros :ukkoclot/src/tg/message-entity) | 5 | (:use :c2cl :ukkoclot/src/tg/type-macros :ukkoclot/src/tg/message-entity) |
| 5 | (:export | 6 | (:export |
| 6 | #:reply-parameters | 7 | #:reply-parameters |
| @@ -21,7 +22,7 @@ | |||
| 21 | (message-id integer) | 22 | (message-id integer) |
| 22 | (chat-id (or integer string null) nil) | 23 | (chat-id (or integer string null) nil) |
| 23 | ;; TODO: This should be a ternary true, false, default | 24 | ;; TODO: This should be a ternary true, false, default |
| 24 | (allow-sending-without-reply boolean nil) | 25 | (allow-sending-without-reply boolean nil :skip-if-default nil) |
| 25 | (quote (or string null) nil) | 26 | (quote (or string null) nil) |
| 26 | (quote-parse-mode (or string null) nil) | 27 | (quote-parse-mode (or string null) nil) |
| 27 | (quote-entities (or (array message-entity) null) nil) | 28 | (quote-entities (or (array message-entity) null) nil) |