diff --git a/prefab.lisp b/prefab.lisp index f68b30546..9f0bf9829 100644 --- 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)