(progn
(let ((*backend-warning-behavior*
(if (member *test-database-type*
- '(:postgresql :postgresql-socket))
+ '(:postgresql :postgresql-socket :postgresql-socket3))
:ignore
:warn)))
(case *test-database-underlying-type*
(progn
(let ((*backend-warning-behavior*
(if (member *test-database-type*
- '(:postgresql :postgresql-socket))
+ '(:postgresql :postgresql-socket :postgresql-socket3))
:ignore
:warn)))
(clsql:create-table [foo] '(([bar] integer :not-null)