Changeset combined,2.2.5 for combined/src/odbc/plain-odbc-package.lisp

Timestamp:

02/16/2008 08:00:25 PM (18 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

error-handling

parents:

Rev	Tree	Chgset
2.2.4	@combined,2.2.4	[combined,2.2.4]
5	@combined,5	[combined,5]

revision id:

dsowen@fugue88.ws-20080216200025-8xqgx2gpkr529rdp

Message:

• Merged from vendor.
• Adapted error-handling for new code from vendor.

File:

• combined/src/odbc/plain-odbc-package.lisp (modified) (4 diffs)

combined/src/odbc/plain-odbc-package.lisp

@@ -10 +10 @@
 (defpackage "PLAIN-ODBC"
   (:use 
-   "COMMON-LISP" #+mcl "CCL" #+cormanlisp "WIN32" "CFFI")
+   "COMMON-LISP"  "CFFI")
+;  rav, 20.12.2007 I do not think this is necessary anymore
+; #+mcl "CCL" #+cormanlisp "WIN32" "CFFI")
   (:export
    "PRINT-ODBC-ERROR"
@@ -17 +19 @@
    "ERROR-CODE"
 
+   "EXEC-SQL"
    "EXEC-QUERY" 
    "EXEC-UPDATE" 
    "EXEC-COMMAND"
 
+   "EXEC-SQL*"
    "EXEC-QUERY*" 
    "EXEC-UPDATE*" 
@@ -29 +33 @@
    "EXEC-PREPARED-UPDATE"
    "EXEC-PREPARED-COMMAND"
-   "FREE-STATEMENT"
-   "CONNECT"
+   "FREE-STATEMENT" 
+   "CONNECT"   
    ;"DRIVER-CONNECT"
    "CONNECT-GENERIC"
@@ -47 +51 @@
    "*DEFAULT-ORACLE-DSN*"
    "*DEFAULT-SQL-SERVER-DSN*"
+   "*DEFAULT-MYSQL-DSN*"
+
    
    "CONNECT-ACCESS"
    "CONNECT-SQL-SERVER"
    "CONNECT-ORACLE" 
+   "CONNECT-MYSQL"
 
    "TRACE-CONNECTION"
    "UNTRACE-CONNECTION"
+
+
 ))