loop в elisp

А loop вообще стандартизирован в elisp, а то у меня столько пакаджей не
 разберёшь. Будет такое вот работать во всех emacs'ах:

(defun rails-root2 ()
  "Return RAILS_ROOT"
  (loop for curdir = default-directory
	then (concat curdir "../") and
	max = 10 then (- max 1)
	while (> max 0)
	when (file-exists-p (concat curdir "config/environment.rb"))
	return curdir))