;;; 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/ntu/hinoki/tsdb/home/" root)) (tsdb :skeletons (format nil "~a/dfki/jacy/tsdb/skeletons" root)))