diff options
| -rw-r--r-- | gtwiwtg.lisp | 2 |
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) |