diff options
| author | Colin Okay <okay@toyful.space> | 2022-03-12 19:07:19 -0600 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-03-12 19:07:19 -0600 |
| commit | 50df94fd2a0fce7a2499a8ceafd6034adc69779e (patch) | |
| tree | bf9a19a2edf9f2eecf33b9177f99b8e20e73e880 /lib/state.lisp | |
| parent | b053af5357bdbcc556e0a54723feceed5091f535 (diff) | |
bugfix: s/defstruct/defplist. made defplist
Diffstat (limited to 'lib/state.lisp')
| -rw-r--r-- | lib/state.lisp | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/lib/state.lisp b/lib/state.lisp index 676ff10..0f69ff3 100644 --- a/lib/state.lisp +++ b/lib/state.lisp @@ -19,7 +19,7 @@ ;;; Config Struct -(defstruct config +(defplist config (handle "") (api-token "") (host "") @@ -69,8 +69,7 @@ (defun write-config-to-disk () (print-to-file - (with-slots (handle api-token host shell) *config* - (list :handle handle :api-token api-token :host host :shell shell)) + *config* (config-file))) (defun write-cache-to-disk () @@ -79,9 +78,7 @@ (defun read-config-file () "Read a configuration from the location returned by CONFIG-FILE. NIL if there is no such file" - (a:when-let ((conf - (read-from-file (config-file)))) - (apply 'make-config conf))) + (read-from-file (config-file))) (defun read-cache-file () "Read the cache from the location returned by |