anchor.diff:      (ccl::%get-utf-8-cstring (#/UTF8String ns-str))
       ""))
   
  -(objc:defmethod (#/keyDown: :void) ((self ns:ns-window) event)
  +(defclass next-window (ns:ns-window) ()
  +  (:metaclass ns:+ns-object))
  +
  +(objc:defmethod (#/acceptsFirstResponder :<BOOL>) ((self next-window)) t)
  +
  +(objc:defmethod (#/keyDown: :void) ((self next-window) event)
     (let* ((flags (#/modifierFlags event))
   	 (character (ns-to-lisp-string (#/charactersIgnoringModifiers event))))
       (next:push-key-chord
  
positive.code: (defun minibuffer-hide ())
  (defun minibuffer-get-input ())
  (defun minibuffer-set-completion-function ())
  
  
negative.code: 
  (defun make-web-view ()
    (on-main-thread
     (ns:with-ns-rect (r 100.0 100.0 1024.0 768.0)
  		    (let ((view
  			   (make-instance
  			    'ns:web-view
  