r9480: * sql/operations.lisp: Add userenv

        * doc/TODO: Add AUTOCOMMIT

diff --git a/ChangeLog b/ChangeLog
index 34cece571dc30686bd4d2b148ee2c97a886746d7..5c226cd1f6fa02679fc1d5233982adfebeae6979 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -9,6 +9,8 @@
        type string. Convert specified-type (CHAR n) to string. Convert specified-type
        CHAR to lisp type character.
        * sql/generic-postgresql.lisp: (string n) => (CHAR n)
        type string. Convert specified-type (CHAR n) to string. Convert specified-type
        CHAR to lisp type character.
        * sql/generic-postgresql.lisp: (string n) => (CHAR n)

+       * sql/operations.lisp: Add userenv
+       * doc/TODO: Add AUTOCOMMIT

        
 25 May 2004 Kevin Rosenberg <kevin@rosenberg.net>
        * Version 2.11.1 released: Much simpler Oracle client library loading.
        
 25 May 2004 Kevin Rosenberg <kevin@rosenberg.net>
        * Version 2.11.1 released: Much simpler Oracle client library loading.

diff --git a/TODO b/TODO
index 37c182948972d187388ca2ef87fcd51fb9362e99..867e62d6ae45f792b128b34faeabe7d339e32e2a 100644 (file)
--- a/TODO
+++ b/TODO
@@ -13,9 +13,6 @@ TESTS TO ADD
   rows (200) returned by the oracle backend at a time
 * Number and Char field types
 
   rows (200) returned by the oracle backend at a time
 * Number and Char field types
 

-COMMONSQL INCOMPATIBILITY
-
-   o userenv (Oracle specific but deprecated in Oracle 9) 

  
 VARIANCES FROM COMMONSQL
 
  
 VARIANCES FROM COMMONSQL
 

diff --git a/doc/TODO b/doc/TODO
index 4132cf6f66ba1438f02920d28425512bdd27b000..53ca37466034366ed6e713a5e680e91da8db6228 100644 (file)
--- a/doc/TODO
+++ b/doc/TODO
@@ -52,6 +52,7 @@ DOCUMENTATION TO DO LIST
 
  - CONNECT: :make-default and :pool keyword args. 
 
 
  - CONNECT: :make-default and :pool keyword args. 
 

+ - Tranactions: AUTOCOMMIT

 
 4. Documenting lower level, non-CommonSQL functions (some of this is already 
    done). 
 
 4. Documenting lower level, non-CommonSQL functions (some of this is already 
    done). 

diff --git a/sql/operations.lisp b/sql/operations.lisp
index b4d3eab8db559a4848640a754e8e4882e36f093b..ad785b35ffc28b36e41bf41a070b88333e0abe81 100644 (file)
--- a/sql/operations.lisp
+++ b/sql/operations.lisp
@@ -226,3 +226,7 @@
 (defsql sql-nvl (:symbol "nvl") (&rest rest)
   (make-instance 'sql-function-exp
                 :name 'coalesce :args rest))
 (defsql sql-nvl (:symbol "nvl") (&rest rest)
   (make-instance 'sql-function-exp
                 :name 'coalesce :args rest))

+
+(defsql sql-userenv (:symbol "userenv") (&rest rest)
+  (make-instance 'sql-function-exp
+                :name 'userenv :args rest))