anchor.diff:  
   
   (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)
  
positive.code: 	      (setf y (+ 40 y))))))))
  
  (define-drawing-test "04) Rectangle Clipping" (stream)
      ""
      (test-simple-clipping-region stream
  				 #'(lambda (stream)
  				     (let ((x (random *width*))
  
negative.code:     (clim:draw-text* stream "toward x" 200 200 :toward-x 30)))
  
  (define-drawing-test "07) Text Clipping" (stream)
      #.(format nil "Text should be drawn only inside the green frame. Anything ~
  outside the clipping area should be grey.")
      (test-simple-clipping-region stream
  				 #'(lambda (stream)
  				     (draw-text* stream (format nil "~A" (random 10))
  