Add compatibility with sxql:sql-compile

[killianarts]

Problem

When passing a sxql:sql-compiled object to select-by-sql or retrieve-by-sql, I get the following error:

#<SXQL-COMPILED: SELECT account.*, leg.* FROM leg INNER JOIN account ON (leg.account_id = account.id) WHERE (account.id = ?) [1]> fell through ETYPECASE expression.
Wanted one of (STRING
               (OR SXQL/SQL-TYPE:SQL-STATEMENT
                   SXQL/COMPOSED-STATEMENT:COMPOSED-STATEMENT
                   SXQL/SQL-TYPE:CONJUNCTIVE-OP)).
   [Condition of type SB-KERNEL:CASE-FAILURE]

Solution

Add sxql/composer:select-query-state to ensure-sql etypecase form.

[fukamachi]

Thanks!