From 0492d36154e440e51173ff6d3f0ab823f0c14c94 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Sat, 2 May 2020 07:49:15 -0500 Subject: oops. bad argument name --- granolin.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'granolin.lisp') 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) -- cgit v1.2.3