From 6b544b58dba095cafd6906d78b70bfd237397439 Mon Sep 17 00:00:00 2001
From: Uko Kokņevičs
Date: Sun, 19 Oct 2025 11:12:24 +0300
Subject: Fix lint issues

---
 src/tg/keyboard-button-poll-type.lisp | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

(limited to 'src/tg/keyboard-button-poll-type.lisp')

diff --git a/src/tg/keyboard-button-poll-type.lisp b/src/tg/keyboard-button-poll-type.lisp
index da74da5..6ab91ea 100644
--- a/src/tg/keyboard-button-poll-type.lisp
+++ b/src/tg/keyboard-button-poll-type.lisp
@@ -1,14 +1,21 @@
 ;; SPDX-License-Identifier: EUPL-1.2
 ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
 (defpackage :ukkoclot/src/tg/keyboard-button-poll-type
-  (:use :c2cl :ukkoclot/src/tg/type-macros)
+  (:documentation "KeyboardButtonPollType Telegram type")
+  (:use :c2cl :ukkoclot/src/enum :ukkoclot/src/tg/type-macros)
   (:export
+   #:keyboard-button-poll-type-type
+   #:quiz
+   #:regular
    #:keyboard-button-poll-type
    #:make-keyboard-button-poll-type
    #:keyboard-button-poll-type-p
-   #:copy-keyboard-button-poll-type
-   #:keyboard-button-poll-type-type))
+   #:copy-keyboard-button-poll-type))
 (in-package :ukkoclot/src/tg/keyboard-button-poll-type)
 
+(define-enum keyboard-button-poll-type-type
+  (quiz "quiz")
+  (regular "regular"))
+
 (define-tg-type keyboard-button-poll-type
-  (type (or string null) nil))          ;(member "quiz" "regular") or null
+  (type (or keyboard-button-poll-type-type null) nil))
-- 
cgit v1.2.3