(setf (slot-value node 'title) "Altered title again")
(setf (slot-value node 'doc) "altered doc")
(clsql:update-records-from-instance node)
(print-fresh-theme))
(let ((node (car (clsql:select 'theme
(setf (slot-value node 'title) "Altered title again")
(setf (slot-value node 'doc) "altered doc")
(clsql:update-records-from-instance node)
(print-fresh-theme))
(let ((node (car (clsql:select 'theme