flateline.el: use cl-defun