Use alexandria's make-keyword & symbolicate

1 files changed, 2 insertions, 2 deletions

diff --git a/src/tg/method-macros.lisp b/src/tg/method-macros.lisp
index 56445e3..0d33ffb 100644
--- a/src/tg/method-macros.lisp
+++ b/src/tg/method-macros.lisp
@@ -3,7 +3,7 @@
 (defpackage :ukkoclot/src/tg/method-macros
   (:documentation "Macros for easy defining TG methods.")
   (:use :c2cl :iterate)
-  (:import-from :alexandria :with-gensyms)
+  (:import-from :alexandria :make-keyword :with-gensyms)
   (:import-from :com.dieggsy.f-string :enable-f-strings)
   (:import-from :serapeum :take)
   (:import-from :state)
@@ -46,7 +46,7 @@
     `(setf ,args (acons ',(param-name param) ,(param-name param) ,args)))
 
   (defun emit-arg-type (param)
-    `(,(intern (symbol-name (param-name param)) :keyword)
+    `(,(make-keyword (param-name param))
       ,(param-type param)))
 
   (defun emit-defun-arg (param)