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 | |
parent | e280286e6bf8fbffd0ad929b524a4577233d541e (diff) |
oops. bad argument name
-rw-r--r-- | granolin.asd | 2 | ||||
-rw-r--r-- | granolin.lisp | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/granolin.asd b/granolin.asd index 3f0dcd4..687ceaa 100644 --- a/granolin.asd +++ b/granolin.asd @@ -4,7 +4,7 @@ :description "Lisp learns how to spam Matrix servers." :author "cbeok@protonmail.com" :license "AGPLv3.0" - :version "0.1.0" + :version "0.1.1" :serial t :depends-on (#:drakma #:jonathan #:local-time) :components ((:file "package") 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) |