anchor.diff:  		'list)
           (clim-fig-undo-list *application-frame*))
     (setf (clim-fig-redo-list *application-frame*) (list))
  -  (deactivate-gadget (find-pane-named *application-frame* 'redo))
  -  (deactivate-gadget (find-pane-named *application-frame* 'clear))
  +  (disable-commands *application-frame* 'com-redo 'com-clear)
     (window-clear *standard-output*))
   
   (define-clim-fig-command (com-add-figure :name nil) ((x real) (y real))
  
positive.code:          (replay current-redo-entry *standard-output*
                   (bounding-rectangle current-redo-entry))))
      (unless (clim-fig-redo-list *application-frame*)
        (deactivate-gadget (find-pane-named *application-frame* 'redo)))))
  
  (define-clim-fig-command com-clear ()
    (push (coerce (output-record-children (clim-fig-output-record
  
negative.code:                        (- y (delta-y latest-undo-entry))))
           (window-refresh *standard-output*))
         (push latest-undo-entry (clim-fig-redo-list *application-frame*))
         (enable-commands *application-frame* 'com-redo))
        ((listp latest-undo-entry)
         (loop for record in latest-undo-entry do
              (stream-add-output-record *standard-output* record)
              (replay record *standard-output* (bounding-rectangle record)))
         (enable-commands *application-frame* 'com-clear)
         (disable-commands *application-frame* 'com-redo))
        (T
         (erase-output-record latest-undo-entry *standard-output*)
         (push latest-undo-entry (clim-fig-redo-list *application-frame*))
         (enable-commands *application-frame* 'com-clear 'com-redo)))
      (unless (clim-fig-undo-list *application-frame*)
        (disable-commands *application-frame* 'com-undo 'com-clear))))
  
  (define-clim-fig-command com-redo ()
    (alexandria:when-let ((current-redo-entry (pop (clim-fig-redo-list
                                                  *application-frame*))))
      (push current-redo-entry (clim-fig-undo-list *application-frame*))
      (enable-commands *application-frame* 'com-undo 'com-clear)
      (cond
        ((typep current-redo-entry 'clim-fig-move-event)
         (multiple-value-bind (x y)
  