From 116c700741c7d43b68a926ac8a4acc2672d66e26 Mon Sep 17 00:00:00 2001
From: Uko Kokņevičs
Date: Sun, 12 Oct 2025 22:19:41 +0300
Subject: Introduce chat-type enum

---
 src/enum.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/enum.lisp')

diff --git a/src/enum.lisp b/src/enum.lisp
index c678ec7..9f31b1a 100644
--- a/src/enum.lisp
+++ b/src/enum.lisp
@@ -50,10 +50,11 @@
 (defmacro define-enum (name &body field-specs)
   (let ((fields (parse-field-specs field-specs)))
     `(progn
+       ,@(iter (for field in fields)
+           (collect (emit-defconst field)))
        ,(emit-deftype name fields)
        ,(emit-parse-value name fields)
        ,@(iter (for field in fields)
            (collect `(progn
-                       ,(emit-defconst field)
                        ,(emit-fixup-method field)
                        ,(emit-jzon-write-method field)))))))
-- 
cgit v1.2.3