From beedd292eee0b1b69954f2b71470fab828e8a863 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 28 Oct 1994 22:35:00 +0000 Subject: [PATCH] spell timer-table consistent.y --- motif/lisp/timer-support.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/motif/lisp/timer-support.lisp b/motif/lisp/timer-support.lisp index 0c9755766..9551879d5 100644 --- a/motif/lisp/timer-support.lisp +++ b/motif/lisp/timer-support.lisp @@ -1,6 +1,6 @@ ;;; -*- Mode: CLtL -*- -(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/timer-support.lisp,v 1.2 1994/10/28 22:15:28 ram Exp $") +(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/timer-support.lisp,v 1.3 1994/10/28 22:35:00 ram Rel $") ;;; timers-support.lisp -- ;;; Extension to CMUCL Motif Interface. Adding missing call for @@ -111,7 +111,7 @@ (defun add-timeout (interval timer-callback &rest args) (declare (type (signed-byte 32) interval)) (let ((new-timer (make-timer timer-callback args))) - (add-timer new-timer (motif-connection-timers-table *motif-connection*)) + (add-timer new-timer (motif-connection-timer-table *motif-connection*)) (setf (timer-interval-id new-timer) (%add-timeout interval (timer-id new-timer))) new-timer)) @@ -120,6 +120,6 @@ (defun remove-timeout (timer) (%remove-timeout (timer-interval-id timer)) (remove-timer (timer-id timer) - (motif-connection-timers-table *motif-connection*)) + (motif-connection-timer-table *motif-connection*)) t ) -- GitLab