diff options
| author | Colin Okay <cbeok@protonmail.com> | 2020-05-02 07:49:15 -0500 |
|---|---|---|
| committer | Colin Okay <cbeok@protonmail.com> | 2020-05-02 07:49:15 -0500 |
| commit | 0492d36154e440e51173ff6d3f0ab823f0c14c94 (patch) | |
| tree | 45d5029184b566352a2d41b7d5dbc3e737eb78c1 /granolin.lisp | |
| parent | e280286e6bf8fbffd0ad929b524a4577233d541e (diff) | |
oops. bad argument name
Diffstat (limited to 'granolin.lisp')
| -rw-r--r-- | granolin.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/granolin.lisp b/granolin.lisp index 9a225d2..625ee86 100644 --- a/granolin.lisp +++ b/granolin.lisp @@ -64,7 +64,7 @@ INITIALIZE-INSTANCE :after auxilliary method will attempt to populate the following slots from a file: HOMESERVER, TIMEOUT, ACCESS-TOKEN, NEXT-BATCH")) -(defgeneric hardcopy-plist (bot) +(defgeneric hardcopy-plist (client) (:method-combination append) (:documentaton "Gets a plist of slots and values to be used by SAVE-CLIENT-STATE when saving to hardcopy. @@ -73,7 +73,7 @@ Each but sublcass is free to return its own specific PLIST for its own specific state. The PLISTS are concatenated. ")) -(defmethod hardcopy-plist ((bot client)) +(defmethod hardcopy-plist ((client client)) (list 'id-source (slot-value client 'id-source) 'homeserver (homeserver client) |