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:       (lambda (window event)
          (declare (ignore window))
          (process-event event)))
       (gtk:gtk-widget-show-all window)
       (minibuffer-hide))))
  
  (defun kill ()
    (quit))
  
negative.code:      (completion-view (minibuffer-view *next-interface*))))))
  
  (defun minibuffer-set-completion-function (function)
    (setf (completion-function (minibuffer-view *next-interface*)) function))
  