anchor.diff:      (loop for i from (- length) to length
             for item = (webkit:webkit-back-forward-list-get-nth-item bf-list i)
             when (eq item current)
  -            do (setf current-index (- length (length history-list))) ; Index from 0.
  +          do (setf current-index (- length (length history-list))) ; Index from 0.
             when item
  -            do (push (make-webkit-history-entry
  -                      :title (webkit:webkit-back-forward-list-item-get-title item)
  -                      :url (quri:uri (webkit:webkit-back-forward-list-item-get-uri item))
  -                      :original-url (quri:uri (webkit:webkit-back-forward-list-item-get-original-uri item))
  -                      :gtk-object item)
  -                     history-list))
  +          do (push (make-webkit-history-entry
  +                    :title (webkit:webkit-back-forward-list-item-get-title item)
  +                    :url (quri:uri (webkit:webkit-back-forward-list-item-get-uri item))
  +                    :original-url (quri:uri (webkit:webkit-back-forward-list-item-get-original-uri item))
  +                    :gtk-object item)
  +                   history-list))
       (values history-list current-index)))
   
   (defmethod load-webkit-history-entry ((buffer gtk-buffer) history-entry)
  
positive.code:                                        :default-width 1024
                                         :default-height 768))
         (setf root-box-layout (make-instance 'gtk:gtk-box
                                         :orientation :vertical
                                         :spacing 0))
         (setf horizontal-box-layout (make-instance 'gtk:gtk-box
                                                    :orientation :horizontal
                                                    :spacing 0))
         (setf panel-buffer-container-left (make-instance 'gtk:gtk-box
                                                    :orientation :horizontal
                                                    :spacing 0))
         (setf panel-buffer-container-right (make-instance 'gtk:gtk-box
                                                    :orientation :horizontal
                                                    :spacing 0))
         (setf main-buffer-container (make-instance 'gtk:gtk-box
                                                      :orientation :vertical
                                                      :spacing 0))
         (setf prompt-buffer-container (make-instance 'gtk:gtk-box
                                                   :orientation :vertical
                                                   :spacing 0))
         (setf message-container (make-instance 'gtk:gtk-box
                                                :orientation :vertical
                                                :spacing 0))
  
negative.code: 
  (define-ffi-method ffi-buffer-webgl-enabled-p ((buffer gtk-buffer))
    (webkit:webkit-settings-enable-webgl
     (webkit:webkit-web-view-get-settings (gtk-object buffer))))
  
  (define-ffi-method ffi-buffer-enable-webgl ((buffer gtk-buffer) value)
    (setf (webkit:webkit-settings-enable-webgl
  