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: 
  (in-package :clim-demo)
  
  
  (defvar *misc-tests* (make-hash-table :test 'equal))
  
  (defstruct misc-test name description drawer)
  
  (defmacro define-misc-test (name arglist description &body body)
    (check-type name string)
    (check-type description string)
    `(setf (gethash ,name *misc-tests*)
           (make-misc-test :name ,name
                           :description ,description
                           :drawer (lambda ,arglist ,@body))))
  
  (define-application-frame misc-tests ()
    ()
  