Scieneer Common Lisp 1.3.9 online documentation

multiple-value-prog1 &rest rest[Special Form]

multiple-value-prog1 values-form form*

Evaluate values-form and then the forms, but return all the values of values-form.