anchor.diff:    (defparameter *window* nil)
     (gui::assume-cocoa-thread)
     ;; Content rect for window, bounds rect for view.
  -  (ns:with-ns-rect (r 100.0 100.0 800.0 800.0)
  +  (ns:with-ns-rect (r 100.0 100.0 1024.0 768.0)
       (ccl::with-autorelease-pool 
         (let* ((window (make-instance
  -		      'ns:ns-window
  +		      'next-window
   		      :with-content-rect r
   		      :style-mask (logior #$NSTitledWindowMask
   					  #$NSClosableWindowMask
  
positive.code:      character)
      (call-next-method event)))
  
  (objc:defmethod (#/acceptsFirstResponder :<BOOL>) ((self ns:ns-window)) t)
  
  (defun url-from-string (s)
    (ccl::with-autorelease-pool
      (#/retain (#/URLWithString: ns:ns-url (ccl::%make-nsstring (string s))))))
  
negative.code:     (ccl::%get-utf-8-cstring (#/UTF8String ns-str))
      ""))
  
  (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
  