anchor.diff:  (objc:defmethod (#/controlTextDidChange: :void) ((self minibuffer-view) notification)
     (declare (ignore notification))
     (process-set-completions self))
  +
  +(defclass web-view-delegate (ns:ns-object)
  +  ()
  +  (:metaclass ns:+ns-object))
  +
  +(objc:defmethod (#/webView:didFinishLoadForFrame: :void)
  +    ((self web-view-delegate)
  +     (wvs :id)
  +     (fl :id))
  +  (declare (ignore wvs fl))
  +  (print "called"))
   
   (defclass fill-container-view (ns:ns-view)
     ((fill-view :accessor fill-view
  
positive.code: 							  :min-width 80
  							  :editable nil
  							  :selectable t)))
  	 (candidate-table
  	  (make-instance ns:ns-table-view
                      :columns (list completion-column)
                      :data-source candidate-controller
                      :delegate candidate-controller
                      :allows-column-resizing nil
                      :column-autoresizing-style :uniform)))
      (setf (input-buffer self) input-field)
      (setf (completion-table self) candidate-table)
      (setf (completion-controller self) candidate-controller)
      (setf (view candidate-controller) candidate-table)
      (#/addSubview: self input-field)
      (#/addSubview: self candidate-table)
      (make-constraint :item1 input-field :att1 :center-x :relation := :item2 self :att2 :center-x)
      (make-constraint :item1 input-field :att1 :width :relation := :item2 self :att2 :width)
      (make-constraint :item1 input-field :att1 :top :relation := :item2 self :att2 :top)
      (make-constraint :item1 input-field :att1 :height :relation := :const 20)
      (make-constraint :item1 candidate-table :att1 :top :relation := :item2 input-field :att2 :bottom)
      (make-constraint :item1 candidate-table :att1 :bottom :relation := :item2 self :att2 :bottom)
      (make-constraint :item1 candidate-table :att1 :width :relation := :item2 self :att2 :width)))
  
  (defmethod get-input ((self minibuffer-view))
    (ns-to-lisp-string (#/stringValue (input-buffer self))))
  
negative.code:   (on-main-thread
     (#/stringByEvaluatingJavaScriptFromString: view #@"window.scrollBy(0, -100);")))
  
  (defun web-view-set-url-loaded-callback (view function)
    function)
  
  (defun web-view-get-url (view)
  