From 50df94fd2a0fce7a2499a8ceafd6034adc69779e Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Sat, 12 Mar 2022 19:07:19 -0600
Subject: bugfix: s/defstruct/defplist. made defplist

---
 lib/state.lisp | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

(limited to 'lib/state.lisp')

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
-- 
cgit v1.2.3