anchor.diff:  (defmethod medium-merged-text-style ((medium medium))
     (merge-text-styles (medium-text-style medium) (medium-default-text-style medium)))
   
  -;; with-sheet-medium moved to output.lisp. --GB
  -;; with-sheet-medium-bound moved to output.lisp. --GB
  +;;; with-sheet-medium moved to output.lisp. --GB
  +;;; with-sheet-medium-bound moved to output.lisp. --GB
   
   (defmacro with-pixmap-medium ((medium pixmap) &body body)
     (let ((old-medium (gensym))
  
positive.code: 
  (defmethod engraft-medium ((medium basic-medium) port sheet)
    (declare (ignore port))
    (setf (%medium-sheet medium) sheet)
    #||
    (medium-foreground medium) (medium-foreground sheet)
    (medium-background medium) (medium-background sheet)
    (medium-ink medium) (medium-ink sheet)
    (medium-transformation medium) (medium-transformation sheet)
    (medium-clipping-region medium) (medium-clipping-region sheet)
    (medium-line-style medium) (medium-line-style sheet)
    (medium-text-stle medium) (medium-text-stle sheet)
    ||#
    )
  
  (defmethod degraft-medium ((medium basic-medium) port sheet)
    (declare (ignore port sheet))
  
negative.code: 	        :initform nil
  	        :reader line-style-dashes
                  :type (or (member t nil)
                            sequence))))
  
  (defun make-line-style (&key (unit :normal) (thickness 1)
  			     (joint-shape :miter) (cap-shape :butt)
  