Slightly confusing name IMO. "compare", to me, implies a java-like compareTo that returns -1, 0, or 1 for ordering a collection. It also doesn't seem necessary to require the input to be a seq (did you mean `seq` instead of `seq?`?); why not allow vectors or anything that `first` works on? I think a better name and wider application would be,

```clojure
(defn first= [coll c]
  (when (seq coll)
    (= (first coll) c)))
```

I suppose if there wanted handling of empty collections, you could wrap with `(when (seq coll) ...)`