added Clojure version of CL function