anchor.diff:  (in-package :interface)
   
   (defparameter *next-interface* nil)
  +(defparameter *character-conversion-table* (make-hash-table :test 'equalp))
   
   (defclass next-interface ()
     ((window :accessor window :initarg :window)
  +   (container-view :accessor container-view :initarg :container-view)
      (minibuffer-view :accessor minibuffer-view :initarg :minibuffer-view)))
   
   (defclass minibuffer-view ()
  
positive.code: (defun cut ())
  
  (defun process-event (event)
    (let ((modifier-state (gdk:gdk-event-key-state event))
          (character (gdk:gdk-keyval-to-unicode
                      (gdk:gdk-event-key-keyval event))))
      (unless (equalp character #\Null)
        (next:push-key-chord
         (member :control-mask modifier-state :test #'equalp)
         (member :mod1-mask modifier-state :test #'equalp)
         (member :super-mask modifier-state :test #'equalp)
         (string character)))))
  
  (defun set-visible-view (view)
    (declare (ignore view)))
  (defun delete-view (view)
    (declare (ignore view)))
  (defun make-web-view ())
  (defun web-view-set-url (view url)
    (declare (ignore view url)))
  (defun web-view-set-url-loaded-callback (view function)
    (declare (ignore view function)))
  (defun web-view-get-url (view)
    (declare (ignore view)))
  
  (defun web-view-execute (view script)
    (declare (ignore view script))
  
negative.code:      (completion-view (minibuffer-view *next-interface*))))))
  
  (defun minibuffer-set-completion-function (function)
    (setf (completion-function (minibuffer-view *next-interface*)) function))
  