Skip to content
Snippets Groups Projects
Commit 5262869f authored by ram's avatar ram
Browse files

fix syntax error.

parent c8217818
No related branches found
No related tags found
No related merge requests found
;;; -*- 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.
)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment