anchor.diff:                    ((not (typep request-data 'request-data))
                      (log:debug "Don't forward to ~s's renderer (non request data)."
                                 buffer)
  -                   (webkit:webkit-policy-decision-ignore response-policy-decision)
  -                   nil)
  +                   (webkit:webkit-policy-decision-ignore response-policy-decision))
                     ((quri:uri= url (url request-data))
                      (log:debug "Forward to ~s's renderer (unchanged URL)."
                                 buffer)
  -                   (webkit:webkit-policy-decision-use response-policy-decision)
  -                   nil)
  +                   (webkit:webkit-policy-decision-use response-policy-decision))
                     (t
                      ;; Low-level URL string, we must not render the puni codes so use
                      ;; `quri:render-uri'.
  
positive.code:     ;; Even if errors are caught with `with-protect', we must ignore the policy
      ;; decision on error, lest we load a web page in an internal buffer for
      ;; instance.
      (handler-bind ((error (lambda (c)
                              (echo-warning "decide policy error: ~a" c)
                              ;; TODO: Don't automatically call the restart when from the REPL?
                              ;; (unless *run-from-repl-p*
                              ;;   (invoke-restart 'ignore-policy-decision))
                              (invoke-restart 'ignore-policy-decision))))
        (restart-case (on-signal-decide-policy buffer response-policy-decision policy-decision-type-response)
          (ignore-policy-decision ()
            (webkit:webkit-policy-decision-ignore response-policy-decision))))))
  
  
  (defmacro connect-signal-function (object signal fn)
  
negative.code:               (progn
                  (log:debug "Forward to ~s's renderer (no request-resource-hook handlers)."
                             buffer)
                  (webkit:webkit-policy-decision-use response-policy-decision))
                (let ((request-data
                        (hooks:run-hook
                         (request-resource-hook buffer)
  