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
,@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
