- (def-alias SLiteral (U Symbol
- (Option (Seqable SLiteral))))
- (ann s-check (predicate Symbol))
- (defn s-check
- [x]
- (symbol? x))
- (ann s-test (Fn [SLiteral -> SLiteral]))
- (defn s-test
- [sliteral]
- (if (s-check sliteral)
- 'win
- (second sliteral)))
- Expected: (Fn [Any -> boolean :filters {:then (is clojure.lang.Symbol 0), :else (! clojure.lang.Symbol 0)}])
- Actual: (Fn [Any -> boolean :filters {:then (& (is clojure.lang.Symbol 0) (is clojure.lang.Symbol 0)), :else (! clojure.lang.Symbol 0)}])
- in: (def s-check (fn* ([x] (clojure.core/symbol? x))))