- (when *listener-proc*
- (format t "~&; killing ~d~%" *listener-proc*)
- #+sbcl (sb-unix:unix-kill *listener-proc* :sigalrm)
- #+allegro (mp:process-kill *listener-proc*)
+ (when *listener-process*
+ (format t "~&; killing process ~d~%" *listener-process*)
+ #+sbcl (sb-thread:destory-thread *listener-process*)
+ #+allegro (mp:process-kill *listener-process*)