(setf *lkb-system-version* :page)
(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) "tdl.types")))
(read-tdl-lex-file-aux (lkb-pathname (this-directory) "tdl.lex"))