- (do-query ((int float bigint str) "select * from TYPE_TABLE")
- (push (list (double-float-equal
- (transform-float-1 (parse-integer int))
- (parse-double float))
- (double-float-equal
- (parse-double str)
- (parse-double float)))
- results))
+ (do-query ((int float bigint str) "select * from TYPE_TABLE" :result-types nil)
+ (declare (ignore bigint))
+ (let ((int-number (parse-integer int)))
+ (setq results
+ (cons (list (double-float-equal (transform-float-1
+ int-number)
+ (parse-double float))
+ (double-float-equal (parse-double str)
+ (parse-double float)))
+ results))))
+ results)
+ ((t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t)))
+
+ (deftest :BASIC/DO/2
+ (let ((results '()))
+ (do-query ((int float bigint str) "select * from TYPE_TABLE" :result-types :auto)
+ (declare (ignore bigint))
+ (setq results
+ (cons
+ (list (double-float-equal
+ (transform-float-1 int)
+ float)
+ (double-float-equal
+ (parse-double str)
+ float))
+ results)))