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)

--- old-claki/claki.lisp 2013-07-22 03:24:31.000000000 +0000

+++ new-claki/claki.lisp 2013-07-22 03:24:31.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/"))