Comment 11 for bug 378735

In chi-defun (with above) you can do:

(build-lambda (syntax-annotation x) fmls body)

and it will return location wrapping the body of the procedure.