(defun common-lisp-indent-function (indent-point state)
  "[...]"
  (if (save-excursion (goto-char (elt state 1))
		      (looking-at "([Ll][Oo][Oo][Pp]\\($\\|\\sw\\)"))
      (common-lisp-loop-part-indentation indent-point state)
      (common-lisp-indent-function-1 indent-point state)))