(defmacro define-command-completion (name arglist &body body)
  (let* ((documentation (if (stringp (first body)) (first body) nil))
         (body (if (stringp (first body)) (rest body) body))
         (prefix-name (concatenate 'string (symbol-name name) "-COMPLETION"))
         (symbol-name (intern prefix-name)))
    `(progn
       (defun ,symbol-name ,arglist ,@body)
       (setf (cmpl (get-named-command ,name)) #',symbol-name))))