anchor.diff:  	   (progn
   	     ,@body)
   	 (setf (pixmap-medium ,pixmap) ,old-medium)
  -	 (setf (medium-sheet ,medium) ,old-pixmap)))))
  +	 (setf (%medium-sheet ,medium) ,old-pixmap)))))
   
   ;;; Medium Device functions
   
  
positive.code:                             t filled))))
  
  (defmethod medium-draw-rectangles* :around ((medium basic-medium) position-seq filled)
    (let ((tr (medium-transformation medium)))
      (if (rectilinear-transformation-p tr)
          (loop for (left top right bottom) on position-seq by #'cddddr
  
negative.code:   (:documentation "The basic class, on which all CLIM mediums are built.") )
  
  (defclass ungrafted-medium (basic-medium) ())
  
  (defmethod initialize-instance :after ((medium medium) &rest args)
    (declare (ignore args))
  