Small cosmetic change

diff --git a/examples/testcairo.lisp b/examples/testcairo.lisp
index 677b81504c153bf2ebdff9c06e2d65056b07c988..31ce00d18f0f802c5a42581de28cc62d8dcc9d44 100644 (file)
--- 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)