From e1fcda2200b1c63878a96ebc5528d54c8276e1ea Mon Sep 17 00:00:00 2001 From: espen Date: Wed, 7 Jun 2006 13:16:11 +0000 Subject: [PATCH] Bug fix --- glib/gcallback.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/glib/gcallback.lisp b/glib/gcallback.lisp index 6fdf198..b2cd568 100644 --- a/glib/gcallback.lisp +++ b/glib/gcallback.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: gcallback.lisp,v 1.34 2006-04-25 21:57:44 espen Exp $ +;; $Id: gcallback.lisp,v 1.35 2006-06-07 13:16:11 espen Exp $ (in-package "GLIB") @@ -261,8 +261,8 @@ (let ((,default (list* ,object ,@vars ,rest))) (flet ((call-next-handler (&rest ,next) (%call-next-handler - ,n-params ',types (or ,next ,default) ',return-type)))) - ,@body))) + ,n-params ',types (or ,next ,default) ',return-type))) + ,@body)))) ',name))) -- 2.11.0