Macro Aprog1

Part of:

package cl-perec
( aprog1 &rest < args > )