X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/e99a089d8043b561235529dbc613fac386bd9bf4..47b77d70f7aae406a979efd1396153cb2a8bd601:/gdk/gdk.lisp

diff --git a/gdk/gdk.lisp b/gdk/gdk.lisp
index 18ef429..27b31f5 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 @@
 	 (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)))