     )
   )
 
-
+(defn -cleanMaps []
+  (dosync
+    (ref-set -allKeysToSymbols (empty @-allKeysToSymbols))
+    (ref-set -allSymbolsToKeys (empty @-allSymbolsToKeys))
+    )
+  nil
+  )
 
 (def exceptionThrownWhenKeyDoesNotExist
   RuntimeException

  assoc2
  [zmap key val]
  (let [existing (find zmap key)]
  (cond existing
    ;XXX: yep this check has to be inside the swap! or else we can't use atom
    (q/thro exceptionThrownWhenKeyAlreadyDefined
    "already defined/exists key:`" key 
    "` as `" existing 
    "` you wanted to set val: `" val 
    "` in map `" zmap "`"
          ;)
        ;)
      )
    :else ;it's nil aka not already existing, so
    (assoc zmap key val)
    )
  )
  )

(defn

(show_state)
(gotests)

;last line: (but this means, (run-tests) will fail
(-cleanMaps)