Fixed a problem where (form clause) was called on a do-clause, but do-clause has multiple forms, so it should be `(progn ,(forms clause)).
Fixed a problem where (form clause) was called on a do-clause, but
do-clause has multiple forms, so it should be `(progn ,(forms
clause)).

Another way of fixing this would have been to put the progn in the
clause instead.  I don't know what is best.

clasp-developers/SICL,vtomole/SICL,vtomole/SICL,vtomole/SICL,clasp-developers/SICL,clasp-developers/SICL,vtomole/SICL,clasp-developers/SICL