(in-package :user)

;;  This loads the parser and lexicon for Chapter 5, and the lexicon for
;;   chapter 4

;; Turn on GAP processing
(Format t "~% Loading Lexicon 4.6, 5.2, 5.6 plus addition words")
(Format t "~% Loading Grammars 4.5, 5.7, 5.8 plus rules for relative clauses")

(enableGaps)

(loadf "Grammars/Chapter4")
(loadf "Grammars/Chapter5")

(make-lexicon (append *lexicon4-6* 
                      (append *lexicon5-2* 
                              (append *lexicon5-6* *lexicon-additions*))))
;; Add general lexical rules
(make-grammar *grammar4-5*)

(augment-grammar *grammar5-7*)
(augment-grammar *grammar5-8*)
(augment-grammar *grammar-RelClause*)
(Format t "~% Words defined are ~%~s" (defined-words))

T
