anchor.diff:  (defun minibuffer-hide ())
   (defun minibuffer-get-input ())
   (defun minibuffer-set-completion-function ())
  -
  
positive.code: 
  (defun make-web-view ()
    (on-main-thread
     (ns:with-ns-rect (r 100.0 100.0 800.0 600.0)
  		    (let ((view
  			   (make-instance
  			    'ns:web-view
  
negative.code:      character)
      (call-next-method event)))
  
  (defun url-from-string (s)
    (ccl::with-autorelease-pool
      (#/retain (#/URLWithString: ns:ns-url (ccl::%make-nsstring (string s))))))
  