From 8a27acd9ab6042a6cdc3ade30552a985fc7faa7c Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Tue, 18 Jan 2022 07:02:50 -0600
Subject: Reimplemented make-keyword

---
 gtwiwtg.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gtwiwtg.lisp b/gtwiwtg.lisp
index 1deadce..49b7d1b 100644
--- a/gtwiwtg.lisp
+++ b/gtwiwtg.lisp
@@ -43,7 +43,7 @@
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defun make-keyword (symb)
-    (read-from-string (format nil ":~a" symb))))
+    (intern (symbol-name symb) 'keyword)))
 
 (defmacro a-generator-class (name supers &rest slots)
   `(defclass ,name ,(cons 'generator! supers)
-- 
cgit v1.2.3