anchor.diff:                          (lambda (,@args)
                             ,@(sera:unsplice documentation)
                             ,@declares
  -                          (with-protect ("Error in signal thread: ~a" :condition)
  -                            ,@forms)))))
  +                          ,(if run-in-new-thread-p
  +                               `(run-thread ,@forms)
  +                               `(with-protect ("Error in signal thread: ~a" :condition)
  +                                  ,@forms))))))
          (push handler-id (handler-ids ,object)))))
   
   (defmethod initialize-instance :after ((buffer status-buffer) &key)
  
positive.code:       (gtk-object new-buffer)))
    ;; Remove "download to disk" from the right click context menu because it
    ;; bypasses request resource signal
    (connect-signal buffer "context-menu" (web-view context-menu event hit-test-result)
      (declare (ignore web-view event hit-test-result))
      (let ((length (webkit:webkit-context-menu-get-n-items context-menu)))
        (dotimes (i length)
  
negative.code:             (echo "Destination ~s exists, saving as ~s." path unique-path)
              (log:debug "Downloading file to ~s." unique-path))
          (webkit:webkit-download-set-destination webkit-download file-path)))
      (connect-signal download "created-destination" nil (webkit-download destination)
        (declare (ignore destination))
        (setf (destination-path download)
              (webkit:webkit-download-destination webkit-download)))
      (connect-signal download "failed" nil (webkit-download error)
        (declare (ignore error))
        (unless (eq (status download) :canceled)
          (setf (status download) :failed))
        (echo "Download failed for ~s."
              (webkit:webkit-uri-request-uri
               (webkit:webkit-download-get-request webkit-download))))
      (connect-signal download "finished" nil (webkit-download)
        (declare (ignore webkit-download))
        (unless (member (status download) '(:canceled :failed))
          (setf (status download) :finished)
  