anchor.diff:  (defmethod object-string ((handler hooks:handler))
     (str:downcase (hooks:name handler)))
   
  -(defun hook-completion-filter (input)
  +(defun hook-completion-filter ()
     (flet ((list-hooks (object)
              (mapcar (lambda (hook)
                        (make-instance 'hook-description
  
positive.code:   (with-result (hook-desc (read-from-minibuffer
                             (make-minibuffer
                              :input-prompt "Hook where to disable handler"
                              :completion-function 'hook-completion-filter)))
      (with-result (handler
                    (read-from-minibuffer
                     (make-minibuffer
  
negative.code:   (with-result (hook-desc (read-from-minibuffer
                             (make-minibuffer
                              :input-prompt "Hook where to enable handler"
                              :completion-function (hook-completion-filter))))
      (with-result (handler
                    (read-from-minibuffer
                     (make-minibuffer
  