anchor.diff:  (defmethod run-frame-top-level ((frame application-frame)
   				&key &allow-other-keys)
     (letf (((frame-process frame) (current-process)))
  -    (handler-case
  -	(funcall (frame-top-level-lambda frame) frame)
  -      (frame-exit ()
  -	nil))))
  -
  +    (funcall (frame-top-level-lambda frame) frame)))
   
   (defmethod run-frame-top-level :around ((frame application-frame) &key)
     (let ((*application-frame* frame)
  
positive.code: 		  :initarg :height
  		  :initform nil)))
  
  (defgeneric frame-geometry* (frame))
  
  (defmethod frame-geometry* ((frame standard-application-frame))
  
negative.code: 			       (with-input-focus (query-io)
  				 (call-next-method))
  			       (call-next-method)))
  		 (frame-layout-changed () nil)
                   (frame-exit ()	(return))))
        (case original-state
          (:disabled
           (disable-frame frame))
          (:disowned
           (when-let ((fm (frame-manager frame)))
             (disown-frame fm frame)))))))
  
  (defparameter +default-prompt-style+ (make-text-style :sans-serif :bold :normal))
  