mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

fix for issue #314

Browse source
This commit is contained in:
David Botton 2024-01-14 09:48:59 -05:00
parent d8d2fd88c5
commit f5420f9f24
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
source/clog-dbi.lisp
View file

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