anchor.diff:                   (window-clear output)
                    (window-clear description)
                    (with-text-style (description (make-text-style :sans-serif :roman :normal))
  -                   (write-string (misc-test-item-description item) description))
  -                 (funcall (misc-test-item-drawer item) output)))))
  +                   (write-string (misc-test-description item) description))
  +                 (funcall (misc-test-drawer item) output)))))
     (:layouts
      (default
        (spacing (:thickness 3)
  
positive.code:               ;(multiple-value-call #'draw-point* stream (stream-cursor-position stream))
                #+NIL (print i stream))))))
  
  (defun misc-underlining-test (stream)
    (with-text-family (stream :sans-serif)
      (format stream "~&We all live in a yellow subroutine.~%")
      (format stream "~&We ")
  
negative.code: 	     (clim-extensions:lowering ()
  	       (scrolling (:scroll-bar :vertical :height 200) description)))))))))
  
  (define-misc-test "Empty Records 1" (stream)                                          
      "Tests the effect of empty output records on their parent's bounding rectangle. If successful, you will see a circle enclosed in a square. The square should tightly fit the circle. If the rectangle extends all the way to the top/left edges of the pane, McCLIM is not handling this correctly. This specifically exercises addition of empty children in recompute-extent-for-new-child."
    (surrounding-output-with-border (stream :shape :rectangle)
      (draw-circle* stream 200 200 40)
      (with-new-output-record (stream))))
  
  
  (define-misc-test "Empty Records 2" (stream)
   "Tests the effect of empty output records on their parent's bounding rectangle. If successful, you will see a circle enclosed in a square. The square should fit the circle within a few pixels distance. If the rectangle extends all the way to the top/left edges of the pane, McCLIM is not handling this correctly. This specifically tests addition and deletion of an empty child, and failure may point to recompute-extent-for-new-child or recompute-extent-for-changed-child."
    (surrounding-output-with-border (stream :shape :rectangle)
      (draw-circle* stream 200 200 40)
      (let ((record (with-new-output-record (stream))))
        (delete-output-record record (output-record-parent record)))))
  
  (define-misc-test "Empty Records 3" (stream)
    "Tests the effect of empty output records on their parent's bounding rectangle. If successful, you will see a circle enclosed in a square. The square should fit the circle within a few pixels distance. If the rectangle extends all the way to the top/left edges of the pane, McCLIM is not handling this correctly. This test creates a new output record, fills it with content, then clears the record contents."
    (surrounding-output-with-border (stream :shape :rectangle)
      (draw-circle* stream 200 200 40)
      (let ((record (with-new-output-record (stream)
                      (draw-circle* stream 50 50 10))))
        (clear-output-record record))))
                                             
  (define-misc-test "Empty Borders" (stream)
      "Tests handling of empty output records by surrounding-output-with-border. If successful, you will see twelve small circles arranged themselves in a larger circle. A likely failure mode will exhibit the circles piled on each other in the upper-left corner of the pane."
    (with-room-for-graphics (stream :first-quadrant nil)
      (with-text-style (stream (make-text-style :sans-serif :roman :small))
        (loop with outer-radius = 180
  