Changeset vendor,3 for vendor/src/odbc/odbc-utilities.lisp

Timestamp:

12/07/2007 02:13:22 PM (19 years ago)

Author:

raverkamp

revision id:

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

Message:

included changes for 64 bit linux

File:

• vendor/src/odbc/odbc-utilities.lisp (modified) (2 diffs)

vendor/src/odbc/odbc-utilities.lisp

@@ -12 +12 @@
 (defvar *default-oracle-dsn* "default-oracle-dsn")
 (defvar *default-sql-server-dsn* "default-sql-server-dsn")
+(defvar *default-mysql-dsn* "default-mysql-dsn")
+
 
 
@@ -42 +44 @@
                      )))
 
+(defun connect-mysql (server user password)
+  (connect-generic :dsn *default-mysql-dsn*
+                   :server server :uid user :pwd password))
+
+
 (defun with-prepared-statement-fun (con string params fun)
   (let ((stm (apply #'prepare-statement con string params)))