anchor.diff:  		      (elt (output-record-children output-history)
   			   (1- record-count)))))
       (if record
  -        (with-output-recording-options (*standard-output* :record nil)
  -          (with-bounding-rectangle* (x1 y1 x2 y2) record
  -            (draw-rectangle* *standard-output* x1 y1 x2 y2 :ink +background-ink+)
  -            (delete-output-record record output-history)
  -            (push record (clim-fig-redo-list *application-frame*))
  -            (replay-output-record output-history *standard-output*
  -                                  (make-rectangle* x1 y1 x2 y2))))
  +        (progn
  +          (erase-output-record record *standard-output*)
  +          (push record (clim-fig-redo-list *application-frame*)))
           (beep))))
   
   (define-command com-redo ()
  -  (let* ((output-history (clim-fig-output-record *application-frame*))
  -         (record (pop (clim-fig-redo-list *application-frame*))))
  +  (let* ((record (pop (clim-fig-redo-list *application-frame*))))
       (if record
  -        (with-output-recording-options (*standard-output* :record nil)
  -          (with-bounding-rectangle* (x1 y1 x2 y2) record
  -            (draw-rectangle* *standard-output* x1 y1 x2 y2 :ink +background-ink+)
  -            (add-output-record record output-history)
  -            (replay-output-record output-history *standard-output*
  -                                  (make-rectangle* x1 y1 x2 y2))))
  +        (progn
  +          (stream-add-output-record *standard-output* record)
  +          (replay record *standard-output* (bounding-rectangle record)))
           (beep))))
   
   (define-command com-clear ()
  -  (setf (clim-demo::clim-fig-redo-list *application-frame*)
  +  (setf (clim-fig-redo-list *application-frame*)
           (append (coerce (output-record-children (clim-fig-output-record
   						 *application-frame*))
  -			'list) 
  -                (clim-demo::clim-fig-redo-list *application-frame*)))
  +			'list)
  +                (clim-fig-redo-list *application-frame*)))
     (window-clear *standard-output*))
   
   (make-command-table 'file-command-table
  
positive.code:   (let ((*standard-input* (frame-standard-input frame))
  	(*standard-output* (frame-standard-output frame))
  	(*query-io* (frame-query-io frame)))
      (setf (slot-value frame 'output-record)
            (stream-current-output-record *standard-output*)
            (slot-value frame 'status)
            (find-if #'(lambda (pane) (typep pane 'text-field-pane))
                     (frame-panes frame)))
      (catch 'exit
  
negative.code:                                                     first-point-y)))))
  
  (defun search-selected-object (record x y)
    (map-over-output-records-containing-position
       #'(lambda (x)
           (return-from search-selected-object x))
       record x y)
    nil)
  
  (defun signum-1 (value)
    (if (zerop value)
  