(in-package :user)

;;  This loads the BU chart parser handling features
;;   as described in Chapter 4
;;  plus the lexicon in Figure 4.4, the lexical grammar 4.5,
;;   and grammar 4.7.

(loadf "Grammars/Chapter4")
(Format t "~% Loading Lexicon 4.6 and Grammars 4.5 and 4.7")
(make-lexicon *lexicon4-6*)
(make-grammar *grammar4-5*)
(augment-grammar *grammar4-7*)
(Format t "~% Words defined are ~%~s" (defined-words))
T
