anchor.diff:                              t filled))))
   
   (defmethod medium-draw-rectangles* :around ((medium basic-medium) position-seq filled)
  +  ;; point-seq can be a vector! --GB
     (let ((tr (medium-transformation medium)))
       (if (rectilinear-transformation-p tr)
           (loop for (left top right bottom) on position-seq by #'cddddr
  
positive.code: 	   (progn
  	     ,@body)
  	 (setf (pixmap-medium ,pixmap) ,old-medium)
  	 (setf (medium-sheet ,medium) ,old-pixmap)))))
  
  ;;; Medium Device functions
  
  
negative.code:    ;; always use this slot through its accessor, since there may
     ;; be secondary methods on it -RS 2001-08-23
     (text-style :initarg :text-style
                 :initform *default-text-style*
                 :accessor medium-text-style)
     (default-text-style :initarg :default-text-style
       :initform *default-text-style*
       :accessor medium-default-text-style)
     (sheet :initarg :sheet
            :initform nil                 ; this means that medium is not linked to a sheet
  