The issue is caused by the update to the CADTutor forum software removing all instances of "8 )" (without the space) from all code snippets, breaking them.
In this case, change:
(setq code (grread t )
To:
(setq code (grread t 8))
Down load Bricscad 30 day trial then that gives you 29 days to get lots of freebie lisps like Grids.
Just make sure you describe as much as possible what you need, "I want Grids" will probably reveal like 50 different type of grid programs.