2 (defmethod database-query (query-expression (database closed-database) types)
3 (declare (ignore query-expression types))
4 (signal-closed-database-error database))
6 (defmethod database-query (query-expression (database t) types)
7 (declare (ignore query-expression types))
8 (signal-no-database-error))
10 (defmethod database-execute-command (sql-expression (database closed-database))
11 (declare (ignore sql-expression))
12 (signal-closed-database-error database))
14 (defmethod database-execute-command (sql-expression (database t))
15 (declare (ignore sql-expression))
16 (signal-no-database-error))
18 (defgeneric execute-command (expression &key database)
20 "Executes the SQL command specified by EXPRESSION for the database
21 specified by DATABASE, which has a default value of
22 *DEFAULT-DATABASE*. The argument EXPRESSION may be any SQL statement
23 other than a query. To run a stored procedure, pass an appropriate
24 string. The call to the procedure needs to be wrapped in a BEGIN END
27 (defmethod execute-command ((sql-expression string)
28 &key (database *default-database*))
29 (record-sql-command sql-expression database)
30 (let ((res (database-execute-command sql-expression database)))
31 (record-sql-result res database))