 
 (declare analyze-list)
 
+(defn analyze-seq* [op env form name opts]
+  (if-not (nil? (get specials op))
+    (parse op env form name opts)
+    (parse-invoke env form)))
+
 (defn analyze-seq
   ([env form name] (analyze-seq env form name nil))
   ([env form name opts]
-     (if (:quoted? env)
-       (analyze-list env form)
-       (let [env (assoc env
-                   :line (or (-> form meta :line)
-                           (:line env))
-                   :column (or (-> form meta :column)
-                             (:column env)))]
-         (let [op (first form)]
-           (when (nil? op)
-             (throw (error env "Can't call nil")))
-           (let [mform (macroexpand-1 env form)]
-             (if (identical? form mform)
-               (wrapping-errors env
-                 (if (specials op)
-                   (parse op env form name opts)
-                   (parse-invoke env form)))
-               (analyze env mform name opts))))))))
+   (if ^boolean (:quoted? env)
+     (analyze-list env form)
+     (let [line (-> form meta :line)
+           line (when (nil? line) (:line env))
+           col  (-> form meta :column)
+           col  (when (nil? col) (:column env))
+           env  (assoc env :line line :column col)]
+       (let [op (first form)]
+         (when (nil? op)
+           (throw (error env "Can't call nil")))
+         (let [mform (macroexpand-1 env form)]
+           (if (identical? form mform)
+             (wrapping-errors env
+               (analyze-seq* op env form name opts))
+             (analyze env mform name opts))))))))
 
 (defn analyze-map
   [env form]

             m))
      methods)))

(defn type? [env t]
  ;; don't use resolve-existing-var to avoid warnings
  (when (and t (symbol? t))
    (let [var (resolve-var env t)]

(defn macro-autoload-ns?
  "Given a spec form check whether the spec namespace requires a macro file
   of the same name. If so return true."
  #?(:cljs {:tag boolean})
  [form]
  (when *macro-infer*
    (let [ns (if (sequential? form) (first form) form)
