What is the recommended way of stopping a server?

[bitspook]

Please excuse me for the noob question, asking the same on #clschool didn't turn up anything, so I am asking here.

I am starting a jsonrpc server, once the work is done, client responds with a :done message. I want to close the server on this, but there isn't any function for doing so. I am assuming there is a lisp idiom here which should be obvious to a seasoned lisp dev, but my noob self can't figure it out.

I am starting the server in a new bt:make-thread, because I also need to launch the client from my code (with uiop:run-program). bt:destroy-thread won't help me kill the current-thread (since I want the kill the server from within done handler).

Can you please help me understand what is the recommended way for achieving this?