fix some obvious bugs wip

Author: dnolen

src/main/cljs/cljs/spec/test.cljc

@@ -46,7 +46,7 @@ returns the set of all symbols naming vars in those nses."
   [[quote s] opts]
   (let [v (ana-api/resolve &env s)]
     (when v
-      (swap! instrumented-vars conj v)
+      (swap! instrumented-vars conj (:name v))
       `(let [checked# (instrument-1* ~s (var ~s) ~opts)]
          (when checked# (set! ~s checked#))
          '~(:name v)))))
@@ -55,7 +55,7 @@ returns the set of all symbols naming vars in those nses."
   [[quote s]]
   (let [v (ana-api/resolve &env s)]
     (when v
-      (swap! instrumented-vars disj v)
+      (swap! instrumented-vars disj (:name v))
       `(let [raw# (unstrument-1* ~s (var ~s))]
          (when raw# (set! ~s raw#))
          '~(:name v)))))
@@ -133,8 +133,8 @@ Returns a collection of syms naming the vars unstrumented."
       [~@(->> (collectionize sym-or-syms)
            (map
              (fn [sym]
-               (when (symbol? symbol)
-                 `(fn [] (unstrument-1 ~'sym)))))
+               (when (symbol? sym)
+                 `(fn [] (unstrument-1 '~sym)))))
            (remove nil?))])))
 
 ;(defmacro run-tests