From 0196e0db0edccccab4cd8a0d6309e768a98667fd Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 7 Apr 2004 14:34:58 +0000 Subject: [PATCH] r8846: updates --- doc/intro.xml | 9 +++++---- usql/basic-cmds.lisp | 32 -------------------------------- 2 files changed, 5 insertions(+), 36 deletions(-) delete mode 100644 usql/basic-cmds.lisp diff --git a/doc/intro.xml b/doc/intro.xml index 1c7ed2e..de09cf4 100644 --- a/doc/intro.xml +++ b/doc/intro.xml @@ -22,10 +22,11 @@ History - &clsql; is written by Kevin M. Rosenberg and based substantially - on Pierre R. Mai's excellent &maisql; package. Recently, the UncommonSQL - package has been ported and integrated with &clsql;. The main changes - from &maisql; are: + &clsql; is written by Kevin M. Rosenberg in 2001 and was based + substantially on Pierre R. Mai's excellent &maisql; package. In + April 2004, Marcus Pearce ported the UncommonSQL to &clsql; + which provides a CommonSQL-compatible API for &clsql;. The main + changes from &maisql; are: port from the &cmucl; FFI to &uffi;. diff --git a/usql/basic-cmds.lisp b/usql/basic-cmds.lisp deleted file mode 100644 index a8241b9..0000000 --- a/usql/basic-cmds.lisp +++ /dev/null @@ -1,32 +0,0 @@ - -(defmethod database-query (query-expression (database closed-database) types) - (declare (ignore query-expression types)) - (signal-closed-database-error database)) - -(defmethod database-query (query-expression (database t) types) - (declare (ignore query-expression types)) - (signal-no-database-error)) - -(defmethod database-execute-command (sql-expression (database closed-database)) - (declare (ignore sql-expression)) - (signal-closed-database-error database)) - -(defmethod database-execute-command (sql-expression (database t)) - (declare (ignore sql-expression)) - (signal-no-database-error)) - -(defgeneric execute-command (expression &key database) - (:documentation - "Executes the SQL command specified by EXPRESSION for the database -specified by DATABASE, which has a default value of -*DEFAULT-DATABASE*. The argument EXPRESSION may be any SQL statement -other than a query. To run a stored procedure, pass an appropriate -string. The call to the procedure needs to be wrapped in a BEGIN END -pair.")) - -(defmethod execute-command ((sql-expression string) - &key (database *default-database*)) - (record-sql-command sql-expression database) - (let ((res (database-execute-command sql-expression database))) - (record-sql-result res database)) - (values)) -- 2.34.1