diff options
Diffstat (limited to 'src/enum.lisp')
| -rw-r--r-- | src/enum.lisp | 3 |
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))))))) |