                (assert (not (or (namespace name) (.contains (str name) "."))) (str "Invalid local name: " name))
                (let [init-expr (analyze env init)
                      be {:name name
+                         :line (get-line name env)
+                         :column (get-col name env)
                          :init init-expr
                          :tag (or (-> name meta :tag)
                                   (-> init-expr :tag)

                 {:protocols (-> tsym meta :protocols)}
                 (when-let [line (:line env)]
                   {:file *cljs-file*
                    :line line
                    :column (:column env)})))))
    {:env env :op :deftype* :form form :t t :fields fields :pmasks pmasks}))

(defmethod parse 'defrecord*

                   (when doc {:doc doc})
                   (when dynamic {:dynamic true})
                   (when-let [line (:line env)]
                     {:file *cljs-file*
                      :line (get-line name env)
                      :column (get-col name env)})
                   ;; the protocol a protocol fn belongs to
                   (when protocol
                     {:protocol protocol})
