[mcclim-cvs] CVS mcclim

[ahefner]

Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv9497

Modified Files:
	ports.lisp 
Log Message:
Fix destroy-port in the case where the backend method causes an error.
The work seems to be done using :before methods (why??) both in McCLIM
and the backends. If one of these errs, the primary method which 
removes the port from *all-ports* never runs. Fix this by using an 
:around method with an unwind-protect to ensure removal from *all-ports*.



--- /project/mcclim/cvsroot/mcclim/ports.lisp	2006/04/17 18:40:27	1.52
+++ /project/mcclim/cvsroot/mcclim/ports.lisp	2006/07/01 21:31:41	1.53
@@ -230,8 +230,12 @@
   nil)
 
 (defmethod destroy-port ((port basic-port))
-  (reset-watcher port :destroy)
-  (setf *all-ports* (remove port *all-ports*)))
+  (reset-watcher port :destroy))
+
+(defmethod destroy-port :around ((port basic-port))
+  (unwind-protect
+       (call-next-method)
+    (setf *all-ports* (remove port *all-ports*))))
 
 (defmethod add-watcher ((port basic-port) watcher)
   (declare (ignore watcher))