[mcclim-cvs] CVS mcclim

[ahefner]

Update of /project/mcclim/cvsroot/mcclim
In directory cl-net:/tmp/cvs-serv20633

Modified Files:
	gadgets.lisp 
Log Message:
Fix dynamic extent declarations in with-output-as-gadget.


--- /project/mcclim/cvsroot/mcclim/gadgets.lisp	2008/11/09 19:49:17	1.112
+++ /project/mcclim/cvsroot/mcclim/gadgets.lisp	2009/10/29 14:05:04	1.113
@@ -2678,8 +2678,8 @@
 	      (gadget-output-record-constructor ()
 		(make-instance 'gadget-output-record
 			       , at options :x ,x :y ,y)))
-	 (declare (dynamic-extent with-output-as-gadget-continuation
-				  gadget-output-record-constructor))
+	 (declare (dynamic-extent #'with-output-as-gadget-continuation
+				  #'gadget-output-record-constructor))
 	 (let ((,gadget-output-record
 		(invoke-with-output-to-output-record
 		 ,stream