From 1342e55a59fe9620f45d5872b8b926f5d287659a Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Sun, 3 May 2020 09:53:02 -0500 Subject: two typos --- granolin.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/granolin.lisp b/granolin.lisp index 625ee86..2385ba9 100644 --- a/granolin.lisp +++ b/granolin.lisp @@ -66,7 +66,7 @@ (defgeneric hardcopy-plist (client) (:method-combination append) - (:documentaton "Gets a plist of slots and values to be used by + (:documentation "Gets a plist of slots and values to be used by SAVE-CLIENT-STATE when saving to hardcopy. Each but sublcass is free to return its own specific PLIST for its own @@ -104,7 +104,7 @@ specific state. The PLISTS are concatenated. (let ((conf (with-open-file (in fname) (read in)))) (loop :for (key val . more) :on conf :by #'cddr - :do (setf slot-value client key) val)) + :do (setf (slot-value client key) val))) client) ;; TODO -- cgit v1.2.3