anchor.diff:      (with-bounding-rectangle* (min-x min-y max-x max-y)
   	cr
         (draw-rectangle* stream (- min-x 10) (- min-y 10) (+ max-x 10) (+ max-y 10) :line-thickness 2 :filled t :ink +green+)
  -      (draw-rectangle* stream min-x min-y max-x max-y :line-thickness 3 :filled nil)
  +      (draw-rectangle* stream min-x min-y max-x max-y :line-thickness 1 :filled nil)
         (with-drawing-options (stream :clipping-region cr)
   	(draw-rectangle* stream min-x min-y max-x max-y :filled t :ink +grey60+)
   	(loop repeat 30
  
positive.code:                   (clim:draw-rectangle* output 0 0 *width* *height* :filled t
                                          :ink clim:+grey90+)
                    (funcall (drawing-test-drawer item) output))
                (condition (condition)
                  (clim:with-drawing-options (description :ink +red+)
                    (format description "Backend:~a~%" condition)))))))))
  
  
negative.code: 
  
  (define-drawing-test "03) Polygon Clipping" (stream)
      #.(format nil "Polygons should be drawn only inside the green frame. Anything ~
  outside the clipping area should be grey.")
      (test-simple-clipping-region stream
  				 #'(lambda (stream)
  				     (let ((v (mapcan #'(lambda (x)
  