(thread (asv)) (... work ...) (assert quitsrv*)
For more info on Arc, see kens' excellent guides on http://arcfn.com http://arcfn.com/doc/index.html