defsetf in timer.el cannot pass compiling

defsetf in timer.el cannot pass compiling

[Herbert Euler]

Hello,

When compiling the following form in lisp/emacs-lisp/timer.el, an
error is signaled:

(defsetf timer--time
  (lambda (timer time)
    (or (timerp timer) (error "Invalid timer"))
    (setf (timer--high-seconds timer) (pop time))
    (setf (timer--low-seconds timer)
	  (if (consp time) (car time) time))
    (setf (timer--usecs timer) (or (and (consp time) (consp (cdr time))
					(cadr time))
				   0))))

The error message is "Invalid argument name: Invalid timer", which is
signaled by cl-do-arglist, as "Invalid timer" is not a symbol.

Regards,
Guanpeng Xu

_________________________________________________________________
Explore the seven wonders of the world
http://search.msn.com/results.aspx?q=7+wonders+world&mkt=en-US&form=QBRE