((symbolp reporter) (intern (symbol-name reporter) clnl:*model-package*))
((not (listp reporter)) (error "Expected a statement of some sort"))
((eql :command-block (car reporter)) (transpile-command-block reporter))
((symbolp reporter) (intern (symbol-name reporter) clnl:*model-package*))
((not (listp reporter)) (error "Expected a statement of some sort"))
((eql :command-block (car reporter)) (transpile-command-block reporter))