[BUG] Org-publish-find-date ignores #+DATE keyword [9.7.5 (9.7.5-eafa47 @ /usr/share/emacs/29.3/lisp/org/)]

[noa <noa@noa.pub>]

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

     https://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org mailing list.
------------------------------------------------------------------------

When generating a sitemap from org-publish with the anti-chronological and list options set, i noticed that the order of files wasn't as i expected.  I wanted the order to be in the order i specified with DATE keywords in each individual file.  I modified org-publish-sitemap-default-entry to include the date as well:

(format "%s: [[file:%s][%s]]"
        (format-time-string (car org-time-stamp-custom-formats) (org-publish-find-date entry project))
        entry
        (org-publish-find-title entry project))

All the dates shown were the mtime of the files, rather than the dates i specified with the DATE keyword in YYYY-MM-DD format.  Looking at org-publish-find-date, it seems that the let binding successfully pulls the date from the file, but it looks like #1=(#("2024-05-28" 0 10 (:parent #1#))).  My elisp skills aren't great so i find what this means quite difficult to understand, but the following cond clause seems to not work because (assq 'timestamp date) always returns nil.

I've tried running this with emacs -q and get the same issue, and also have updated to the version of org in elpa, and get the same issue.

Emacs  : GNU Emacs 29.3 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.38, cairo version 1.16.0)
 of 2024-05-20, modified by Debian
Package: Org mode version 9.6.15 (release_9.6.15 @ /usr/share/emacs/29.3/lisp/org/)

-- 
~noa (https://noa.pub)