Change defun* to cl-defun