string that can contain quotes (for reader-valid content only)

qq.clj

(defmacro qq [& body]
  `(->>
    (map (fn [s#]
           (if (string? s#)
             (format "\"%s\"" s#) (str s#)))
         (quote ~body))
    (interpose " ")
    (apply str)))

(defn myfn "docstring \"the normal way\" sort of a pain" [] )

(defn ^{:doc (qq this docstring is "a little better")} myfn2 [] )

;; and you can interpolate values

(qq this string is #=(+ 1 1) times "better")

Actually I just realized the interpolation is not really what it seems, because you mostly won't have the values you want at read time.

Fail:

(let [x 1](qq this string is #=%28+ x x%29 times))

But it could be explicitly supported similar to Chas's macro...