1 files changed, 4 insertions, 4 deletions

diff --git a/src/tg/type-macros.lisp b/src/tg/type-macros.lisp
index 914261d..ea35f48 100644
--- a/src/tg/type-macros.lisp
+++ b/src/tg/type-macros.lisp
@@ -3,7 +3,7 @@
 (defpackage :ukkoclot/src/tg/type-macros
   (:documentation "Macros for easy defining TG types.")
   (:use :c2cl :iterate)
-  (:import-from :alexandria :with-gensyms)
+  (:import-from :alexandria :make-keyword :symbolicate :with-gensyms)
   (:import-from :com.dieggsy.f-string :enable-f-strings)
   (:import-from :str)
   (:import-from :ukkoclot/src/serializing :parse-value)
@@ -34,16 +34,16 @@
                    :skip-if-default skip-if-default)))
 
   (defun type-constructor (name)
-    (intern (concatenate 'string "MAKE-" (symbol-name name))))
+    (symbolicate "MAKE-" name))
 
   (defun field-accessor (name field)
-    (intern (concatenate 'string (symbol-name name) "-" (symbol-name (field-name field)))))
+    (symbolicate name "-" (field-name field)))
 
   (defun field-hash-key (field)
     (str:snake-case (field-name field)))
 
   (defun field-keyword (field)
-    (intern (symbol-name (field-name field)) :keyword))
+    (make-keyword (field-name field)))
 
   (defun parse-field-specs (field-specs)
     (iter (for field-spec in field-specs)