From f5420f9f248835c68d2c45cced984cb1014d6c15 Mon Sep 17 00:00:00 2001 From: David Botton Date: Sun, 14 Jan 2024 09:48:59 -0500 Subject: [PATCH] fix for issue #314 --- source/clog-dbi.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/source/clog-dbi.lisp b/source/clog-dbi.lisp index d18557f..6e2c5ed 100644 --- a/source/clog-dbi.lisp +++ b/source/clog-dbi.lisp @@ -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)