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