src/clfswm-util.lisp (cut-current-child, remove-current-child, delete-current-child...