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: 
  (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 ()
    ()
  