anchor.diff:  
   ;;;  (c) copyright 1998,1999,2000,2001 by Michael McDonald (mikemac@mikemac.com)
   ;;;  (c) copyright 2001 by Arnaud Rouanet (rouanet@emi.u-bordeaux.fr)
  -;;;  (c) copyright 2014 by 
  +;;;  (c) copyright 2014 by
   ;;;      Robert Strandh (robert.strandh@gmail.com)
   
   ;;; This library is free software; you can redistribute it and/or
  
positive.code: 	(setf (medium-clipping-region medium) old-clip))
        (when changed-line-style
          (setf (medium-line-style medium) old-line-style))
        (when changed-text-style 
          (setf (medium-text-style medium) old-text-style)))))
  
  (defmacro with-medium-options ((sheet args)
  
negative.code:                                   :radius-left :radius-right
                                    :radius-top  :radius-bottom))
       args)))
  