anchor.diff:  class.  So you should do the following (in the ws package, 'natch):
   |#
   
  -#+clim-0.9
  -(progn
  -  ;; JPM: The MAP system also provides the following two methods.
  -  ;; Whichever gets loaded last wins.  Perhaps the common code should
  -  ;; be placed in a common file.
  -
  -  (defmethod clim-shared::sheet-region-changed :after ((self ws::viewport-pane))
  -    (with-slots (ws::extent-pane) self
  -      (ws::viewport-extent-changed ws::extent-pane)))
  -
  -  (defmethod ws::viewport-extent-changed ((pane ci::pane)) nil)
  -
  -  (defclass reshape-display-function-mixin () ()
  -	    (:Documentation "Run the redisplay function when window gets reshaped."))
  -
  -  (defmethod ws::viewport-extent-changed
  -      ((pane reshape-display-function-mixin))
  -    ;; Test to see if the frame is enabled to suppress an unnecessary
  -    ;; redisplay for the case where the frame is initially getting enabled.
  -    (when (eq (frame-state (pane-frame pane)) :enabled)
  -      ;; JPM.  This is done asynchronously, and could cause momentary
  -      ;; inconsistencies when done in a master/slave context, so inhibit
  -      ;; scheduling.
  -      (clim-utils:without-interrupts
  -	(pane-needs-redisplay pane)
  -	(redisplay-frame-pane pane))))
  -
  -  (defclass viewer-display-pane (reshape-display-function-mixin
  -				 clim-stream-pane)
  -    ())
  -
  -  ;; Inherit the graph command table.
  -  (make-command-table graph-viewer :inherit-from (graph))
  -  )
   
   ;;;
   ;;; Now define the scigraph viewer frame.
   ;;;
   
  -#+(and clim (not clim-0.9))
   (define-application-frame graph-viewer ()
     ((display-pane :accessor display-pane)
      (graphs :initform nil :accessor frame-graphs)
      (display-settings :initform nil :accessor display-settings))
  -  #+clim-1.0
  -  (:panes
  -    ((display :application
  -	      :display-function 'redisplay-graphs
  -	      :default-text-style (parse-text-style '(:fix :roman :normal))
  -	      :end-of-line-action :allow
  -	      :end-of-page-action :allow
  -	      :display-after-commands nil
  -	      :initial-cursor-visibility nil
  -	      :scroll-bars :both
  -	      :stream-background +black+
  -	      :stream-foreground +white+)
  -     (documentation :pointer-documentation
  -		    :stream-background +black+
  -		    :stream-foreground +white+)))
  -  #+(and clim-2 (not :mcclim))
  -  (:panes
  -   (display 
  -    (scrolling
  -     () 
  -     (make-pane 'application-pane
  -		:display-function 'redisplay-graphs
  -		:display-time t
  -		:text-style 
  -		(parse-text-style '(:fix :roman :normal))
  -		:initial-cursor-visibility nil
  -		;; There is a clim bug whose workaround is to use a non-default
  -		;; output history.  The bug is displaying overlapping presentations
  -		;; in combination with a coordinate sorted set output history.  In
  -		;; our case, graph annotations sometimes get put into the history wrong.
  -		;; At that point, they lose their mouse sensitivity.
  -		:OUTPUT-RECORD
  -		(MAKE-INSTANCE 'CLIM:R-TREE-OUTPUT-HISTORY)
  -		))))
  -  ;; In McCLIM, the name of the pane goes with the top level pane in the
  -  ;; definition, which seems to follow the spec. But we want the name
  -  ;; to go with the application pane...
  -  #+mcclim
     (:panes
      (display :application
   	    :display-function 'redisplay-graphs
  
positive.code: 	 :stream stream
  	 (display-settings self)))
  
  #-clim-0.9
  (defun view-graphs
      (graphs
       &key
  
negative.code: 	    (parse-text-style '(:fix :roman :normal))
  	    :initial-cursor-visibility nil
  	    :scroll-bars t))
    (:pointer-documentation t)
    (:layouts
     (default (vertically () display)))
    (:command-table (graph-viewer :inherit-from (:graph)))
    (:top-level (scigraph-top-level)))
  
  (defun scigraph-top-level (self)
    (let* ((*package* (find-package :graph)))
      (loop
        (with-simple-restart (scigraph-top-level "Abort to SCIGRAPH Top Level")
  	(redisplay-frame-pane (get-frame-pane self 'display))
  	(default-frame-top-level self)))))
  
  (defun redisplay-graphs (self stream)
    ;; Vertically stack the graphs to fill the pane.
  