- (clsql:execute-command
- (format nil "INSERT INTO TYPE_BIGINT VALUES (~a,~a)"
- test-int
- (transform-bigint-1 test-int)
- )))))
+ (when (clsql-sys:db-type-has-bigint? *test-database-type*)
+ (clsql:execute-command
+ (format nil "INSERT INTO TYPE_BIGINT VALUES (~a,~a)"
+ test-int
+ (transform-bigint-1 test-int)
+ ))))))