anchor.diff:    (with-result (hook-desc (read-from-minibuffer
                              (make-minibuffer
                               :input-prompt "Hook where to enable handler"
  -                            :completion-function 'hook-completion-filter)))
  +                            :completion-function (hook-completion-filter))))
       (with-result (handler
                     (read-from-minibuffer
                      (make-minibuffer
  
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: (defmethod object-string ((handler hooks:handler))
    (str:downcase (hooks:name handler)))
  
  (defun hook-completion-filter ()
    (flet ((list-hooks (object)
             (mapcar (lambda (hook)
                       (make-instance 'hook-description
  