anchor.diff:    (with-result (hook-desc (read-from-minibuffer
                              (make-minibuffer
                               :input-prompt "Hook where to disable handler"
  -                            :completion-function 'hook-completion-filter)))
  +                            :completion-function (hook-completion-filter))))
       (with-result (handler
                     (read-from-minibuffer
                      (make-minibuffer
  
positive.code:                                     :value (funcall (symbol-function (closer-mop:slot-definition-name hook))
                                                      object)))
                     (delete-if-not (lambda (s)
                                      (str:ends-with-p "-hook"
                                                       (str:downcase (closer-mop:slot-definition-name s))))
                                    (closer-mop:class-slots (class-of object))))))
      (let ((window-hooks
              (list-hooks (current-window)))
            (buffer-hooks (list-hooks (current-buffer)))
            (browser-hooks (list-hooks *browser*)))
        (fuzzy-match input
                     (append window-hooks
                             buffer-hooks
                             browser-hooks)))))
  
  (defun handler-completion-filter (hook)
    (lambda (input)
  
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
  