anchor.diff:  	  (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)))
  +              (declare (ignore x-positions))
   	      (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
  
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:       "no"))
     (print-ps :push-button
  	     :label "Print All (/tmp/*.ps)"
  	     :activate-callback #'(lambda (x)
                                      (declare (ignore x))
                                      (print-all-postscript-tests)))
     
     (print-png :push-button
  	      :label "Print All (/tmp/*.png)"
  	      :activate-callback #'(lambda (x)
                                       (declare (ignore x))
                                       (print-all-raster-image-tests :png))))
    (:layouts
     (default
       (spacing (:thickness 3)
  