anchor.diff:                    (clim:draw-rectangle* output 0 0 *width* *height* :filled t
                                           :ink clim:+grey90+)
                     (funcall (drawing-test-drawer item) output))
  -              (condition (condition)
  +              (simple-error (condition)
                   (clim:with-drawing-options (description :ink +red+)
                     (format description "Backend:~a~%" condition)))))))))
   
  
positive.code: 
  			 
  (define-drawing-test "01) Point Clipping" (stream)
      ""
    (test-simple-clipping-region stream
  			       #'(lambda (stream)
  				   (clim:draw-point* stream (random *width*) (random *height*)
  
negative.code: 	    (setf y (+ 80 y)))))))
  
  (define-drawing-test "06) Circle Clipping" (stream)
      #.(format nil "Circles should be drawn only inside the green frame. Anything ~
  outside the clipping area should be grey.")
    (test-simple-clipping-region stream
                                 #'(lambda (stream)
                                     (draw-circle* stream (random *width*) (random *height*)
                                                   (+ 1 (random 50))
                                                   :line-thickness (random 5)
                                                   :ink (make-random-col)
                                                   :filled t))))
  
  (define-drawing-test "06) Circle Scale" (stream)
      ""
  