anchor.diff:  ;;; Clipping
   ;;;
   
  -(define-drawing-test "Clipping region" "ellipse" (frame stream)
  +(define-drawing-test "Clipping Region" "ellipse" (frame stream)
       "Non-rectangular clipping region. We should see grey rotated ellipse with
   limited angle drawn inside green border. This ellipse is a clipping region. Then
   we randomly drawn points on the screen which should be clipped to the grey area."
  
positive.code:     (drawing-test-print-log "~&Writing ~A~%" filename)))
  
  (defun drawing-test-postscript (test &optional filename)
    (let* ((test (if (stringp test) (gethash test *drawing-tests*) test))
           (filename (or filename (format nil "/tmp/~a-~a.eps"
                                          (drawing-test-category test)
                                          (drawing-test-name test)))))
  
negative.code:                             (drawing-test-name test)))))))
  
  (defun drawing-test-pdf (test &optional filename)
    (let* ((test (if (symbolp test) (gethash test *drawing-tests*) test))
           (filename (or filename (format nil "/tmp/~a-~a.pdf"
                                          (drawing-test-category test)
                                          (drawing-test-name test)))))
  