Bug fix

diff --git a/gdk/gdk.lisp b/gdk/gdk.lisp
index 4b68bc743d863b8b61268486d07c8c7083d7adfa..a3a379a03b3dfd8a7f2868766f28eb90582f50e5 100644 (file)
--- 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.
 
 ;; 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")
 
 
 (in-package "GDK")


@@ -1110,7 +1110,7 @@   (defun timeout-add-with-lock (interval function &optional (priority +priority-
         (with-global-lock (funcall function)))
      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)))
     (idle-add 
      #'(lambda () 
         (with-global-lock (funcall function)))