From 57c6905f20da19491b8f1384ad15f459313450f5 Mon Sep 17 00:00:00 2001 Message-Id: <57c6905f20da19491b8f1384ad15f459313450f5.1715086951.git.mdw@distorted.org.uk> From: Mark Wooding Date: Thu, 9 Feb 2006 22:34:57 +0000 Subject: [PATCH] Small cosmetic change Organization: Straylight/Edgeware From: espen --- examples/testcairo.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/examples/testcairo.lisp b/examples/testcairo.lisp index 677b815..31ce00d 100644 --- a/examples/testcairo.lisp +++ b/examples/testcairo.lisp @@ -29,7 +29,7 @@ (defvar *snippets* ()) (defmacro define-snippet (name (cr) &body body) (let ((widget (make-symbol "WIDGET")) (window (make-symbol "WINDOW")) - (pointer (make-symbol "POINTER"))) + (event (make-symbol "EVENT"))) `(let ((,window nil)) (pushnew ',name *snippets*) (defun ,name () @@ -43,8 +43,8 @@ (defun ,name () (signal-connect ,window 'destroy #'(lambda () (setq ,window nil))) (signal-connect ,widget 'expose-event - #'(lambda (,pointer) - (declare (ignore ,pointer)) + #'(lambda (,event) + (declare (ignore ,event)) (let ((,cr (gdk:cairo-create (widget-window ,widget)))) (multiple-value-bind (width height) (widget-get-size-allocation ,widget) -- [mdw]