Parser Code Continued: The Grammar

(defvar *grammar*)

(setf *grammar*

((s) -> (np) (vp) (np))

((np) -> (det) (opt-adjs) (noun))

((np) -> (noun))

((opt-adjs) -> (adj) (opt-adjs))

((opt-adjs) ->)

((vp) -> (verb))

((vp) -> (adv) (verb))

))