bugfix, rewording

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)