diff options
| author | Colin Okay <okay@toyful.space> | 2022-01-18 07:02:50 -0600 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-01-18 07:02:50 -0600 |
| commit | 8a27acd9ab6042a6cdc3ade30552a985fc7faa7c (patch) | |
| tree | 447be4d377097843117fe8a3b530292591a6d813 | |
| parent | 7051b2606cc2935edad7f2d2c5b85e79c76e0a7c (diff) | |
Reimplemented make-keyword
| -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) |