anchor.diff:         (setf box-layout (make-instance 'gtk:gtk-box
                                          :orientation :vertical
                                          :spacing 0))
  -       (setf minibuffer-container (make-instance 'gtk:gtk-box
  +       (setf prompt-buffer-container (make-instance 'gtk:gtk-box
                                                    :orientation :vertical
                                                    :spacing 0))
          (setf message-container (make-instance 'gtk:gtk-box
  
positive.code:   (%within-renderer-thread-async
     (lambda ()
       (with-slots (gtk-object box-layout active-buffer
                    minibuffer-container minibuffer-view
                    status-buffer status-container
                    message-container message-view
                    id key-string-buffer) window
  
negative.code: (define-class gtk-window ()
    ((gtk-object)
     (box-layout)
     (prompt-buffer-container)
     (prompt-buffer-view)
     (status-container)
     (message-container)
     (message-view)
  