anchor.diff:  	(setf (medium-clipping-region medium) old-clip))
         (when changed-line-style
           (setf (medium-line-style medium) old-line-style))
  -      (when changed-text-style 
  +      (when changed-text-style
           (setf (medium-text-style medium) old-text-style)))))
   
   (defmacro with-medium-options ((sheet args)
  
positive.code: 				       (- q head-length) width/2)
  				 :filled nil
  				 :closed nil))
  		
  		(unless (< q p)
  		  (draw-line* sheet q 0 p 0)))))))))
  
  
negative.code: ;;; Library General Public License for more details.
  ;;;
  ;;; You should have received a copy of the GNU Library General Public
  ;;; License along with this library; if not, write to the
  ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  (in-package :clim-internals)
  
  ;;; Work in progress that reduces consing of rest arguments and keyword
  ;;; processing.
  (defmacro with-medium-and-options ((sheet
  				    &key ink clipping-region transformation
  				    line-unit line-thickness
  