anchor.diff:  				       &key &allow-other-keys)
     (let* ((input-field (make-instance 'ns:ns-text-field
   				     :delegate self))
  -	 (candidate-controller (make-instance 'controller
  +	 (completion-controller (make-instance 'controller
   					      :data ()))
   	 (completion-column (#/autorelease (make-instance ns:ns-table-column
   							  :column-title "Completion"
  
positive.code: (objc:defmethod (#/controlTextDidChange: :void) ((self minibuffer-view) notification)
    (declare (ignore notification))
    (process-set-completions self))
  
  (defclass fill-container-view (ns:ns-view)
    ((fill-view :accessor fill-view
  
negative.code: 
  (defun make-web-view ()
    (on-main-thread
     (let* ((view-delegate (make-instance
  			  'web-view-delegate))
  	  (view (make-instance
  		 'ns:web-view
  		 :frame-name #@"frame"
  		 :group-name #@"group")))
       (#/setFrameLoadDelegate: view view-delegate)
       view)))
  
  (defun url-from-string (s)
  