(destructuring-bind (int float bigint str) row
(push (list (integerp int)
(typep float 'double-float)
(destructuring-bind (int float bigint str) row
(push (list (integerp int)
(typep float 'double-float)
(let ((*read-default-float-format* 'double-float))
(coerce (read-from-string num-str) 'double-float)))
(let ((*read-default-float-format* 'double-float))
(coerce (read-from-string num-str) 'double-float)))