X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/ceb49aab927f9d7e32af5114bf344c7ffd519bbd..c857632f95c67a5a47ed969284d92f46208c44f9:/gdk/gdk.lisp

diff --git a/gdk/gdk.lisp b/gdk/gdk.lisp
index 4b68bc7..a3a379a 100644
--- a/gdk/gdk.lisp
+++ b/gdk/gdk.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: gdk.lisp,v 1.39 2007/06/18 12:23:05 espen Exp $
+;; $Id: gdk.lisp,v 1.40 2007/06/18 13:41:18 espen Exp $
 
 
 (in-package "GDK")
@@ -1110,7 +1110,7 @@   (defun timeout-add-with-lock (interval function &optional (priority +priority-
 	 (with-global-lock (funcall function)))
      priority))
 
-  (defun idle-add-with-lock (funcation &optional (priority +priority-default-idle+))
+  (defun idle-add-with-lock (function &optional (priority +priority-default-idle+))
     (idle-add 
      #'(lambda () 
 	 (with-global-lock (funcall function)))