anchor.diff:      ""
       (test-simple-clipping-region stream
   				 #'(lambda (stream)
  -				     (let ((v (mapcan #'(lambda (x) (list (random *width*) (random *height*)))
  +				     (let ((v (mapcan #'(lambda (x)
  +                                                          (declare (ignore x))
  +                                                          (list (random *width*) (random *height*)))
   						      '(1 2 3))))
   				       (clim:draw-polygon* stream v
   							   :closed t
  
positive.code: 	  (with-drawing-options (stream :line-thickness lt :line-dashes ld)
  	    (draw-text* stream (format nil "~A ~A" ld lt) 20 y)
  	    (let ((x-positions '(150 300)))
  	      (draw-ellipse* stream 150 (+ 10 y) 0 30 50 0
  			     :filled nil)
  	      (draw-ellipse* stream 270 (+ 10 y) 0 30 50 0 :start-angle (/ pi 2) :end-angle pi
  
negative.code: 	    (with-drawing-options (stream :line-thickness lt :line-joint-shape lj :line-dashes ld)
  	      (draw-text* stream (format nil "~A ~A ~A" ld lj lt) 20 y)
  	      (let ((x-positions '(150 300)))
                  (declare (ignore x-positions))
                  (draw-rectangle* stream 200 (+ 10 y) 450 (+ 35 y)
  				   :filled nil))
  	      (setf y (+ 40 y))))))))
  
  