anchor.diff:    (let ((method-name (intern (format nil "MEDIUM-~A*" name)))
   	(class-name (intern (format nil "~A-OUTPUT-RECORD" name)))
   	(medium (gensym "MEDIUM"))
  -	(border (gensym "BORDER")))
  +        (border 'border))
       `(progn
          (defclass ,class-name (graphics-displayed-output-record-mixin)
   	 ,(compute-class-vars args))
  
positive.code:            minimize y into min-y
             maximize x into max-x
             maximize y into max-y
             finally (return (values min-x min-y max-x max-y)))))
  
  (def-grecording draw-line (point-x1 point-y1 point-x2 point-y2)
    (with-transformed-position (transform point-x1 point-y1)
      (with-transformed-position (transform point-x2 point-y2)
        (values (min point-x1 point-x2) (min point-y1 point-y2)
                (max point-x1 point-x2) (max point-y1 point-y2)))))
  
  (def-grecording draw-lines (coord-seq)
    (with-transformed-positions (transform coord-seq)
  
negative.code: 		      stream ink clipping-region transform
  		      line-style text-style
  		      ,@args) graphic
             (let ((,border (/ (line-style-effective-thickness
                                line-style (sheet-medium stream))
                               2)))
               (declare (ignorable ,border))
               (multiple-value-setq (x1 y1 x2 y2) (progn ,@body)))
             (setf x x1
                   y y1
                   initial-x1 x1
  