From: espen <espen>
Date: Thu, 9 Feb 2006 22:34:57 +0000 (+0000)
Subject: Small cosmetic change
X-Git-Tag: clg-0-92~57
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/commitdiff_plain/f32d6e91925651ae489ca5579270922001e17183

Small cosmetic change
---

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)