time-date.el (with-decoded-time-value): Fix debug spec

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e3af835..e3782bf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2015-09-08  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * time-date.el (with-decoded-time-value): Fix debug spec.
+
 2015-09-08  Paul Eggert  <eggert@cs.ucla.edu>
 
        * nnmairix.el (nnmairix-widget-create-query):

diff --git a/lisp/time-date.el b/lisp/time-date.el
index bb7e97e..f30bea8 100644 (file)
--- a/lisp/time-date.el
+++ b/lisp/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))