anchor.diff:  			&rest args
   			&key (filled t)
   			     ink clipping-region transformation line-style line-thickness
  -			     line-unit line-dashes line-cap-shape)
  -  (declare (ignore ink clipping-region transformation line-style line-thickness
  -		   line-unit line-dashes line-cap-shape))
  +			     line-unit line-dashes line-joint-shape)
  +  (declare (ignore ink clipping-region transformation line-style line-thickness
  +		   line-unit line-dashes line-joint-shape))
     (with-medium-options (sheet args)
       (medium-draw-rectangle* medium x1 y1 x2 y2 filled)))
   
  
positive.code: 		   &rest args
  		   &key (start 0) (end nil)
  			(align-x :left) (align-y :baseline)
  			towards-x towards-y transform-glyphs
  			ink clipping-region transformation
  			text-style text-family text-face text-size)
    (declare (ignore ink clipping-region transformation
  		   text-style text-family text-face text-size))
    (with-medium-options (sheet args)
      (multiple-value-bind (x y) (point-position point)
        (medium-draw-text* medium string x y
  			 start end
  			 align-x align-y
  			 towards-x towards-y transform-glyphs))))
  
  (defun draw-text* (sheet string x y
  		   &rest args
  
negative.code: ;;; -*- Mode: Lisp; Package: CLIM-INTERNALS -*-
  
  ;;;  (c) copyright 1998,1999,2000 by Michael McDonald (mikemac@mikemac.com)
  ;;;  (c) copyright 2001 by Arnaud Rouanet (rouanet@emi.u-bordeaux.fr)
  
  ;;; This library is free software; you can redistribute it and/or
  ;;; modify it under the terms of the GNU Library General Public
  