Changeset unicode,5 for unicode/src/odbc/odbc-utilities.lisp

Timestamp:

02/03/2008 08:14:49 PM (18 years ago)

Author:

raverkamp

revision id:

svn-v3-trunk1:1c22b0a8-4d0b-0410-a296-af6a2e6f35e3:plain-odbc%2Ftrunk:10

Message:

adding exec-sql, changes to documentation, more tests

File:

• unicode/src/odbc/odbc-utilities.lisp (modified) (1 diff)

unicode/src/odbc/odbc-utilities.lisp

@@ -44 +44 @@
                      )))
 
-(defun connect-mysql (server user password)
-  (connect-generic :dsn *default-mysql-dsn*
-                   :server server :uid user :pwd password))
+(defun connect-mysql (server database user password)
+  (apply 'connect-generic 
+         (append 
+          (list :dsn *default-mysql-dsn*
+                :server server :uid user :pwd password)
+          (if database (list :database database) ()) 
+         )))
+