anchor.diff:     (default (vertically () tester))))
   
   (defun run-test (name)
  -;  (loop for port in climi::*all-ports*
  -;	do (destroy-port port)) 
  -;  (setq climi::*all-ports* nil)
     (when name
       (run-frame-top-level (make-application-frame name))))
   
  
positive.code:       (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
  
negative.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)))
  