;;; Hey, Emacs, this file is -*- Common-Lisp -*- ... got that?

(in-package :tsdb)

(setf *tsdb-cache-connections-p* t)

(let* ((root (system:getenv "LOGONROOT"))
       (root (and root (namestring (parse-namestring root)))))

  (tsdb :home (format nil "~a/lingo/redwoods/tsdb/home" root))
  (tsdb
   :skeletons
   (format nil "~a/lingo/lkb/src/tsdb/skeletons/english" root)))