fib.el

(setq fib (lambda ()
            (let* ((b (cdddr fib))
                   (s (apply '+ b)))
              (setcdr (cddr fib) (list (cadr b) s))
              (throw 'result s))
            0 1))
(defun fib () (catch 'result (funcall fib)))
(fib)