anchor.diff:       (container-view *next-interface*)
        (lambda (widget) (gtk:gtk-container-remove (container-view *next-interface*) widget)))
       (gtk:gtk-box-pack-start (container-view *next-interface*) view)
  -    (gtk:gtk-widget-show view)))
  +    (gtk:gtk-widget-show view)
  +    (setf (current-view *next-interface*) view)))
   
   (defun delete-view (view)
     (declare (ignore view)))
  
positive.code: (defun web-view-get-url (view)
    (webkit2:webkit-web-view-uri view))
  
  (cffi:defctype g-async-result :pointer)
  
  (cffi:defcallback callybacky :void ((source-object :pointer)
                                      (result g-async-result)
                                      (user-data :pointer))
    (print "called!")
    nil)
  
  (defun web-view-execute (view script)
  
negative.code: 
  (defclass next-interface ()
    ((window :accessor window :initarg :window)
     (current-view :accessor current-view)
     (container-view :accessor container-view :initarg :container-view)
     (minibuffer-view :accessor minibuffer-view :initarg :minibuffer-view)))
  
  