Tue Jun 28 08:05:09 UTC 2011  pix@kepibu.org
  * Fix state-file pathname when *load-pathname* actually exists
diff -rN -u old-claki-1/claki.lisp new-claki-1/claki.lisp
--- old-claki-1/claki.lisp	2014-09-11 07:32:32.000000000 +0000
+++ new-claki-1/claki.lisp	2014-09-11 07:32:32.000000000 +0000
@@ -250,7 +250,7 @@
    (sb-thread:make-thread (lambda () (let ((*standard-output* stdout)) (run-for-a-while)))
                           :name "cliki reverter"))
 
-(defvar *state-file* (or #.*load-pathname* #p"/home/pixel/repos/claki/state/"))
+(defvar *state-file* (merge-pathnames #p"state/" (directory-namestring (or #.*load-pathname* #p"/home/pixel/repos/"))))
 
 (defmacro with-rucksack-and-transaction ((rucksack) (&rest root-vars) &body body)
   (with-unique-names (rest)