(def gifname (sym)
  (let str (string sym)
    (and (endmatch ".gif" str) (~find #\/ str))))

From srv.arc ©