anchor.diff:        (print gesture *trace-output*))
       (values-list results)))
   
  -#+nil
  -(define-application-frame stream-test ()
  -  ()
  -  (:pane (vertically ()
  -	   (make-pane 'echo-interactor-pane)) ))
  -
   (define-application-frame stream-test ()
     ()
     (:panes
  
positive.code: 	(when (characterp gesture)
        (stream-write-char stream gesture))))))
  
  
  (defmethod stream-read-gesture :around ((stream echo-interactor-pane)
  				       &key &allow-other-keys)
    (let* ((results (multiple-value-list (call-next-method)))
  
negative.code:    (default (vertically () tester))))
  
  (defun run-test (name)
    (when name
      (run-frame-top-level (make-application-frame name))))
  
  