anchor.diff:    (on-main-thread
      (#/stringByEvaluatingJavaScriptFromString: view #@"window.scrollBy(0, -100);")))
   
  -(defun web-view-set-url-loaded-callback (function)
  +(defun web-view-set-url-loaded-callback (view function)
     function)
   
   (defun web-view-get-url (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: 				       &key &allow-other-keys)
    (let* ((input-field (make-instance 'ns:ns-text-field
  				     :delegate self))
  	 (completion-controller (make-instance 'controller
  					      :data ()))
  	 (completion-column (#/autorelease (make-instance ns:ns-table-column
  							  :column-title "Completion"
  