anchor.diff:  	    (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)))
  -		  (draw-rectangle* stream 200 (+ 10 y) 450 (+ 35 y)
  +                (declare (ignore x-positions))
  +                (draw-rectangle* stream 200 (+ 10 y) 450 (+ 35 y)
   				   :filled nil))
   	      (setf y (+ 40 y))))))))
   
  
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-circle* stream 200 (+ 10 y) 30
  			    :filled nil)
  	      (draw-circle* stream 290 (+ 10 y) 30 :start-angle (/ pi 2) :end-angle pi
  
negative.code:     ""
      (test-simple-clipping-region stream
  				 #'(lambda (stream)
  				     (let ((v (mapcan #'(lambda (x)
                                                            (declare (ignore x))
                                                            (list (random *width*) (random *height*)))
  						      '(1 2 3))))
  				       (clim:draw-polygon* stream v
  							   :closed t
  