 
 (defn qualify-sym
   [ns sym]
-  (symbol (name ns)
-          (name sym)))
+  (symbol (str ns)
+          (str sym)))
 
 (defn atom?
   [v]

                        (update-in [:doc] #(format "An alias for `%s`.\n%s"
                                                   (name '~source)
                                                   %))))))
(defmacro defalias-macro
  [alias source]
  `(do (defmacro ~alias [& body#] `(~'~source '~@body#))
       (alter-meta! #'~alias merge
                    (-> #'~source
                        meta
                        (select-keys [:arglists
                                      :doc])
                        (update-in [:doc] #(format "An alias for `%s`.\n%s"
                                                   (name '~source)
                                                   %))))
       #'~alias))

(defn macro?
  [v]

  [& body]
  `(alter-meta! ~body assoc :source '~body))

(defn back-into
  [orig noob]

