M-X eval-expression (require 'cl-indent)
M-X set-variable lisp-indent-function common-lisp-indent-function
C-X f test.lisp
(PROG (A)
(foo)
BAR
(go BAR) )

The BAR should be indented less than the sexps:
(PROG (A)
   (foo)
 BAR
   (go BAR) )

On Mon, Jul 8, 2019 at 4:07 PM Lars Ingebrigtsen <larsi@gnus.org> wrote:

> Ryan Brown <ryan@derivita.com> writes:
>
> > -          (cond ((and tail (not (consp tem)))
> > +          (cond ((and tail (not (or (consp tem) (symbolp tem))))
>
> Thanks.  I was, however, unable to see any difference in how PROG was
> indented.  Do you have a test case, starting from emacs -Q that displays
> the problem and that's fixed by this patch?
>
> --
> (domestic pets only, the antidote for overdose, milk.)
>    bloggy blog: http://lars.ingebrigtsen.no
>