Dumb

Shirakumo · Apr 16, 2024 · 91c764f · 91c764f
1 parent b599c35
commit 91c764f
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/prefab.lisp b/prefab.lisp
@@ -54,12 +54,12 @@
 
 (defmacro do-nodes% ((node instance id) &body body)
   (etypecase id
-    (string
-     `(let ((,node (node ,id ,instance)))
-        ,@body))
     ((member NIL T)
      `(let ((,node ,instance))
         ,@body))
+    ((or string symbol real)
+     `(let ((,node (node ,id ,instance)))
+        ,@body))
     (cons
      `(do-scene-graph (,node ,instance)
         (when (funcall ,id ,node)

diff --git a/toolkit.lisp b/toolkit.lisp
@@ -195,7 +195,7 @@
   (etypecase name
     (integer name)
     (symbol name)
-    (string (intern (%translate-name name) package))))
+    (string (intern (%lispify-name name) package))))
 
 (defun enlist (item &rest items)
   (if (listp item) item (list* item items)))