anchor.diff:    (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)
  +    (setf (clim-fig-output-record frame)
             (stream-current-output-record *standard-output*)
  -          (slot-value frame 'status)
  +          (clim-fig-status frame)
             (find-if #'(lambda (pane) (typep pane 'text-field-pane))
                      (frame-panes frame)))
       (catch 'exit
  
positive.code: 		      (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))))
          (beep))))
  
  (define-command com-redo ()
    (let* ((output-history (clim-fig-output-record *application-frame*))
           (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))))
          (beep))))
  
  (define-command com-clear ()
    (setf (clim-demo::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*)))
    (window-clear *standard-output*))
  
  (make-command-table 'file-command-table
  
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)
  