diff options
author | Colin Okay <cbeok@protonmail.com> | 2020-05-02 07:25:41 -0500 |
---|---|---|
committer | Colin Okay <cbeok@protonmail.com> | 2020-05-02 07:25:41 -0500 |
commit | e280286e6bf8fbffd0ad929b524a4577233d541e (patch) | |
tree | 9a96cef7c1947c6a0bc2b954041ccdbdb4262fea | |
parent | 707d7fa15a401c1ac738bf42dc6f9c5a49c9268b (diff) |
removed useless hardcopy-plist-keys method
-rw-r--r-- | granolin.lisp | 7 | ||||
-rw-r--r-- | package.lisp | 1 |
2 files changed, 1 insertions, 7 deletions
diff --git a/granolin.lisp b/granolin.lisp index 861f841..9a225d2 100644 --- a/granolin.lisp +++ b/granolin.lisp @@ -73,10 +73,6 @@ Each but sublcass is free to return its own specific PLIST for its own specific state. The PLISTS are concatenated. ")) -(defgeneric hardcopy-plist-keys (bot) - (:method-combination append) - (:documentation "Like HARDCOPY-PLIST but returns a list of just the keys.")) - (defmethod hardcopy-plist ((bot client)) (list 'id-source (slot-value client 'id-source) @@ -86,9 +82,6 @@ specific state. The PLISTS are concatenated. 'access-token (access-token client) 'next-batch (next-batch client))) -(defmethod hardcopy-plist-keys ((bot client)) - (list 'id-source 'homeserver 'timeout 'user-id 'access-token 'next-batch)) - (defun logged-in-p (client) "T if the client has an access token." (and (access-token client) t)) diff --git a/package.lisp b/package.lisp index b3f18b9..89756cc 100644 --- a/package.lisp +++ b/package.lisp @@ -27,6 +27,7 @@ ;; bot generic functions #:handle-event #:clean-up + #:hardcopy-plist ;; utility classes & their APIS #:message-log ; plugin |