(defparameter *grammar-version* "Chapter 4 Grammar 1")
(lkb-load-lisp (this-directory) "globals.lsp")
(lkb-load-lisp (this-directory) "user-fns.lsp")
(read-tdl-type-files-aux
     (list (lkb-pathname (this-directory) "types.tdl")))
(read-tdl-lex-file-aux 
     (lkb-pathname (this-directory) "lexicon.tdl"))
(batch-check-lexicon)
(read-tdl-grammar-file-aux 
     (lkb-pathname (this-directory) "rules.tdl"))
(read-tdl-lex-rule-file-aux (lkb-pathname (this-directory) "lrules.tdl"))