src/clfswm-util.lisp (run-or-raise): New function (thanks to Desmond O. Chang).