(let ((results '()))
(dolist (row (query "select * from TYPE_TABLE" :result-types :auto)
results)
(destructuring-bind (int float bigint str) row
(push (list (integerp int)
(typep float 'double-float)
(let ((results '()))
(dolist (row (query "select * from TYPE_TABLE" :result-types :auto)
results)
(destructuring-bind (int float bigint str) row
(push (list (integerp int)
(typep float 'double-float)