From 04e950d5e2ec66759b2335c022eea0cdb65c0fb4 Mon Sep 17 00:00:00 2001 From: Boutade Date: Tue, 24 Sep 2019 21:57:12 -0500 Subject: bugfix, rewording --- granolin.lisp | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'granolin.lisp') 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) -- cgit v1.2.3