diff options
Diffstat (limited to 'granolin.lisp')
-rw-r--r-- | granolin.lisp | 7 |
1 files changed, 0 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)) |