diff options
Diffstat (limited to 'granolin.lisp')
| -rw-r--r-- | granolin.lisp | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/granolin.lisp b/granolin.lisp index ebbc87e..a6a016f 100644 --- a/granolin.lisp +++ b/granolin.lisp @@ -80,9 +80,8 @@ form)) (defmacro def-json-wrap (name &rest field-specs) - "Defines a struct called NAME with a single slot called DATA. - - The DATA slot holds a PLIST created with JONATHAN:PARSE. + "Defines a struct named the value of NAME, a symbol, with a single slot called + DATA. DATA holds a PLIST as returned by JONATHAN:PARSE. Each FIELD-SPEC is a list of the form (METHOD-NAME KEY1 ... KEYN) @@ -129,8 +128,6 @@ (setf (room-event-data ,evt-var) ,tmp-var) ,@body))))) - - ;;; URI constants for interacting with the Matrix API (defparameter +login-path+ "/_matrix/client/r0/login") @@ -257,7 +254,7 @@ (next-batch *response-object*)) ;; If client has no STATE, then set the STATE to the response object (if (not (state client)) - (setf (state client) (copy-tree *response-object*)) + (setf (state client) (copy-tree (sync-response-data *response-object*))) (progn (process-joined-room-timeline-events client) (process-joined-room-state-events client) |