(defmacro defmodelreportertest (name model commands reporter value checksum)
`(defmodeltest (format nil "Model Reporter - ~A" ,name) ,model ,commands ,reporter ,value ,checksum))
(defmacro defmodelreportertest (name model commands reporter value checksum)
`(defmodeltest (format nil "Model Reporter - ~A" ,name) ,model ,commands ,reporter ,value ,checksum))