[mcclim-cvs] CVS update: mcclim/Backends/beagle/windowing/port.lisp

[Duncan Rose]

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/windowing
In directory common-lisp.net:/tmp/cvs-serv19755/beagle/windowing

Modified Files:
	port.lisp 
Log Message:
Add auto release pool to function that creates the event loop
to stop OS X barking all the time.

Date: Tue May 17 19:56:20 2005
Author: drose

Index: mcclim/Backends/beagle/windowing/port.lisp
diff -u mcclim/Backends/beagle/windowing/port.lisp:1.2 mcclim/Backends/beagle/windowing/port.lisp:1.3
--- mcclim/Backends/beagle/windowing/port.lisp:1.2	Tue May 17 19:51:15 2005
+++ mcclim/Backends/beagle/windowing/port.lisp	Tue May 17 19:56:20 2005
@@ -159,6 +159,7 @@
   (setf (port-event-process port)
 	(clim-sys:make-process
 	 (lambda ()
+	   (ccl::create-autorelease-pool)
 	   (loop
 	    (with-simple-restart
 	     (restart-event-loop "Restart CLIM's event loop.")