anchor.diff:  (defvar *application-frame* nil)
   (defvar *default-frame-manager* nil)
   
  +;;; Frame-Manager class
  +
  +(defclass frame-manager ()
  +  ((port :initarg :port
  +	 :reader frame-manager-port)
  +   (frames :initform nil
  +	   :reader frame-manager-frames)
  +   )
  +  )
  +
  +(defun frame-manager-p (x)
  +  (typep x 'frame-manager))
  +
  +(defun find-frame-manager (&rest options &key port &allow-other-keys)
  +  (declare (special *frame-manager*))
  +  (if (boundp '*frame-manager*)
  +      *frame-manager*
  +    (if (and *default-frame-manager*
  +	     (frame-manager-p *default-frame-manager*))
  +	*default-frame-manager*
  +      (first (frame-managers (or port (apply #'find-port options)))))))
  +
  +(defmacro with-frame-manager ((frame-manager) &body body)
  +  `(let (('*frame-manager* ,frame-manager))
  +     (declare (special *frame-manager*))
  +     (block ,@body)))
  +      
   ;;; Application-Frame class
   
   (defclass application-frame ()
  
positive.code:   (declare (ignore fm))
    (when (and (slot-boundp frame 'pane)
  	     (frame-pane frame))
      (unrealize-mirror (port frame) (frame-pane frame))
      (sheet-disown-child (frame-top-level-sheet frame) (frame-pane frame))))
  
  (defmethod generate-panes :after (fm  (frame application-frame))
    (declare (ignore fm))
    (sheet-adopt-child (frame-top-level-sheet frame) (frame-pane frame))
    (let ((space (compose-space (frame-top-level-sheet frame))))
      (setf (sheet-region (frame-top-level-sheet frame))
        (make-bounding-rectangle 100 100
  			       (+ 100 (space-requirement-width space))
  			       (+ 100 (space-requirement-height space))))
      (allocate-space (frame-top-level-sheet frame)
  		    (space-requirement-width space) (space-requirement-height space)))
    (sheet-adopt-child (graft frame) (frame-top-level-sheet frame)))
  ;  (calculate-standard-panes frame))
  
  (defmethod find-pane-named ((frame application-frame) name)
    (loop for pane in (frame-panes frame)
  
negative.code: (defmethod execute-frame-command ((frame application-frame) command)
    (apply (command-name command) (command-arguments command)))
  
  (defmethod make-pane-1 ((fm frame-manager) (frame application-frame) type &rest args)
    `(make-pane-1 ,fm ,frame ',type ,@args))
  
  