anchor.diff:            (on-signal-decide-policy buffer response-policy-decision policy-decision-type-response)))))))
   
   (defmethod initialize-instance :after ((window gtk-window) &key)
  -  (PREFIX-within-renderer-thread-async
  +  (%within-renderer-thread-async
      (lambda ()
        (with-slots (gtk-object box-layout active-buffer
                     minibuffer-container minibuffer-view
  
positive.code:   (gtk:within-gtk-thread
      (funcall thunk)))
  
  (defun PREFIX-within-renderer-thread (thunk)
    "If the current thread is the renderer thread, execute THUNK with `funcall'.
  Otherwise run the THINK on the renderer thread by passing it a channel and wait on the channel's result."
    (if (renderer-thread-p)
  
negative.code:                  :web-context (make-context buffer)))
  
  (defmethod initialize-instance :after ((buffer status-buffer) &key)
    (%within-renderer-thread-async
     (lambda ()
       (with-slots (gtk-object) buffer
         (setf gtk-object (make-web-view buffer))
  