anchor.diff:  
   (define-drawing-test "Ellipse" "Basic" (frame stream)
       ""
  +  (declare (ignore frame))
     (let ((y 20))
       (dolist (lc '(:round :butt :square))
         (dolist (lt '(1 3 7))
  
positive.code: 
  (define-drawing-test "Circle" "Basic" (frame stream)
      ""
    (let ((y 30))
      (dolist (lc '(:round :butt :square))
        (dolist (lt '(1 3 7))
  
negative.code: 
  (define-drawing-test "Bezier" "Test 5" (frame stream)
      "Some more complicated bezier design drawings."
    (declare (ignore frame))
    (formatting-table (stream :x-spacing 20 :y-spacing 20)
      (formatting-row (stream)
        (formatting-cell (stream :min-height 80)))
  