(car/set conn "foo" "bar")
(car/spop conn "foo")
(car/get conn "foo")

(defn deconstruct-test [[id {topic :topic q :q}]]
  {:id id
   :topic topic
   :search q})

(clojure.pprint/pprint
(clojure.walk/macroexpand-all
'(defn deconstruct-test [[id {topic :topic q :q}]]
  {:id id
   :topic topic
   :search q})))

(def
 deconstruct-test
 (fn*
  ([p__1159]
   (let*
    [vec__1160
     p__1159
     id
     (clojure.core/nth vec__1160 0 nil)
     map__1161
     (clojure.core/nth vec__1160 1 nil)
     map__1161
     (if
      (clojure.core/seq? map__1161)
      (.
       clojure.lang.PersistentHashMap
       create
       (clojure.core/seq map__1161))
      map__1161)
     topic
     (clojure.core/get map__1161 :topic)
     q
     (clojure.core/get map__1161 :q)]
    {:id id, :topic topic, :search q}))))