Sat Jun 18 23:16:27 UTC 2011 pix@kepibu.org * Send cliki reverter thread output to swank's standard-io (the repl in emacs) diff -rN -u old-claki/claki.lisp new-claki/claki.lisp --- old-claki/claki.lisp 2015-12-09 04:16:11.000000000 +0000 +++ new-claki/claki.lisp 2015-12-09 04:16:11.000000000 +0000 @@ -239,7 +239,10 @@ (save-state)) (format t "; Run ended at ~a~%~%" (now))) -#+(or) (sb-thread:make-thread #'run-for-a-while :name "cliki reverter") +#+(or) + (let ((stdout *standard-output*)) + (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/"))