test.lisp

(defmacro define-grammar (&rest body)
  `(loop for rule in ,@body collect
    (format nil "rule: ~A\\n" rule)))

(cl-glrp:define-grammar
    `((rulelist ((rule_*) EOF)) # this works, but doesn't without backquotting
      (rule_ (lhs ASSIGN rhs))
      (lhs "HELLO")
      (rhs "WORLD")
      (ASSIGN "=")))