diff options
author | Colin Okay <cbeok@protonmail.com> | 2020-05-03 09:53:02 -0500 |
---|---|---|
committer | Colin Okay <cbeok@protonmail.com> | 2020-05-03 09:53:02 -0500 |
commit | 1342e55a59fe9620f45d5872b8b926f5d287659a (patch) | |
tree | e3afd2f603d2f060d43d62b4cd7d0bc02693db1b | |
parent | 0492d36154e440e51173ff6d3f0ab823f0c14c94 (diff) |
two typos
-rw-r--r-- | granolin.lisp | 4 |
1 files 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 |