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