unpackaged/org-export-get-reference: Cache of previous export causes error

Hello, your patch [export with useful anchors](https://github.com/alphapapa/unpackaged.el#export-to-html-with-useful-anchors) is just what I was looking for, and worked like I was expecting when I pasted it in, but the _second_ time I ran it I got an error. And the third time, and the fourth time. Only deleting the cache under ~/.org-timestamps/ makes it work again, but that second time after, it stops working too. It seems that a bad cache is generated that dooms the next export to fail. **Can you reproduce?**

Debug trace

```
Debugger entered--Lisp error: (error "Format specifier doesn’t match argument type")
format("org%07x" "My%20heading")
org-export-format-reference("My%20heading")
(let ((old (org-export-format-reference stored))) (and (not (assoc old cache)) stored))
(progn (let ((old (org-export-format-reference stored))) (and (not (assoc old cache)) stored)))
(if stored (progn (let ((old (org-export-format-reference stored))) (and (not (assoc old cache)) stored))))
(let ((stored (cdr (assoc cell crossrefs)))) (if stored (progn (let ((old (org-export-format-reference stored))) (and (not (assoc old cache)) stored)))))
(lambda (cell) (let ((stored (cdr (assoc cell crossrefs)))) (if stored (progn (let ((old ...)) (and (not ...) stored))))))((headline "My" "heading"))
cl-some((lambda (cell) (let ((stored (cdr (assoc cell crossrefs)))) (if stored (progn (let ((old ...)) (and (not ...) stored)))))) ((headline "My" "heading") (other "My" "heading")))
(or (cl-some #'(lambda (cell) (let ((stored (cdr ...))) (if stored (progn (let ... ...))))) cells) (if (org-element-property :raw-value datum) (progn (unpackaged/org-export-new-title-reference datum cache))) (org-export-format-reference (org-export-new-reference cache)))
(let* ((crossrefs (plist-get info :crossrefs)) (cells (org-export-search-cells datum)) (new (or (cl-some #'(lambda (cell) (let ... ...)) cells) (if (org-element-property :raw-value datum) (progn (unpackaged/org-export-new-title-reference datum cache))) (org-export-format-reference (org-export-new-reference cache)))) (reference-string new)) (let ((--dolist-tail-- cells) cell) (while --dolist-tail-- (setq cell (car --dolist-tail--)) (setq cache (cons (cons cell new) cache)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (setq cache (cons (cons reference-string datum) cache)) (plist-put info :internal-references cache) reference-string)
(or (car (rassq datum cache)) (let* ((crossrefs (plist-get info :crossrefs)) (cells (org-export-search-cells datum)) (new (or (cl-some #'(lambda ... ...) cells) (if (org-element-property :raw-value datum) (progn (unpackaged/org-export-new-title-reference datum cache))) (org-export-format-reference (org-export-new-reference cache)))) (reference-string new)) (let ((--dolist-tail-- cells) cell) (while --dolist-tail-- (setq cell (car --dolist-tail--)) (setq cache (cons (cons cell new) cache)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (setq cache (cons (cons reference-string datum) cache)) (plist-put info :internal-references cache) reference-string))
(let ((cache (plist-get info :internal-references))) (or (car (rassq datum cache)) (let* ((crossrefs (plist-get info :crossrefs)) (cells (org-export-search-cells datum)) (new (or (cl-some #'... cells) (if (org-element-property :raw-value datum) (progn ...)) (org-export-format-reference (org-export-new-reference cache)))) (reference-string new)) (let ((--dolist-tail-- cells) cell) (while --dolist-tail-- (setq cell (car --dolist-tail--)) (setq cache (cons (cons cell new) cache)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (setq cache (cons (cons reference-string datum) cache)) (plist-put info :internal-references cache) reference-string)))
unpackaged/org-export-get-reference((headline (:raw-value "My heading" :begin 15 :end 140 :pre-blank 0 :contents-begin 28 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil ...) (section (:begin 28 :end 140 :contents-begin 28 :contents-end 139 :post-blank 1 :post-affiliated 28 :parent #1) (paragraph ... ...))) (:export-options nil :back-end #s(org-export-backend :name html :parent nil :transcoders (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :options (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ...) :blocks nil :menu (104 "Export to HTML" ...)) :translate-alist ((bold . org-html-bold) (center-block . org-html-center-block) (clock . org-html-clock) (code . org-html-code) (drawer . org-html-drawer) (dynamic-block . org-html-dynamic-block) (entity . org-html-entity) (example-block . org-html-example-block) (export-block . org-html-export-block) (export-snippet . org-html-export-snippet) (fixed-width . org-html-fixed-width) (footnote-reference . org-html-footnote-reference) (headline . org-html-headline) (horizontal-rule . org-html-horizontal-rule) (inline-src-block . org-html-inline-src-block) (inlinetask . org-html-inlinetask) (inner-template . org-html-inner-template) (italic . org-html-italic) (item . org-html-item) (keyword . org-html-keyword) (latex-environment . org-html-latex-environment) (latex-fragment . org-html-latex-fragment) (line-break . org-html-line-break) (link . org-html-link) (node-property . org-html-node-property) (paragraph . org-html-paragraph) ...) :exported-data # :input-buffer "news.org" :input-file "/home/XXX/org/public/news..." :html-doctype "html5" :html-container "section" :description nil :keywords nil :html-html5-fancy t :html-link-use-abs-url nil :html-link-home "" ...))
apply(unpackaged/org-export-get-reference ((headline (:raw-value "My heading" :begin 15 :end 140 :pre-blank 0 :contents-begin 28 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 15 ...) (section (:begin 28 :end 140 :contents-begin 28 :contents-end 139 :post-blank 1 :post-affiliated 28 :parent #3) (paragraph ... ...))) (:export-options nil :back-end #s(org-export-backend :name html :parent nil :transcoders (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :options (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ...) :blocks nil :menu (104 "Export to HTML" ...)) :translate-alist ((bold . org-html-bold) (center-block . org-html-center-block) (clock . org-html-clock) (code . org-html-code) (drawer . org-html-drawer) (dynamic-block . org-html-dynamic-block) (entity . org-html-entity) (example-block . org-html-example-block) (export-block . org-html-export-block) (export-snippet . org-html-export-snippet) (fixed-width . org-html-fixed-width) (footnote-reference . org-html-footnote-reference) (headline . org-html-headline) (horizontal-rule . org-html-horizontal-rule) (inline-src-block . org-html-inline-src-block) (inlinetask . org-html-inlinetask) (inner-template . org-html-inner-template) (italic . org-html-italic) (item . org-html-item) (keyword . org-html-keyword) (latex-environment . org-html-latex-environment) (latex-fragment . org-html-latex-fragment) (line-break . org-html-line-break) (link . org-html-link) (node-property . org-html-node-property) (paragraph . org-html-paragraph) (plain-list . org-html-plain-list) (plain-text . org-html-plain-text) (planning . org-html-planning) (property-drawer . org-html-property-drawer) (quote-block . org-html-quote-block) (radio-target . org-html-radio-target) ...) :exported-data # :input-buffer "news.org" :input-file "/home/XXX/org/public/news.org" :html-doctype "html5" :html-container "section" :description nil :keywords nil :html-html5-fancy t :html-link-use-abs-url nil :html-link-home "" :html-link-up "" :html-mathjax "" :html-equation-reference-format "\\eqref{%s}" ...)))
org-export-get-reference((headline (:raw-value "My heading" :begin 15 :end 140 :pre-blank 0 :contents-begin 28 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil ...) (section (:begin 28 :end 140 :contents-begin 28 :contents-end 139 :post-blank 1 :post-affiliated 28 :parent #1) (paragraph ... ...))) (:export-options nil :back-end #s(org-export-backend :name html :parent nil :transcoders (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :options (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ...) :blocks nil :menu (104 "Export to HTML" ...)) :translate-alist ((bold . org-html-bold) (center-block . org-html-center-block) (clock . org-html-clock) (code . org-html-code) (drawer . org-html-drawer) (dynamic-block . org-html-dynamic-block) (entity . org-html-entity) (example-block . org-html-example-block) (export-block . org-html-export-block) (export-snippet . org-html-export-snippet) (fixed-width . org-html-fixed-width) (footnote-reference . org-html-footnote-reference) (headline . org-html-headline) (horizontal-rule . org-html-horizontal-rule) (inline-src-block . org-html-inline-src-block) (inlinetask . org-html-inlinetask) (inner-template . org-html-inner-template) (italic . org-html-italic) (item . org-html-item) (keyword . org-html-keyword) (latex-environment . org-html-latex-environment) (latex-fragment . org-html-latex-fragment) (line-break . org-html-line-break) (link . org-html-link) (node-property . org-html-node-property) (paragraph . org-html-paragraph) ...) :exported-data # :input-buffer "news.org" :input-file "/home/XXX/org/public/news..." :html-doctype "html5" :html-container "section" :description nil :keywords nil :html-html5-fancy t :html-link-use-abs-url nil :html-link-home "" ...))
org-html-section((section (:begin 28 :end 140 :contents-begin 28 :contents-end 139 :post-blank 1 :post-affiliated 28 :parent (headline ... #1)) (paragraph (:begin 135 :end 139 :contents-begin 135 :contents-end 139 :post-blank 0 :post-affiliated 135 :parent #1) #("Hi.\n" 0 4 ...))) #("

\nHi.\n

\n" 4 8 (:parent (paragraph ... ...))) (:export-options nil :back-end #s(org-export-backend :name html :parent nil :transcoders (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :options (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ...) :blocks nil :menu (104 "Export to HTML" ...)) :translate-alist ((bold . org-html-bold) (center-block . org-html-center-block) (clock . org-html-clock) (code . org-html-code) (drawer . org-html-drawer) (dynamic-block . org-html-dynamic-block) (entity . org-html-entity) (example-block . org-html-example-block) (export-block . org-html-export-block) (export-snippet . org-html-export-snippet) (fixed-width . org-html-fixed-width) (footnote-reference . org-html-footnote-reference) (headline . org-html-headline) (horizontal-rule . org-html-horizontal-rule) (inline-src-block . org-html-inline-src-block) (inlinetask . org-html-inlinetask) (inner-template . org-html-inner-template) (italic . org-html-italic) (item . org-html-item) (keyword . org-html-keyword) (latex-environment . org-html-latex-environment) (latex-fragment . org-html-latex-fragment) (line-break . org-html-line-break) (link . org-html-link) (node-property . org-html-node-property) (paragraph . org-html-paragraph) ...) :exported-data # :input-buffer "news.org" :input-file "/home/XXX/org/public/news..." :html-doctype "html5" :html-container "section" :description nil :keywords nil :html-html5-fancy t :html-link-use-abs-url nil :html-link-home "" ...))
org-export-data((section (:begin 28 :end 140 :contents-begin 28 :contents-end 139 :post-blank 1 :post-affiliated 28 :parent (headline ... #1)) (paragraph (:begin 135 :end 139 :contents-begin 135 :contents-end 139 :post-blank 0 :post-affiliated 135 :parent #1) #("Hi.\n" 0 4 ...))) (:export-options nil :back-end #s(org-export-backend :name html :parent nil :transcoders (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :options (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ...) :blocks nil :menu (104 "Export to HTML" ...)) :translate-alist ((bold . org-html-bold) (center-block . org-html-center-block) (clock . org-html-clock) (code . org-html-code) (drawer . org-html-drawer) (dynamic-block . org-html-dynamic-block) (entity . org-html-entity) (example-block . org-html-example-block) (export-block . org-html-export-block) (export-snippet . org-html-export-snippet) (fixed-width . org-html-fixed-width) (footnote-reference . org-html-footnote-reference) (headline . org-html-headline) (horizontal-rule . org-html-horizontal-rule) (inline-src-block . org-html-inline-src-block) (inlinetask . org-html-inlinetask) (inner-template . org-html-inner-template) (italic . org-html-italic) (item . org-html-item) (keyword . org-html-keyword) (latex-environment . org-html-latex-environment) (latex-fragment . org-html-latex-fragment) (line-break . org-html-line-break) (link . org-html-link) (node-property . org-html-node-property) (paragraph . org-html-paragraph) ...) :exported-data # :input-buffer "news.org" :input-file "/home/XXX/org/public/news..." :html-doctype "html5" :html-container "section" :description nil :keywords nil :html-html5-fancy t :html-link-use-abs-url nil :html-link-home "" ...))
#f(compiled-function (element) #)((section (:begin 28 :end 140 :contents-begin 28 :contents-end 139 :post-blank 1 :post-affiliated 28 :parent (headline (:raw-value "My heading" :begin 15 :end 140 :pre-blank 0 :contents-begin 28 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 15 :PUBDATE "<2022-01-29 Sat 13:38>" :ID "90833a8c-5610-42f6-80a3-bb63f7d439bb" :title (#("My heading" 0 10 (:parent #17))) :parent (org-data nil (section (:begin 1 :end 15 :contents-begin 1 :contents-end 15 :post-blank 0 :post-affiliated 1 :parent #59) (keyword ...)) #17 (headline (:raw-value "2022" :begin 140 :end 455 :pre-blank 0 :contents-begin 147 :contents-end 455 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 140 :PUBDATE "<2022-02-15 Tue 18:01>" :ID "762ff47f-113f-4ac6-95b0-3727c3070274" :title ... :parent #59) (section ...) (headline ... ... ...)))) #1)) (paragraph (:begin 135 :end 139 :contents-begin 135 :contents-end 139 :post-blank 0 :post-affiliated 135 :parent #1) #("Hi.\n" 0 4 (:parent #4)))))
mapconcat(#f(compiled-function (element) #) ((section (:begin 28 :end 140 :contents-begin 28 :contents-end 139 :post-blank 1 :post-affiliated 28 :parent (headline (:raw-value "My heading" :begin 15 :end 140 :pre-blank 0 :contents-begin 28 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 15 :PUBDATE "<2022-01-29 Sat 13:38>" :ID "90833a8c-5610-42f6-80a3-bb63f7d439bb" :title (#("My heading" 0 10 ...)) :parent (org-data nil (section ... ...) #19 (headline ... ... ...))) . #2)) (paragraph (:begin 135 :end 139 :contents-begin 135 :contents-end 139 :post-blank 0 :post-affiliated 135 :parent #3) #("Hi.\n" 0 4 (:parent #6))))) "")
org-export-data((headline (:raw-value "My heading" :begin 15 :end 140 :pre-blank 0 :contents-begin 28 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil ...) (section (:begin 28 :end 140 :contents-begin 28 :contents-end 139 :post-blank 1 :post-affiliated 28 :parent #1) (paragraph ... ...))) (:export-options nil :back-end #s(org-export-backend :name html :parent nil :transcoders (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :options (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ...) :blocks nil :menu (104 "Export to HTML" ...)) :translate-alist ((bold . org-html-bold) (center-block . org-html-center-block) (clock . org-html-clock) (code . org-html-code) (drawer . org-html-drawer) (dynamic-block . org-html-dynamic-block) (entity . org-html-entity) (example-block . org-html-example-block) (export-block . org-html-export-block) (export-snippet . org-html-export-snippet) (fixed-width . org-html-fixed-width) (footnote-reference . org-html-footnote-reference) (headline . org-html-headline) (horizontal-rule . org-html-horizontal-rule) (inline-src-block . org-html-inline-src-block) (inlinetask . org-html-inlinetask) (inner-template . org-html-inner-template) (italic . org-html-italic) (item . org-html-item) (keyword . org-html-keyword) (latex-environment . org-html-latex-environment) (latex-fragment . org-html-latex-fragment) (line-break . org-html-line-break) (link . org-html-link) (node-property . org-html-node-property) (paragraph . org-html-paragraph) ...) :exported-data # :input-buffer "news.org" :input-file "/home/XXX/org/public/news..." :html-doctype "html5" :html-container "section" :description nil :keywords nil :html-html5-fancy t :html-link-use-abs-url nil :html-link-home "" ...))
#f(compiled-function (element) #)((headline (:raw-value "My heading" :begin 15 :end 140 :pre-blank 0 :contents-begin 28 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 15 :PUBDATE "<2022-01-29 Sat 13:38>" :ID "90833a8c-5610-42f6-80a3-bb63f7d439bb" :title (#("My heading" 0 10 (:parent #1))) :parent (org-data nil (section (:begin 1 :end 15 :contents-begin 1 :contents-end 15 :post-blank 0 :post-affiliated 1 :parent #43) (keyword (:key "TITLE" :value "News" :begin 1 :end 15 :post-blank 0 :post-affiliated 1 :parent #46))) #1 (headline (:raw-value "2022" :begin 140 :end 455 :pre-blank 0 :contents-begin 147 :contents-end 455 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 140 :PUBDATE "<2022-02-15 Tue 18:01>" :ID "762ff47f-113f-4ac6-95b0-3727c3070274" :title (#("2022" 0 4 ...)) :parent #43) (section (:begin 147 :end 257 :contents-begin 147 :contents-end 256 :post-blank 1 :post-affiliated 147 :parent #48)) (headline (:raw-value "2022-02 February" :begin 257 :end 455 :pre-blank 0 :contents-begin 277 :contents-end 455 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 257 :ID "c6bd0a8e-b518-4bca-bfcf-c1bd1585da34" :title (...) :parent #48) (section (:begin 277 :end 354 :contents-begin 277 :contents-end 353 :post-blank 1 :post-affiliated 277 :parent #52)) (headline (:raw-value "2022-02-06 Sunday" :begin 354 :end 455 :pre-blank 0 :contents-begin 376 :contents-end 455 :level 3 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 354 :ID "1ac7e6f8-aab0-4438-812a-ce281cb96809" :title ... :parent #52) (section ...)))))) (section (:begin 28 :end 140 :contents-begin 28 :contents-end 139 :post-blank 1 :post-affiliated 28 :parent #1) (paragraph (:begin 135 :end 139 :contents-begin 135 :contents-end 139 :post-blank 0 :post-affiliated 135 :parent #4) #("Hi.\n" 0 4 (:parent #7))))))
mapconcat(#f(compiled-function (element) #) ((section (:begin 1 :end 15 :contents-begin 1 :contents-end 15 :post-blank 0 :post-affiliated 1 :parent (org-data nil . #2)) (keyword (:key "TITLE" :value "News" :begin 1 :end 15 :post-blank 0 :post-affiliated 1 :parent #3))) (headline (:raw-value "My heading" :begin 15 :end 140 :pre-blank 0 :contents-begin 28 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 15 :PUBDATE "<2022-01-29 Sat 13:38>" :ID "90833a8c-5610-42f6-80a3-bb63f7d439bb" :title (#("My heading" 0 10 (:parent #4))) :parent (org-data nil . #2)) (section (:begin 28 :end 140 :contents-begin 28 :contents-end 139 :post-blank 1 :post-affiliated 28 :parent #4) (paragraph (:begin 135 :end 139 :contents-begin 135 :contents-end 139 :post-blank 0 :post-affiliated 135 :parent #7) #("Hi.\n" 0 4 (:parent #10))))) (headline (:raw-value "2022" :begin 140 :end 455 :pre-blank 0 :contents-begin 147 :contents-end 455 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 140 :PUBDATE "<2022-02-15 Tue 18:01>" :ID "762ff47f-113f-4ac6-95b0-3727c3070274" :title (#("2022" 0 4 (:parent #5))) :parent (org-data nil . #2)) (section (:begin 147 :end 257 :contents-begin 147 :contents-end 256 :post-blank 1 :post-affiliated 147 :parent #5)) (headline (:raw-value "2022-02 February" :begin 257 :end 455 :pre-blank 0 :contents-begin 277 :contents-end 455 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 257 :ID "c6bd0a8e-b518-4bca-bfcf-c1bd1585da34" :title (#("2022-02 February" 0 16 (:parent #9))) :parent #5) (section (:begin 277 :end 354 :contents-begin 277 :contents-end 353 :post-blank 1 :post-affiliated 277 :parent #9)) (headline (:raw-value "2022-02-06 Sunday" :begin 354 :end 455 :pre-blank 0 :contents-begin 376 :contents-end 455 :level 3 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 354 :ID "1ac7e6f8-aab0-4438-812a-ce281cb96809" :title (#("2022-02-06 Sunday" 0 17 ...)) :parent #9) (section (:begin 376 :end 455 :contents-begin 376 :contents-end 455 :post-blank 0 :post-affiliated 376 :parent #13)))))) "")
org-export-data((org-data nil (section (:begin 1 :end 15 :contents-begin 1 :contents-end 15 :post-blank 0 :post-affiliated 1 :parent #1) (keyword ...)) (headline (:raw-value "My heading" :begin 15 :end 140 :pre-blank 0 :contents-begin 28 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil ...) (section ... ...)) (headline (:raw-value "2022" :begin 140 :end 455 :pre-blank 0 :contents-begin 147 :contents-end 455 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil ...) (section ...) (headline ... ... ...))) (:export-options nil :back-end #s(org-export-backend :name html :parent nil :transcoders (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :options (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ...) :blocks nil :menu (104 "Export to HTML" ...)) :translate-alist ((bold . org-html-bold) (center-block . org-html-center-block) (clock . org-html-clock) (code . org-html-code) (drawer . org-html-drawer) (dynamic-block . org-html-dynamic-block) (entity . org-html-entity) (example-block . org-html-example-block) (export-block . org-html-export-block) (export-snippet . org-html-export-snippet) (fixed-width . org-html-fixed-width) (footnote-reference . org-html-footnote-reference) (headline . org-html-headline) (horizontal-rule . org-html-horizontal-rule) (inline-src-block . org-html-inline-src-block) (inlinetask . org-html-inlinetask) (inner-template . org-html-inner-template) (italic . org-html-italic) (item . org-html-item) (keyword . org-html-keyword) (latex-environment . org-html-latex-environment) (latex-fragment . org-html-latex-fragment) (line-break . org-html-line-break) (link . org-html-link) (node-property . org-html-node-property) (paragraph . org-html-paragraph) ...) :exported-data # :input-buffer "news.org" :input-file "/home/XXX/org/public/news..." :html-doctype "html5" :html-container "section" :description nil :keywords nil :html-html5-fancy t :html-link-use-abs-url nil :html-link-home "" ...))
org-export-as()
org-export-to-file()
org-publish-org-to()
org-html-publish-to-html()
org-publish-file()
org-publish-projects((("site" :components ("articles" "attach"))))
org-publish("site")
eval((org-publish "site") t)
command-line-1(("-scriptload" "./elisp/build.el" "--eval" "(org-publish \"articles\")"))
command-line()
normal-top-level()
```

It seems that `org-export-format-reference` reads the "useful slug" in the cache from the previous export, while it expects the normal return value of `org-export-new-reference`. But I don't understand that part of the code very well, could you help me out?