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.asd | 2 +- 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) -- cgit v1.2.3