(defclass multiple-value-prog1-form (form) ((first-form :accessor first-form :initarg :first-form) (other-forms :accessor other-forms :initarg :other-forms)))