Corrections caught by sbcl

tutorial/01-tutorial.lisp

@@ -22,6 +22,7 @@
 
     (set-on-click hello-element      ; Now we set a function to handle clicks
 		  (lambda (obj)      ; In this case we use an anonymous function
+		    (declare (ignore obj))
 		    (setf (color hello-element) "green")))))
 ;; To see all the events one can set and the many properties and styles that
 ;; exist, take a look through the CLOG manual or the file clog-element.lisp

tutorial/02-tutorial.lisp

@@ -22,6 +22,7 @@
     (let ((x 0))                     ; A closure - each call to on-new-window will
       (set-on-click hello-element    ; create a different version of this closer.
 		    (lambda (obj)
+		      (declare (ignore obj))
 		      (incf x)
 		      (dotimes (n x)
 			(create-child body

tutorial/03-tutorial.lisp

@@ -15,6 +15,7 @@
     (let ((x 0))
       (set-on-click hello-element
 		    (lambda (obj)
+		      (declare (ignore obj))
 		      (incf x)
 		      (dotimes (n x)
 			(create-child body