Update of /project/mcclim/cvsroot/mcclim/Examples In directory common-lisp.net:/tmp/cvs-serv20492

Modified Files: stream-test.lisp Log Message: Change run-test to not destroy all active ports before running the demo.

Date: Mon Jan 31 17:47:36 2005 Author: ahefner

Index: mcclim/Examples/stream-test.lisp diff -u mcclim/Examples/stream-test.lisp:1.3 mcclim/Examples/stream-test.lisp:1.4 --- mcclim/Examples/stream-test.lisp:1.3 Sat Jul 26 10:37:57 2003 +++ mcclim/Examples/stream-test.lisp Mon Jan 31 17:47:36 2005 @@ -58,9 +58,9 @@ (default (vertically () tester))))

(defun run-test (name) - (loop for port in climi::*all-ports* - do (destroy-port port)) - (setq climi::*all-ports* nil) +; (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))))