Sure. In the form:

(defun lisp-indent-defform (state _indent-point)
(goto-char (car (cdr state)))
(forward-line 1)
(if (> (point) (car (cdr (cdr state))))|
(progn
(goto-char (car (cdr state)))

(+ lisp-body-indent (current-column)))))

where | is point, call indent-sexp and the result will be

(defun lisp-indent-defform (state _indent-point)
(goto-char (car (cdr state)))
(forward-line 1)
(if (> (point) (car (cdr (cdr state))))|
(progn
(goto-char (car (cdr state)))

(+ lisp-body-indent (current-column)))))

which is incorrect.

-- Graham Dobbins