diff options
| author |  Uko Kokņevičs | 2025-10-12 22:33:57 +0300 |
|---|---|---|
| committer | Uko Kokņevičs | 2025-10-12 22:33:57 +0300 |
| commit | 608701f2c51d53e795700d4a18af0dbf7a5636cc (patch) | |
| tree | cf037e2717d0683594af8cd778c2d2fb889fd97b /src/enum.lisp | |
| parent | Introduce chat-type enum (diff) | |
| download | ukkoclot-608701f2c51d53e795700d4a18af0dbf7a5636cc.tar.gz ukkoclot-608701f2c51d53e795700d4a18af0dbf7a5636cc.tar.xz ukkoclot-608701f2c51d53e795700d4a18af0dbf7a5636cc.zip | |
Fix enum jsonification
Diffstat (limited to 'src/enum.lisp')
| -rw-r--r-- | src/enum.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/enum.lisp b/src/enum.lisp index 9f31b1a..e3ceb6b 100644 --- a/src/enum.lisp +++ b/src/enum.lisp | |||
| @@ -34,8 +34,8 @@ | |||
| 34 | (defun emit-jzon-write-method (field) | 34 | (defun emit-jzon-write-method (field) |
| 35 | (let ((writer (gensym "WRITER")) | 35 | (let ((writer (gensym "WRITER")) |
| 36 | (arg (gensym "ARG"))) | 36 | (arg (gensym "ARG"))) |
| 37 | `(defmethod jzon:write-value (,writer (,arg (eql ',(field-name field)))) | 37 | `(defmethod jzon:write-value ((,writer jzon:writer) (,arg (eql ',(field-name field)))) |
| 38 | (jzon::write-string ,(field-string field) ,writer)))) | 38 | (jzon:write-value ,writer ,(field-string field))))) |
| 39 | 39 | ||
| 40 | (defun emit-parse-value (name fields) | 40 | (defun emit-parse-value (name fields) |
| 41 | (let ((type (gensym "TYPE")) | 41 | (let ((type (gensym "TYPE")) |