anchor.diff:  (defgeneric (setf frame-pretty-name) (name frame))
   (defgeneric frame-command-table (frame))
   (defgeneric (setf frame-command-table) (command-table frame))
  -(defgeneric frame-standard-output (frame))
  +
  +(defgeneric frame-standard-output (frame)
  +  (:documentation "Returns the stream that will be used for
  +`*standard-output*' for the frame `frame'. The default method (on
  +`standard-application-frame') returns the first named pane of type
  +`application-pane' that is visible in the current layout; if there is
  +no such pane, it returns the first pane of type `interactor-pane' that
  +is exposed in the current layout."))
  +
   (defgeneric frame-standard-input (frame))
   (defgeneric frame-query-io (frame))
   (defgeneric frame-error-output (frame))
  
positive.code: (defgeneric handle-repaint (sheet region))
  (defgeneric repaint-sheet (sheet region))
  
  ;;;; 9 Ports, Grafts, and Mirrored Sheets
  
  ;; (defgeneric portp (object))
  
negative.code: 			       align-x align-y
  			       toward-x toward-y transform-glyphs))
  
  
  ;;; 10.1 Medium Components
  ;;;
  ;;; For reasons that are beyond me, many of the medium component
  