aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--gtwiwtg.lisp2
1 files changed, 1 insertions, 1 deletions
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)