anchor.diff:  ;;;
   (define-drawing-test "Bordered" "Empty Records 1" (frame stream)
       ""
  +  (declare (ignore frame))
     (surrounding-output-with-border (stream :shape :rectangle)
       (draw-circle* stream 100 200 40)
       (with-new-output-record (stream)))
  
positive.code: 
  (define-drawing-test "Arrows" "Arrows" (frame stream)
      ""
    (let ((scale 1.2)
          (from-head t)
          (to-head t))
  
negative.code: 
  (define-drawing-test "Table" "dashes" (frame stream)
      ""
    (declare (ignore frame))
    (clim:formatting-table (stream :x-spacing 50
                                   :y-spacing 20)
      (clim:formatting-row (stream)
  