From e280286e6bf8fbffd0ad929b524a4577233d541e Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Sat, 2 May 2020 07:25:41 -0500 Subject: removed useless hardcopy-plist-keys method --- granolin.lisp | 7 ------- package.lisp | 1 + 2 files changed, 1 insertion(+), 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 -- cgit v1.2.3