gistfile1.clj

(defn longest-palindrome [s] 
(let [palindrome? #(= (seq %) (reverse %)) 
      slice-all (fn [s] (mapcat #(partition % 1 s) (mapcat list (range (count s) 1 -1))))] 
	(some palindrome? (slice-all s))))

;; or to return palindrome

(defn longest-palindrome [s] 
  (let [palindrome? #(= (seq %) (reverse %)) 
  slice-all (fn [s] (mapcat #(partition % 1 s) (mapcat list (range (count s) 1 -1))))] 
  (first (filter palindrome? (slice-all s)))))

To get actual palindrome:

(defn longest-palindrome [s](let [palindrome? #%28= %28seq %%29 %28reverse %%29%29
slice-all %28fn [s] %28mapcat #%28partition % 1 s%29 %28mapcat list %28range %28count s%29 1 -1%29%29%29%29]
%28first %28filter palindrome? %28slice-all s%29%29%29))

Ignore that last comment :|