(in-package :user)

;;  This loads the grammars for Section 9.7
;; it assumes that the generator is loaded (load LoadGenerator)

(enableSem)
(loadf "Grammars/Chapter9")

(Make-lexicon (append *lexicon9-2* 
                      (append *lexicon-whs*
                        (append *lexicon-auxs* *lexicon-additions*))))

(make-grammar *grammar9-3*)
(augment-grammar *grammar9-13*)
(augment-grammar *grammar9-13plus*)
(Format t "~%Words defined are ~S " (defined-words))
T

(setq *test1*
      (make-constit :cat 'S
                    :feats '((INV -)
                             (SEM 
                              ((UNSCOPED PAST SEES1) V17 
                          (NAME V13 JILL) (UNSCOPED THE V20 (DOG1 V20)))))))

(setq *test2*
      (make-constit :cat 'S
                    :feats '((INV +) (SEM ((UNSCOPED PAST DO1) 
                                                   (SEES1 V50 (NAME V49 JILL) 
                                                          (UNSCOPED THE V53 (DOG1 V53))))))))

