- (when (update-thread *empire-session*)
- (empire-log:info "~a: Killing update thread ~a." *empire-session* (update-thread *empire-session*))
- (sb-thread:terminate-thread (update-thread *empire-session*)))
+ ; kill previous update thread
+ (when (update-thread *empire-session*)
+ (empire-log:info "~a: Killing update thread ~a."
+ *empire-session* (update-thread *empire-session*))
+ (sb-thread:terminate-thread (update-thread *empire-session*)))
+
+ ; make current thread the update thread