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: 	     (clim-extensions:lowering ()
  	       (scrolling (:scroll-bar :vertical :height 200) description)))))))))
  
  (defun misc-empty-records-1 (stream)
    (surrounding-output-with-border (stream :shape :rectangle)
      (draw-circle* stream 200 200 40)
      (with-new-output-record (stream))))
  
  (defun misc-empty-records-2 (stream)
    (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)))))
  
  (defun misc-empty-records-3 (stream)
    (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))))
  
  (defun misc-empty-bordering (stream)
    (with-room-for-graphics (stream :first-quadrant nil)
      (with-text-style (stream (make-text-style :sans-serif :roman :small))
        (loop with outer-radius = 180
  
negative.code:               ;(multiple-value-call #'draw-point* stream (stream-cursor-position stream))
                #+NIL (print i stream))))))
  
  (define-misc-test "Underlining" (stream)
      "Tests the underlining border style. You should see five lines of text, equally spaced, with the second and third lines having the phrase 'all live' underlined, first by a thick black line then by a thin dashed red line. If the lines are broken or the spacing is irregular, the :move-cursor nil key of surrounding-output-with-border may not have behaved as expected. "
    (with-text-family (stream :sans-serif)
      (format stream "~&We all live in a yellow subroutine.~%")
      (format stream "~&We ")
  