Lisp

(defun fib (n)
  (loop repeat n
     for x = 0 then y and y = 1 then (+ x y)
     finally (return y)))

Why do people think Lisp is functional again?

CL is not typically written in a very functional way. Lisp-like languages (s-expression-based) are "more functional" in the sense that the syntax lends itself more to expressions than explicitly sequenced statements, but it doesn't have to be.