[mcclim-cvs] CVS update: mcclim/Examples/stream-test.lisp

[Andy Hefner]

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