summaryrefslogtreecommitdiff
path: root/src/enum.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/enum.lisp')
-rw-r--r--src/enum.lisp3
1 files changed, 2 insertions, 1 deletions
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 @@
50(defmacro define-enum (name &body field-specs) 50(defmacro define-enum (name &body field-specs)
51 (let ((fields (parse-field-specs field-specs))) 51 (let ((fields (parse-field-specs field-specs)))
52 `(progn 52 `(progn
53 ,@(iter (for field in fields)
54 (collect (emit-defconst field)))
53 ,(emit-deftype name fields) 55 ,(emit-deftype name fields)
54 ,(emit-parse-value name fields) 56 ,(emit-parse-value name fields)
55 ,@(iter (for field in fields) 57 ,@(iter (for field in fields)
56 (collect `(progn 58 (collect `(progn
57 ,(emit-defconst field)
58 ,(emit-fixup-method field) 59 ,(emit-fixup-method field)
59 ,(emit-jzon-write-method field))))))) 60 ,(emit-jzon-write-method field)))))))