Si tengo un símbolo cuyo espacio de nombres es un alias, como q / w, ¿cómo puedo encontrar su espacio de nombres real, por ejemplo, real.namespace / w?

Yo sé esoresolve me dará la var completa, pero no sé cómo obtener el espacio de nombres de una var.

Lo mejor que puedo hacer es:

 (defn fqns [s] (str (get (ns-aliases *ns*) (symbol (namespace s)))))

¿Seguro que hay una forma más sencilla?