Use make-keyword from Alexandria.

src/coleslaw.lisp

@@ -5,10 +5,6 @@
 If ARGS is provided, use (apply 'format nil PATH ARGS) as the value of PATH."
   (merge-pathnames (apply 'format nil path args) coleslaw-conf:*basedir*))
 
-(defun make-keyword (string)
-  "Return a keyword matching STRING."
-  (intern (string-upcase string) :keyword))
-
 (defun to-pathname (file parent)
   "Convert an iolib file-path back to a pathname."
   (merge-pathnames (file-path-namestring file) parent))

src/packages.lisp

@@ -6,7 +6,8 @@
                           #:read-symlink
                           #:run-program)
   (:import-from :iolib.pathnames #:file-path-namestring)
-  (:import-from :alexandria #:hash-table-values)
+  (:import-from :alexandria #:hash-table-values
+                            #:make-keyword)
   (:export #:main
            #:add-injection
            #:render-content