(simple-keyword? x)
Return true if x is a keyword without a namespace
(defn simple-keyword? [x] (and (keyword? x) (nil? (namespace x))))