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:       (setf (slot-value frame 'layouts) nil))
      (setf (slot-value frame 'manager) fm)))
  
  (defmethod calculate-standard-panes ((frame application-frame))
    ;; Should find the panes for 
    )
  
  (defmethod (setf frame-current-layout) (name (frame application-frame))
    (declare (ignore name))
    (generate-panes (frame-manager frame) 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))
  
  