Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defmethod encode-message ((message world-message))
- (cl-json:encode-json-to-string
- (loop for name in (slot-names message)
- collect (cons name (slot-value message name)))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement