fix for issue #314

This commit is contained in:
David Botton 2024-01-14 09:48:59 -05:00
parent d8d2fd88c5
commit f5420f9f24

View file

@ -427,7 +427,7 @@ the displayed option."
(funcall (on-row obj) obj tr))
(loop for (key value) on row by #'cddr while value
do
(let ((td (create-table-column obj :content value)))
(let ((td (create-table-column tr :content value)))
(when (on-column obj)
(funcall (on-column obj) obj key td)))))))
(when (on-footer obj)