Use alexandria's make-keyword & symbolicate

1 files changed, 3 insertions, 2 deletions

diff --git a/src/config.lisp b/src/config.lisp
index 1a139c1..85c9662 100644
--- a/src/config.lisp
+++ b/src/config.lisp
@@ -4,6 +4,7 @@
   (:documentation "Stuff for loading the configuration of the bot")
   (:nicknames :conf)
   (:use :c2cl :iterate :ukkoclot/src/rw-lock)
+  (:import-from :alexandria :make-keyword)
   (:export
    #:*config*
    #:config
@@ -77,8 +78,8 @@
       (for slot in (class-direct-slots (class-of config)))
       (let ((name (slot-definition-name slot)))
         (unless (eql name 'lock)
-          (let ((kw-name (intern (symbol-name name) :keyword)))
-            (appending (list kw-name (slot-value config name)))))))))
+          (appending (list (make-keyword name)
+                           (slot-value config name))))))))
 
 (defun print-default (filename)
   "Prints the default config to the given `filename'."