* lisp/calendar/time-date.el (with-decoded-time-value): Fix debug spec

diff --git a/lisp/calendar/time-date.el b/lisp/calendar/time-date.el
index bb7e97ea7f32b7c049c19c9be732a6b5a84e15f8..f30bea83ed0e872c29c3987be170bafee43c16bb 100644 (file)
--- a/lisp/calendar/time-date.el
+++ b/lisp/calendar/time-date.el
@@ -52,7 +52,8 @@ Type 0 is the cons cell (HIGH . LOW), type 1 is the list (HIGH
 LOW), type 2 is the list (HIGH LOW MICRO), and type 3 is the
 list (HIGH LOW MICRO PICO)."
   (declare (indent 1)
-          (debug ((&rest (symbolp symbolp symbolp &or [symbolp form] form))
+          (debug ((&rest (symbolp symbolp symbolp
+                           &or [symbolp symbolp form] [symbolp form] form))
                   body)))
   (if varlist
       (let* ((elt (pop varlist))