(add-to-string-hash-cache k)
(defn add-to-string-hash-cache [k] (let [h (hash-string* k)] (gobject/set string-hash-cache k h) (set! string-hash-cache-count (inc string-hash-cache-count)) h))