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:                                                     first-point-y)))))
  
  (defun search-selected-object (record x y)
    (let ((selected-objects))
      (map-over-output-records-containing-position
       #'(lambda (x)
           (push x selected-objects))
       record x y)
      (first selected-objects)))
  
  (defun signum-1 (value)
    (if (zerop value)
  
negative.code:                  (setf (clim-fig-current-color (gadget-client gadget))
                         color))
  	     :width width :height height
               :background color :foreground color
  	     :normal color :pushed-and-highlighted color
  	     :highlighted color))
  
  