From 5262869f0b8eea6dcac8ba8b0339a22947f097b8 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 28 Oct 1994 22:15:28 +0000 Subject: [PATCH] fix syntax error. --- motif/lisp/timer-support.lisp | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/motif/lisp/timer-support.lisp b/motif/lisp/timer-support.lisp index 793cd2391..0c9755766 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.1 1994/10/27 17:44:22 ram Exp $") +(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 $") ;;; timers-support.lisp -- ;;; Extension to CMUCL Motif Interface. Adding missing call for @@ -27,10 +27,9 @@ (defstruct (timer (:print-function print-timer) (:constructor make-timer - callback-proc - &optional args - &aux (id (incf *timers-count*)) - ) + (callback-proc + &optional args + &aux (id (incf *timers-count*)))) ;; &rest for 'args' would be nicer, but it would ;; mess up the actual interface functions. ) -- GitLab