       [p (.getPackage this)]
       (if (nil? p)
         ""
-        (.toString (.getName p))))))
+        (str (.getName p))))))
 
 (extend-protocol withPackageName
   Node

      (str (getQName pn) "." (getName this)))))

(defn toStringWithoutComments [node]
  (.toString node))

(defn constructorDeclarationAsString [constructor]
  (let [sb (StringBuffer. )]

        (.append sb ", ")
        (.append sb (toStringWithoutComments (.getType param)))))
    (.append sb ")")
    (str sb)))

(extend-protocol Named
  ConstructorDeclaration
