Advertisement
Guest User

Untitled

a guest
Jul 11th, 2018
127
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.18 KB | None | 0 0
  1. (defmethod encode-message ((message world-message))
  2.   (cl-json:encode-json-to-string
  3.    (loop for name in (slot-names message)
  4.         collect (cons name (slot-value message name)))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement