Function: WALK-IMPLICT-PROGN

Source

(defun walk-implict-progn (parent forms env &key docstring declare)
  (multiple-value-bind (body env docstring declarations)
      (split-body forms env :parent parent :docstring docstring :declare declare)
    (values (mapcar (lambda (form)
                      (walk-form form parent env))
                    body)
            docstring
	    declarations)))