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/claki.lisp new-claki/claki.lisp
--- old-claki/claki.lisp 2013-06-30 02:49:04.000000000 +0000
+++ new-claki/claki.lisp 2013-06-30 02:49:04.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)