(unreduced x)
If x is reduced?, returns (deref x), else returns x
(unreduced :foo) ;;=> :foo (unreduced (reduced :foo)) ;;=> :foo (unreduced (clojure.lang.Reduced. :foo)) ;;=> :foo