From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Wed, 7 Apr 2004 14:34:58 +0000 (+0000)
Subject: r8846: updates
X-Git-Tag: v3.8.6~729
X-Git-Url: http://git.kpe.io/?a=commitdiff_plain;ds=sidebyside;h=0196e0db0edccccab4cd8a0d6309e768a98667fd;hp=589ac938c266f00e098f9875642c2792bd19506b;p=clsql.git

r8846: updates
---

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 @@
   <sect1 id="history">
     <title>History</title>
     <para>
-      &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:
       <itemizedlist>
 	<listitem>
 	  <para>port from the &cmucl; FFI to &uffi;.</para>
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))